אתחול

y=a(x-m)(x-n)

y=k

y=1

הצג נקודות חיתוך בין הפרבולה לישר

עקוב אחר נקודת האמצע בין A ו-B

נקה עקבות

הצג את קו הסימטריה

הצג נקודות חיתוך עם הצירים

a = 1 (slider from -5 to 5, step 0.1)
m = 0 (slider from -5 to 5, step 1)
n = 0 (slider from -5 to 5, step 1)
k = 1 (slider from -10 to 10, step 1)
f(x) = a * (x - m) * (x - n)
d: y = k
A = Intersect(f, d, 1)
B = Intersect(f, d, 2)
e = false
C = Midpoint(A, B)
g = false
g_1 = true
b = 0
c = 0
text2: "y=" + (LaTeX[f]) + ""
e_1 = false
D = Intersect(f, xAxis, 1)
E = Intersect(f, xAxis, 2)
h: x = (m + n) / 2

Tool: שיעורי נקודה (command שיעורינקודה)
נקודה
Input: A
Output: d, c

a = OrthogonalLine(A, xAxis)
b = OrthogonalLine(A, yAxis)
B = Intersect(b, yAxis)
C = Intersect(a, xAxis)
c = Segment(B, A)
d = Segment(A, C)