4800计算器公路工程坐标计算程序(王).docVIP

4800计算器公路工程坐标放样程序 MS(主程序) QXZ=:SYZ= 回车 Lbl 0:{Z}:ZZS=1;FS=2:Z=1=Goto1△ Z=2=Goto2△ 回车 Lbl 1:{POW }: PLCZH=: DZ=0;BL0;BR0 : WBJ:Prog GLCL:ProgZS:XX=▲YY=▲ I=POL(X－Q,Y－S): J0=J=J+360: JAF▲ ≠=J=J:JAF=▲ △IS=▲ Goto0回车 Lbl 2: {XYW}: XYWBJ: ProgFS:PLCZH=▲ DZ=0;BL0; BR0▲ Goto0回车 ZS(正算) Fixm回车 Lbl 1 :J=F: X=B－Z[3] C0SF: Y=C－Z[3]SinF: G=E回车 P≤A－Z[3]=I=A－Z[3]－P:M=－I: N=0: H=F＋W: Goto5回车 ≠=p≤A-Z[3]＋E=I=P－A+Z[3]: H=90 I2 ÷RE π: O0=H=－H△H=H＋W＋F:Goto3回车 ≠=P≤A－Z[3]＋L-K =I=P－A＋Z[3]－E:Goto4回车 ≠=Goto2△△ 回车 Lbl 2:X=B＋Z[4]CoS(F＋O):Y=C+Z[4]Sin(F+O):J=F+O＋180:G=K回车 P≤A-Z[3]+L=I=A-Z[3]＋L－P:H=90I2 ÷RKπ:O0=H=－H△回车 H=H＋J＋W+180:Goto3回车 ≠=I=P－A+Z[3]－L:M=－I:N=0:H=J+W+180:Goto5 回车 Lbl 3:M=I－I5 ÷40R2 G2: N=I3÷6GR－I7÷336R3G3:Goto5 回车 Lbl 4: H=(E+2 I )×90÷πR: M=RSinH+Z[2]:N=R(1－CoSH)+Z[1]: O0=H=－H△ H=H+J+W:Goto5 回车 Lbl 5: P≤A－Z[3]+L－K=O0=N=－N△ ≠=O0=N=－N△△Goto6 回车 Lbl 6: X=X＋MCoSJ－NSinJ＋DCoSH: Y=Y＋MSinJ＋NCoSJ＋DSinH: FS（反算） Fixm 回车 U=X: V=Y: D=0: J=F－W:P=A+(Y－C)CoSJ－(X－B)SinJ回车 Lbl 1: Prog GLCL: ProgZS:J=H－180: I=(V－Y)CoSJ－(U－X)SinJ: AnSI≤0.001=Goto2: ≠=P=P+I:G0to1△ Lbl 2:D=(V－Y)÷SinH GLCL(公路测量) ProgSJK: AJD: BJDX: CJDY: FFJ: OZJ－,Y+ RELS1=: KLSZ= E1=E=0.00001△ K1=K=0.00001△ Z[1]=E2÷24R－E4÷2688R3:Z[2]=E÷2－E3÷240R2: X=(E2－K2)÷24R÷SinAbsO: Z[3]=(R+Z[1])tan(AbSO÷2)+Z[2]-X▲Z[4]=(R+K2÷24R－K4÷2688R3)tan(AbsO÷2)+K÷2－K3÷240R2＋X▲ L=AbsO πR÷180+(E+K)÷2▲ J=Tan－((R+Z[1])÷(Z[3]－Z[2]): XE=(R+Z[1])÷SinJ－R▲ X=A－Z[3]: Y=X+E: E1=XZY▲≠=XZH=▲ YHY=▲△ YQZ=X+(L－K－E)÷2+E▲ Y=X+L－K: X=X+L: YYH=▲ XHZ=▲ 注明：把GLCL(公路测量)该程序下的实心符号“▲”改为冒号“：”。 STK(平曲数据库) J=1=A=136.463:B=532663.38:C=500754.438:F=96°2154.5:O=41°3925:R=180:E=99.357:K=55 数据编制如下： P≥起始桩号=A=交点2的桩号：B=交点2的X坐标：C=交点2的Y坐标：F=交点1到交点2的方位角：O=道路转角（右角时输入正值，左角时输入负值）：R=半径：E=暖和曲线长：K=暖和曲线长△ P≥交点3角桩曲线的直缓和点桩号=A=交点3的桩号:B=交点3的X坐标：C=交点3的Y坐标：F=交点2到交点3的方位角：O=道路转角（右角时输入正值，左角时输入负值）：R=半径：E=暖和曲线长：K=暖和曲线长△