积木法 002.doc

Z-JSMS （运算模式）
Fix 3：55→Dimz
“1-ZS,2-F1,3-FS”：”4-F2,5-ZQ,6-ZM”：Lbl 0：”MS”?Z：Z→Z[50]
If Z≤2：Then Goto 1：Else If Z≤4： Then Goto2： Else Goto3：IfEnd：IfEnd
Lbl 1：”P”?P：”BZ”?D：”BJ”?W：Prog”ZA”：”X=”：Locate5,4,X▲
”Y=”：Locate6,4,Y▲ ”F=”：Locate6,4,F▲
If Z<2：Then Goto1：Else Prog”JS”：Prog”ZC”：”Z=”：H+G→H▲
Goto1：IfEnd
Lbl 2：”X”?X：”Y”?Y：”P”?P：Prog”ZF”：”P=”：Locate5,4,P▲
”BZ=”：Locate6,4,D▲
If Z<4：Then Goto2：Else “ZP”?Q：Prog”ZC”:Prog”JB”:Goto2:IfEnd
Lbl 3：”P”?P：Prog”JS”：”ZO=”：Locate5,4,H▲
If Z<6：Then Goto3：Else “BZ”?D：Prog”ZC”
“U=”:M+N▲
“Z=”:H+G▲
Goto3:IfEnd

ZS
Fix 4：55→Dimz
P-A→S:(Q-E)÷L→I
B+∫(cos(F+X(2E+XI)×90÷π),0,S)→U
C+∫(sin(F+X(2E+XI)×90÷π),0,S)→V
F+S(2E+SI)×90÷π→F
U+Dcos(F+W) →X
V+Dsin(F+W) →Y
Return

ZF
Fix 4：55→Dimz
Lbl 0:Prog”ZA”
Pol(X-U,Y-V):Icos(F-J)→S:P+S→P
Abs(S)>0.0001 =>Goto 0
Isin(J-F)→D
Return

ZA
Fix 4：55→Dimz
1→O :11830→A:5970.011→B:5346.101→C:313d18’50.6”→F:0→E:0→Q:0.484→L
:If P≤A+L:Then Goto 1:Else
1→O :11830.484→A:5970.343→B:5345.749→C:313d18’50.6”→F:0→E:1÷253→Q:114→L
:If P≤A+L:Then Goto 1:Else
1→O:11944.484→A:6054.357→B:5269.074→C:326d13’21.3”→F:1÷253→E:1÷253→Q:472.184→L
:If P≤A+L:Then Goto 1:Else
1→O:12188.668→A:6287.831→B:5244.008→C:21d31’18.7”→F:1÷253→E:0→Q:114→L
:If P≤A+L:Then Goto 1:Else
1→O:12302.668→A:6386.207→B:5301.102→C:34d25’49.4”→F:0→E:0→Q:461.997→L
:If P≤A+L:Then Goto 1:Else
1→O:12764.665→A:6767.268→B:5562.317→C:34d25’49.4”→F:0→E:1÷880→Q:90→L
:If P≤A+L:Then Goto 1:Else
1→O:12854.665→A:6840.615→B:5614.455→C:37d21’37”→F:1÷880→E:1÷880→Q:354.079→L
:If P≤A+L:Then Goto 1:Else
1→O:13028.744→A:6967.664→B:5733.044→C:48d41’39.7”→F:1÷880→E:0→Q:90→L
:If P≤A+L:Then Goto 1:Else Prog”Z-JSMS”
Lbl 1:Prog”ZS”
Return
(左转 O为-1 右转为1, A起点里程，B起点X，C起点Y，F起点方位角，E起点半径（倒数），Q终点半径（倒数）)
直线都 为0，缓和与直线或缓和相接为0 ，与圆相接为 1/R。圆 都为 1/R

JS （竖曲线）
55→Dimz:Fix2
Prog”JD3”
Lbl 8:Z[9]→N:Z[11]→U:Z[12]→V:Z[13]→H:H×Abs(U-V)÷200→G:If P<N:ThenU→I:N-G→M:IfM>P:Then P→M:IfEnd:Else V→I:N+G→M:If M<P:Then P→M:IfEnd:IfEnd:(P-M)^2÷2÷H→J:If U-V>0:Then –J→J:IfEnd:Z[10]+(P-N)×I÷100+J→H
Return

ZC(当内侧超高大于路肩坡度时，内侧路肩跟着超高)
Prog”JD1”
Prog”ZD4”
P-A→I:I÷L×(T-S)+S→Z[23]:
If OD<0:Then If Abs(D)≥N: Then N×Z[23]+ (Abs(D)-N)×U→G: Else Abs(D)×Z[23]→G
:IfEnd: Else If Abs(D) ≥N: Then If U>Z[23]: Then N×Z[23]+ (Abs(D)-N)×U →G: Else
Abs(D)×Z[23]→G:IfEnd: Else Abs(D)×Z[23]→G:IfEnd:IfEnd
Return

JB （边坡计算）
Z[27]→D
H+G-Q→H:IfH<0:Then2→I:”W=”:Abs(H)→H▲
Else 3→I:”T=”:H-Z[21]-Z[22] ▲ IfEnd
Prog”JD”:H÷V→G:IfG<1:ThenM×G→I:ElseIfG<2:ThenM+N×(G-1)→I
:ElseM+N+Z[6]×(G-2)→I:IfEnd:IfEnd
“BP=”:Abs(D)-V×I-Z[7]×Int(G)-U-Z[5] ▲
Return
(I=2时为挖，，I=3时为填)

