原创力文档- 1、本文档共15页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
CASIO5800计算器公路竖曲线全线高程计算程序206
CASIO5800计算器公路竖曲线全线高程计算程序
“SQXJSCX”↙ Lb1?? 1↙ CLs:Fix?? 3↙ “K=”?k◢???? (计算点里程输入) If?? k67549.755?? AND?? K≥66894.3 :Then?? -0.00052→A : 0→B : 67394.3→S : 67.37→G : 600000→R : Goto?? 2 : IfEnd↙ If?? k68708.391?? AND?? K≥67549.755 :Then?? -0.0048→A : -0.00052→B : 68494.3→S :66.8→G : 100000→R : Goto?? 2 : IfEnd↙ If?? k本段竖曲线终点里程?? AND?? K≥前一竖曲线终点里程 :Then?? -0.0048→前坡（大里程向）A : -0.00052→后坡（小里程向）B : 68494.3→竖曲线交点里程S :66.8→交点高程G : 100000→曲率半径R : Goto?? 2 : IfEnd↙ ……… 依次类推，计算原始数据完成输入，坡度换算成小数。 Lb1?? 2↙ S-K→L ： A-B→W : Abs（R*W/2）→T : S-T→C : S+T→D ↙ If?? K≤C : Then?? G-L*B →H : Goto 5 : Else?? If?? K≤S : Then?? Goto3 : Else?? If?? K≤D : Then?? Goto4?? : IfEnd : IfEnd : IfEnd↙
Lb1?? 3↙ If?? W0 : Then?? G+(C-K)^ 2/2/R-L*B→H?? : Goto 5 : Else?? If W0 : Then?? G-(C-K) ^2/2/R-L*B→H?? : Goto 5 : IfEnd : IfEnd↙ Lb1?? 4↙ If?? W0 : Then?? G+(K-D) ^2/2/R-L*A→H?? : Goto 5 : Else?? If W0 : Then?? G-(K-D)^ 2/2/R-L*A→H?? : Goto 5 : IfEnd : IfEnd↙
1?? 5↙ H-0.304→H↙???? (0.304为中心~路肩高差) “H=”：H◢ Goto 1↙
Norm 1:50→C:12345→J RESET PW?I:I=J=500→DimZ?? 为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量 50→Z[C+22] PASSWORDS?I:I→Z[C+39]??????重设要素保护密码 Cls:Stop FileName:DATLOCK??????要素保护密码确定认程序 Cls:Norm 1:50→C PASSWORDS?J:Cls:J≠Z[C+39]=Stop????2008-08-07修改 FileName:SHELL(外壳程序) 50→C???????????? ;在扩充变量预留前50个给别的程序用。如不够就适量加大。RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致 Z[C+35]→I:STATION-N?I:I→Z[C+35]??????设置测站N坐标 Z[C+36]→I:STATION-E?I:I→Z[C+36]??????设置测站E坐标 Z[C+44]→I:STATION-Z?I:I→Z[C+44] 设置测站Z坐标 Z[C+45]→I:STATION-HI?I:I→Z[C+45]???? 设置仪高 Z[C+41]→I:GC-DH?I:I→Z[C+41]???? 放样点高差常数 Norm 1 Z[C+23]→N 当前分段要素N坐标 Z[C+24]→E 当前分段要素E坐标 Z[C+25]→M 当前分段要素起点桩号 Z[C+26]→H 当前分段要素起点方位角（正北）单位：弧度 Z[C+27]→A 当前分段要素起点曲率有左偏负右偏正（注意不半径） Z[C+28]→R 当前分段要素终点曲率有左偏负右偏正（注意不半径） Z[C+29]→L 当前分段要素长度 Z[C+3]→W Z[C+32]→I:DAT1 2 3?I:I→Z[C+32]??平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值) 0→I Z[C+4]→I:1 2 3?I:I→Z[C+4]?? 选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到) Lbi 1 Z[C+4]→I I=1=ProgTURNZH I=2=ProgHXBYP I=3=ProgZXBYP Lbi A Deg:Norm 1:Cls Z[C+1]→G:ZH?G:G→Z[C+1]
文档评论（0）