最新Qh28线元法任意路线与匝道曲线坐标正反算程序Word格式文档下载.docx
- 文档编号:14375493
- 上传时间:2022-10-22
- 格式:DOCX
- 页数:8
- 大小:21.84KB
最新Qh28线元法任意路线与匝道曲线坐标正反算程序Word格式文档下载.docx
《最新Qh28线元法任意路线与匝道曲线坐标正反算程序Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《最新Qh28线元法任意路线与匝道曲线坐标正反算程序Word格式文档下载.docx(8页珍藏版)》请在冰豆网上搜索。
1X1030→Z[5I-4]
“ENDR(m)=”?
→Z[5I-3]
Z[5I-3]=0=>
1X1030→Z[5I-3]
“LENGTH(m)=”?
→Z[5I-2]
IfZ[5I-4]<1X1030OrZ[5I-3]<1X1030
Then“DEFLEXL(-1),R
(1)=”?
→Z[5I-1]:
IfEnd注意-1是减1
NEXT
“[MODE][1]=>
Stop!
”◢
Lb1T:
0→I:
ListX[I]+Rep(Z[5I-2])→ListX[I+1]
ListX[I+1]→Z
IfZ[5I-4]=Z[5I-3]AndZ[5I-4]=1X1030
Then0→S:
0→T:
Z[5I-2]→D
Prog“SUBQ2-84”:
Goto0:
IfEnd
IfZ[5I-4]=Z[5I-3]AndZ[5I-4]<1X1030
ThenProg“SUBQ2-83”:
√根号(Rep(Z[5I-2])÷
Abs(Z[5I-4]-1-Z[5I-3]-1))→A
Rep(Z[5I-2])+Ai→Z[5I-2]
Prog“SUBQ2-82”
Lb10:
T→Z[5I+1]]
Rep(U)→ListY[I+1]:
Imp(U)→ListFreq[I+1]
Next
“PEG-END(m)=”:
ListX[N+1]◢
“a-END(DMS)=”:
Z[5(N+1)]DMS◢
“X-END(m)=”:
ListY[N+1]◢
“Y-END(m)=”:
ListFreq[N+1]◢
“[MODE][4]=>
Lb1J:
”STABACKXY,NEW(0),OLD(≠0)=”?
→J
J≠0=>
Goto1
“STAn,X(m),<0=>
NO=“?
→S
0→Z[5N+6]:
S<0=>
IfFrac(S)=0AndS≤N+1
ThenListY[S]+ListFreq[S]i→Z[5N+6]
Else“STAY(m)=”?
→T:
S+Ti→Z[5N+6]:
Lb1B:
”BACKn,X(m),OLDa(0),<0=>
a=”?
→U
U=0=>
IfU<0:
Then“a-BACK(Deg)=”?
→Z[5N+8]:
Goto1:
IfS=UAndFrac(U)=0
Then”STAn=BACKn,REPEAT!
”GotoB:
IfFrac(U)=0ANDU≤N+1
ThenListY[U]+ListFreq[U]i→Z[5N+7]
Else”BACKY(m)=”?
→V:
U+Vi→Z[5N+7]:
Lb1S:
Arg(Z[5N+7]-Z[5N+6])→J
J<0=>
J+360→J:
J→Z[5N+8]
Lb11:
”PEG→XY
(1),XY→PEG(≠1)=”?
→Q
Q≠1=>
Goto2
Do:
”+PEG(m),<0=>
END=”?
→Z
Z<ListX[1]OrZ>ListX[N+1]=>
Break
Z<ListX[I]OrZ>ListX[I+1]=>
GotoN
Z-ListX[I]→L
IfZ[5I-4]=Z[5I-3]AndZ[5I-4]=1X1030
L→D
Prog“SUBQ2-85”:
Break:
IfZ[5I-4]=Z[5I-3]AndZ[5I-4]<1X1030
ThenProg”SUBQ2-83”
Prog“SUBQ2-85”:
Break:
Prog“SUBQ2-82”:
Lb1N:
LpWhileZ>0:
GotoE
Lb12:
”XJ(m),<0=>
X:
X<0=>
“YJ(m)=”?
Y
“JinNUM,<0=>
AUTO=”?
→I:
I>0=>
Goto3
Abs(X+Yi-ListY[1]-ListFreq[1]i→C
ListX[1]+C→Z
For1→SToN
Z>ListX[S]AndZ<ListX[S+1]=>
9000→C:
S→E
ForE→IToN
(ListY[I]+ListY[I+1])÷
2→U
(ListFreq[I]+ListFreq[I+1])÷
2→V
Abs(X+Yi-U-Vi)→D
IfD<C:
ThenD→C:
I→F:
Next:
F≥2=>
F-1→I
Lb13:
IfZ[5I-4]=Z[5I-3]AndZ[5I-4]=1X1030
Thentan(Z[5I])→T
(X+T2ListY[I]-T(ListFreq[I]-Y))÷
(T2+1)→U
U+(Y-(U+X)÷
T)i→U:
Z[5I]→T
U-ListY[I]-ListFreq[I]→F
Arg(F)→H:
H<0=>
H+360→H
1→J:
Abs(T-H)>150=>
-1→J
ListX[I]+JAbs(F)→Z
IfZ≥ListX[I]AndZ≤ListX[I+1]:
ThenGotoZ
ElseI+1>N=>
GotoZ:
I+1→I:
Goto3:
IfEnd:
ThenListY[I]+ListFreq[I]i→S
Z[5I]+90Z[5I-1]→A
Z[5I-4]→R:
S+R<A→V
X+Yi→U:
Arg(U-V)→F:
Abs(U-V)→D
V+R<F→U
Abs(U-S)→C:
sin-1(C÷
2÷
R)→E
Z[5I]+2Z[5I-1]E→T
ListX[I]+∏ER÷
90→Z
ListY[I+]+ListFreq[I]i→U
ListY[I+1]+ListFreq[I+1]→V
(U+V)÷
2→F
V-U→C:
Abs(C)→S:
Arg(C)→J
J+90Z[5I-1]→G
IfZ[5I-4]>Z[5I-3]:
Then2Z[5I-3]→R
Else2Z[5I-4]→R:
√(R2-S2÷
4)→T
F+T<G→O
Sin-1(S÷
R÷
2)→V:
∏VR÷
90→J
(Rep(Z[5I-2])-J)÷
J→P
X+Yi-O→V:
Arg(V)→J
O+R<J→C:
Abs(C-U)→S
ListX[I]+J(1-P)→Z
Do
X+Yi-U→C:
Abs(C)→S
Arg(C)→J:
J+360→J
J-T→J:
IfJ>220:
ThenJ-270→J:
-1→F
Else90-J→J:
1→F:
IfZ[5I-4]>Z[5I-3]
ThenπJ÷
180÷
(FZ[5I-1]L÷
A2+S-1)→E
ElseπJ÷
(-FZ[5I-1]L÷
A2+S-1)→E:
Z+E→Z
IfZ>ListX[I+1]:
ThenI+1→I:
Tan(T)(ImP(U)-Y)+ReP(U)-X→C
LpWhileAbs(C)>0.001
Fix4:
”f(Lp)=”:
C◢
Lb1Z:
Lb1E:
”QH2-8=>
END”
程序2:
SUBQ2-81
IfL<1X10-5:
Then0→U:
0→J:
Return:
L-L∧(5)÷
40÷
A∧(4)+L∧(9)÷
3456÷
A∧(8)-L∧(13)÷
599040÷
A∧(12)+L∧(17)÷
175472640÷
A∧(16)→O
L∧(3)÷
6÷
A2-L∧(7)÷
336÷
A∧(6)+L∧(11)÷
42240÷
A∧(10)-L∧(15)÷
9676800÷
A∧(14)+L∧(19)÷
3530096640÷
A∧(18)→U
O+Ui→U:
(L2÷
(2A2))r→J
Return
程序3:
SUBQ2-82
ImP(Z[5I-2])→A
A2÷
Z[5I-4]→L
Prog“SUBQ2-81”:
U→V:
J→E
ThenZ-ListX[I]+L→L
Prog“SUBQ2-81”:
U-V→O
ElseA2÷
Z[5I-3]→L
ListX[I+1]-Z+L→L
V-U→O:
IfEdn
Abs(O)→D:
Arg(O)→T
Abs(T-E)→S:
Abs(J-E)→T
Prog“SUBQ2-84”
程序4:
SUBQ2-83
(L÷
R)r→S:
2Rsin(s)→D
2S→T:
Prog”SUBQ2-84”
程序5:
SUBQ2-84
Z[5I]+Z[5I-1]S→S:
Z[5I]+Z[5I-1]T→T
T<0=>
T+360→T:
T>360=>
T-360→T
ListY[I]+ListFreq[I]i+D<S→U
程序6:
SUBQ2-85
IfQ=1:
Then“ai(DMS)=”:
TDMS◢
“Xi(m)=”:
Rep(U)◢
“Yi(m)=”:
Imp(U)◢
ElseZ<ListX[I]OrZ>ListX[I+1]=>
”OUTOFTheCURVE!
Arg(X+Yi-U)→H:
Abs(X+Yi-U)→D
IfH>180:
Then“JinLeft,NUM=”:
Else“JinRight,NUM=”:
“pPEG(m)=”:
z◢
“ap(DMS)=”:
“Xp(m)=”:
“YP(m)=”:
Imp(U)◢
“J→pDIST(m)=”:
D◢
IfAbs(Z[5N+6])>0:
ThenU→Z[5N+7]:
Prog“SUBQ2-87”:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 最新 Qh28 线元法 任意 路线 匝道 曲线 坐标 正反 程序