CASIO5800计算器公路竖曲线全线高程计算程序Word格式.docx

1、66.8交点高程G : 100000曲率半径R :依次类推，计算原始数据完成输入，坡度换算成小数。 2S-KL ： A-BW : Abs（R*W/2）T : S-TC : S+TD KC : Then G-L*B H : Goto 5 : Else If KS : Goto3 : KD : Goto4 : IfEnd : W0 : G+（C-K） 2/2/R-L*BH If W500DimZ 为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量50ZC+22PASSWORDSIZC+39重设要素保护密码Cls:StopFileName:DATLOCK要素保护密码确定认

2、程序50CJ:JZC+39=Stop2008-08-07修改SHELL（外壳程序）50C ;在扩充变量预留前50个给别的程序用。如不够就适量加大。RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致ZC+35I:STATION-NIZC+35设置测站N坐标ZC+36I:STATION-EIZC+36设置测站E坐标ZC+44I:STATION-ZIZC+44设置测站Z坐标ZC+45I:STATION-HIIZC+45 设置仪高ZC+41I:GC-DHIZC+41 放样点高差常数Norm 1ZC+23N当前分段要素N坐标ZC+24E当前分段要素E坐标ZC+25M当前分段要素起

3、点桩号ZC+26H当前分段要素起点方位角（正北）单位：弧度ZC+27A当前分段要素起点曲率有左偏负右偏正（注意不半径）ZC+28R当前分段要素终点曲率有左偏负右偏正（注意不半径）ZC+29L当前分段要素长度ZC+3WZC+32I:DAT1 2 3IZC+32平曲线要素数库类型选择1为内置式，2文件式，3实时输入（查看当前要素值）0IZC+4I:1 2 3IZC+4 选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样（隧道进出口用到）Lbi 1ZC+4II=1=ProgTURNZHI=2=HXBYPI=3=ZXBYPLbi ADeg:ClsZC+1G:ZHG:GZC+

4、1 ;G桩求桩号ZC+2B:JLB:BZC+2 ;B横向距离，左正右负Lbi BProg ZBJS坐标正算GCJS高程计算Fix 3:Cls;设置三位小数ZH:Locate 4,1,G;第一行显示桩号XLocate 3,2,X第二行显示X（N）坐标YLocate 3,3,Y；第三行显示Y（E）坐标ZLocate 2,4,Z+ZC+41；第四行显示Z坐标Locate 10,4,ZC+2 ；第四行显示横向距离Do:I+1I:I=1000=Goto 1:LpWhile Not（Getkey=57 Or Getkey=27） ;锁定键盘，并在几十秒后自动返回Getkey=57= Goto 1Z+ZC+

5、41+ZC+49-ZC+44-ZC+45ZC+48Pol（ZC+35-X,ZC+36-Y）DLLocate 3,1,I:Locate 12,1,ZC+45DHLocate 3,2,ZC+48:Locate 12,2,ZC+49FWJJJ+360J:JDMS 2008-08-07 修改JZC+46IZC+47Goto 1FileName：ZBJS坐标计算程序READDATRadG-MQIF AR=0 :Then If A=R :Then 1J:Else 3J :IfEnd:Else If A=R :Then 2J:Else 3J:IfEndIf J=1 :Then HF:N+QCos（H）X:E

6、+QSin（H）Y:IfEnd 直线段直接计算If J=2 :Then H+QRF:Rec（Abs（2Sin（Abs（0.5QR）R）,H+QR2）:N+IX:E+JY:圆弧段直接计算If J=3 :Then Goto 5 :X+BCos（F+W）XY+BSin（F+W）YReturnLbi 5 用五点通用坐标计算计算缓和段0.5（R-A）LKAQIKQ2J0.00P:H+IP+JP2U0.49P:H+IP+JP2V0.5PH+IP+JP2D0.51P:H+IP+JP2F0.30P:H+IP+JP2T0.25I0.52J0.44ON+Q（ICos（U）+JCos（V）+OCos（D）+JCos

7、（F）+ICos（T）XE+Q（ISin（U）+JSin（V）+OSin（D）+JSin（F）+ISin（T）YH+AQ+KQ2FTURNZH（坐标反算）ZC+37I:DQD-NIZC+37 输入待求点N坐标I=-1=INFWJDLDHZC+38I:DQD-EIZC+38 输入待求点E坐标0B：M+L2G：Lbi S:ZC+37-XI:ZC+38-YJIf I=0 And J=0 :Then Goto A:Pol（I,J）Lbi A:Rec（I,J-F）:JZC+2G+IG:IF Abs（I）0.0001 :Then ProgGoto SGZC+1INFWJDLDH实测坐标（用方位角，距离，高

8、差）输入程序ZC+46J:DQD-FWJZC+47I:DQD-DLZC+48K:DQD-DZK:KZC+48ZC+49P:RHTP:PZC+49Rec（I,J）ZC+35+IZC+37ZC+36+JZC+38ZC+44+ZC+45+K-PZC+43HXBYP 横向边仰坡放样程序ZC+40I:QPD-DLIZC+40输入起坡点与中桩距离常数QPD-DZ 输入起坡点与中桩高差常数ZC+42I:iIZC+42输入边仰坡坡度，左仰坡（路堑）为正，右仰坡（路堑）为负，左边坡为负，右边坡为正ZC+43I:DQD-ZIZC+43 输入实测高程（ZC+43-Z-ZC+41）ZC+42+ZC+40BB-ZC+2 显示与上一次测点的偏差BZC+2ZXBYP纵向仰坡放样程序（隧道进口使用）ZC+33I:QPD-ZHIZC+33输入起坡点桩号ZC+34I:QPD-ZIZC+34 输入起坡点高程仰坡时（隧道进出口仰坡），进口为正，出口为负）ZC+42（ZC+43-ZC+34）+ZC+33GG-ZC+1 显示与上一次测点的偏差SET 设置程序1Lbi S2Norm 1350C450ZC+2250K6ZC+5I:1 Or 2IZC+5选择1线或者2线7180ZC+3J:XZJJJ180ZC+3;斜桩夹角8If I=1:Then ZC+8ZC+6:ZC+9ZC+79ZC+12ZC+16:ZC+1