fx—4800P放样程序(不全).docVIP

fx—4800P公路施工放样程序 LJ（路基坐标、横坡计算） Defm 12：Lb1 O（下划线与零区分）：{K}：K≤HZ1（第一曲线缓直点）=Goto E△K≤HZ2=Goto F△K≤HZ3=Goto G△……K≤HZ9=Goto M△Goto N↙ Lb1 E：A= ：X= ：Y= ：F= ：E= ：L= ：R= ：G= ：M= ：S= ：Goto Z↙（第一曲线参数） ……（交点里程、坐标、方位角、偏角、缓和曲线长、半径、转向（左1右2）、超高、无超高段长。） Lb1 M：A= ：X= ：Y= ：F= ：E= ：L= ：R= ：G= ：M= ：S= ：Goto Z↙（第M曲线参数） Lb1 N：A＂ＫＪ＂Ｘ＂ＸＪ＂Ｙ＂ＹＪ＂Ｆ＂ＦＪ＂Ｅ＂ＡＰ＂Ｌ＂ＬＨ＂Ｒ＂Ｒ＂Ｇ＂Ｇ＂Ｍ＂Ｍ＂S＂S＂：Goto Z↙(没有编入的曲线参数需要时，可在计算时输入) Lb1 Z：B=（L-S）/（M+0.02）：Z[5]=180÷πR：Z[11]=L2÷24R-L^4÷2688R^3+L^6÷506880R^5：Z[12]=L/2-L^3÷240R2+L^5÷34560R^4：T=(R+Z[11])tan0.5E+Z[12]：Z[1]=A-T：Z[2]= Z[1]+L：Z[3]= Z[2]+（E-180L÷πR）/ Z[5]： Z[4]= Z[3]+L ↙ Lb1 0：G＂Z-1,Y-2＂ ▲K≤Z[1] =I=A-K：J=F+180：Prog＂1＂：Goto 8△ K≤Z[2] = Goto 1△K≤Z[3] = Goto 2△K≤Z[4] = Goto 3△ I=K-Z[4]+T：G＞1 =J=F+E：≠ J=F-E△ Prog＂1＂：Goto 8↙ Lb1 1：{O}：O＂PJ＂：K≥Z[2]-MB=U=O(MB-Z[2]+K)/B：≠U=-O（0.02B-K+Z[1]+S））—4800P公路施工放样程序 LJ（路基坐标、横坡、加宽计算(一般用于二级公路)区别在于横坡的计算） Defm 12：Lb1 O（下划线与零区分）：{K}：K≤HZ1（第一曲线缓直点）=Goto E△K≤HZ2=Goto F△K≤HZ3=Goto G△……K≤HZ9=Goto M△Goto N↙ Lb1 E：A= ：X= ：Y= ：F= ：E= ：L= ：R= ：G= ：M= ：N= ：Goto Z↙（第一曲线参数） ……（交点里程、坐标、方位角、偏角、缓和曲线长、半径、转向（左1右2）、超高、加宽。） Lb1 M：A= ：X= ：Y= ：F= ：E= ：L= ：R= ：G= ：M= ：N= ：Goto Z↙（第M曲线参数） Lb1 N：A＂ＫＪ＂Ｘ＂ＸＪ＂Ｙ＂ＹＪ＂Ｆ＂ＦＪ＂Ｅ＂ＡＰ＂Ｌ＂ＬＨ＂Ｒ＂Ｒ＂Ｇ＂Ｇ＂Ｍ＂Ｍ＂Ｎ＂Ｎ＂：Goto Z↙(没有编入的曲参数需要时，可在计算时输入) Lb1 Z：B=L/（M+0.02）：Z[5]=180÷πR：Z[ 11]=L2÷24R-L^4÷2688R^3+L^6÷506880R^5：Z[12]=L/2-L^3÷240R2+L^5÷34560R^4：T=(R+Z[11])tan0.5E+Z[12]：Z[1]=A-T：Z[2]= Z[1]+L：Z[3]= Z[2]+（E-180L÷πR）/ Z[5]： Z[4]= Z[3]+L ↙ Lb1 0：G＂Z-1,Y-2＂ ▲K≤Z[1] =I=A-K：J=F+180：Prog＂1＂：Goto 8△ K≤Z[2] = Goto 1△K≤Z[3] = Goto 2△K≤Z[4] = Goto 3△ I=K-Z[4]+T：G＞1 =J=F+E：≠ J=F-E△ Prog＂1＂：Goto 8↙ Lb1 1： Z=（4×（（K-Z[1]）/L）^3-3×（（K-Z[1]）/L）^4）N▲（N-总加宽值） {O}：O＂PJ＂：K≥Z[2]-MB=U=O(MB-Z[2]+K)/B：≠U=-O（0.02B-K+Z[1]）） Lijundong 使用前认真复核各曲线点计算值,正确后方可使用 ynlqegs 如有何问题及建议发邮件到jj163.com 以后如有好的可相互推荐 Yn.tonghai