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)