1、JD-XY(计算主程序)(线元法)
Norm Z”KM’:D:N”PJ”:Prog”D” P=(S-R)÷T:Q= Z-C:I=PQ J=F+90Q(I+2R)÷∏:J≥360=>J=J-360: ≠>J<0=>J=J+360⊿ L=F+45Q(I÷4+2R)÷(2∏):O=F+135Q(3I÷4+2R)÷(2∏):K=F+45Q(I÷2+2R)÷∏ U=A+Q÷12×(COS F+4(COS L+COS O)+2 COS K+COS J):V =B+Q÷12×(sin F+4(sin L+ sin O)+2 sin K+ sin J): W=J+N:X=U+D COSW:Y=V+D sin W:Fix 3:”XD=”:X▲ “YD=”:Y 本程序可以计算任何线型,包括直线、缓和曲线、圆曲线、不等半径曲线等,由其是匝道各曲线计算。(注:0为数字,0为字母) KM-----计算点桩号(输入) D-------计算边桩距离左负,右正(输入) PJ------路线右偏角,正边桩为90(输入) XD------计算所得X坐标(计算得出) Y-D-----计算所得Y坐标(计算得出) FW---所求点桩号的中线方位角(计算得出) 2、子程序:D(数据源) Z<803.961=>A=46670.1:B=13269.591:C=700:F=84°50′23″:R=0:S=0:T=103.961:Goto 0: ≠>Z<1085.902=> A=46679.45:B=13373.13:C=803.961:F=83°33′23″:R=0:S=0:T=281.941:Goto 0: ≠>Z<1363.366=> A=46711.091:B=13653.29:C=1085.902:F=83°33′23″:R=-1÷1000:S=-1÷1000:T=277.464:Goto 0: LbI 0:Fixm:A:B:C:F:R:S:T: 说明:字程序Z〈后面为每段线元的终点桩号,可以把你标段所有线元段都输入:其中程序中:A、B为起点坐标;C为起点桩号;F为起点方位角:R、S为起终点半径(以倒数输入,如R60,1÷60)分左右转如左转为-1÷60,直线为0;T为线元长度 |
|