平曲线 计算器程序学习.doc

PAGE4 / NUMPAGES4 坐标正反算计算器程序 1. 里程坐标正算及放样主程序(命名为YTZBZS) “XCZ(N)=”? U: “YCZ(E)=”?V Lbl 0: “LICHENG=”? K: “ZHONG-PIANJU=”? P:P→Z[1]:90°→B Prog “SUB-YTDATA” “X(N)=”:N+ Z[1]cos(F+B) →X◢ “Y(E)=”:E+ Z[1]sin(F+B) →Y◢ “QXFWJ=”: FDMS◢ Pol(X-U,Y-V) “DIST(M)=”:I◢ J0=J+360→J:“BEAR(DMS)=”:JDMS◢ Goto 0 XCZ(N)——变量U，测站X坐标（北坐标） YCZ(E)——变量V，测站Y坐标（东坐标） K——输入放样点的里程 P——输入放样点偏距（线路前进方向左负右正），本程序以定线为基准。 B——取与线路前右夹角为正，做今后横通道和涵洞放样升级备用，此处暂设定为90度。 2. 反算里程和中线的偏距主程序(命名为YTZBFS) Lbl 1: “X(N)=”? X: “Y(E)=”?Y: “K0=”?K Lbl 0:Prog “SUB-YTDATA” Pol(X-N,Y-E):Icos(J-F)→S:K+S→K Abs(S)0.001=Goto 0 “LICHENG=”: K◢ Isin(J-F)→P “ZHONG-