אתחול

y=a(x-p)^2+k

y=m

y=1

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

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

נקה עקבות

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

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

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)