不等缓基本曲线任意点坐标计算程序(已知转角和方位角)-使用于全站仪放样(改编).pdfVIP

CAISOFX-5800计算程序

（不等缓基本型曲线任意点坐标计算程序）

主程序；ROAD

26→DimZ回车

“K(JD)”？K：“X(JD)”？X:“Y(JD)”？Y:“FWJ(ZH→JD)”？

M:“ZHUAN-JIAO”？O:？R:“LS1”？B:“LS2”？C回车

M+O→N回车

PrOg“ROAD-1”回车

“T1=”：S◢

“T2=”：T◢

“L=”：L◢

“LY=”：Q◢

“E=”：E◢

“K(ZH)=”：Z[1]◢

“K(HY)=”：Z[2]◢

“K(QZ)=”：Z[3]◢

“K(YH)=”：Z[4]◢

“K(HZ)=”：Z[5]◢

LbI0回车

“K”？P回车

PrOg“ROAD-2”回车

“X=”：F◢

1

“Y=”：G◢

“FWJ(K)=”：ZDMS◢

LbI1回车

“RW=”?H：”DL”?D:”DR”?V:IFH=0:THENGOTO0:IFEND

“XL=”：F+DCos(Z-H)→Z[11]◢

“YL=”：G+DSin(Z-H)→Z[12]◢

“XR=”：F+VCos(Z+H)→Z[11]◢

“YR=”：G+VSin(Z+H)→Z[12]◢

Goto0回车

子程序ROAD-1

IfO＜0：Then-1→W:EISel→W:IfEnd:WO→A回车

^^^^^

B2÷24÷R-B(4)÷2688÷R(3)+B(6)÷506880÷R(5)

→Z[6]回车

^^^^^

C2÷24÷R-C(4)÷2688÷R(3)+C(6)÷506880÷R(5)

→Z[7]回车

^^2^^

B÷2-B(3)÷240÷R+B(5)÷34560÷R(4)→Z[8]回

车

^^2^^

C÷2-C(3)÷240÷R+C(5)÷34560÷R(4)→Z[9]回

车

Z[8]+(R+Z[7]-(R+Z[6])Cos(A))÷Sin(A)→S回车

Z[9]+(R+Z[6]-(R+Z[7])Cos(A))÷Sin(A)→T回车

RA∏÷180+(B+C)÷2→L回车

2

L-B-C→Q回车

(R+(Z[6]+Z[7])÷2)÷Cos(A÷2)-R→E回车

K-S→Z[1]回车

Z[1]+B→Z[2]回车

Z[2]+Q÷2→Z[3]回车

Z[1]+L-C→Z[4]回车

Z[4]+C→Z[5]回车

子程序ROAD-2

X-SCos(M)→Z[21]:Y-Ssi