单一附合导线平差计算[PC1500].docVIP

单一附合导线平差计算[PC1500] 由本人在网络上收集整理 2 W=1+G+5E-7:D$=STR$ (INT W-1):G$=STR$ (W-INT W) 3 IF LEN D$lt;3LET D$= +D$:GOTO 3 4 IF LEN G$lt;8LET G$=G$+0:GOTO 4 5 G$=D$+ +MID$ (G$,3,2)+ +MID$ (G$,5,2)+.+MID$ (G$,7,2):RETURN 6 Z=Z+B(I)-180:Z=Z-(SGN Z+SGN (Z-360))*180:RETURN 7 X(I)=X(I-1)+S(I)*C:Y(I)=Y(I-1)+S(I)*S:RETURN 8 ACLEAR :INPUT M=;U,MB=;M,Ms:a(mm)=;A,b(ppm)=;B,SIDES=;N 10 DIM B(N),S(N),Q(N),X(N),Y(N):S$=######.###:W$=####.##:WAIT 0 15 INPUT Xa=;X(0),Ya=;Y(0),a(I)=;H,Xb=;X,Yb=;Y,a(II)=;L,TOTAL Mp=;F 20 T=N+1:P=180/PI :K=5E-3:IF F=0THEN 45 25 DIM P(F),F(F),G(F),H(F),I(F),J(F),K(F),C(F),D(F)