1 / 4
文档名称:

5800高程程序,中桩、左右边桩高程显示在同一屏,支持超高,可以减去结构层厚度.docx

格式:docx   大小:15KB   页数:4页
下载后只包含 1 个 DOCX 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

5800高程程序,中桩、左右边桩高程显示在同一屏,支持超高,可以减去结构层厚度.docx

上传人:mazhuangzi1 2022/8/3 文件大小:15 KB

下载得到文件列表

5800高程程序,中桩、左右边桩高程显示在同一屏,支持超高,可以减去结构层厚度.docx

相关文档

文档介绍

文档介绍:卡西欧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