《Fx-4850P计算程序.doc》由会员分享，可在线阅读，更多相关《Fx-4850P计算程序.doc（8页珍藏版）》请在金锄头文库上搜索。
1、Fx-4800PFx-4850P计算程序.doc主 线 高 程 计 算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”G
2、AO 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为第二层厚
3、度,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
4、（计算实测与设计误差及工程量子程序）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值每次计算前必须
5、存入“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
6、-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
7、回车重复上述步骤至最后一段个超高段为止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 “
8、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
9、=起点横坡：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)+
10、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(A
11、B)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=
12、交点纵坐标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：Pr
13、og“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=-
14、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
