multiplication Ligne
Author: JFMaheux
Date: 8 Octobre 2013

produit Nombre1xNombre2

unités

dixiemes

centiemes

miliemmes

Nombre 1

Nombre 2

Le "compas proportionel" de Descartes

Le 'compas proportionel' de Descartes

mm = 3 (slider from 0 to 5, step 0.01)
m = 2.1 (slider from 0 to 5, step 0.01)
C = (-44.6061930205411, -4.249711468393412)
A = (-66.10258366615165, -14.873889152855696)
a = Ray(A, C)
n1: m
unite = Point(a)
k = Distance(unite, A)
B = (29.06428401111791, -14.674704223088337)
b = Ray(A, B)
n2: mm
c = Circle(A, n1 * Distance[unite, A])
d = Circle(A, n2 * Distance[unite, A])
Nombre2 = Intersect(d, b, 1)
Nombre1 = Intersect(c, a, 1)
e = Segment(unite, Nombre2)
f = Line(Nombre1, e)
Nombre1xNombre2 = Intersect(f, b)
g = true
resultat: n1 * n2
h = true
i = true
j = false
gradUnit = Sequence(unite + k * (unite - A), k, 0, 100)
gradDix = Sequence(A + k * (unite - A) / 10, k, 0, 1000)
p = Circle(A, unite)
unit2 = Intersect(p, b, 1)
gradUnit2 = Sequence(A + k * (unit2 - A), k, 0, 100)
gradDix2 = Sequence(A + k * (unit2 - A) / 10, k, 0, 1000)
gradCent = Sequence(A + k * (unite - A) / 100, k, 0, 1000)
gradCent2 = Sequence(A + k * (unit2 - A) / 100, k, 0, 1000)
l = false
gradMil2 = Sequence(Nombre1xNombre2 - k * (unit2 - A) / 1000, k, 0, 100)
res: n1 + 1
Résultat: "Résultat:" + resultat + ""
ChampTexte3 = Textfield(m)
ChampTexte1 = Textfield(mm)