《卡西欧5800边坡测量放样程序隧道测量.doc》由会员分享，可在线阅读，更多相关《卡西欧5800边坡测量放样程序隧道测量.doc（6页珍藏版）》请在金锄头文库上搜索。
1、卡西欧5800边坡测量程序UXO：VYO：AX1：BY1：POL（GX2-A,DY2-B：W=J：I：LBI1：LKM：XXA=A+LCOSW+KCOS（W+M)YYA=B+LSinW+Ksin（W+M）POL（S-U),Y-U：J J=J+36OXDIX=IFiX3：OFW=JGoto15800边坡测量程序XO=?U：YO=?V：X1=?A：Y1?B：X2?G:Y2?DPOL（G-A,D-B)：JW:Fix 3:CLSLbi 1 L=?L:K=?K:M=?MA+LCOSW+KCOS（W+M)XB+LSinW+Ksin（W+M)YClsXA=:Locate 5,1,X:YA=:Locate 5
2、,2,YPol（X-U,Y-V)：If J Goto 1O“KOU LING”：O123456=O=0：Goto O=0：Z1=0: Goto 0Lbi 0”No.”：Z1+1ZHPR：Z“D0” ：H“BG” ：P“PD” ：R“R0” ：ZZ14+3=Z：ZZ14+4=H：ZZ14+5=P：ZZ14+6=R：“NEXT”Isz Z1： Goto 0Lbi 1 Z2= Z1D：DZInt(Z 24+1)4+3=Z2= Int(Z 24) ：Goto 2DZ Int (Z2 2+1)4+3=Z2=Int(Z22)：Goto 2DZInt (Z2.75+1)4+3=Z2=Int (Z2.75)：
3、Goto 2Goto 2 Lbi 2 DDsz Z2：Goto 2Goto 3 Lbi 3 ZZ24+60=G=ZZ24+4+(D-ZZ24+3)ZZ24+5100+(D-ZZ24+3) 22ZZ24+6：Goto 4G=ZZ24+4+(D-ZZ24+3)ZZ24+5100：Goto 4 Lbi 4 Z：Z：G=G-0.02Abs(Z):“G”: G （4850输出）Z：Z：G=G-0.02Abs(Z): G“G” （4800输出）Goto 1 Lbi 5 “OUT” 程序操作说明 程序分为两部分：1.BG为标高计算，2.SZ为参数设置。1、 首先用Shift+Defm键对计算器内存变量进行扩
4、充，扩充变量数为4X+2（X为标高参数段数，变量数视内存情况尽量大些），运行程序，选2进行标高参数设置，为防止误操作在正确输入口令123456时方可进行设置，一组参数输入完毕后显示“NEXT”，如输入完毕请退出，按“”继续。2、 选1.进行标高运算，D输入桩号，Z输入距离，程序首先自动判断其待求点在哪一段参数内，并将参数调出进行计算，即可对全线进行标高计算。 c、变量说明Z“D0”起点桩号H“BG”起点标高P“PD”前坡度（）R“R0”竖曲线半径（凸曲线为负值；凹曲线为正值，直坡为）卡西欧5800双线隧道断面三维放样程序SUBZB(断面三维放样程序）P=HZ中线坐标X-UQ=HZ中线坐标Y-V
5、L“KQ”=HZ里程+sin （）)(切线方位角-90-(180tan1(QP)( 1.Lb11 2. L3.S=HZ里程：M=HZ左线坐标X：N=HZ左线坐标Y； A=HZ切线方位角： R=曲线半径： C=缓和曲线长度： J=左右：L 4. K=L-S5. R=0=X“X”=M+KcosA6. Y“Y”=N+KsinA7. Z“FW”=A8.Goto 4R0=Abs KC=Goto 2R0=KC=Goto 3R0=KAbs KC=Goto 19.Lb1210. O=90K（RC）11. G=K（6RC）-K7（336（RC）K11（42240（RC）5-K159676800（RC）7）K19
6、（3530096640（RC）9）12. F=KK5（40（RC）K9（3456（RC）4）K13（599040（RC）6）K17（403204532（RC）8）13. J=0=X“X”=MGsinAFcosA14. Y“Y”=NFsinA- GcosA15. Z“FW”=A-O Goto 416J0=X“X”=MF cosAGsinA17Y“Y”=NG cosAF sinA18Z“FW”=AOGoto 419LbI320B=90（2K-C）（R）21.U=C2C（240R）R sinBC5（34560R4）-C7（599040 R6）22V=C（24R）R（1cosB）C4（2688R）C6
7、（42240 R5）23J=0=X“X”=MUcosAVsinAY“Y”=NU sinAV cosA Z“FW”=A-B Goto 424J0=X“X”=MU cosAVsinAY“Y”=NU sinAV cosAZ“FW”=AB Goto 425Lb1426D=2.5：T=90：H27D=0 = Goto 128D0=(Pol(XDcos（TZ）)-U,(YDsin（TZ）)-V)（H-WQ2-2.43）)Goto 1(2.43=内轨顶面至园心的高差）U:测点X坐标V:测点Y坐标L:求得测点里程Q2: 求点内轨顶面高程H：求点高程显示：放样点半径放样实例：HZ中线坐标X 205.0784HZ
8、中线坐标Y =814.2796HZ里程： 886.7HZ左线坐标X=207.1391HZ左线坐标Y=815.6951HZ切线方位角=124.4859694曲线半径： =9000 缓和曲线长度：=490 J=1 U=226.284测点X坐标 V=795.105测点Y坐标 L? 测点里程 858.8916438注：里程虽有误差，但不影响放样计算 左线中坐标x 222.8849837左线中坐标y 792.7741092方位角124.4909929H：测点高程261.66Q2: 测点内轨顶面高程 258.249测点半径6.695966203 此程序在4850计算器上运行，一次性计算放样数据，提高放样速度，专为缓和曲线复杂的数据计算而设，直线段较为简单，这里就不再举例
