资兴至五里牌公路坐标高程正反算及边坡放样程序 Fx-5800P计算器 一、主程序 Norm 1:Deg:11→DimZ “ Zs1,Fs2,BP3= ” ?N: If N>1:Then Goto 2:IfEnd 坐标正算 Lbl 1: “ Zhao=”?K:“ Li= ” ?L:Prog “ ZX-WN” Cls:Goto 1 Lbl 2: If N=3:Then “ Zhao=”?K:“ LPJ=” ?S:“ PJ= ” ?M: IfEnd Lbl 3: “Xi=” ?X: “Yi=” ?Y: “ Zi= ” ?Z输入观测点的坐标及高程 Lbl 4: (X-U)cos(G)+(Y- V)sin(G) →J If N=2 And Abs(J)>0.001:Then K+J →K: Prog “ ZX-WN”:Goto 4:IfEnd (X-U)sin(G)-(Y- V)cos(G)