任意三角网平差计算 [pc1500]

概要：To P";E:PRINT O$;V$;S$;:INPUT S(I):CLS 115 IF W$="N"OR I=1INPUT "Ms:a(mm)=";A,"b(ppm)=";B120 POKE R+4*I,C,E,10*A,10*B:NEXT I:END 160 "B"PRINT "M=";M;X$;:INPUT M165 CLS :FOR I=1TO X:N=PEEK (196+I):PRINT "X";STR$ I;S$;X(I);X$;:INPUT X(I)170 CLS :PRINT "Y";I;S$;Y(I);X$;:INPUT Y(I)175 CLS :PRINT D$;S$;N;X$;:INPUT

任意三角网平差计算 [pc1500],标签：工程测量规范,工程测量技术,http://www.67jzw.com
To P";E:PRINT O$;V$;S$;:INPUT S(I):CLS 
115 IF W$="N"OR I=1INPUT "Ms:a(mm)=";A,"b(ppm)=";B
120 POKE R+4*I,C,E,10*A,10*B:NEXT I:END 
160 "B"PRINT "M=";M;X$;:INPUT M
165 CLS :FOR I=1TO X:N=PEEK (196+I):PRINT "X";STR$ I;S$;X(I);X$;:INPUT X(I)
170 CLS :PRINT "Y";I;S$;Y(I);X$;:INPUT Y(I)
175 CLS :PRINT D$;S$;N;X$;:INPUT N:POKE 196+I,N
180 IF N=0THEN 200
185 CLS :FOR J=1TO N:Y=Z+J:GOSUB 3:R=R+Y:PRINT Y;":Aim P";PEEK R;X$;:INPUT E:POKE R,E
190 CLS :IF J>1PRINT "D";Y;S$;D(Y);X$;:INPUT D(Y)
195 CLS :NEXT J:Z=Z+N
200 NEXT I:Z=0:IF T=0THEN 230
205 FOR I=1TO T:P=R-3+4*I:PRINT "a";I;F$;PEEK P;X$;:INPUT E:POKE P,E
210 CLS :PRINT "To P";PEEK (P+1);X$;:INPUT E:POKE P+1,E
215 CLS :PRINT "a=";A(I);X$;:INPUT A(I)
220 CLS :PRINT "Ma=";PEEK (P+2)+PEEK (P+3)/100;X$;:INPUT C:POKE P+2,INT C,100*(C-INT C)
225 CLS :NEXT I
230 IF L=0END 
235 IF L>1PRINT B$;": ";W$;X$;:INPUT W$:IF W$<>"Y"AND W$<>"N"THEN 235
240 CLS :FOR I=1TO L:P=R-3+4*(T+I):PRINT "S";I;F$;PEEK P;X$;:INPUT E:POKE P,E
245 CLS :P=P+1:PRINT "To P";PEEK P;X$;:INPUT E:POKE P,E
250 CLS :PRINT "S=";S(I);X$;:INPUT S(I)
255 CLS :P=P+1:IF W$="Y"AND I>1POKE P,10*A,10*B:GOTO 270
260 PRINT "Ms:a(mm)=";PEEK P/10;X$;:INPUT A:POKE P,10*A
265 CLS :P=P+1:PRINT "b(ppm)=";PEEK P/10;X$;:INPUT B:POKE P,10*B
270 CLS :NEXT I:END 
310 "C"GOSUB 50:GOSUB 1:LPRINT "Point Direc":GOSUB 1:LPRINT :LPRINT TAB 7;"No. Aim":GOSUB 1
315 GOSUB 3:FOR I=1TO X:GOSUB 5:LPRINT "P";I;:IF N=0LF 2:GOTO 325
320 D(Z+1)=0:FOR J=1TO N:Y=Z+J:LPRINT TAB 6;Y;TAB 11;"P";STR$ PEEK (R+Y):NEXT J:POKE 196+X+I,Z:Z=Z+N
325 GOSUB 1:NEXT I:Z=0:GOSUB 1:LPRINT "tions":GOSUB 1:LPRINT "Reduced ";V$:GOSUB 39:LPRINT 
330 P=180/PI :R=R+D:IF T=0THEN 345
335 LPRINT O$;A$:FOR H=1TO T:Q=R+4*H:A=PEEK (Q-1)+PEEK Q/100
340 GOSUB 2:LPRINT " Ma=";A:COLOR 3*(A=0):G=A(H):LPRINT " a=";:GOSUB 16:COLOR 0:LPRINT :NEXT H:LPRINT 
345 R=R+4*T:LPRINT :IF L=0THEN 360
350 LPRINT O$;"Sides:":FOR H=1TO L:Q=R+4*H:A=PEEK (Q-1)/10:B=PEEK Q/10:GOSUB 2
355 LPRINT " a=";A;",b=";B:COLOR 3*(A+B=0):LPRINT " S=";S(H):COLOR 0:LPRINT :NEXT H:LPRINT 
360 GOSUB 3:FOR I=1TO K+U:GOSUB 5:IF N=0THEN 410
365 A=2*(I-K)-2:FOR J=1TO N:O=PEEK (R+Z+J):IF O<=KTHEN 405
370 B=2*(O-K)-2:IF I<=KTHEN 385
375 IF O<IAND VAL I$(A)<I-OLET I$(A)=STR$ (I-O)
380 IF O>IAND VAL I$(B)<O-ILET I$(B)=STR$ (O-I)
385 FOR H=JTO N:Q=PEEK (R+Z+H):IF Q<=KTHEN 400
390 IF Q<OAND VAL I$(B)<O-QLET I$(B)=STR$ (O-Q)
395 C=2*(Q-K)-2:IF Q>OAND VAL I$(C)<Q-OLET I$(C)=STR$ (Q-O)
400 NEXT H
405 NEXT J:X(0)=X(0)+1:Z=Z+N
410 NEXT I:Z=0:FOR I=1TO U:N=2*I-2:C=VAL I$(N)*2+1:IF I=1LET I$(0)="0":GOTO 420
415 I$(N)=STR$ (VAL I$(N-1)+C)
420 I$(N+1)=STR$ (VAL I$(N)+C+1):NEXT I:M=1:G=2*U:DIM N(INT (VAL I$(N+1)/10),9),L(G)
425 FOR I=1TO K+U:W=0:GOSUB 5:GOSUB 6:GOSUB 3:IF N=0THEN 445
430 FOR J=1TO N:O=PEEK (R+Z+J):GOSUB 7:GOSUB 8:F=C-D(Z+J):IF F<0LET F=F+360

上一页  [1] [2] [3]  下一页

上一篇：国际主要椭球参数表