Uusi suora

Apukolmio

Kulmakerroin

Hyvä! :D

Vastaus

Akselit ja ruudukko

Helpotus

a = Random(-9, 9)
b = Random(-9, 9)
c = Random(-9, 9)
d = Random(-9, 9)
A = If(b ≟ d, (a, b + 1), (a, b))
B = If(a > c, (a + abs(c), d), (c, d))
maxX = Max(x(A), x(B))
maxY = Max(y(A), y(B))
minX = Min(x(A), x(B))
minY = Min(y(A), y(B))
e = Max(maxX, maxY)
f = Min(minX, minY)
g = Max(abs(e), abs(f))
h = Line(A, B)
kuvio1, b_1, a_1, i = Polygon(A, (x(B), y(A)), B)
k = Slope(h)
teksti1: "k=" + (LaTeX[FractionText[(y(B) - y(A)) / (x(B) - y(A))]]) + ""
teksti2: "k=-" + (LaTeX[FractionText[abs((y(B) - y(A)) / (x(B) - y(A)))]]) + ""
j = false
tekstikenttä1 = Textfield()
kulmakerroin = 0
l = false
m = false