计算器程序_计算机软件及应用_it计算机_专业资料

《计算器程序_计算机软件及应用_it计算机_专业资料》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、线路平曲线坐标计算程序(For4850P)一、主程序：HAN2LblA:{SDO!：S"K=u:D,,DP=,,:O,,ANG=,':Z',NO=l,2,SD=3,,=l=>GoloX:^>Z=2=>GotoY:^GotoWAALblX:S<593.652=>J=l:Prog"DAT5”:GotoOAS<852.072=>J=2:Prog”DAT5”:GotoOAS<1033.94=>J=3:Prog”DAT5”:GotoOAS<1170」62=>J=4:ProgMDAT5H:GotoOAS<6275.8I8=>J=I8:PrognDAT5M:G

2、otoOALblY:S<997.192=>J=l:Prog”DAT6”:GotoOAS<2208.389=>J=2:Prog,,DAT6":GotoOAS<5565.209=>J=3:Prog,,DAT6":GotoOAS<7113.552=>J=4:PrognDAT6M:GotoOAS<17189.541=>J=8:ProgMDAT6H:GotoOALblW:A”XJ”B"YJ”L”LS1"M”LS2”F”F0”E”PJ”K”JD”RLbl0:P=L2-24-R-LA4-2688-RA3:Q=L-2-LA3-240-R2+LA5-34560-R

3、A4:G=7rRAbsE-180+L:I=M2-24-R-MA4-2688-RA3:C=(R+P)-costan-l(((R+IHR+P)-cosAbsE)-sinAbsE)-R:C:C=M-2-MA3一240-R2+M人5一34560-R人4:T=(R+I・(R+P)cosAbsE)一sinAbsE+Q:T:N=(R+P・(R+I)cosAbsE)-sinAbsE+C:N:H=K・T:H:I=H+L:I:I=H+G・M:I:I=H+G:ILbl1:EC=-1:^>C=1ASGoto3ASGoto4AS

4、Goto5ASGoto6矜Goto7ALbl2:Fix3:MX=,r:X=X:Pause0:MY=H:Y=YAMFW=M:ProgHFW4n:J->DMSAGotoALbl3:J=F:X=A-TcosJ+(S-H)cosJ-»Dcos(J+O):Y=B-TsinJ+(S-H)sinJ+Dsin(J+O):Goto2Lbl4:V=S-II:ProgMHl.SH:J=F:I=T:Prog”H2.S”:J=F+90CV2-(nRL):PrognFW4":X=X+Dcos(J+O):Y=Y+Dsin(J+O):Goto2Lbl5:V=2(S-

5、H)-L:W=90Vr-R:U=RsinW+Q:W-R(l-cosW)+p:J=F:I=T:Prog”H2S':J=F+90CV-^R:Prog“FW4":X=X+Dcos(J+O):Y=Y+Dsin(J+O):Goto2Lbl6:V=H+G-S:L=M:Prog"H1.S”:U=・U:J=F+E:I=・N:Prog',H2.S,,:J=F+E-90CV2-(nRM):Prog"FW4”:X=X+Dcos(J+O):Y=Y+Dsin(J+O):Goto2Lbl7:V=S-H-G:J=F+E:X=A+(N+V)cosJ+Dcos(J+O):Y=B+

6、(N+V)sinJ+Dsin(J+O):Goto2二、子程序：1、文件名：H1.SQ=6:G=1U=Z((-l)A(G-l)xVA(4G-3)-((2G-2)!x(4G-3)x2a(2G-2)x(RL)a(2G-2)),G,1,Q)W=X((-l)A(G-l)xVA(4G・l)+((2G・l)!x(4G・l)x2A(2G-1)x(RL)A(2G-1)),G,1,Q)2、文件名：H2.SX=A-IcosJ+UcosJ・CWsinJ:Y=B-IsinJ+UsinJ+CWcosJ3、文件名：FW4J<0=>J=J+360:^>J>360=>J=J-36

7、0:#>J=J4、数据库1：DAT5J=l=>A=6136.073:B=3300.4972:L=35:M=35:F=171°36,6.9,,:E=74°58,29M:K=529.067:R=87.72A5、数据库2：DAT6J=l=>A=63559.945:B=531452.29:L=0:M=0:F=286°16,56.9,,:E=10°46,40.7w:K=528.306:R=5000AT=N=>A=****・r=****・[=****・f=****三、说明：1、输入部分：”NO.=1,2,SD=3”一输入1进行第--条线路正算，输入2进行第二

8、条线路正算，输入3进行人工正算XJ_交点X坐标（利用数据库全线贯通计算时不出现提问，以下类同）YJ—交点X坐标LSI—前缓长（如仅为圆曲