计算器程序.docx
《计算器程序.docx》由会员分享，可在线阅读，更多相关《计算器程序.docx（8页珍藏版）》请在冰豆网上搜索。
计算器程序
ZDJS（匝道计算）4800
Lb10:
{EG}:
A“XA”:
B“YA”:
C“CA”:
D“1」RA”:
E“1」RB”:
F“DKA”:
G“DKB”↙
Lb11:
{HOR}:
H“DKI”:
O“DL”:
R“DR”:
H>G=>Goto3⊿↙
P=（E-D）÷Abs（G-F）↙
Q=Abs（H-F）↙
I=PQ↙
J=C+（I+2D）Q×90÷∏▲
U=0:
V=0:
W=0:
Z=0↙
S=T↙
Lb14:
U=U+Cos（C+（I×（2S-1）÷（2T）+2D）×（Q÷2）×（2S-1）÷（2T）×180÷∏）↙
V=V+Sin（C+（I×（2S-1）÷（2T）+2D）×（Q÷2）×（2S-1）÷（2T）×180÷∏）↙
DszS↙
Goto4↙
S=T-1↙
Lb15↙
W=W+Cos（C+（I×S÷T+2D）×（Q÷2）×（S÷T）×180÷∏）↙
Z=Z+Sin（C+（I×S÷T+2D）×（Q÷2）×（S÷T）×180÷∏）↙
DszS↙
Goto5↙
X=A+Q÷（6T）×（CosC+4U+2W+CosJ）▲
Y=B+Q÷（6T）×（SinC+4V+2Z+SinJ）▲
U“XL”=X+OCos（J-90）▲
V“YL”=Y+OSin（J-90）▲
W“XR”=X+RCos（J+90）▲
Z“YR”=Y+RSin（J+90）▲
Goto1↙
Lb13:
A=X:
B=Y:
D=E:
F=G:
C=J:
Goto0↙
程序中字母代表含义如下:
XA:
代表一段曲线内的起点X坐标；
YA:
代表一段曲线内的起点Y坐标；
CA:
代表一段曲线的起始方位角；
1」RA:
代表一段曲线的起点半径，（顺时针半径为1除RA，反之为-1除RA）；
1」RB:
代表一段曲线的终点半径,（顺时针半径为1除RB，反之为-1除RB）；
DKA:
代表一段曲线内的起点桩号；
DKB:
代表一段曲线内的终点桩号；
DKI:
代表一段曲线内的所求的桩号；
DL:
距左边桩的距离；
DR:
距右边桩的距离；
T:
默认输入8；
ZBFS（坐标反算）4800
Lb10:
{ABCD}:
A“X1”:
B“Y1”:
C“X2”:
D“Y2”:
I=0:
J=0
:
Po1（C-A，D-B）:
L=I▲
J<0=>F=J+360▲
≠=>F=J▲
Goto0↙
程序中字母代表含义如下:
X1:
代表已知点A的X坐标；
Y1:
代表已知点A的Y坐标；
X2:
代表已知点B的X坐标；
Y2:
代表已知点B的Y坐标
L:
以求的两点之间的距离；
F:
以求的两点之间的方位角；
ZBFS（坐标反算）4850
Lb11:
{MNXY}:
M“X0”:
N“Y0”:
X“X1”:
Y“Y1”:
I=0:
J=0↙
Po1（（X-M）,（Y-N））↙
I:
“D=”:
I▲
J<0=>J=J+360⊿↙
J:
“F=”:
J→DMS▲
Goto1↙
程序中字母代表含义同上:
ZBZS（坐标正算）4800
Lb11↙
{MN}:
Ｍ“Ｘ0”:
N“Y0”:
I=0:
J=1↙
{DF}↙
Rec（D,F）↙
X=M+I:
Y=N+J↙
X“X1=”▲
Y“Y1=”▲
Goto1
程序中字母代表含义如下:
X0:
代表已知点A的X坐标；
Y0:
代表已知点A的Y坐标；
D:
代表已知点A到未知点的距离；
E:
代表已知点A到未知点的方位角；
Y1:
所求点B的X坐标；
Y1:
所求点B的Y坐标
SQXJS（竖曲线计算）4800
Lb10↙
R：
T：
D“K（JD）”：
H“H（JD）”：
U：
“I1”：
V“I2”↙
{K}↙
V＞U=＞G=1：
≠=＞V＜U=＞G＝-1⊿⊿↙
K≤D-T=＞L=D-K：
P=H-LU÷100：
≠=＞K≤D=＞L=K-D+
T：
P=H-U（D-K）÷100+GL2÷2R：
≠=＞K≤D+T=＞L=
D+T-K：
P=H+V（K-D）÷100+GL2÷2R：
≠=＞K＞D+T
=＞L=K-D：
P=H+LV÷100⊿⊿⊿⊿↙
P：
“H=”：
P▲
Goto0
程序中字母代表含义如下:
R:
代表竖曲线半径；
T:
代表竖曲线切线长；
K（JD）:
代表竖曲线交点桩号；
K（JD）:
代表竖曲线交点高程；
I1:
代表竖曲线第一坡度；
I2:
代表竖曲线第二坡度；
HFJH（后方交会）4800
Lb11：
{ABCDEFQ}：
A“XA”：
B“YA”：
C“XB”：
D“YB”：
E“D1”：
F“D2”：
Q：
J=0：
G=Po1（C-A，D-B）：
H=J+QCos-1（（GG+EE-FF）÷2÷G÷E）：
X“XP”=A+ECosH▲
Y“YP”=B+ESinH▲
Goto1↙
程序中字母代表含义如下:
XA:
代表已知点A的X坐标；
YA:
代表已知点A的Y坐标；
XB:
代表已知点B的X坐标；
YB:
代表已知点B的Y坐标
D1:
所求点到A点之间的距离；
D2:
所求点到B点之间的距离；
Q:
已P点为置镜点顺时针测Q=1，反之Q=-1；
ZBJS（坐标计算）4800
F：
N：
G：
R：
V：
Q：
W：
K↙
Defm4↙
M=V÷2-V∧3÷240÷R2↙
P=V2÷24÷R-V∧4÷2688÷R∧3↙
E=（R+P）÷Cos（N÷2）-R↙
L=∏RN÷180+V▲
T=M+（R+P）tan（N÷2）↙
A=Q-T：
B=A+V：
D=A+L：
C=D-V↙
Rec（T,F+180）↙
Z[1]=I+W:
Z[2]=J+K↙
Rec（T,F+GN）↙
Z[3]=I+W:
Z[4]=J+K↙
Lb10↙
{HSE}↙
U=S÷Abs（S+10e-19）:
S=AbsS↙
H﹤A=＞Goto1↙
≠=＞H﹤B=＞Goto2↙
≠=＞H﹤C=＞Goto3↙
≠=＞H﹤D=＞Goto4↙
≠=＞Goto5⊿⊿⊿⊿↙
Lb11↙
Rec（Q-H,F+180）↙
X=W+I:
Y=J+K↙
Rec（S,F+180-（180-E）U）↙
X=X+I▲
Y=Y+J▲
S=SU↙
Goto0↙
Lb12↙
Z=Z-A↙
O=90Z2÷R÷V÷∏↙
X=Z-Z∧5÷40÷R2÷V2+Z∧9÷3456÷R∧4÷V∧4↙
Z=Z∧3÷6÷R÷V-Z∧7÷336÷R∧3÷V∧3+↙Z∧11÷42240÷R∧5÷V∧5↙
Lb16↙
Rec（X,F）↙
X=Z[1]+I:
Y=Z[2]+J↙
Rec（Z,F+90G）↙
X=X+I:
Y=Y+J↙
Rec（S,F+OG+EU）↙
X=X+I▲
Y=Y+J▲
S=SU↙
Goto0↙
Lb13↙
Z=H-A-V÷2↙
O=180Z÷R÷∏↙
X=RSin（（180（H-A）-90V）÷∏R）+M↙
Z=R（1-Cos（（180（H-A）-90V）÷∏R））+P↙
Goto6↙
Lb14↙
Z=D-H↙
O=90Z2÷R÷V÷∏↙
X=Z-Z∧5÷40÷R2÷V2+Z∧9÷3456÷R∧4÷V∧4↙
Z=Z∧3÷6÷R÷V-Z∧7÷336÷R∧3÷V∧3+Z∧11÷42240÷R∧5÷V∧5↙
Rec（X,F+GN+180）↙
X=Z[3]+I:
Y=Z[4]+J↙
Rec（Z,F+GN+180-90G）↙
X=X+I:
Y=Y+J↙
Rec（S,F+GN+180-OG-（180-E）U）↙
X=X+I▲
Y=Y+J▲
Goto0↙
Lb15↙
Rec（H-D+T,F+GN）↙
X=J+I:
Y=K+J↙
Rec（S,F+GN+EU）↙
X=X+I▲
Y=Y+J▲
S=SU↙
Goto0
程序中字母代表含义如下:
F:
代表计算方位角；
N:
代表转角值；
G:
（左转角为-1），（右转角为1）；
R:
代表圆曲线半径
V:
代表第一缓和曲线长；
Q:
代表交点桩号；
W:
代表交点坐标X值；
K:
代表交点坐标Y值；
L:
默认值；
I:
默认值；
J:
默认值；
S:
边桩距中桩距离；
H:
所求的放样桩号；
E:
于路线的夹角，右幅输-90，左幅输90.
升级会员 