5800程序手中大全.docx
- 文档编号:24825134
- 上传时间:2023-06-01
- 格式:DOCX
- 页数:33
- 大小:26.46KB
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)÷
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 5800 程序 手中 大全