|
单角、双角、多角、回头、曲线计算程序 | ||||||
|
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? |
||||||
|
操 作 方 法 |
|||||||||||||||||||||||||||||||||
|
|
输 入 值 |
输 出 值 |
输入 |
输 出 值 |
输 入 |
||||||||||||||||||||||||||||
|
|
对应因子 |
∠1或IP的里程 |
∠1至∠2的里程 |
∠1的度数 |
∠2的度数 |
欲设半径 |
外距 |
合计角的总度数 |
BC处的应拉切线负退 |
EC处的应拉切线正进 |
切线 |
曲线 |
BC的里程 |
EC的里程 |
mC的里程 |
BC后的整桩号 |
余尺 |
余尺的偏角 |
EC前的整桩号 |
余尺 |
余尺的偏角 |
曲线内的整桩数 |
选择B.E.2B2E |
对应的余尺的偏角 |
另一整弦的偏角（含余尺） |
第二弦 |
第三弦 |
…… |
最后整弦 |
本曲线内总的偏角 |
R〈80°时10米弦占所对的弦长 |
再次选择 |
|
|
|
显示代号 |
P? |
A? |
S? |
Y? |
R? |
E=R(… |
I |
T/1┘1 |
T/2┘2 |
T |
L |
B |
E |
M |
Q |
U |
G |
V |
W |
H |
F=(… |
L? |
G |
X |
X |
X |
X |
X |
X |
X |
C? |
|
|
双角 |
500 |
65 |
20 |
45 |
100 |
18.57 |
65°00′00″ |
-13 |
39.18 |
63.71 |
113.45 |
487.00 |
600.45 |
543.73 |
490 |
#### |
0°05′24″ |
600 |
0.46 |
0°07′54″ |
11 |
B |
0°51′24″ |
3°43′71″ |
6°35′10″ |
9°27′03″ |
…… |
32°22′09″ |
32°30′04″ |
无 |
C? |
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2B |
359°08′36″ |
356°16′43″ |
35°24′50″ |
350°32′57″ |
…… |
327°35′71″ |
327°29′56″ |
无 |
C? |
||
|
单角 |
|
500 |
I? 68 |
|
|
40 |
8.25 |
|
|
|
26.98 |
47.47 |
473.02 |
520.49 |
496.76 |
480 |
6.98 |
4°59′57″ |
520 |
0.49 |
0°21′03″ |
4 |
E |
0°21′03″ |
7°30′46″ |
14°40′30″ |
21°50′13″ |
28°59′56″ |
|
33°59′52″ |
9.974 |
C? |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2E |
359°38′57″ |
352°29′14″ |
345°19′30″ |
338°09′47″ |
331°00′04″ |
|
32°00′08″ |
9.974 |
C? |
||
|
多角 |
三个角 |
500 |
49.197 |
23.377 |
42.623 |
35 |
6.73 |
66°00′00″ |
13.74 |
1.36 |
22.73 |
40.32 |
513.74 |
554.06 |
533.9 |
520 |
6.26 |
5°07′26″ |
550 |
4.06 |
3°19′23″ |
3 |
B |
5°07′26″ |
13°18′32″ |
21°29′39″ |
29°40′45″ |
|
|
33°00′09″ |
9.966 |
C? |
|
|
四个角 |
500 |
63.62 |
34.423 |
53.577 |
35 |
13.66 |
88°00′00″ |
17.42 |
-2.19 |
33.8 |
53.76 |
517.42 |
571.18 |
544.3 |
520 |
2.58 |
2°06′42″ |
570 |
1.18 |
0°57′57″ |
5 |
B |
2°05′42″ |
10°17′49″ |
18°28′55″ |
26°40′02″ |
34°51′08″ |
34°02′14″ |
44°00′11″ |
9.966 |
C? |
||
|
具 体 操 作 |
切线支距程序在F2 |
单 角 |
双 角 |
三 个 角 |
四 个 角 |
|
说明： |
|
|
|
|
|
|
|
|
||||||||||||||||||
|
①FILE FILE EXE这时出现 C? ②输入余尺如下：3.82 EXE 3.79拉距 EXE 0.206 支距 EXE 13.44 拉距 EXE 2.685 支距 |
①刚开机或算完双角时需清内存 AC SHIFT AC EXE ②调出程序：FILE EXE ③这时出现P?开始按以上表中顺序输入各值，每输完一个值按一下EXE |
①将D内存入2即：2 STO sin ②调出程序同单角也在F1③出现P?后按上表中顺序输入各值④无论是否回头曲线，切线T1和T2的值为正时按前进方向拉尺，为负值时按后退方向拉尺 |
①调出F3程序:3 FILE EXE出现P?按下列顺序输值 |
①如同三个角操作到出现L?时，输入任意一个大于0的数 EXE . |
|
①不必担心进舍所造成的长度或度、分、秒尾数差1的现象。 |
|
||||||||||||||||||||||||||
|
P? G? H? E? J? F? |
} |
|
②度数的读法： |
度、分、秒 |
|
||||||||||||||||||||||||||||
|
输∠1的里程 a1 a2 ∠1 ∠2 ∠3 |
出现 H? J? |
} |
②这时又出现 C?，如果没有第五个角可直接按 EXE 得出上表结果，当出现 R? 时输入半径 |
|
③如果欲在BC处架仪器时，到显示L?时选择B，左转时选择2B，在EC处架仪器时选择E,左转时选择2E |
|
|||||||||||||||||||||||||||
|
500 30 20 15 30 21 |
输入 a3 ∠4 |
|
|
||||||||||||||||||||||||||||||
|
②这时出现 C? 如果没有第四个角可直接按 EXE 得出上表结果，当出现 R? 时输入半径 |
18 22 |
|
|
||||||||||||||||||||||||||||||
|
|
|
|
|||||||||||||||||||||||||||||||
|
|
|
|
a1表示从∠1到∠2的距离，a2表示从∠2到∠3的距离 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||||||||||||||
