计算器程序.docx

1、计算器程序ZDJS(匝道计算)4800Lb1 0:EG:A“XA”:B“YA”:C“CA”:D“1RA”:E“1RB”:F“DKA”:G“DKB”Lb1 1:HOR:H“DKI”:O“DL”:R“DR”:HG=Goto 3P=(E-D)Abs(G-F) Q= Abs(H-F) I=PQJ=C+(I+2D)Q90U=0:V=0:W=0:Z=0S=TLb1 4:U=U+Cos(C+(I(2S-1)(2T)+2D)(Q2)(2S-1)(2T)180)V=V+Sin(C+(I(2S-1)(2T)+2D)(Q2)(2S-1)(2T)180)Dsz SGoto 4S=T-1Lb1 5W=W+Cos(C+(

2、IST+2D)(Q2)(ST)180)Z=Z+Sin(C+(IST+2D)(Q2)(ST)180)Dsz SGoto 5X=A+Q(6T)(Cos C+4U+2W+Cos J)Y=B+Q(6T)(Sin C+4V+2Z+ Sin J)U“XL”=X+OCos(J-90)V“YL”=Y+OSin(J-90)W“XR”=X+RCos(J+90)Z“YR”=Y+RSin(J+90)Goto 1Lb1 3 : A=X : B=Y : D=E : F=G : C=J : Goto 0程序中字母代表含义如下:XA: 代表一段曲线内的起点X坐标；YA: 代表一段曲线内的起点Y坐标；CA: 代表一段曲线的起始

3、方位角；1RA: 代表一段曲线的起点半径，（顺时针半径为1除RA，反之为-1除RA）；1RB: 代表一段曲线的终点半径,（顺时针半径为1除RB，反之为-1除RB）；DKA: 代表一段曲线内的起点桩号；DKB: 代表一段曲线内的终点桩号；DKI: 代表一段曲线内的所求的桩号；DL: 距左边桩的距离；DR: 距右边桩的距离；T : 默认输入8；ZBFS（坐标反算）4800Lb1 0:ABCD:A“X1”:B“Y1”:C“X2”:D“Y2”:I=0:J=0:Po1(C-A，D-B):L=IJF=J+360=F=JGoto 0程序中字母代表含义如下:X1: 代表已知点A的X坐标；Y1: 代表已知点A的

4、Y坐标；X2: 代表已知点B的X坐标；Y2: 代表已知点B的Y坐标L : 以求的两点之间的距离；F : 以求的两点之间的方位角；ZBFS（坐标反算）4850Lb1 1:M N X Y:M“X0”:N“Y0”:X“X1”:Y“Y1”:I=0:J=0Po1(X-M),(Y-N) I:“D=”:IJJ=J+360J:“F=”:JDMS Goto 1程序中字母代表含义同上:ZBZS（坐标正算）4800Lb1 1M N:“0”:N“Y0”:I=0:J=1D FRec (D,F) X=M+I:Y=N+JX“X1=” Y“Y1=” Goto 1程序中字母代表含义如下:X0: 代表已知点A的X坐标；Y0: 代

5、表已知点A的Y坐标；D : 代表已知点A到未知点的距离；E : 代表已知点A到未知点的方位角；Y1: 所求点B的X坐标；Y1: 所求点B的Y坐标SQXJS（竖曲线计算）4800Lb1 0R：T：D“K（JD）”：H“H（JD）”：U：“I1”：V“I2” KVU=G=1：=VU=G-1KD-T=L=D-K：P=H-LU100：=KD=L=K-D+T：P=H-U（D-K）100+GL22R：=KD+T=L=D+T-K：P=H+V（K-D）100+ GL22R：=KD+T=L=K-D：P=H+LV100P：“H=”：PGoto 0程序中字母代表含义如下:R : 代表竖曲线半径；T : 代表竖曲线切

6、线长；K(JD) :代表竖曲线交点桩号；K(JD) :代表竖曲线交点高程；I1: 代表竖曲线第一坡度；I2: 代表竖曲线第二坡度；HFJH（后方交会）4800Lb1 1：ABCDEFQ：A“XA”：B“YA”：C“XB”：D“YB”：E“D1”：F“D2”：Q：J=0：G=Po1(C-A，D-B)：H=J+Q Cos-1（GG+EE-FF）2GE）：X“XP”=A+E CosHY“YP”=B+E SinHGoto 1程序中字母代表含义如下:XA: 代表已知点A的X坐标；YA: 代表已知点A的Y坐标；XB: 代表已知点B的X坐标；YB: 代表已知点B的Y坐标D1: 所求点到A点之间的距离；D2:

7、 所求点到B点之间的距离；Q : 已P点为置镜点顺时针测Q=1，反之Q=-1；ZBJS（坐标计算）4800F：N：G：R：V：Q：W：KDefm 4M=V2-V3240R2P=V224R- V42688R3E=(R+P) Cos(N2)-RL=RN180+VT=M+(R+P) tan (N2) A=Q-T：B=A+V：D=A+L：C=D-VRec(T,F+180) Z1=I+W:Z2=J+K Rec(T,F+GN) Z3=I+W:Z4=J+KLb1 0HSEU=SAbs(S+10e-19):S=Abs SHA=Goto 1=HB=Goto 2=HC=Goto 3=HD=Goto 4=Goto

8、5Lb1 1Rec(Q-H,F+180) X=W+I:Y=J+KRec(S ,F+180-(180-E)U) X=X+IY=Y+JS=SUGoto 0Lb1 2Z=Z-AO=90Z2RVX=Z-Z540R2V2+ Z93456R4V4Z= Z36RV-Z7336R3V3+Z1142240R5V5Lb1 6Rec(X ,F) X=Z1+I:Y=Z2+J Rec(Z,F+90G) X=X+I:Y=Y+JRec(S,F+OG+EU) X=X+IY=Y+JS=SUGoto 0Lb1 3Z=H-A-V2O=180ZRX=RSin(180(H-A)-90V)R)+MZ=R(1-Cos(180(H-A)-9

9、0V)R)+PGoto 6Lb1 4Z=D-HO=90Z2RVX=Z-Z540R2V2+ Z93456R4V4Z=Z36RV-Z7336R3V3+Z1142240R5V5Rec(X,F+GN+180)X=Z3+I:Y=Z4+J Rec(Z,F+GN+180-90G)X=X+I:Y=Y+JRec(S ,F+GN+180-OG-(180-E)U) X=X+IY=Y+JGoto 0Lb1 5Rec(H-D+T,F+GN)X=J+I:Y=K+JRec(S,F+GN+EU)X=X+IY=Y+JS=SUGoto 0程序中字母代表含义如下:F : 代表计算方位角；N : 代表转角值；G : （左转角为 -1），（右转角为 1）；R : 代表圆曲线半径V : 代表第一缓和曲线长；Q : 代表交点桩号；W : 代表交点坐标X值；K : 代表交点坐标Y值；L : 默认值；I : 默认值；J : 默认值；S : 边桩距中桩距离；H : 所求的放样桩号；E : 于路线的夹角，右幅输-90，左幅输90.