全线坐标正反算程序9.docVIP

线路中边桩任意里程坐标正、反算改编程序（CASIO fx-800P）1. 正算子程序(SUB1) ?????????????????????????????????????????????????????? A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+57.2958QKW(1/P+KWD))+Bcos(G+57.2958QLW(1/P+LWD))+Bcos(G+57.2958QFW(1/P+FWD))+Acos(G+57.2958QMW(1/P+MWD)))：Y=V+W(Asin(G+57.2958QKW(1/P+KWD))+Bsin(G+57.2958QLW(1/P+LWD))+Bsin(G+57.2958QFW(1/P+FWD))+Asin(G+57.2958QMW(1/P+MWD)))：F=G+57.2958QW(1/P+WD)+90：X=X+Zcos(F-90+T)：Y=Y+Zsin(F-90+T)2. 反算子程序(SUB2)??W=Abs((Y-V)cos(G-90)-(X-U)sin(G-90))：Z=0：Lbl 0：Prog SUB1：L=(G-90)+57.2958QW(1/P+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ1E-6=Goto1：≠W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog SUB1：Z=(J-Y)÷sinF二数据库程序（ＳＪＫ主程序）???? Lb1 4：1.SZ = XY：2.XY = SZ：｛NS｝：S＝＞O=：U=：V=：G=：H=512.843：P=：R=：Q=1： Goto0Δ←┘() S＜75884.442＝＞O=：U=：V=： G=：H=：P=：R=：Q=0： Goto0Δ←┘() S＜76044.442＝＞O=：U=：V=： G=：H=：P=：R=：Q=-1： Goto0Δ←┘() S＜76392.111＝＞O=：U=：V=： G=：H=：P=：R=：Q=-1： Goto0Δ←┘() S＜76552.111＝＞O=：U=：V=： G=：H=：P=：R=：Q=-1： Goto0Δ←┘() S＜78271.813＝＞O=：U=：V=： G=：H=：P=：R=：Q=0： Goto0Δ←┘() S＜78431.813＝＞O=：U=：V=： G=：H=：P=：R=：Q=-1： Goto0Δ←┘() S＜78810.831＝＞O=：U=：V=： G=：H=：P=：R=：Q=-1： Goto0Δ←┘() S＜78970.831＝＞O=：U=：V=： G=：H=：P=：R=：Q=-1： Goto0Δ←┘() S＜79284.977＝＞O=：U=：V=： G=：H=：P=：R=：Q=0： Goto0Δ←┘() S＜79444.977＝＞O=：U=：V=： G=：H=：P=：R=：Q= 1： Goto0Δ←┘() S＜79607.747＝＞O=：U=：V=： G=：H=：P=：R=：Q= 1： Goto0Δ←┘() S＜79767.747＝＞O=：U=：V=： G=：H=：P=：R=：Q= 1： Goto0Δ←┘() S＜79927.747＝＞O=：U=：V=： G=：H=：P=：R=：Q=-1： Goto0Δ←┘() S＜80152.430＝＞O=：U=：V=： G=：H=：P=：R=：Q=-1： Goto0Δ←┘() S＜80312.430＝＞O=：U=：V=： G=：H=：P=：R=：Q=-1： Goto0Δ←┘() S＜80472.430＝＞O=：U=：V=： G=：H=：P=：R=：Q= 1： Goto0Δ←┘() S＜80764.750＝＞O=：U=：V=： G=：H=：P=：R=：Q= 1： Goto0Δ←┘() S＜80924.750＝＞O=：U=：V=： G=：H=：P=：R=：Q= 1： Goto0Δ←┘() S＞O=：U=：V=： G=：H=：P=：R=：Q= 1： Goto0Δ←┘() S＜75868.894＝＞O=：U=：V=： G=：H=：P=：R=：Q=0： Goto0Δ←┘() S＜76028.894＝＞O=：U=：V=： G=：H=：P=：R=：Q=-1： Goto0Δ←┘() S＜76304.04＝＞O=：U=：V=：G=331-58-31.95：H=：P=：R=：Q=-1： Goto0Δ←┘() S＜76464.04＝＞O=：U=：V=：G=314-27-33.35：H=：P=：R=：Q=-1： Goto0Δ←┘() S＜78325.868＝＞O=：U=：V=：G=309-21-58.