锥坡放样程序5800.doc

锥坡放样程序5800
崔存军
“N=”：？Z[14]（等分点数）： “T=”：？ Z[16]→（方位角）：“PIANJIAO” （桥梁偏角）：？→Z[16]
“POBI--1” （坡比1）：？→？Z[1]：“POBI-2=” （坡比2）：？Z[2]：“HJ=”（锥顶高程）
？Z[17]：“HD=” （锥底高程）：？Z[18]：Z[17]-Z[18]→Z[3]
“Q=1（L），Q=2（R）”：？→Q
IF Q=1：THEN GOTO L：ELSE ：GOTO R
LAB R
Z[15]+Z[16]→Z[4] GOTO 1

LAB L
Z[15]+Z[16]-180→Z[4]
LAB 1
“XO=”：？ →Z[6]：“YO=”：？ →Z[7]
“X-F=”：
Z[6]+Z[3]*Z[1]*COSZ[4]→Z[8]▲
Z[7]+Z[3]*Z[1]SINZ[4]→Z[9]▲
Z[3]*Z[2]/Z[14]→Z[10]：Z[3]*Z[1]/ Z[14]→Z[11]
FOR I=1 TO Z[14]
Z[8]+I*Z[10]*COS Z[16]→A （线路方向第I分点的X坐标）
Z[9]+I*Z[10]*SINT Z[16]→B （线路方向第I分点的X坐标）
Z[8]+（I+1）[10]COS Z[16]→C （线路方向第I分点的X坐标）
Z[9]+ （I+1）*Z[10]*SIN Z[16]→D （线路方向第I分点的X坐标）
Z[8]+（Z[14]）Z[10]COS Z[16]→Z[12]
Z[9]+（Z[14]）Z[10]SIN Z[16]→Z[13]
Z[12]+（I+1）*Z[11]*COS（Z[4]+180）→E（线路横向第I分点的X坐标）
Z[13]+ （I+1）*Z[11]*SIN（Z[4]+180）→F（线路横向第I分点的X坐标）
Z[12]+（I+2）*Z[11]*COS（Z[4]+180）→G（线路横向第I分点的X坐标）
Z[13]+ （I+2）*Z[11]*SIN（Z[4]+180）→H（线路横向第I分点的X坐标）
IF I＜Z[14]-2 ANG G≠C：THEN
LAB 2
（F-B）/（E-A）→M：（H-D）/（G-C）→N
B-MA→U：（D-NC）→V
（V-U）/（M-N）→X
M*X+U→Y
“POINT”：I▲
“X=”：X▲
“Y=”：Y▲
ELSE
“X-END”：Z[6]+Z[2]*Z[3]*COSZ[16]▲
“Y-END”：Z[7]+Z[2]*Z[3]*SINZ[16]▲
GOTO 0

IFEND
NEXT

本程序逻由公路桥梁桥台锥坡BASIC程序改编