ClrHome
Disp "FROM PAGE 190"
Input "ENTER L1 OR D_",D
Input "ENTER L2 OR A_",A
Input "ENTER L3 OR B_",B
Input "ENTER L4 OR C_",C
Input "ENTER θ2_",H
D/A→E
D/C→F
(A²-B²+C²+D²)/(2*A*C)→G
Disp "K1 IS"
Disp E
Disp "K2 IS"
Disp F
Disp "K3 IS"
Disp G
Input "DOES IT CHECK OUT?",X
(cos(H))-E-((F*cos(H)))+(G)→I
Disp "INTERMEDIATE PARAMETER A IS"
Disp I
(­2sin(H))→J
Disp "INTERMEDIATE PARAMETER B IS"
Disp J
E-((F+1)cos(H))+G→H
Disp "INTERMEDIATE PARAMETER C IS"
Disp H
Input "DOES IT CHECK OUT?",Y
2tan((­J-√(J²-4IH))/(2I))→K
Disp "θ4 OPEN IS"
Disp K
2tan((­J+√(J²-4IH))/(2I))→L
Disp "θ4 Crossed IS"
Disp L
D/B→M
(C²-D²-A²-B²)/(2*A*B)→N
Disp "K4 IS"
Disp M
Disp "K5 IS"
Disp N
Input "DOES IT CHECK OUT?",Z
cos(H)-E+Mcos(H)+N→T
Disp "INTERMEDIATE PARAMETER D IS"
Disp T
Disp "INTERMEDIATEPARAMETERE=B"
((M-1)cos(H))+N+E→Q
Disp "INTERMEDIATE PARAMETER F IS"
Disp Q
Input "DOES IT CHECK OUT?",V
2tan((­J-√(J²-4*T*Q))/(2T))→R
Disp "θ3 OPEN IS"
Disp R
2tan((­J+√(J²-4*T*Q))/(2T))→S
Disp "θ3 Crossed IS"
Disp S
Disp "θ4 Crossed IS"
Disp L
Disp "θ4 OPEN IS"
Disp K