casio5800计算器公路竖曲线全线高程计算程序

《casio5800计算器公路竖曲线全线高程计算程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、CASIO5800计算器公路竖曲线全线高程计算程序(2009-12-2214:20:13)转载标签：时尚分类：测量人生“SQXJSCX”↙Lb1  1↙CLs:Fix  3↙“K=”?k◢    (计算点里程输入)If  k<67549.755  AND  K≥66894.3:Then  -0.00052→A:0→B:67394.3→S:67.37→G:600000→R:Goto  2:IfEnd↙If  k<68708.391  AND  K≥67549.755:Then  -0.0048→A:-0.00052→B:68494.3→S:6

2、6.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:Goto5:Else  If  K≤S

3、:Then  Goto3:Else  If  K≤D:Then  Goto4  :IfEnd:IfEnd:IfEnd↙Lb1  3↙If  W>0:Then  G+(C-K)^2/2/R-L*B→H  :Goto5:Else  IfW<0:Then  G-(C-K)^2/2/R-L*B→H  :Goto5:IfEnd:IfEnd↙Lb1  4↙If  W>0:Then  G+(K-D)^2/2/R-L*A→H  :Goto5:Else  IfW<0:Then  G-(K-D)^2/2/R-L*A→H  :Goto5:IfEnd:IfEnd↙

4、1  5↙H-0.304→H↙    (0.304为中心~路肩高差)“H=”：H◢Goto1↙Norm1:50→C:12345→J"RESETPW"?I:I=J=>500→DimZ  为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量50→Z[C+22]"PASSWORDS"?I:I→Z[C+39]      重设要素保护密码Cls:StopFileName:DATLOCK      要素保护密码确定认程序Cls:Norm1:50→C"PASSWORDS"?J:Cls:J≠Z[C+39]=>Stop    200

5、8-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

6、[C+45]    设置仪高Z[C+41]→I:"GC-DH"?I:I→Z[C+41]    放样点高差常数Norm1Z[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]→WZ[C+32]→I:"DAT123"?I:I→Z[C+32]  

7、平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值)0→IZ[C+4]→I:"123"?I:I→Z[C+4]  选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到)Lbi1Z[C+4]→II=1=>Prog"TURNZH"I=2=>Prog"HXBYP"I=3=>Prog"ZXBYP"LbiADeg:Norm1:ClsZ[C+1]→G:"ZH"?G:G→Z[C+1]　　　　;G桩求桩号Z[C+2]→B:"JL"?B:B→Z[C+2]　　　　;B横向距离，左正右负LbiBProg

8、"ZBJS"    ;坐标正算Prog"GCJS"    ;高程计算Fix3:Cls 　　　　　　　　　　;设置三位小数"ZH＝":Locate4,1,G　　　 ;第一行显示桩号