5800程序手中大全.docx
《5800程序手中大全.docx》由会员分享，可在线阅读，更多相关《5800程序手中大全.docx（33页珍藏版）》请在冰豆网上搜索。
5800程序手中大全
5800计算器程序大全，手持天下，无人能敌
A1-[Z-C-X]程序名
Deg:
Fix3:
50→DimZ:
“1=ZXCX（主线程序）4=ZBFS（坐标反算程序）
2=ZDCX（匝道程序）5=HDCX（涵洞程序）
3=ZBZS（坐标正算）6=HCX（高程程序）”?
N:
N=1=>Prog“A2-[ZXCX]”:
N=2=>Prog“A9-[ZDCX]-1”:
N=3=>Prog“A4-[ZBZS]”:
N=4=>Prog“A5-[ZBFS]”:
N=5=>Prog“A10-[HDXC]”:
N=6=>Prog“A7-[GCCX]”
Goto0
A2-[ZDCX]-T（T匝道程序，与主线程序一样的）
Deg：
Fix3:
30→DimZ:
“1=[ZXCS]1?
（正算程序）
2=[FSCS]2”?
M:
M=1=>Goto0（反算程序）
N=2=>GOto4
Lb10
“[CZD-X]”?
U:
“[CZD-Y]”?
V
Lb11
“[FYZH]-KP”?
P
ⅠfP<0:
ThenStop:
ⅠfEnd
ⅠfP>2900:
ThenStop:
ⅠfEnd
Prog“[ZDCX]-T11”（匝道程序T11的子程序曲线要素）
Z[20]+O→Z[21]
Prog“[ZXCX]-DKJS”（子程序里程计算）
Prog“[ZXCX]-ZBJS”（子程序坐标计算）
“[FYZH]-XP=”:
F◢
“[FYZH]-YP=”:
G◢
“[FYZH]-AP”:
Z▲DMS◢
ⅠfU=0:
ThenGoto0:
E1sePo1（F-U,G-V）:
ⅠfEnd
Lb12
ⅠfJ<0:
ThenJ+360→J:
ⅠfEnd
“[BJ]-A1=”:
J▲DMS◢
“[BJ]-D1=”:
Ⅰ◢
Lbl3
“[PJ]Z=-ZJ,Y=+ZJ”?
H:
ⅠfH=0:
ThenProg“A3-[FSCX]”:
ⅠfEnd:
“[FYJL]-D”?
D
“[FYZB]-XB=”:
F+Dcos（Z+H）→Z[11]◢
“[FYZB]-YB=”:
G+Dsin（Z+H）→Z[12]◢
ⅠfU=0:
ThenGoto0:
E1sePo1（Z[11]-U,Z[12]-V）:
ⅠfEnd
ⅠfJ<0:
ThenJ+360→J:
ⅠfEnd
“[BJ]-A1=”:
J▲DMS◢
“[BJ]-D1=”:
Ⅰ◢
Goto1
Lbl4
“[BZZB]-XB”?
U:
“[BZZB]-YB”?
V:
“[SSZH-KP]”?
P
Lbl5
Prog“[ZDCX]-T11”
Z[20]+O→Z[21]
Prog“[ZXCX]-DKJS”
Prog“[ZXCX]-ZBJS”
Z-90→A
（V-G）cos（A）-（U-F）sin（A）→H
ⅠfAbs（H）>0.0001:
ThenP+H→P:
Goto5:
ⅠfEnb
“[FS-K]=”:
P◢
“[FS-D]=”:
（G-V）÷sin（A）→D◢
Goto4
A2-[ZXCX]（主线程序）
Deg:
Fix3:
30→DimZ
“A1=[ZSCX]1?
（正算程序）
A2=[FSCX]2?
（反算程序）
A3=[JDCX]3”?
M:
M=1=>Goto0（交点程序）
M=2=>Goto4
M=3=>Prog“A6-[JDCX]”
Lbl0
“[CZD-X]”?
U“[CZD-Y]”?
V
Lbl1
“[FYZH]-KP”?
P
ⅠfP<100901.422:
ThenStop:
ⅠfEnd
ⅠfP>105817.289:
ThenStop:
ⅠfEnd
Prog“[ZXCX]-QXYS”（主线程序子程序曲线要素）
Z[20]+0→Z[21]
Prog“[ZXCX]-DKJS”（主线程序子程序里程计算）
Prog“[ZXCX]-ZBJS”（主线程序子程序坐标计算）
“[FYZH]-XP=”：
F◢
“[FYZH]-YP=”：
G◢
“[FYZH]-AP=”：
Z▲DMS◢
ⅠfU=0:
ThenGoto0:
E1sePol（F-U,G-V）:
ⅠfEnd
Lbl2
ⅠfJ<0:
ThenJ+360→J:
ⅠfEnd
“[BJ]-A1=”:
J▲DMS◢
“[BJ]-D1=”:
Ⅰ◢
Lbl3
“[PJ]Z=-ZJ,Y=+ZJ”?
H:
ⅠfH=0:
ThenProg“A3-[FSCX]”:
ⅠfEnd“[FYJL]-D”?
D
“[FYZB]-XB=”:
F+Dcos（Z+H）→Z[11]◢
“[FYZB]-YB=”:
G+Dsin（Z+H）→Z[12]◢
ⅠfU=0:
ThenGoto0:
E1sePol（Z[11]-U,Z[12]-V）:
IfEnd
IfJ<0:
ThenJ+360→J:
IfEnd
“[BJ]-A1=”:
J▲DMS◢
“[BJ]-D1=”:
I◢
Goto1
Lbl4
“[BZZB]-XB”?
U:
“[BZZB]-YB”?
V:
"[SSZH-KP]"?
P
Lbl5
Prog“[ZXCX]-QXYS”
Z[20]+O→Z[21]
Prog“[ZXCX]-DKJS”
Proger“[ZXCX]-ZBJS”
Z-90→A
（V-G）cos（A）-（U-F）sin（A）→H
IfAbs（H）>0.0001:
ThenP+H→P:
Goto5:
IfEnd
“[FS-K]=”:
P◢“[FS-D]=”（G-V）÷sin（A）→D◢
Goto4
A3-[FSCX]（反算程序）
“[BZZB]-XB”?
U:
“[BZZB]-YB”?
V“[SSZH]-KP”?
P
Lbl9
Prog“[ZXCX]-QXYS”（主线程序曲线要素）
Z[20]+O→Z[19]
Prog“[ZXCX]-DKJS”（主线程序里程计算）
Prog“[ZXCX]-ZBJS”（主线程序坐标计算）
Z-90→A
（V-G）cos（A）-（U-F）sin（A）→H
IfAbs（H）>0.0001:
ThenP+H→P:
Goto9:
IfEnd
“[FSZH]-K=”:
P◢
“[FSJL]-D=”:
（G-V）÷sin（A）→D◢
A4-[ZBZS]坐标计算
70→DimZ
Lbl1
“X1”?
A:
“Y1”?
B:
“FWJ”?
J“D1”?
D
Lbl2
“X2=”:
A+Dcos（J）→Z[41]◢
“Y2=”:
B+Dsin（J）→Z[42]◢
Lbl3
“2FWJ=ZP-J,YP+J”?
0:
“D2”?
P
IfP=0:
ThenGoto1:
E1se
0+J→Z[43]
“X3=”:
Z[41]+Pcos（Z[43]）→Z[44]◢
“Y3=”:
Z[42]+Psin（Z[43]）→Z[45]◢
Lbl4
“3FWJ=ZP-J,YP+J”?
E:
“D3”?
R
IfR=0:
ThenGoto1:
E1se
E+Z[43]→Z[46]
“X4=”:
Z[44]+Rcos（Z[46]）→Z[47]◢
“Y4=”:
Z[45]+Rsin（Z[46]）→Z[48]◢
Lbl5
“FWJ=ZP-J,YP+J”?
C:
“D4”?
F
IfF=0:
ThenGoto1：
Else
C+Z[46]→Z[49]
“X5=”:
Z[47]+Fcos（Z[49]）→Z[50]◢
“Y5=”:
Z[48]+Fsin（Z[49]）→Z[51]◢
Lbl6
“FWJ=ZP-J,YP+J”?
C:
“D5”?
F
IfF=0:
ThenGoto1:
E1se
C+Z[49]→Z[52]
“X6=”:
Z[50]+Fcos（Z[52]）→Z[53]◢
“Y6=”:
Z[51]+Fsin（Z[52]）→Z[54]◢
Lbl7
“FWJ=ZP-J,YP+J”?
W:
“D6”?
V
IfV=0:
ThenGoto1:
Else
W+Z[52]→Z[55]
“X7=”:
Z[53]+Vcos（Z[55]）→Z[56]◢
“X7=”:
Z[54]+Vsin（Z[55]）→Z[57]◢
Lbl8
“FWJ=ZP-J,YP+J”?
W:
“D7”?
V
IfV=0:
ThenGoto1:
Else
W+Z[55]→Z[58]
“X8=”:
Z[56]+Vcos（Z[58]）→Z[59]◢
“Y8=”:
Z[57]+Vsin（Z[58]）→Z[60]◢
Lbl9
“FWJ=ZP-J,YP+J”?
W:
“D8”?
V
IfV=0:
ThenGoto1:
Else
W+Z[58]→Z[61]
“X9=”:
Z[59]+Vcos（Z[61]）→Z[62]◢
“Y9=”:
Z[60]+Vsin（Z[61]）→Z[63]◢
LblA
“FWJ=ZP-J,YP+J”?
R:
“D10”?
Q
IfQ=0:
ThenGoto1:
Else
R+Z[61]→Z[64]
“X10=”:
Z[62]+Qcos（Z[64]）→Z[65]◢
“Y10=”:
Z[63]+Qsin（Z[64]）→Z[66]◢
Goto1
A5-[ZBFS]坐标反算程序
Lbl0
“AX”?
R:
“AY”?
S:
“BX”?
T:
“BY”?
U
Pol（T-R,U-S）:
J<0=>J+360→J
“D=”:
I◢
“J=”:
J▲DMS◢
Goto0
A6-[JDCX]交点程序
Deg:
Fix3:
26→DimZ
“X（JD1）”?
X:
“Y（JD1）”?
Y:
“X（JD0）”?
M:
“Y（JD0）”?
N
Prog“[ZXCX]-LCJS”（里程计算子程序）
Pol（X-M,Y-N）:
J→Z[20]:
J+0→Z[19]
X-Scos（Z[20]→Z[21]：
Y-Ssin（Z[20]）→Z[22]
X+Tcos（Z[19]）→Z[23]:
Y+Tsin（Z[19]）→Z[24]
“[CZD→XZB]→XO”?
U:
“[CZD→YZB]→YO”?
V
Lbl0
“FXZH→KP”?
P:
IfP>Z[1]:
ThenGoto1:
IfEnd
Z[1]-P→L
“FXZH→XP=”:
X-（S+L）cos（Z[20]）→F◢
“FXZH→YP=”:
Y-（S+L）sin（Z[20]）→G◢
Z[20]→Z:
Goto5
Lbl1
IfP>Z[2]:
ThenGoto2：
IfEnd
P-Z[1]→L:
L→Z[14]:
B→Z[15]:
Prog“[ZXCX]-QXJS”
“XP=”:
Z[21]+Z[16]cos（Z[20]）-WZ[17]sin（Z[20]）→F◢
“YP=”:
Z[22]+Z[16]sin（Z[20]）+WZ[17]cos（Z[20]）→G◢
Z[20]+90WL2÷（BRπ）→Z
Goto5
Lbl2
IfP>Z[4]:
ThenGoto3:
IfEnd
P-Z[1]→L:
90（2L-B）÷R÷π→Z[13]
Rsin（Z[13]）+Z[8]→Z[16]:
R（1-cos（Z[13]））+Z[6]→Z[17]
“[ZZZB]-XP=”:
Z[21]+Z[16]cos（Z[20]）-WZ[17]sin（Z[20]）→F◢
“[ZZZB]-YP=”:
Z[22]+Z[16]sin（Z[20]）+WZ[17]cos（Z[20]）→G◢
Z[20]+WZ[13]→Z
Goto5
Lbl3
IfP>Z[5]:
ThenGoto4:
IfEnd
Z[5]-P→L:
L→Z[14]:
C→Z[15]:
Prog“[ZXCX]-QXJS”
“XP=”:
Z[23]-Z[16]cos（Z[19]）-WZ[17]sin（Z[19]→F◢
“YP=”:
Z[24]-Z[16]sin（Z[19]+WZ[17]cos（Z[19]）→G◢
Z[19]-90WL2÷（CRπ）→Z
Goto5
Lbl4
P-Z[5]→L
“XP=”:
X+（T+L）cos（Z[19]）→F◢
“YP=”:
Y+（T+L）sin（Z[19]）→G◢
Z[19]→Z
Lbl5
IfZ>0:
ThenZ+360→Z:
IfEnd
“A=”:
Z▲DMS◢
IfU=0:
ThenGoto7:
ElsePol（F-U,G-V）:
IfEnd
Lbl6
IfJ<0:
ThenJ+360→J:
IfEnd
“A1=”:
J▲DMS◢
“D1=”:
I◢
Lbl7
“ZJ（ZZ=-?
YZ=+?
）”?
H:
IfH=0:
ThenGoto0:
IfEnd:
“FYJL→D”?
D
“[BZZB]-XB=”:
F+Dcos（Z+H）→Z[11]◢
“[BZZB]-YB=”:
G+Dsin（Z+H）→Z[12]◢
IfU=0:
ThenGoto7:
ElsePol（Z[11]-U,Z[12]-V）:
IfJ<0:
ThenJ+360→J:
IfEnd
“A1=”:
J▲DMS◢
“D1=”:
I◢
IfEnd
Goto0
A7-[GCCX]数曲线程序
Fix3
Deg:
Fix3:
50→DimZ:
"A1-[GCCX]=1
A2-[JDGC]=2"?
N:
N=1=>GOTO1:
N=2=>Prog“A9-[JDGC]”
Lbl1
“DK=”?
K
IfK<100900:
ThenStop:
IfEnd:
IfK>105720:
ThenStop:
IfEnd:
Prog“[GCCX]-GCSJ”（高程计算子程序）
S-K→L:
A-B→W:
Abc（（RxW）÷2）→T:
S-T→C:
S+T→D
IfK≤C:
ThenG-LXB→H:
Goto5:
ElseIfK≤S:
ThenGoto3:
ElseIfK≤D:
ThenGoto4:
IfEnd:
IfEnd:
IfEnd
Lbl3
IfW>0:
ThenG+（K-C）2÷（2R）-LxB→H:
Goto5:
ElseIfW<0:
ThenG-（K-C）2÷（2R）-LxB→H:
Goto5:
IfEnd:
IFend
Lbl4
IfW>0:
ThenG+（D-K）2÷（2R）-LxA→H:
Goto5:
ElseIfW<0:
ThenG-（D-K）2÷（2R）-LxA→H:
Goto5IfEnd:
IfEnd
Lbl5
“H=”:
H◢
“D=ZB=D,YB=D”?
Y:
“i=”?
J
“BH=”:
H+（（Y-1-0.75）XJ）-0.75x0.04→Q◢
“h”?
M
“BH,+,-h=”:
Q+M◢
Goto1
A9-[HDCX]暂无编制？
A9-[ZDCX]-1匝道程序第一个，无须输入曲线要素，已用子程序编制好了
Deg:
Fix3
Lbl1
Cls:
“A1-[ZDCX]-1?
A2-[ZDCX]-2?
A3-[ZDCX]-3”?
G
G=2=>Prog“A9-[ZDCX]-2”（进入第二个匝道程序）
G=3=>Prog“A9-[ZDCX]-3”（进入第三个匝道程序）
Lbl2
Cls:
“1.A1-[ZDCX]2.A2-[ZDFS]”?
→Q:
Q=2=>Goto3（一个正算，一个反算）
Cls:
“1=A2=B3=C4=D5=E6=G7=I8=P9=Y10=Z11=T12=YHQ”?
→I
I=11=>Prog“A2-[ZDCX]-T”（选择各种匝道，进入匝道）
Cls:
“[CZD-X]”?
H:
“[CZD-Y]”?
Z
I=1=>GotoA
I=2=>GotoD
I=3=>GotoC
I=4=>GotoB
I=5=>GotoE
I=6=>GotoG
I=7=>GotoI
I=8=>GotoP
I=9=>GotoY
I=10=>GotoZ
I=12=>GotoH
LblA:
Cls:
“[FYZH]-KP”?
K
IfK<0:
ThenStopIfEnd
IfK>645.65:
ThenStop:
IfEnd
Prog“[ZDCX]-A1”（匝道程序子程序A匝道曲线要素）
Cls:
90→B:
Cls:
“[PJ]Z=-ZJ,Y=+ZJ”?
B:
B=0=>Goto2:
“[D]Z=-D,Y=+D”?
T
Prog“[ZDCX]-C”（匝道程序子程序计算）
GotoA
LblB:
Cls:
“[FYZH]-KP”?
K
IfK<0:
ThenStop:
IfEnd
IfK>453.81:
ThenStop:
IfEnd
Prog“[ZDCX]-D4”（匝道程序子程序B匝道曲线要素）
Cls:
90→B:
Cls“[PJ]Z=-ZJ,Y=+ZJ”?
B:
B=0=>Goto2:
“[D]Z=-DIY=+D”?
T
Prog“[ZDCX]-C”
GotoB
LblC:
Cls:
“[FYZH]-KP”?
K
IfK<0:
ThenStop:
IfEnd
IfK>387.98:
ThenStop:
IfEnd
Prog“[ZDCX]-C3”:
Cls:
90→B:
“[PJ]Z=-ZJ,Y=+ZJ”?
B:
B=0=>Goto2:
“[D]Z=-D,Y=+D”?
T
Prog“[ZDCX]-C”（匝道程序子程序C匝道曲线要素）
GotoC
LblD:
Cls:
“[FYZH]-KP”?
K
IfK<0:
ThenStop:
IfEnd
IfK>299.55:
ThenStop:
IfEnd
Prog“[ZDCX]-B2”:
Cls:
90→B:
“[PJ]Z=-ZJ,Y=+ZJ”?
B:
B=0=>Goto2“[D]Z=-D,Y=+D”?
T
Prog“[ZDCX]-C”（匝道程序子程序D匝道曲线要素）
GotoD
LblE:
Cls:
“[FYZH]-KP”?
K
IfK<0:
ThenStop:
IfEnd
IfK>434.25:
ThenStop:
IfEnd
Prog“[ZDCX]-E5”:
Cls:
90→B:
Cls:
“[PJ]Z=-ZJ,Y=+ZJ”?
B:
B=0=>Goto2:
“[D]Z=-D,Y=+D”?
T（匝道程序子程序E匝道曲线要素）
Prog“[ZDCX]-C”
GotoE
LblG:
Cls:
“[FYZH]-KP”?
K
IfK>340:
ThenStop:
IfEnd
Prog“[ZDCX]-G6”:
Cls:
90→B:
Cls:
“[PJ]Z=-ZJ,Y=+ZJ”?
B:
B=0=>Goto2:
“[D]Z=-D,Y=+D”?
T
Prog“[ZDCX]-C”（匝道程序子程序G匝道曲线要素）
GotoG
LblI:
Cls:
“[FYCX]-KP”?
K
IfK>640.64:
ThenStop:
IfEnd
Prog“[ZDCX]-I7”:
Cls:
90→B:
“[PJ]Z=-ZJ,Y=+ZJ”?
B:
B=0=>Goto2:
“[D]Z=-D,Y=+D“?
T
Prog“[ZDCX]-C"（匝道程序子程序I匝道曲线要素）
GotoI
LblP:
Cls:
“[FYZH]-KP”?
K
IfK>200:
ThenStop:
IfEnd
Prog“[ZDCX]-P8”:
Cls:
90→B:
Cls“[PJ]Z=-ZJ,Y=+ZJ”?
B:
B=0=>Goto2:
“[D]Z=-D,Y=+D”?
T（匝道程序子程序P匝道曲线要素）
Prog“[ZDCX]-C”
GotoP
LblY:
Cls“[FYZH]-KP”?
K
IfK>655.74:
ThenStop:
IfEnd
Prog“[ZDCX]-Y9”:
Cls:
90→B:
“[PJ]Z=-ZJ,Y=+ZJ”?
B:
B=0=>Goto2“[D]Z=-D,Y=+D”?
T:
Prog“[ZDCX]-C”（匝道程序子程序Y匝道曲线要素）
GotoY
LblZ:
Cls:
“[FYZH]-KP”?
K
IfK>774.77:
ThenStop:
IfEnd:
Prog“[ZDCX]-Z10”:
Cls:
90→B:
“[PJ]Z=-ZJ,Y=+ZJ”?
B:
B=0=>Goto2“[D]Z=-D,Y=+D”?
T:
Prog“[ZDCX]-C”
GotoZ（匝道程序子程序Z匝道曲线要素）
LblH:
Cls:
“[FYZH]-KP”?
K
IfK<0:
ThenStop:
IfEnd
Prog“[ZDCX]-YY”（匝道程序子程序养护区曲线要素）
Cls:
90→B:
Cls:
“[PJ]Z=-ZJ,Y=+ZJ”?
B:
B=0=>Goto2:
“[D]Z=-D,Y=+D”?
T
Prog“[ZDCX]-C”
GotoH
Lbl3
Cls:
“1=A2=B3=C4=D5=E6=G7=I8=P9=Y10=Z11=T12=YHQ”?
→I
Lbl4
I=11=>Prog“A2-[ZDCX]-T”（匝道程序子程序T）
Cls:
“[BZZB]-XB”?
C:
“[BZZB]-YB”?
D
“[SSZH]-KP”？
K
IfK<0:
ThenGoto2:
IfEnd
Lbl5
I=1=>Prog“[ZDCX]-A1”
I=2=>Prog“[ZDCX]-B2”
I=3=>Prog“[ZDCX]-C3”
I=4=>Prog“[ZDCX]-D4”
I=5=>Prog“[ZDCX]-E5”
I=6=>Prog“[ZDCX]-G6”
I=7=>Prog“[ZDCX]-I7”
I=8=>Prog“[ZDCX]-P8”
I=9=>Prog“[ZDCX]-Y9”
I=10=>Prog“[ZDCX]-Z10”
I=12=>Prog“[ZDCX]-YY”
Prog“[ZDCX]-A”
（D-Y）sin（M）+（C-X）cos（M）→H
IfAbs（H）>0.001:
ThenK+H→K:
Goto5:
IfEnd
（D-Y）÷cos（M）→T
3→0:
Prog“[ZDCX]-B”:
Goto4
A9-[ZDCX]-2第二个匝道程序
“QD-K”?
A:
“ZD-K”?
L:
“QD-X”?
U:
“ZD-Y”?
V:
“QD-FWJ”?
W:
“QD-R”?
P:
“ZD-R”?
Q:
“ZX:
-1,+1,0”?
G
1→0:
Prog“[ZDCX]-B”（子程序计算）
Cls:
“A1-[ZDZS]?
A2-[ZDFS]”?
I:
I=2=>Goto3
Cls:
“[CZD-X]”?
H:
“[CZD-Y]”?
Z
Lbl1:
Cls:
“[FYZH]-KP”?
K
Lbl2:
Cls:
90→B:
Cls:
“[PJ]Z=-ZJ,Y=+ZJ”?
B:
IfB=0:
ThenGotoA:
IfEnd:
“[D]Z=-D,Y=+D”?
T
Prog“[ZDCX]-A”（子程序计算）
X+Tcos（M+B）→X
Y+Tsin（M+B）→Y
360Frac（（M+360）÷360→M
Pol（X-H,Y-Z:
360Frac（（J+360）÷
升级会员 