Multiplier par

Rafraichir l'affichage

nombre

puissance de 10  :

,

10

100

1 000

10 000

100 000

0,1

0,01

0,001

0,0001

0,00001

C.Martelet, IREM de Lyon

C = (-4, 7)
A = (-4, -2)
B = (13, -2)
nombre = 123 (slider from 0 to 1000000, step 1)
partieEntiere = Reverse(Sequence[Div[Mod[nombre, 10^(i)], 10^(i - 1)], i, 1, 6])
unite = Element(partieEntiere, 6)
dizaine = Element(partieEntiere, 5)
centaine = Element(partieEntiere, 4)
milliers = Element(partieEntiere, 3)
partieDecimale = Reverse(Sequence[Div[Mod[(nombre * 10^((-i))), 10], 1], i, -6, -1])
unite_1: "" + unite + ""
mult = 1 (slider from 0 to 1, step 0.01)
dix = 2 (slider from -5 to 5, step 1)
puissance_1: 10^(dix)
ordonnee: ((2.5 * y(A)) + (0.5 * y(C))) / 3
dizaine_1: "" + dizaine + ""
centaine_1: "" + centaine + ""
milliers_1: "" + milliers + ""
dixmilliers = Element(partieEntiere, 2)
dixieme = Element(partieDecimale, 1)
centieme = Element(partieDecimale, 2)
millieme = Element(partieDecimale, 3)
dixmillieme = Element(partieDecimale, 4)
centmillieme = Element(partieDecimale, 5)
millionieme = Element(partieDecimale, 6)
dixieme_1: "" + dixieme + ""
centieme_1: "" + centieme + ""
millieme_1: "" + millieme + ""
position: (mult * ((-dix)) / 11)
texte1: "" + nombre + "*" + puissance_1 + "="
resultat: (nombre * puissance_1)
resultat_1: "" + resultat + ""
ChampTexte1 = Textfield(nombre)
ChampTexte2 = Textfield(dix)
dixmilliers_1: "" + dixmilliers + ""
dixmillieme_1: "" + dixmillieme + ""
centmillieme_1: "" + centmillieme + ""
chiffremin = If(Element[partieDecimale, 5] > 0, 5, If[Element[partieDecimale, 4] > 0, 4, If[Element[partieDecimale, 3] > 0, 3, If[Element[partieDecimale, 2] > 0, 2, If[Element[partieDecimale, 1] > 0, 1, 0]]]])
chiffremax = If(Element[partieEntiere, 1] > 0, 6, If[Element[partieEntiere, 2] > 0, 5, If[Element[partieEntiere, 3] > 0, 4, If[Element[partieEntiere, 4] > 0, 3, If[Element[partieEntiere, 5] > 0, 2, 1]]]])
tempo = 1 (slider from 0 to 1, step 0.1)
zeroinutile = 1 (slider from -5 to 5, step 1)
centmilliers = Element(partieEntiere, 1)
centmilliers_1: "" + centmilliers + ""
D = (13.31, 8)
E = (30.31, 8)
a_1 = Segment(D, E)
b_1 = OrthogonalLine(E, a_1)
c_1 = OrthogonalLine(D, a_1)
F = Point(c_1)
G = Midpoint(F, D)
d_4 = OrthogonalLine(G, c_1)
H = Intersect(b_1, d_4)
e_4 = OrthogonalLine(F, c_1)
I = Intersect(b_1, e_4)
poly1, d_1, g, h, e_1 = Polygon(D, G, H, E)
poly2, g_1, f, i, h_1 = Polygon(G, F, I, H)
texte3: "10^{" + (LaTeX[dix]) + "}=" + (LaTeX[puissance_1]) + ""
a = false
b = true
c = false
d = false
e = false
a_2 = false
b_2 = false
c_2 = false
d_2 = false
e_2 = false
Curve(x) = NaN