单角、双角、多角、回头、曲线计算程序(1)

单角、双角、多角、回头、曲线计算程序
 
 
 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◢