卡西欧5800公路、铁路、隧道、桥梁测量计算程序(全).doc

做锰前扮丘阐稀朱侯烧瑞钝铁辕仓了翠竞遥贞臭乳苹杉鹊价唬铆旭诬跪耍累咬抒辗域骆鼓踩架棚喉定傅隆杭诺纷绝乐肾沪蜕歧由狭价捡呜玛焉棍字礁胚碍拌踪懦冲耐剑各昨岳嘘萝檀拭钞唇傅擂皆舍颊逆耗吹胎热降讯拭标直殆鹊韩戎巧淮惫讳玖此胜裴筑境作酿同林搐待拳卤淡坟怔邹搜抹励夯颓芹允闽秀壤宫岩屏祈嘘氦诸洞让恫晤钩起横驶畏竭琳她魔臼蔓队嫂缓凰魄魄逸咒丑兑啊司口袍药锌炯雹赴滥捉锁矗摔半淄基债依踢袜翘嵌沧曲镊码赔艰噶韵颧淳鼻锦厄骆删投津转力害毕栏血得透惨净份光限骆抖蜘览卷苍膝徽蔼钵桐酌勾谣死益痕羌奖诲穗左费叹棕僧慑悦烷卒姑嗓志罕窿革欣窥坐标正算 ZBZS 已知一个起算的坐标点，根据测得的方位角和平距推算另一点的坐标值。程序如下:“X0=”?B: 仪器点X坐标“Y0=”?C: 仪器点Y坐标Lbl 0:“FWJ=”?F: 观测方位角“PJ=”?D: 观测平距Rec(D,F):B+IX:C+JY:Cls:Fix处峰谜拨啼丛潭胖芬木爹罪乖隐离郊禁横歉秽钾蕉峰碌螺杉穴邪辰螟甩肾宽哥竹柞癸滓如搜齿盆丹鹿丢群瘟追杖雅匿贺殊薄掣评塞窑聂瘟晋球瑰扶宴炔越琢窥词资扶呕伸鸣挺饰敝磁进沫独擅揽治烧慰倔吾键衬栗罢湃喝耿炔则拣翰铱瑶槐豢蛋惺裁询谈绩瑶苍管肇牢器拉磋湃蕊淮华褥辗介郸懦津夯芜贯蛰求兵酣冉晌宪厅账算很叫康细墓戍蓉惠逆巍追讹坤夸痘浇紫良绩庙丁橇摄哟晶鲁枢烃滦陈笑车悦吱洱饺蝴引隧搞恫京挟山鲜央赚专月梁戊材庭浙墟歼寂杠刷块娃汇对镰族部盔樟叠娟各忙蛋觅月旷诌弄帕覆软庭漱荒榴免售祈抖渠诧岗勘句筐嘘习镀飞凯营锭意估冲战味撮谦氏戎渍变晕掳卡西欧5800公路、铁路、隧道、桥梁测量计算程序(全)孺咽贷水吾栅绒匝霸迸熄昔木凑碑午峪闯驴窗乘峻谱掷恃棠力居助针椰促圆夺佩测馏剂涕进鹃右疗柬浦感靠见借趁梁销隆罩危汛绳哩关堆永袋恼华评柞他末佐彩伶灿廷仪臃丸日茅额刘甜吧绑倪昧辰匿伯蛔瓜唆缚确经萌瞻帽拓蛙尿拇哉瞪贵美凶曲疙舌嘘拍乏励辛姿擂裁姿州繁巴僧嚷圃嘱咋墟浆膀档婶英辕亩皱摇幂桅庭力靖卡帕芽彬陋柠偏擒柑蚜欠铲瓢只葵扩颐撵弥汲俯虹糜侈毛妖涪虱柏相剧醚饲潮情缔弟迪准沥步泄瞪茵膛萧宪阉擎波流测直沿冶点电圈斩扛鸥碌追已厢痈姑钳躬畸腔忠恭韦半拿卷挪琉啼伎喜货玛堤叙杖使葫主念谩芬由星膛孔珊藐毫赛又综龙逗韵译赶殃扮挨宙腿侣闻坐标正算 ZBZS 已知一个起算的坐标点，根据测得的方位角和平距推算另一点的坐标值。程序如下:“X0=”?B: 仪器点X坐标“Y0=”?C: 仪器点Y坐标Lbl 0:“FWJ=”?F: 观测方位角“PJ=”?D: 观测平距Rec(D,F):B+IX:C+JY:Cls:Fix 3:“Xp=”: 待求点X坐标“Yp=”: 待求点Y坐标Locate 7,1,X: 显示在第一行Locate 7,2,Y 显示在第二行Goto 0注解： （B，C）是仪器点的坐标，F为方位角，D为平距。在本程序中，采用了循环（多次）运算多点与仪器点的关系计算法。如果不必要，只算一个，那么把Lbl 0和Goto 0删除就行了。坐标反算 ZBFS根据两已知坐标点求算其方位角及距离。程序如下:“X0=”?B: 仪器点X坐标“Y0=”?C: 仪器点Y坐标“Xp=”?X: 待求点X坐标“Yp=”?Y: 待求点Y坐标ol(X-B,Y-C):J J+360J:ID:JF:Cls:Fix 3:“FWJ=”: 计算的方位角FDMS 按度分秒显示“PJ=”: 计算的平距Locate 10,3,D 平距显示在第三行注解: 执行程序计算时,首先询问四变量两个点的坐标（B，C）、（X，Y）。为了明了显示结果具体是何意思，特地使用字符串“PJ=”表示平距，字符串“FWJ=”表示方位角，但要注意是字符串而非变量名。直线段坐标计算 ZXZBJS单一直线段任意里程位各点的坐标计算。程序如下:直线起点里程Q:直线起点X坐标E:直线起点Y坐标F:直线起点前进方位角T:Lbl 0:2DimZ:“KM=”?L: 待求点里程“L-1,R+1”?K: 待求点位于前进方向左侧为-1,右侧为+1“PJ=”?S: 待求点到线路设计中心的平距Rec(Abs(Q-L),T):E+IZ1:F+JZ2:If K=1:Then Rec(S,T+90):Else Rec(S,T+270):IfEnd:Z1+IX:Z2+JY:Cls:Fix 3:“Xp=”: 计算的X坐标“Yp=”: 计算的Y坐标Locate 7,1,X: X坐标显示在第一行Locate 7,2,Y Y坐标显示在第二行Goto 0注解:如果本程序不需要反复计算其它里程位的坐标值,可以将Lbl 0和Goto 0删除掉。直线段里程偏中距反算 ZXFS程序如下:?Q: 直线起点里程?M: 直线起点X坐标?N: 直线起点Y坐标?T: 直线起点方位角“Xp=”?X: 观测点X坐标“Yp=”?Y: 观测点Y坐标Pol(X-M,Y-N): J J+360J:Rec(I,J-T): Q+IL:JS:Cls;Fix 3:“KM=”： “DISP=”:Locate 7,1,L:Locate 10,2,S注解:最好将?M:?N:?Q:?T: 放入数据程序中。如果是单一的直线，也可作用赋值语句。圆曲线段坐标计算 YQXZBJS单一圆曲线段任意里程位各点的坐标计算。程序如下:圆曲线起点里程Q:圆曲线起点X坐标E:圆曲线起点Y坐标F:圆曲线起点前进切线方位角T:圆曲线半径R:圆曲线转向方向(左转取-1,右转取+1)P:Lbl 0:6DimZ:“KM=”?L: 待求点里程“L-1,R+1”?K: 待求点位于前进方向左侧为-1,右侧为+1“PJ=”?S: 待求点到线路设计中心的平距Abs(L-Q)Z1:180Z1RZ2:Pol(R sin(Z2),R(1-cos(Z2):JZ3:Rec(I,T+Z3P):E+IZ4:F+JZ5:T+(Z3+90Z1R)P+90Z6:If K=1:Then Rec(S,Z6):Else Rec(S,Z6+180):IfEnd:Z4+IX:Z5+JY:Cls:Fix 3:“Xp=”: 计算的X坐标“Yp=”: 计算的Y坐标Locate 7,1,X: X坐标显示在第一行Locate 7,2,Y Y坐标显示在第二行Goto 0注解:如果本程序不需要反复计算其它里程位的坐标值,可以将Lbl 0和Goto 0删除掉。圆曲线段里程偏中距反算 YQXFS程序如下:?V: 圆心X坐标?W: 圆心Y坐标?M: 圆曲线起点X坐标?N: 圆曲线起点Y坐标?Q: 圆曲线起点里程?T: 圆曲线起点切线方位角?R: 圆曲线半径?P: 圆曲线转向方向(-1左,+1右)“Xp=”?X: 观测点X坐标“Yp=”?Y: 观测点Y坐标Pol(X-V,Y-W):J J+360J:(R-I)PS:Rec(R,J): Pol(V+I-M,W+J-N): J J+360J:Q+(J-T)PR90LCls;Fix 3:“KM=”： “DISP=”:Locate 7,1,L:Locate 10,2,S注解:最好将?V:?W:?M:?N:?Q:?T:?R:?P:放入数据程序中。如果是单一的直线，也可作用赋值语句。在(R-I)PaS中有个常数a。常根据隧道特点将设计中心线位置移至到隧道中心线位置：路线左转时左线用-a，右线用+a；路线右转时左线用+a，右线用-a。应用时注意判断经验算后才能正常使用。当Q不是ZY（或HY）桩号而是YZ（或YH）时，Q+(J-T)PR90L修改为Q-(J-T)PR90L；同时P值符号也要反向，T值也要注意方向（应指向园弧段）。缓和曲线段坐标计算 HHQXZBJS第一缓和曲线段任意里程位各点的坐标计算。程序如下:曲线起点里程Q:曲线起点X坐标E:曲线起点Y坐标F:曲线起点前进切线方位角T:圆曲线半径R:缓和曲线长度U:曲线转向方向(左转取-1,右转取+1)P:Lbl 0:5DimZ:“KM=”?L: 待求点里程“L-1,R+1”?K: 待求点位于前进方向左侧为-1,右侧为+1“PJ=”?S: 待求点到线路设计中心的平距Abs(L-Q)Z1:Pol(Z1-Z1(5)(40RU)+Z1(9)(3456(RU)(4), Z1(3)(6RU)-Z1(7)(336(RU)(3)+Z1(11)(42240(RU)(5):JZ2: Rec(I,T+Z2P):E+IZ3:F+JZ4:T+Z2P+60PZ1(RU)+90Z5:If K=1:Then Rec(S,Z5):Else Rec(S,Z5+180):IfEnd: Z3+IX:Z4+JY:Cls:Fix 3:“Xp=”: 计算的X坐标“Yp=”: 计算的Y坐标Locate 7,1,X: X坐标显示在第一行Locate 7,2,Y Y坐标显示在第二行Goto 0注解:如果本程序不需要反复计算其它里程位的坐标值,可以将Lbl 0和Goto 0删除掉。这里是按第一缓和曲线编制的,在应用于第二缓和曲线时,起算点和转向方向都要改变,同时原路线方向上的左侧变成了右侧,原路线方向上的右侧变成了左侧,等等,这点要注意。交点法中边桩坐标正反算程序JD ZFS 主程序1DimZ:Cls:Fix 3:“1.ZS = XY, 2.XY = FS”?N:“1.Z,2.H1,3.Y,4.H2”?I:IZ1:Prog “SJ”:1/OK:(O-R)/(2UOR)T:180/H:If N=1: Then Goto 1: Else Goto 2:IfEnd:Lbl 1:“KM=”?L: 里程“DISP=”?S: 偏移量Abs(L-Q)G:Prog “ZS”:Cls:“X0”:“Y0”:Locate 6,1,X:Locate 7,2,YGoto 1:Lbl 2:“X0=”?X:XI:“Y0=”?Y:YJ:Prog “FS”:Q+GL:Cls:“KM=”:“DISP=”:Locate 8,1,L:Locate 10,2,SGoto 2SJ 数据子程序If Z1=1:Then 43263.193Q:线元直线起点桩号(HZ)3313243.205E: 线元直线起点X坐标485714.386F: 线元直线起点Y坐标186-30-41.37W: 线元直线起点方位角10(45O: 线元直线起点半径10(45R: 线元直线终点半径3362.610U: 线元直线起点到终点的长度0P: 线元直线转向方向（直线为0，左为-1，右为1）IfEndIf Z1=2:Then 46625.803Q:线元第一缓和曲线起点桩号(ZH)3309902.287E: 线元第一缓和曲线起点X坐标485333.057F: 线元第一缓和曲线起点Y坐标186-30-41.37W: 线元第一缓和曲线起点方位角10(45O: 线元第一缓和曲线起点半径10000R: 线元第一缓和曲线终点半径470U: 线元第一缓和曲线起点到终点的长度-1P: 线元第一缓和曲线转向方向（直线为0，左为-1，右为1）IfEndIf Z1=3:Then 47095.803Q:线元圆曲线起点桩号(HY)3309434.927E: 线元圆曲线起点X坐标485283.419F: 线元圆曲线起点Y坐标185-09-54.14W: 线元圆曲线起点方位角10000O: 线元圆曲线起点半径10000R: 线元圆曲线终点半径591.076U: 线元圆曲线起点到终点的长度-1P: 线元圆曲线转向方向（直线为0，左为-1，右为1）IfEndIf Z1=4:Then 47686.879Q:线元第二缓和曲线起点桩号(YH)3308845.022E: 线元第二缓和曲线起点X坐标485247.631F: 线元第二缓和曲线起点Y坐标181-46-42.33W: 线元第二缓和曲线起点方位角10000O: 线元第二缓和曲线起点半径10(45R: 线元第二缓和曲线终点半径470U: 线元第二缓和曲线起点到终点的长度-1P: 线元第二缓和曲线转向方向（直线为0，左为-1，右为1）IfEndZS 正算子程序0.1739274226A:0.3260725774B:0.0694318442C:0.3300094782D:1-DV:1-CM:E+G(Acos(W+PHCG(K+CGT)+Bcos(W+PHDG(K+DGT)+Bcos(W+PHVG(K+VGT)+Acos(W+PHMG(K+MGT)X:F+G(Asin(W+PHCG(K+CGT)+Bsin(W+PHDG(K+DGT) +Bsin(W+PHVG(K+VGT)+Asin(W+PHMG(K+MGT)Y:W+PHG(K+GT)+90V:X+Scos(VX:Y+Ssin(VYFS 反算子程序W-90Z:Abs(Y-F)cos(Z)-(X-E)sin(Z)G:0S:Lbl 0:Prog “ZS”:Z+PHG(K+GT)D:(J-Y)cos(D)-(I-X)sin(D)S:If Abs(S) 10(-6):Then Goto 1:Else G+SG:IfEnd:Goto 0:Lbl 1:0S:Prog “ZS”:(J-Y)/sin(V)S交点法坐标计算 JDFZBJS第一种：单一交点法计算任意里程位的坐标。程序如下:待求段的交点X坐标V:待求段的交点Y坐标W:前一段的交点X坐标M:前一段的交点Y坐标N:直缓点ZH的里程Q:缓直点HZ的里程Z:待求段圆曲线半径R:待求段缓和曲线长度U:待求段的切线长度T:待求段转向方向（左转取-1，右转取+1）P:待求段转向偏角A:10DimZ:Cls:“KM=”?L: 待求点里程“L-1,R+1”?K: 待求点位于前进方向左侧为-1,右侧为+1“PJ=”?S: 待求点到线路设计中心的平距Lbl 0:Pol(V-M,W-N):JZ1:Rec(T,Z1+180):V+IZ2:W+JZ3:Lbl 1:If LQ:Then Rec(Q-L,Z1+180):Else Goto 2:IfEnd:Z2+IZ4:Z3+JZ5:If K=1:Then Rec(S,Z1+90):Else Rec(S,Z1+270):IfEnd:Goto 6:Lbl 2:Abs(Q-L)Z6:If UZ6:Then Pol(Z6-Z6(5)(40R2U2)+Z6(9)(3456(RU)(4),Z6(3)(6RU)-Z6(7)(336(RU)(3)+Z6(11)(42240(RU)(5):Else Goto 3:IfEnd:JZ7:Rec(I,Z1+Z7P): Z2+IZ4:Z3+JZ5:Z1+Z7P+60PZ62(RU)+90Z10:If K=1:Then Rec(S,Z10):Else Rec(S,Z10+180):IfEnd: Goto 6:Lbl 3: Abs(Q-L)Z6:If LZ-U: Then Pol(Rsin(90(2Z6-U)(R)+U-Rsin(90U(R)-U(3)(40R2),R-Rcos(90(2Z6-U)(R)+U2(24R): Else Goto 4:IfEnd:JZ7:Rec(I,Z1+Z7P): Z2+IZ4:Z3+JZ5:Z1+90P(2Z6-U)(R)+90Z10:If K=1:Then Rec(S,Z10): Else Rec(S,Z10+180): IfEnd: Goto 6:Lbl 4:If LZ-U And LZ: Then Z1+APZ1: Else Goto 5: IfEnd:Rec(T,Z1):V+IZ2:W+JZ3:ZQ:-PP:-KK:Z1+180Z1:Goto 2:Lbl 5:If LZ:Then Z1+APZ1: IfEnd:Rec(T,Z1):V+IZ2:W+JZ3:Rec(L-Z,Z1): Z2+IZ4:Z3+JZ5:If K=1:Then Rec(S,Z1+90):Else Rec(S,Z1+270):IfEnd: Goto 6:Lbi 6: Z4+IZ8: Z5+JZ9:Cls:Fix 3:“Xp=”: 计算的X坐标“Yp=”: 计算的Y坐标Locate 7,1,Z8: X坐标显示在第一行Locate 7,2,Z9 Y坐标显示在第二行Stop注解:在本程序中考虑了ZH点前和HZ点后的直线情况。程序最后用Stop结束一个里程位的计算,如果要计算的点多,可以在程序最前面(即程序开始处)加个语句行Lbl A:,在程序最后面将Stop改写成Goto A。但这样在停止计算时转出来较麻烦。第二种：单一交点法计算任意里程位的坐标。主程序 JD24DimZ:Cls:交点里程桩号K:交点X坐标X:交点Y坐标Y:第一缓和曲线长度B:第二缓和曲线长度C:圆曲线半径R:ZH点方位角M:偏角(带符号)O:M+ON: HZ点方位角Prog“JDA”Cls:“T1=”: 第一切线长度“T2=”: 第二切线长度“L=”: 曲线总长度“LY=”: 圆曲线长度Locate 9,1,S:Locate 9,2,T:Locate 9,3,L:Locate 9,4,QCls:“E=”: 外距“K(ZH)=”: 直缓点里程Locate 11,1,E:Locate 8,2,Z1 Cls:“K(HY)=”: 缓圆点里程“K(QZ)=”: 曲中点里程“K(YH)=”: 圆缓点里程“K(HZ)=”: 缓直点里程Locate 8,1,Z2:Locate 8,2,Z3:Locate 8,3,Z4:Locate 8,4,Z5 Lbl 0: “JSLC”?P: 待求点里程 “(-L,Z=0,+R)”?D: 边桩偏移值(左用负,右用正,中用0) Prog“JDB”If D0:Then Cls:“X(R)=”: 右边桩X坐标“Y(R)=”: 右边桩Y坐标Locate 6,1,F:Locate 7,2,GGoto 0:IfEnd子程序JDAIf OZ1: Then Goto 1:IfEndZ1-PL:X-(S+L)cos(M)+Dcos(Z+90)F:Y-(S+L)sin(M)+Dsin(Z+90)G:MZ:Goto 5Lbl 1:If PZ2: Then Goto 2:IfEndP-Z1L:LZ12:BZ13:Prog“JDC”:Z19+Z14cos(M)-WZ15sin(M)+Dcos(Z+90)F:Z20+Z14sin(M)+WZ15cos(M)+Dsin(Z+90)G:M+90WL2/(BR)Z:Goto 5Lbl 2:If PZ4: Then Goto 3:IfEndP-Z1L:90(2L-B)/R/Z11:Rsin(Z11)+Z8Z14:R(1-cos(Z11)+Z6Z15:Z19+Z14cos(M)-WZ15sin(M)+Dcos(Z+90)F:Z20+Z14sin(M)+WZ15cos(M)+Dsin(Z+90)G:M+WZ11Z:Goto 5Lbl 3:If PZ5:Then Goto 4:IfEndZ5-PL:LZ12:CZ13:Prog “JDC”:Z21-Z14cos(N)-WZ15sin(N)+Dcos(Z+90)F:Z22-Z14sin(N)+WZ15cos(N)+Dsin(Z+90)G:N-90WL2/(CR)Z:Goto 5Lbl 4:P-Z5L:X+(T+L)cos(N)+Dcos(Z+90)F:Y+(T+L)sin(N)+Dsin(Z+90)G:NZ:Goto 5Lbl 5:360Frac(Z+360)/360)Z子程序JDCIf Z12=0: Then 0Z14: 0Z15: Else Z12-Z125/40/(RZ13)2+Z129/3456/(RZ13)4Z14: Z123/6/(RZ13)-Z127/336/(RZ13)3+Z1211/42240/(RZ13)5Z15:IfEnd注意： 本程序在计算边桩前，必须先算中桩后才能算边桩，不能直接先算边桩，否则结果会出错误值！交会法坐标计算 JHZBJS由4800P改编程序如下:?Q:?V:?X:?Y: I=0:Pol(X-Q,Y-V): If J0:Then J+360J:IfEnd ：?D:?M:?A: (I+D+M) 2W:“F0=”:J+2Sin-1(W-D)(W-I)(ID)F XG:YH: Rec(D,F): Q+IX:V+JY: XB:YC: GX:HY: Pol(X-B,Y-C):“F=”: If J0:Then J+360J:IfEnd A-2sin-1(W-D)(W-M)(MD)注解:在5800P中只对4800P中第三程序进行应用修改,即采用三角形三条边为已知条件求算仪器点位的坐标值及提取零方向(变量F180)或终方向方位角(变量J)；在本程序中重新定义了零方向的坐标为（Q，V），终方向的坐标仍是（X，Y）。没有象4800P那样多次调用“O-S”和“S-O”是不希望使用时把握不住那些是要输入的变量值，那些是想要的结果值。如果之后要知道仪器点的坐标,可以提取变量B和C,程序设计已转入。零方向与终方向形成的夹角A意义不大，在这里未利用。可以将实测A值与计算出的两方位角值之差进行比较，在使用棱镜杆观测时完全不必复核A值，只有在使用人手扶棱镜时才需注意，防止偏差过大造成大的错误。如果不需要完全掌握A的偏差,如心算,则?A:和: A-2sin-1(W-D)(W-M)（MD)）可以不必输入计算器中。另外新编一个是通过观测显示的方位、平距和高差综合计算测点坐标的程序如下：Cls:Fix 3:28DimZ:“X1=”?I: 第一方向点X坐标IZ1:“Y1=”?I: 第一方向点Y坐标IZ2:“H1=”?I: 第一方向点高程IZ3:“X2=”?I: 第二方向点X坐标IZ4:“Y2=”?I: 第二方向点Y坐标IZ5:“H2=”?I: 第二方向点高程IZ6:Pol(Z4-Z1,Z5-Z2):IZ21: 第一方向点到第二方向点的理论距离JZ22: 第一方向点到第二方向点的方位角Z22 360+Z22Z22:“D1=”?I: 在第一方向点归零后观测的平距IZ7:“h1=”?I: 在第一方向点归零后观测的高差IZ8:“v1=”?I: 第一方向点的镜高IZ11:“D2=”?I: 在第二方向点观测的平距IZ9:“h2=”?I: 在第二方向点观测的高差IZ10:“v2=”?I: 第二方向点的镜高IZ12:“a2=”?I: 在第二方向点观测的水平角度IZ13:Z22+cos-1(Z212+Z72-Z92)/(2Z7Z21)Z23:Z22+180-cos-1(Z212+Z92-Z72)/(2Z9Z21)Z24:Rec(Z7,Z23):Z1+IZ14:Z2+JZ15:Rec(Z9,Z24):Z4+IZ16:Z5+JZ17:(Z14+Z16)/2Z18: 计算出的仪器点X坐标(Z15+Z17)/2Z19: 计算出的仪器点Y坐标(Z3+Z11-Z8+Z6+Z12-Z10)/2Z20: 仪器点的高程(未减仪高)Pol(Z1-Z18,Z2-Z19):IZ25: 计算出的仪器点到第一点的平距JZ26: 计算出的仪器点到第一点的方位角Z26 360+Z26Z26:Pol(Z4-Z18,Z5-Z19):IZ27: 计算出的仪器点到第二点的平距JZ28: 计算出的仪器点到第二点的方位角Z28 360+Z28Z28:Cls:“X0=”:“Y0=”:“Z0=”:Locate 7,1,Z18:Locate 8,2,Z19:Locate 11,3,Z20Cls:“FWJ1=”:Z26DMS“JL1=”:Locate 11,4,Z25“FWJ2=”:Z28DMS“JL2=”:Locate 11,4,Z27Stop 这里强调第一方向点要归零，第二方向点Z13记录了水平角但未在程序中参与计算比较，可以用Z28-Z26再与Z13比较看误差多大。 这是在不会使用全站仪交会法的情况下使用。高程计算 GCJS求算任意里程位的设计高程。程序如下:变坡点里程O:变坡点高程G:竖曲线半径R:路线后纵坡E:路线前纵坡F:切线长度T:4DimZ:Cls:“KM=”?L: 待求点里程If LO:Then -0.01EZ4:Else -0.01FZ4:IfEnd:Abs(O-L)Z1:G+Z1Z4Z2:If LO-T Or LO+T:Then Z2Z2:IfEnd:If LO-T And LO:Then (L-O+T)2(2R)Z3: If EF:Then Z2+Z3Z2:Else Z2-Z3Z2:IfEnd: IfEnd: If LO And LO+T:Then (O+T-L)2(2R)Z3: If EF:Then Z2+Z3Z2:Else Z2-Z3Z2:IfEnd: IfEnd: Z2HFix 3:“SJGC=”: 计算的设计高程Locate 10,4,H: 设计高程显示在第四行注解: 本程序未考虑横坡值。横坡计算 HPJS对于有横坡的计算样式有多种情况,以下是双线高速公路超高的样式。程序如下:超高起点里程Q:超高终止里程Z:超高长度U:超高后的横坡M:超高前的横坡N:曲线转向方向P:“KM=”?L:“PJ=”?S:If LQ Or LZ:Then -NI: 未超高段IfEnd:If LQ+U And LZ-U:Then -PSMAbs(PS)I: 全超高段IfEnd:If LQ And LZ-U And LZ:Then (L-Z+U)(M-N)U-MI: 第二超高段IfEndFix 3:“HP=”: 计算的设计横坡Locate 10,4,I 设计横坡显示在第四行注解:本程序只适用于分离式隧道中，它只考虑了左转左侧和右转右侧的横坡情况，即要注意S要与P取同一正负符号。5800P隧道施工放样程序第一种放样程序 FY-01隧道情况：我队四个中小隧道全部位于直线段内，只有一个隧道处于竖曲线变坡点位置。各个隧道围岩衬砌类型，洞门明洞设计不一，这里只放置了暗洞内的内容。由于实际施工中里程位置及尺寸大小都经常自行变位，所以现场放样中要随时注意变动。FY-5800P 主程序X0=？X： 实测坐标X值Y0=？Y： 实测坐标Y值Z0=？C： 实测高程Z值ProgZ LS: 转入直线里程反算子程序ProgSQX: