1、 锥坡放样程序 5800崔存军“N=”：？Z14（等分点数）： “T=”：？ Z16（方位角）：“PIANJIAO” （桥梁偏角）：？Z16“POBI-1” （坡比 1）：？Z1：“POBI-2=” （坡比 2）：？Z2：“HJ= ”（锥顶高程）？Z17 ：“HD=” （锥底高程）：？Z18：Z17-Z18Z3“Q=1（L） ，Q=2（R） ”：？QIF Q=1：THEN GOTO L：ELSE ：GOTO RLAB RZ15+Z16Z4 GOTO 1LAB L Z15+Z16-180Z4LAB 1“XO=”：？ Z6：“YO=”：？ Z7“X-F=”：Z6+Z3*Z1*COSZ4Z8Z7+Z
2、3*Z1SINZ4Z9Z3*Z2/Z14 Z10：Z3*Z1/ Z14Z11FOR I=1 TO Z14Z8+I*Z10*COS Z16A （线路方向第 I 分点的 X 坐标）Z9+I*Z10*SINT Z16B （线路方向第 I 分点的 X 坐标）Z8+（I+1）10COS Z16C （线路方向第 I 分点的 X 坐标）Z9+ （I+1）*Z10*SIN Z16D （线路方向第 I 分点的 X 坐标）Z8+（Z14）Z10COS Z16Z12Z9+（Z14）Z10SIN Z16Z13Z12+（I+1）*Z11*COS（Z4+180）E（线路横向第 I 分点的 X 坐标）Z13+ （I+1）*
3、Z11*SIN（Z4+180）F （线路横向第 I 分点的 X 坐标）Z12+（I+2）*Z11*COS（Z4+180）G （线路横向第 I 分点的 X 坐标）Z13+ （I+2）*Z11*SIN（Z4+180）H（线路横向第 I 分点的 X 坐标）IF IZ14-2 ANG GC：THEN LAB 2（F-B）/（E-A）M：（H-D）/ （G-C ）NB-MAU：（D-NC）V（V-U） /（M-N ）XM*X+UY“POINT”：I“X=”：X“Y=”：YELSE “X-END”：Z6+Z2*Z3*COSZ16“Y-END”：Z7+Z2*Z3*SINZ16GOTO 0IFEND NEXT本程序逻由公路桥梁桥台锥坡 BASIC 程序改编
