文档介绍:卡西欧5800--高程计算程序
I三
1=1
本人根据王中伟程序修改,加进了计算边桩功能,加了计算超高功能,加了
减去结构层厚度功能)
1•主程序(ZDM)
第 1 行:ClsStat : ClrMemory : FWF : Then变坡点桩号〜C:变坡点标高 -D:纵坡-I:下一个竖曲线的纵坡-J:凸(凹)曲线半径fR : Return : IfEnd/
F-S :下一个竖曲线的起点桩号-F : If K > S And KWF : Then变坡点桩号-C :变坡点标高 -D :纵坡-I :下一个竖曲线的纵坡-J :凸(凹)曲线半径-R : Return : IfEnd/
第 1 行:O — S: — F: If K^S And K^F:Then — C: — D: 0— I: 1. 4545
J: 5500- R:Return:IfEnd /
第 2 行:F — S : — F: If K > S And KWF:Then — C: — D: — I: -- J: - R:Return:IfEnd /
第 3 行:F — S : — F: If K > S And KWF:Then — C: — D: - — I: — J: — R:Return:IfEnd/
第 4 行:F — S : 1050 — F: If K > S And KWF:Then — C: — D: — I: -— J: 3000— R:Return:IfEnd /
第 5 行:F — S : — F: If K > S And KWF:Then 1155 — C: — — D: — — I: — J: 3000— R:Return:IfEnd /
第 5 行:F — S : — F: If K > S And KWF:Then — C: — D: — I: —— J: 3000— R:Return:IfEnd /
第 5 行:F — S : — F: If K > S And KWF:Then — C: — D: —
I: — J: — R:Return:IfEnd /
第 5 行:F — S : — F: If K > S And KWF:Then — C: — D: 1. 6364 — I: —— J: — R:Return:IfEnd /
第 5 行:F — S : — F: If K > S And K^F:Then — C: — D: — — I: 0— J: — R:Return:IfEnd /
第 6 行:If K < O Or K > F:Then Cls:Locate 5,2, “KP