文档介绍：word
word
- 2 - / 14
word
卡西欧 5800 程序
(完整版)
说明：本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功能宽，使用时只需按曲线要素表输入一次就可以计算整条线路〔包括高程、超高段横坡〕，能正、反算，在坐标下可以反算出该点桩号与相对宽度，拓展功能有，放边、仰坡、隧道断面测量、开挖轮廓线等。
word
word
- 2 - / 14
word
主程序:MAIN
＂ZH〔θ〕 F〔１〕＂?M↓ (0为正算、1为反算)
If M=θ:Then ＂ZHUANG HAO＂?A：＂KUAN DU＂?W:Else＂Ｘ＝＂?H：＂Ｙ＝＂?W:＂Ｚ＝＂？Ｑ：IfEnd↓
(第一个交点参数)
(交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓
If M=θ:Then If A<P-T:Then goto 1 :IfEnd:IfEnd↓
Prog＂ZFXZ＂↓
If K=θ:Then goto 2 :IfEnd↓
………… (中间交点参数)
Prog＂ZFXZ＂↓
If K=θ:Then goto 2 :IfEnd↓
………… (最后一个交点参数)
If M=θ:Then If A>P-T+S+D:Then Goto 1 :IfEnd:IfEnd↓
Prog＂ZFXZ＂↓
word
word
- 3 - / 14
word
If K=θ:Then goto 2 :IfEnd↓
Lb1 1：＂NO TASK＂↓
Lb1 2：If M=1:Then If A=1:Then ＂ZHUANG HAO＂:Z◢
＂SJ KUAN DU＂:B◢
IfEnd:IfEnd↓
＂-------END-------＂
KUAN DU 〔拓展功能程序，用于反算〕
1→Ｍ:Prog＂MAIN＂↓
Z→A:W→E:θ→W↓
Prog＂GAO CHENG＂↓
E→W↓
Q-F→P↓
If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓
……(同上)
Lb1 1↓
＂……＂:D◢
(同上) ◢
＂----------END---------＂
YUAN
K(B÷(2R))→F↓
2R Sin(K Fr)→C ↓
J+Fr→J ↓
word
word
- 4 - / 14
word
Prog＂XZBH＂
HHQX
B-B^5÷(9θ(RL)2)→C ↓
KB2÷(6RL)→F ↓
J+ Fr→J↓
Prog＂XZBH＂
PYJS
If O=θ:Then＂YUAN＂:J+Fr→J:IfEnd↓
If O=1:Then＂HHQX＂:J+2Fr→J:IfEnd↓
If O=2:Then＂LINE＂:J+18θ→J:IfEnd↓
W→C↓
If A>P-T+S-L:Then J-9θ→J:Else J+9θ→J:IfEnd↓
Prog＂XZBH＂↓
"X=":X◢
"Y=":Y◢
QXCS(有改)
Prog＂QDZB＂↓
If A≤P-T+L:Then A-P+T→B:U→J:1→O: Prog＂HHQX＂: Goto 1 :IfEnd↓
If A≤P-T+S-L:Then A-P+T-L→B:θ→0:L-L^3÷(90R2)→
word
word
- 5 - / 14
word
C:KL÷(6R)→F:U+Fr→J: Prog＂XZBH＂:U+3Fr→J: Prog＂YUAN＂: Goto 1:IfEnd↓
If A≤P-T+S:Then P-T+S-A→B:1→O:-K→K:V+180→J: Prog＂HHQX＂: Goto 1 :IfEnd↓
If A≤P-T+S+D:Then 2→O:A-P+T-S→C: Prog＂XZBH＂:IfEnd↓
Lb1 1：↓
Prog＂PYJS＂↓
Prog＂GA0 CHENG＂
QDZB
N→X:E→Y:T→C↓
If A>P-T+S-L:Then V→J: Else U+18θ→J:IfEnd↓
Prog＂XZBH＂↓
X→Z〔5〕:Y→Z〔6〕
JDTZ
If Z〔1〕< θ:Then Z〔1〕+ 36θ→Z[1]:I