单角、双角、多角、回头、曲线计算程序        
        CASIO  fx-4500p 计算器
F1        
1.  Fox：{P}:LbI9        
2.  D=2Goto8        
3.  D=0Goto8        
4.  {D}:D=Degut 9        
5.  LbI8:P=P        
6.  D=2{SAY}        
7.  A=A: I=S+Y        
8.  D=0{IR}:I=I        
9.  L=π/180IR        
10. I>180I=-I        
11. T=Rtan I/2        
12. K=90/πR:E=R((cos(I/2))-1-1◢        
13. L=Int(100C+.5)/100        
14. D=0Goto 3
15. F=T-A┙sin I sin Y
16. Z=T-A┙sin I sin S
17. F<0F=Int(100F-.5)/100
18. Z<0Z=Int(100Z-.5)/100
19. F<0F=Int(100F+.5)/100
20. Z<0Z=Int(100Z+.5)/100
21. I<0B=P+F:Z=-Z
22. I>0B=P-F:F=-F
23. V=1:X=I
24. Goto5:LbI7
25. I=X:I>0I◢
26. I<0-I◢
27. N=T:T=F:T/1┙1
28. T=Z:T/2┙2◢T=N
29. LbI3
30. T=Int(100T+.5)/100                                                
31. D=0B=P-TE=B+C                                                
32. Q=Int(B/10)×10+10                                                
33. V=Int(E/10)×10                                                
34. U=Q-B:W=E-V                                                
35. G=UK:H=WK                                                
36. Z=1:X=G                                                
37. Goto5:LbI4                                                
38. G=X:X=H:Z=2                                                
39. LbI5:J=IntX                                                
40. M=60(X-J):O=IntM                                                
41. M=Int(60(M-O)+.5                                                
42. M=60O=O+1:M=0                                                
43. O=60J=J+1:O=0                                                
44. X=100(100J+O)+M                                                
45. V=1Goto7                                                
46. Z=1Goto4
47. Z=2Goto6
48. Z=3Goto0X◢
49. Z=5R<80L=2Rsin(10K)◢
50. Z=5Goto1
51. N=(10F+U)X=KL:Z=5
52. N=(10F+W)X=KL:Z=5
53. X=KLC=2BX=360-X
54. C=2EX=360-X
55. Z=5:Goto5
56. Z=4Goto0
57. Z=5Goto5
58. LbI6:H=X
59. T◢L◢B◢E◢Q◢U◢G◢V◢W◢H◢
60. F=(V-Q)/10◢
61. LbI1:C=0:{L}
62. C=2BN=U
63. X=360-UK:Z=4
64. Goto5
65. C=2EN=W
66. X=360-WK:Z=4
67. Goto5
68. C=BN=U:G◢Z=4:Goto0
69. C=EN=W:H◢Z=4:Goto0
70. Goto1:LbI0
71. N=N+10
72. X=KN:Z=4
73. C=2BX=360-KN
74. C=2EX=360-KN
75. Goto5

F2
1.  C=C                
2.  Fixm                
3.  LbI0                
4.  A=KC                
5.  X=Rsin(2A)◢                
6.  Y=2R(sinA)²◢                
7.  C=C+10                
8.  Goto0                

F3                
1.  P=P:G=G:H=H:E=E:J=J:LbI0                
2.  A=√(G²+H²+2GHcosF)                
3.  S=E+sin-1(sinF/A×H)                
4.  Y=E+F+J-S:E=S:F=Y                
5.  C=0:{L}:C>0E=S                
6.  F=Y:G=A:{HJ}:Goto0                
7.  C=0D=2:Prog1