De la fórmula a la gràfica
Author: Pep Bujosa

Mou els punts verds fins a encertar la fórmula escrita en negre.

Amb F9 surt una fórmula nova.

Molt bé!

a2 = Random(1, 4)
a1 = Random(-4, 4)
a: a1 / a2
A = Point(yAxis)
B = (2, 6)
c = Line(A, B)
d = OrthogonalLine(B, xAxis)
e = OrthogonalLine(A, yAxis)
C = Intersect(d, e)
polígon1, a_1, b_1, c_1 = Polygon(B, C, A)
text1: "" + c
b = Random(-5, 5)
a11: a1 / GCD[a1, a2]
a22: a2 / GCD[a1, a2]
k = If(b < 0, " ", "+")
text2: "y \;  = \;  \frac{" + a11 + " }{" + a22 + "} \; x \;   " + k + b
text3: "y = " + a11 + "x " + k + b
text4: "y = x " + k + b
text5: "y = -x " + k + b
m = Slope(c)