锥坡放样程序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]+