4800计算器程序编辑步骤2改

《4800计算器程序编辑步骤2改》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、4800计算器程序编辑步骤2一、文件名QXFY(曲线放样主程序)W=1:{WQ}:W“LOAD”:W=-1=>A“ZJ”:B“R”:C“L0”:D“ZHKM”:E“JDX”:F“JDY”:G“A0”:H“1R,-1L”:⊿←{Q}:Q“OPPNAME”:Q=-1=>U“X0”:V“Y0”:≠>Prog“CONDAT”:U=4.444=>::⊿⊿←Lb11:{Z}:Z“DK+M”:Int(Z/1000)>0=>K=Int(Z/1000):≠>Z=Z+1000K⊿←W≠-1=>Prog“CIRDAT”:A=9=>::⊿⊿

2、←H≠-1=>H≠1=>::⊿⊿←M=Z-D:Prog“CENTER”←{L}:L“OUTL”:L>0=>{R}:R“OUTANGLE”:X=X+Lcos(P+R):Y=Y+Lsin(P+R)⊿L<0=>L=AbsL:{R}:R“OUTANGLE1”:O=P+R:X=X+LcosO:Y=Y+LsinO:{LR}:L“OUTL2”:R“OUTANGLE2”:L=AbsL:O=O+R+180:X=X+LcosO:Y=Y+LsinO⊿←PoI(X-U,Y-V)←“L=”:I◢(I“L=”◢)J<0=>J=J+360:⊿←“

3、A=”:J→DMS◢(J“A=”◢)O=-1:{O}:O“VIEWXY”:O≠-1=>”X=”:X◢”Y=”:Y◢”P”:P→DMS◢⊿←(X◢Y◢P◢⊿←)Goto1←二、文件名XY-AL(坐标反算){Q}:Q“OPPNAME”←Q≠-1=>Prog“CONDAT”:U=4.444=>::⊿A=U:B=V:≠>A“X0”:B“Y0”:⊿I=0:J=0←Lb11:{Q}:Q“CPPNAME”:Q=-1=>{DC}:C“Xc”:D“Yc”:≠>Prog“CONDAT”:U=4.444=>::⊿C=U:D=V:⊿←Po1

4、(C-A,D-B)←“L=”:I◢(I“L=”◢)J<0=>J=J+360⊿←“A=”:J→DMS◢(J“A=”◢)Goto1←三、文件名CALXY(导线计算)O=2←Lb11:{O}:O“1:X0,Y0-A06个空格2:X0,Y0-XC,YC”:O≠1=>O≠2=>Goto1:⊿⊿←I=0:J=0←{Q}:Q“OPPNAME”:O≠-1Prog“CONDAT”:U=4.444=>::⊿A=U:B=V:≠>A“X0”:B“Y0”:⊿←O=1=>E“A0”:≠>{Q}:Q“CPPNAME”:Q=-1=>C“Xc”:D“

5、Yc”:≠>Prog“CONDAT”:U=4.444=>::⊿C=U:D=V:⊿Po1(C-A,D-B):E=J:⊿←F=E:X=A:Y=B←Lb12:{ML}:M“LEFTANGLE”:L“DISTANCE”:F=F+M:Rec(L,F):X=X+I◢Y=Y+J◢F=F-180:Goto2四、文件名CENTER（曲线放样子程序）S=ABπ/180+C：O=C2/24B：T=（B+O）tan（A/2）+C/2-C^3/240B2：N=-1：M>S-C=>M=S-M：N=1：⊿←M≤0=>X=M:Y=0:P=0:Got

6、o1:⊿←M≤C=>X=M-M^5/40B2C2:Y=M^3/6BC-M^7/(336*B^3*C^3):P=90M2/πBC：Goto1:⊿←M≤S-C=>P=180(M-C)/πB+90C/πB:X=BsinP+C/2-C^3/240B2:Y=B(1-cosP)+O:⊿Lb11:N=1=>P=A-P:I=X:J=Y:X=T+(T-I)cosA-JsinA:Y=(T-I)sinA+JcosA:⊿←I=X:J=HY:X=E+Tcos(180+G)+IcosG-JsinG:Y=F+Tsin(180+G)+IsinG+J

7、cosG:P=G+HP←五、文件名CIRDAT(曲线要素数据库)A=9：W≠1=>Goto1⊿←Z≤曲线交点代号=>A=转向角：B=半径：C=缓和曲线长：D=直缓点里程：E=交点X坐标：F=交点Y坐标：G=切线方位角：H=右偏+1，左偏-1：Goto1⊿←W=编辑顺序同上。（Lb11:W=1=>Goto2:⊿←）W=曲线交点代号=>A=转向角：B=半径：C=缓和曲线长：D=直缓点里程：E=交点X坐标：F=交点Y坐标：G=切线方位角：H=右偏+1，左偏-1⊿←W=编辑顺序同上。六、文件名CONDAT（导线点数据库）Q=

8、控制点代号=>U=X坐标：V=Y坐标:⊿←Q=编辑顺序同上。计算说明：CIRLAY（主程序）1、“LOAD”输入-1时，需要手动输入放样点所在曲线要素。输入放样点所在曲线交点代号，自动判断曲线要素。2、“OPPNAME？”输入-1时，需手动输入置镜点坐标。输入控制点代号，则自动判断。3、“DK+M”为放样点里程。4、（1）“OUTL”输入0时，