高速公路竖曲线卡西欧5800计算器高程计算程序.docVIP

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→JRESET PW?I:I=J=500→DimZ?? 为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量50→Z[C+22]PASSWORDS?I:I→Z[C+39]??????重设要素保护密码Cls:StopFileName:DATLOCK??????要素保护密码确定认程序Cls:Norm 1:50→CPASSWORDS?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 1Z[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:DAT1 2 3?I:I→Z[C+32]??平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值)0→IZ[C+4]→I:1 2 3?I:I→Z[C+4]?? 选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到)Lbi 1Z[C+4]→II=1=ProgTURNZHI=2=ProgHXBYPI=3=ProgZXBYPLbi ADeg:Norm 1:ClsZ[C+1]→G:ZH?G:G→Z[C+1]