Fx-4850P计算程序.doc

Fx-4800P26faa22479496f1ed171043eeaee3020.pdf主 线 高 程 计 算ZXSJGC（设计高程主程序）Fixm : Lbl 1:EM:E”ZHUANG HAO :M”CENG”:Prog”SY”:EA-TF=D-B（A-E）：Prog “GG1”Prog “GG2”：M=1F=F:Goto 2回车M=2F=F-0.04：Goto 2回车M=3F=F-0.1：Goto 2回车M=4F=F-0.18：Goto 2回车M=5F=F-0.38：Goto 2回车M6Prog”GSLX” 回车M=7F=F-0.2Lbl 2:K0N”HENG PO =100N注:若不显示横坡则把前面的“”换为“：”即可F”GAO CHENG 注:若不显示高程则把前面的“”换为“：”即可 F”GAO CHENG 注:若不显示高程则把前面的“”换为“：”即可Prog “WCJS”： 注:若不须要计算误差则把前面的“Prog “WCJS”：”删除即可Goto 1ZXSGGC（施工导线高程主程序）Fixm : Lbl 1:EM:E”ZHUANG HAO :M”CENG”:Prog”SY”:EA-TF=D-B（A-E）：Prog “GG1”Prog “GG2”：M=1F=F+0.04*0.15注:0.04为第一层厚度,0.15为第一层松铺系数:Goto 2回车M=2F=F-0.04+0.06*0.15注:0.06为第二层厚度,0.15为第二层松铺系数：Goto 2回车M=3F=F-0.1+0.08*0.15注:0.08为第三层厚度,0.15为第三层松铺系数：Goto 2回车M=4F=F-0.18+0.08*0.15注:0.08为第四层厚度,0.15为第四层松铺系数：Goto 2回车M=5F=F-0.26+0.32*0.25注:0.32为第五层厚度,0.25为第五层松铺系数：Goto 2回车M6Prog”GSLX”:F=F+0.2*0.25注:0.2为第六层厚度,0.25为第六层松铺系数Lbl 2: Prog “WCJS”： 注:若不须要计算误差则把前面的“Prog “WCJS”：”删除即可Goto 1WCJS （计算实测与设计误差及工程量子程序）X:X”DU SHU :Q”SCGC =Y注:Y值每次开始前或转站时必须存入测站的视线高程-X/1000注:读数单位为米时不除1000 W”WU CHA =Q-F注:以下步骤为现场计算路基低于设计高程15mm以下部分工程量程序，若不计算可以不加或不显示结果W-15Goto 1：AbsK =1V=（-W+15）*60 注:此公式为计算距中1米处补偿量：Goto 5AbsK =13V=（-W+15）*64注:此公式为计算距中13米处补偿量：Goto 5V=（-W+15）*80 注:此公式为计算距中5、9米处补偿量 Lbl 5: Z=Z+V 注:Z值每次计算前必须存入“0”，最后提出即可：Lbl 1 注:以上程序若不扣除15mm只须把上述体积计算公式中的“+15”去除即可；若布点位置不同则体积公式要随着改变GG1（子程序1）G=Abs(A-E):H=（T-G）22R：BCAEF=D-GB-HBCAEF=D+GC-HBCAEF=D-GB+HBCAEF=D+GC+HGG2（子程序2）K:K”YC ：K0Prog”PY2”： Prog “PY1”EJ-I-2LN=0.02:F=F-N( AbsK-1)：Prog “GG3”GG3（子程序3）K= AbsK：EJ-L-IN=0.02-（0.04L）（E-J+2L+I）:F=F-N(K-1)：Goto 1回车EJ-LN=-0.02:F=F-(K-1)0.02： Goto 1回车EJN=-0.02+（0.04L）（E-J+L）:F=F-(K-1)NLbl 1SY（竖曲线要素）E竖曲线结束点桩号B=进入坡度：C=出去坡度：T=切线长：R=竖曲线半径：A=顶点桩号：D=顶点高程：Goto 2回车重复上述步骤至最后一条竖曲线为止Lbl 2PY1（左幅横坡要素）E左幅变坡点结束点桩号L=超高变坡段长：I=超高段长：J=左幅变坡点结束点桩号：Goto 1回车重复上述步骤至最后一段个超高段为止Lbl 1PY2（右幅横坡要素）E右幅变坡点结束点桩号L=超高变坡段长：I=超高段长：J=右幅变坡点结束点桩号：Goto 1回车重复上述步骤至最后一段个超高段为止Lbl 1GSLX（中湿与干燥类型要素）E第一段中湿类型结束点桩号Lbl 2：F=F-0.56：Goto 1回车E第一段干燥类型结束点桩号Lbl 3：F=F-0.54：Goto 1回车E下一段中湿类型结束点桩号Goto 2回车E下一段干燥类型结束点桩号Goto 3回车重复上述后两步至最后中湿或干燥段为止Lbl 1匝 道 高 程 计 算ZA DAO GC（主程序） Fixm : Lbl 1:E:E”ZHUANG HAO : Prog “MLGC”：FGoto 1MLGC（子程序1）Prog “MLZ”：Prog “SQXY”：K:K”YC :K0Prog “MLB2”：Prog “MLB1”Prog “BZ”SQXY（子程序2）EA-TF=D-B（A-E ）：Prog “GG1”BZ（子程序3）K= AbsK：F=F-（L-（I-L）N（E-J+N）KMLZ（竖曲线要素）E竖曲线结束点桩号B=进入坡度：C=出去坡度：T=切线长：R=竖曲线半径：A=顶点桩号：D=顶点高程：Goto 1回车重复上述步骤至最后一条竖曲线为止Lbl 1MLB1（左幅横坡要素）E左幅变坡点结束点桩号L=起点横坡：I=终点横坡：J=左幅变坡点结束点桩号：N=变坡段长：Goto 1回车重复上述步骤至最后一段个超高段为止Lbl 1MLB2（右幅横坡要素）E右幅变坡点结束点桩号L=起点横坡：I=终点横坡：J=右幅变坡点结束点桩号：N=变坡段长：Goto 1回车重复上述步骤至最后一段个超高段为止Lbl 1主 线 坐 标 计 算ZZ（主程序）Fixm : Lbl 1:L:L”ZHUANG HAO : Prog “YZ”：Prog “ZZ1”：Prog “ZZ2”：Q:Q”YC : Q0Rec（Q，Z+90）：Rec（-Q，Z-90）X=X+IY=Y+JZDMSGoto 1ZZ1（子程序1）C=A AbsW180:F=Atan(AbsW2):B=0D=0:E=0:R=K-F:T=R+C:S=R:U=T: D=B224A：E=B2-B3240A2：F=Dtan(AbsW2)+E+F:C=C+B:R=K-F:S=R+B:U=R+C:T=U-BZZ2（子程序2）LRX=G+ Rec（K-L，V+180）：Y=H+J:Z=V: Goto 0LSRec（F，V+180）：X=G+I:Y=H+J:C=L-R: Prog “ZZ3”：Z=V+90C2(AB): W0J=-J:Z=V-90C2(AB)Prog “ZZ4”：Goto 0LURec（L-U+F，V+W）：X=G+I：Y=H+J ：Z=V+W：Goto 0LTRec（F，V+W）：X=G+I：Y=H+J ：C=U-L：Prog “ZZ3”：I=-I：Z=V+W-90C2(AB)：W0J=-J:Z=V+W+90C2(AB)X=X+ICos（V+W）-JSin(V+W): Y=Y+I Sin(V+W)+J Cos（V+W）:Goto 0X=G+ Rec（F，V+180）：Y=H+J:C=180(L-R-B2) A:I=A SinC+E:J=A(1- CosC)+D:Z=V+C: W0J=-J:Z=V-CProg “ZZ4”回车Lbl 0：z0z=z+360z360z=z-360ZZ3（子程序3）I=C-C5（40 A2 B2)：J= C3（6AB)- C7（336（AB) 3）ZZ4（子程序4）X=X+ICosV-JSinV: Y=Y+I SinV+J CosVYZ（平曲线要素）L园曲线或缓和曲线终点桩号G=交点纵坐标X：H=交点横坐标Y：K=交点里程：V=进入方位角：A=半径：W=转角（左转为“-“）：B=缓和曲线长度：Goto 2回车重复上述步骤至最后一条平曲线为止Lbl 2匝 道 坐 标 计 算ZD（主程序）Fixm：Lbl 0：L：L“ZHUANGHAO”：Prog“QSSJ”：R=0S=0Prog“ZX”：Goto 2R=SProg“RQX”：Prog“LES”Lbl 2：Z360Z=Z-360 Z0Z=Z+360 X Y Z Lbl 3：Q：Q“BL”：Q=0Goto 0 D=X-QSinZ：K=Y+QCosZ D K Goto 3ZX 子程序I=（L-B：T=F：J=0：Z=T：Prog“XYZS”YQX 子程序V=180（L-B）R：Z=F+V：I=RSinV：J=R（1-CosV：T=F：Prog“XYZS”LES 子程序S=0M=0:C=Abs(R(N-B):T=F:A=(L-B:R0Z=90A2C+T: Z=T-90A2CGoto 1 S 0R 0(Abs s)(Abs R)C=Abs(N-B)SR(S-R: M=Abs(CS: E=90M2C:A=M+(L-B: S0T=F-E: Z=T+90A2C:T=F+E: Z=T-90A2C Goto 1 R0S0(Abs R) (Abs S)C=Abs(N-B)SR(S-R: M=Abs(CS: E=90M2C:E=-E: A=M-(L-B: R0T=F-E: Z=T-90A2C: T=F+E: Z=T+90A2C Goto 1 R=0C=Abs(S(N-B: M=Abs(CS:E=90M2C: E=-E: A=M-(L-B:S0T=F-E: Z=T-90A2C: T=F+E:Z=T+90A2C Goto 1 Lbl 1 :Prog “ABV”XYZS 子程序X=G+IcosT-JsinT:Y=H+IsinT+JcosTABV 子程序I=(A-M-(A5-M5)40C2+(A9-M9)3456C4-(A13-M13)599040C6+(A17-M17)17547264C8:J=(A3-M3)6C-(A7-M7)336C3+( A11-M11)42240C5-( A15-M15)9676800C7+( A19-M19)3530096640C9: R=0S0I=-I:I=-I:J=J S=0R0I=-I:J=-J:I=-I S0(Abs S)(Abs R)S0J=-J:I=I R0(Abs S)(Abs R)S0I=-I:J=-J:I=-I:J=J: Prog “XYZS”注:画线部分可不输入完附和导线简单平差计算程序同时可以计算附合导线,无定向导线主程序:DXJSQ “TX=F:W”:B:X:Y:F:Q=2D:E: (注:以上,附和时Q2即可)D:E:A Z=0:V=0:W=0:N=0:Lbl 0:N=N+1 :SS“BIAN CHANG”:Z=Z+S:ZZN=S:Prog “FJ”:ZZN-1=F:Prog “D”:NBGoto0 Q=ZProg “X”: Prog“FJ”:Prog “J”:Prog “P” 1、 子程序“FJ”G=180：L：L“JIAO DU”：F=F+L：FGF=F+G：F=F-G F2GF=F-2G2、 子程序DRec（ZZN，ON+Z ZN-1：V=V+I：W=W+J3、 子程序XPol（D-X，E-Y：U=I：O=J：“T=”：T=ZAbs（U-Pol（V，W K=UI：O=O-J：N=0：Lbl 1：“N=”：N=N+1 “XN=”：X=X+Rec（KZZN，O+ZZN-1 “YN=”：Y=Y+J NBGoto 1 “END”4、 子程序JV=0：W=0：“FW=”：F=F-A 0=-F（B+1：N=0：Lbl 2：N=N+1：Prog “D”：NBGoto 25、 子程序P“FX=”：V=V+X-D “FY=”：W=W+Y-E “T=”：T=Z（V2+W2 V=-VZ：W=-WZ：N=0：Lbl 3：“N=”：N=N+1 “XN=”：X=X+Rec（ZZN，ON+ZZN-1+VZZN “YN=”：Y=Y+J+WZZN NBGoto 3 “EDN”B导线边数 S平距L水平角 F起始边的方位角X，Y起始点坐标 A终止边方位角Fw方位角闭合差 D，E终止点坐标Fx纵坐标闭合差 XN，YN为求标点坐标FY横坐标闭合差T导线相对闭合差分母值JX图形信息（附合时=1，无定向时）主线放样主程序ZHU XIAN FYFixm:MN:M “X0”:N “Y0”:Lbl 1:L:L “ZHUANG HAO”: Prog “YZ”:Prog “ZZ1”:Prog “ZZ2”:Q:Q “YC”:Q0Rec (Q，Z+90 :Rec(-Q，Z-90 X=X+I：Y=Y+J：Pol（X-M，Y-N：J0J=J+360 “F=”：JDMS “L=”：I Goto 1注：用计算器计算方位角和