4850-5800高斯5点通用公式正反算(验证正确)适用于各种线形概述.doc

Gauss-Legendre 5点通用公式坐标正反算CASIOfx-4850P程序 一、(4850程序)正反算主程序ZFS) Deg( 1.KL(XY：2.XY(KL：N：IX0：SY0：K0：GF0：HKN：PR0：RRN：QQ(-Z+Y):D=(P-R)÷(2(H-)PR): M=180÷π:N=1(Goto1：≠(Goto2( Lbl1：{KL}：KL：J=Abs(K-)：ProgSUB：X=:XY=:Y◢FWJ=:F-90→DMS◢Goto1( Lbl2：XY：Z[2]=X：Z[3]=YProgSUB2：K=:+J◢L=:L◢Goto2( 2.正算子程序(SUB) A=0.1184634425:B=0.2393143352:Z[4]=0.2844444444:C=0.046910077:E=0.2307653449:Z[1]=0.5: X=I+J(Acos(G+QCMJ(1÷P+CJD))+Bcos(G+QEMJ(1÷P+EJD))+Z[4]cos(G+QZ[1]JM(1÷P+Z[1]JD))+Bcos(G+Q(1-E)JM(1÷P+(1-E)JD))+Acos(G+Q(1-C)JM(1÷P+(1-C)JD))):Y=S+J(Asin(G+QCJM(1÷P+CJD))+Bsin(G+QEJM(1÷P+EJD))+Z[4]sin(G+QZ[1]JM(1÷P+Z[1]JD))+Bsin(G+Q(1-E)JM(1÷P+(1-E)JD))+Asin(G+Q(1-C)JM(1÷P+(1-C)JD)))：F=G+QJ(1÷P+JD) +90：X=X+LcosFY=Y+LsinF( 3. 反算子程序(SUB) J=Abs((Y-S)cos(G-90)－(X-I)sin(G-90))：L=0：Lbl0：ProgSUB：L=(Z[3]-Y)cos(G-90+QJ(1÷P+JD))-(Z[2]-X)sin(G-90+QJM(1÷P+JD))：AbsL1E-6(Goto1：≠(J=J+L：Goto0(Lbl1：L=0：ProgSUB1：L=(Z[3]-Y)÷sinF(主程序ZFS)反算时需输入里程以判断属于哪段线元 Deg( 1.KL(XY：2.XY(KL：N180÷π:N=1(Goto1：≠(Goto2( Lbl1：{L}：L：DATA: D=(P-R)÷(2(H-○)PR):J=Abs(K-○)：ProgSUB：X=:XY=:Y◢FWJ=:F-90→DMS◢Goto1( Lbl2：XYT：DATA: D=(P-R)÷(2(H-○)PR):Z[2]=X：Z[3]=YProgSUB2：K=:+J◢L=:L◢Goto2( 2.正算子程序(SUB)----与无数据库版相同 3.反算子程序(SUB)----与无数据库版相同 4.数据库(DATA)---锦赤铁路 T≤172554.99(I=4638500.956:S=536490.9244:○=167000:G=-77°50′0.9″:H=172554.99:P=10∧45:R=10∧45:Q=0:Goto1◣T≤172624.99(I=4639671.6805:S=531060.7017:○=172554.99:G=-77°50′0.9″:H=172624.99:P=10∧45:R=2000:Q=-1:Goto1◣T≤172840.8458(I=4639686.033:S=530992.19:○=172624.99:G=-78°50′10.53″:H=172840.8458:P=2000:R=2000:Q=-1:Goto1◣T≤172910.8458(I=4639716.328:S=530778.5764:○=172840.8458:G=-85°01′12.26″:H=172910.8458:P=2000:R=10∧45:Q=-1:Goto1◣T≤177000(I=4639721.59:S=530708.7755:○=172910.8458:G=-86°01′21.89″:H=177000:P=10∧45:R=10∧45:Q=0:Goto1◣( Lbl1:T167000(CHAO XIAN◢≠(T177000(CHAO XIAN◢◣ 三、(5800程序)正反算主程序ZFS) Deg( 1.KL(XY：2.XY(KL：N：X0：Y0：K0：F0：KN：R0：RN：Q(-Z+Y):(P-R)÷(2(H-○)PR)→D:180÷π→M:N=2(Goto2( Lbl1：K:?L：Abs(K-)→J：ProgSUB：X=:XY=:Y◢FWJ=:F-90?DMS◢ Goto1( Lbl2：X:?Y：Z[2]：Z[3]：ProgSUB2：K=:+J→K◢ L=:L◢Goto2( 2.正算子程序(S