Secant to x^2
Author: Don Bindner

Drag A or B to change the diagram.

Show x and y points

f(x) = x^(2)
A = Point(f)
B = Point(f)
sec = Line(A, B)
tan = Tangent(A, f)
line_{xh} = OrthogonalLine(B, xAxis)
line_{fx} = OrthogonalLine(A, yAxis)
C = Intersect(line_{xh}, line_{fx})
Δy = Segment(C, B)
Δx = Segment(A, C)
slope = If(A ≠ B, Slope[sec], Slope[tan])
line_x = OrthogonalLine(A, xAxis)
line_{fxh} = OrthogonalLine(B, yAxis)
a = Intersect(line_x, xAxis)
a_{+Δx} = Intersect(line_{xh}, xAxis)
f_{(a)} = Intersect(line_{fx}, yAxis)
f_{(a+Δx)} = Intersect(line_{fxh}, yAxis)
show = false