|
單角、雙角、多角、回頭、曲線計算程序 | ||||||
|
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的距離 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||||||||||||||