JD （边坡数据）
0.5→Z[21]
If I=2:Then2.1→Z[5]:0.5→M:0.75→N:1→Z[6]:8→V:1→Z[7]:
ElseI=3：0.5→Z[5]:1.5→M:1.75→N:2→Z[6]:8→V:0→Z[7]
If OD<0:Then Z[21]×M×Z[51]→Z[22]:ElseZ[21]×M×Z[23]→Z[22]
:IfEnd
Return
Z[21] 为路面结构层厚度，，
挖方时：Z[5] 边沟与平台宽， M 一级边坡，N 二级边坡，Z[6]三级边坡，
V最大挖方高度， Z[7]平台字宽
填方时：Z[5]超填宽度， M 一级边坡，N 二级边坡，Z[6]三级边坡，V最大填方高度，
Z[7]平台字宽

JD1 （路基宽参数）
55→Dimz:Fix 4
If P≤12342:Then Goto1:Else If P≤1212345:Then Goto2: Else If P≤12454:Then Goto3: Else If P≤12940:Then Goto: Else If P≤13040:Then Goto5: Else If P≤13043:Then Goto6: ElseGoto7:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd （分介，路基宽变化点分开）
Lbl 1:7→N:1.5→M:Goto9
Lbl 2:8→N:0.5→M:Goto9
Lbl 3:12345→Z[48]:12445→Z[49]:-3→Z[45]:8→Z[44]:
(P-Z[48])÷(Z[49]-Z[48])×Z[45]+Z[44]→N:0.5→M:Goto9
Lbl 4:5→N:0.5→M:Goto9
Lbl 5:12940→Z[48]:113040→Z[49]:3→Z[45]:5→Z[44]:
(P-Z[48])÷(Z[49]-Z[48])×Z[45]+Z[44]→N:0.5→M:Goto9
Lbl 6:8→N:0.5→M:Goto9
Lbl 7:7→N:1.5→M:Goto9
Lbl 9:N→N:M→M:N→Z[46]:D→Z[27]
IfZ[50]>5:ThenZ[27]→D:ElseIfD>M+N:ThenM+N→D:ElseIfD>-M-N:
ThenD→D:Else-M-N→D:IfEnd:IfEnd:IfEnd
Return
（N 1÷2路面宽，，M路肩宽，，）

JD3 （竖曲线参数）
If P≤1291.6:Then Goto1:Else If P≤12763:Then Goto2: Else If P≤13301.8:Then Goto3: Else If P≤13772.8：Then Goto4: Else Goto 5 :IfEnd: IfEnd: IfEnd: IfEnd
Lbl 1:12080→Z[9]:4.61→Z[10]:0→Z[11]:0.72→Z[12]:31000→Z[13]:Goto8
Lbl 2:12700→Z[9]:9.074→Z[10]:0.72→Z[11]:-0.33→Z[12]:12000→Z[13]:Goto8
Lbl3:13240→Z[9]:7.292→Z[10]:-0.33→Z[11]:1.73→Z[12]:6000→Z[13]:Goto8
Lbl 4:13670→Z[9]:14.731→Z[10]:1.73→Z[11]:-0.84→Z[12]:8000→Z[13]:Goto8
Lbl 4:13950→Z[9]:12.379→Z[10]:-0.84→Z[11]:-0.02→Z[12]:15000→Z[13]:Goto8
Return

（Z[9]为交点里程，Z[10]交点高程，Z[11]第一纵坡，Z[12]第二纵坡，Z[13]曲线半径）

ZD4 （L长要改为每个分段长）
-0.03→U:U→Z[51]
If P≤11830.484: Then Goto A: Else If P≤11944.484: Then Goto B:
Else If P≤12188.668:Then Goto C: Else If P≤12302.668: Then Goto D:
Else If P≤12764.665: Then Goto E: Else If P≤12854.665: Then Goto F:
Else If P≤13028.744: Then Goto G: Else If P≤12302.668: Then Goto H:
Else If P≤12302.668: Then Goto I: Else If P≤12302.668: Then Goto F:
Else If P≤12302.668: Then Goto K: Else If P≤12302.668: Then Goto L:
Else Prog”Z-JSMS” :IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd
Lbl A:If D<O:Then -0.02→S:-0.02→T:Else -0.02→S:-0.02→T:IfEnd:Goto 1
Lbl B:If D<O:Then -0.02→S:0.02→T:Else -0.02→S:-0.02→T:IfEnd:Goto 1
Lbl C:If D<O:Then 0.02→S:0.08→T:Else -0.02→S:-0.08→T:IfEnd:Goto 1
Lbl D:If D<O:Then 0.08→S:0.08→T:Else -0.08→S:-0.08→T:IfEnd:Goto 1
LblE:If D<O:Then 0.08→S:0.02→T:Else -0.08→S:-0.02→T:IfEnd:Goto 1
Lbl F:If D<O:Then 0.02→S:-0.02→T:Else -0.02→S:-0.02→T:IfEnd:Goto 1
Lbl G:If D<O:Then -0.02→S:-0.02→T:Else -0.02→S:-0.02→T:IfEnd:Goto 1

Lbl H:If D<O:Then -0.02→S:0.02→T:Else -0.02→S:-0.02→T:IfEnd:Goto 1
Lbl I:If D<O:Then 0.02→S:0.04→T:Else -0.02→S:-0.04→T:IfEnd:Goto 1
Lbl J:If D<O:Then 0.04→S:0.04→T:Else -0.04→S:-0.04→T:IfEnd:Goto 1
Lbl K:If D<O:Then 0.04→S:0.02→T:Else -0.04→S:-0.02→T:IfEnd:Goto 1
Lbl L:If D<O:Then 0.02→S:-0.02→T:Else -0.02→S:-0.02→T:IfEnd:Goto 1
Lbl 1:Prog”ZC”

(S为起点横坡，T为终点横坡，U为路肩横坡) 在外侧路肩与内侧路肩相同横坡时加点。。。