定性变量的相关性分析:Fx4850最精简的万能坐标计算程序(线元法)

来源:百度文库 编辑:偶看新闻 时间:2024/04/28 21:22:47
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为线元长度