Developed by
Tan Teck Hock
HOD ICT
Broadrick Secondary School
25 May 2010

Move C to form ABCD as a rectangle

Move C to D to form a triangular base

Move P to Mid Point of AB

Move Q to Mid Point of BC

A' = (14.365175164560933, 2.8916413118351363)
A'_Y = Line(A', yAxis)
O = (26.950622053562363, 0.9044654872559578)
Circle_O = Circle(O, 1)
Z = Point(Circle_O)
w = Vector(O, Z)
X = Point(Circle_O)
u = Vector(O, X)
Y = Point(Circle_O)
YOZ = Angle(Z, O, Y)
v = Vector(O, Y)
A = (2, 8)
A_z = Line(A, w)
D_{Fix} = Point(A_z)
AD_{Fix} = Segment(A, D_{Fix})
D = Point(AD_{Fix})
D_x = Line(D, u)
C_{Fix} = Point(D_x)
DC_{Fix} = Segment(D, C_{Fix})
C = Point(DC_{Fix})
V_{DC} = Vector(D, C)
AD = Segment(A, D)
Length_{AD}: AD / cos(YOZ)
Circle_{A'} = Circle(A', Length_{AD})
D'', D' = Intersect(Circle_{A'}, A'_Y)
A'D' = Segment(A', D')
C' = Translate(D', V_{DC})
Ray_{C'D'} = Ray(D', C')
A_x = Line(A, u)
B_{Fix} = Point(A_x)
AB_{Fix} = Segment(A, B_{Fix})
B = Point(AB_{Fix})
BC = Segment(B, C)
Q = Point(BC)
BQ = Segment(B, Q)
Q_x = Line(Q, u)
AB = Segment(A, B)
P = Point(AB)
P_z = Line(P, w)
M = Intersect(P_z, Q_x)
M_y = Line(M, v)
F = Point(M_y)
MF = Segment(F, M)
H = Point(MF)
HM = Segment(M, H)
Q''H: (Distance[A, P]^(2) + HM^(2))^(0.5)
PM = Segment(P, M)
P''H: (((AD - PM) / cos(YOZ))^(2) + HM^(2))^(0.5)
V_{AP} = Vector(A, P)
P' = Translate(A', V_{AP})
P'_{y} = Line(P', yAxis)
P'' = Intersect(Ray_{C'D'}, P'_{y})
Circle_{P''} = Circle(P'', P''H)
H_2', H_2 = Intersect(Circle_{P''}, P'_{y})
C'H_2 = Segment(C', H_2)
V_{AB} = Vector(A, B)
B' = Translate(A', V_{AB})
B'C' = Segment(C', B')
B'Q': (BQ * B'C' / BC)
Circle_1 = Circle(B', B'Q')
Q', G = Intersect(Circle_1, B'C')
Q'_{x} = Line(Q', xAxis)
Q'' = Intersect(Q'_{x}, A'D')
Circle_{Q''} = Circle(Q'', Q''H)
H_4, H_4' = Intersect(Circle_{Q''}, Q'_{x})
D'H_4 = Segment(D', H_4)
P'H: ((PM / cos(YOZ))^(2) + HM^(2))^(0.5)
Circle_{P'} = Circle(P', P'H)
H_1, H_1' = Intersect(Circle_{P'}, P'_{y})
B'H_1 = Segment(B', H_1)
Circle_{B'} = Circle(B', B'H_1)
QM = Segment(M, Q)
Q'H: (QM^(2) + HM^(2))^(0.5)
Perpendicular_{B'C'} = LineBisector(B', C')
Circle_{Q'} = Circle(Q', Q'H)
MoveCtoE = true
MoveCtoD = false
MoveP = false
MoveQ = false
CD = Segment(D, C)
B_z = Line(B, w)
E = Intersect(D_x, B_z)
M_{AB} = Midpoint(B, A)
M_{BC} = Midpoint(C, B)
HA = Segment(H, A)
HB = Segment(H, B)
HC = Segment(H, C)
HD = Segment(H, D)
Circle_M = Circle(M, 0.8)
M_x = Line(M, u)
M_z = Line(M, w)
M_1, M_2 = Intersect(Circle_M, M_z)
M_3, M_4 = Intersect(Circle_M, M_x)
M_5, M_6 = Intersect(Circle_M, M_y)
M1_y = Line(M_1, v)
M2_y = Line(M_2, v)
M6_z = Line(M_6, w)
M_7 = Intersect(M6_z, M2_y)
M_8 = Intersect(M1_y, M6_z)
a = Segment(M_1, M_8)
b = Segment(M_8, M_6)
c = Segment(M_6, M_7)
d = Segment(M_7, M_2)
M4_y = Line(M_4, v)
M3_y = Line(M_3, v)
M6_x = Line(M_6, u)
M_9 = Intersect(M6_x, M3_y)
M_{10} = Intersect(M6_x, M4_y)
e = Segment(M_3, M_9)
f = Segment(M_9, M_6)
g = Segment(M_6, M_{10})
h = Segment(M_{10}, M_4)
A'B' = Segment(A', B')
Length_{BQ}: BQ / cos(YOZ)
B'_y = Line(B', yAxis)
C'D' = Segment(D', C')
A'H_1 = Segment(A', H_1)
D'H_2 = Segment(D', H_2)
Circle_{C'} = Circle(C', If[x(C') ≟ x(D'), D'H_4, C'H_2])
H_3', H_3 = Intersect(Circle_{B'}, Circle_{C'})
A'H_4 = Segment(H_4, A')
distanceD'H2 = Distance(D', H_2)
distanceH4D' = Distance(H_4, D')
distanceH4A' = Distance(H_4, A')
distanceA'H1 = Distance(A', H_1)
distanceB'H1 = Distance(B', H_1)
distanceB'H3 = Distance(B', H_3')
distanceC'H3 = Distance(C', H_3')
distanceH2C' = Distance(H_2, C')
C'H_3 = Segment(C', H_3)
B'H_3 = Segment(B', H_3)
i = Distance(C', H_3)
j = Distance(B', H_3)