MediaWiki:Sitenotice:
2025-12-29: I have restored the wiki to a backup from the end of November. Starting in September 2025, accesses went form the 800MB-1.2GB range per month to 26GB in September, 42GB in October, and 70GB in November with most accesses originating from China. As soon as I realized what was causing all the access problems in November, I shut it down (it had reached 36GB by then) behind a password/login screen. The database had gotten corrupted, and I tried a restore from just before the spike in access but that didn't work. Thus, end of November. I still have the other daily backups so if there were any important additions in December, let me know and maybe they can be recovered. - Allen H.
STATS
Jump to navigation
Jump to search
100 DIM A(300) 110 I=1 120 CLS: PRINT @5,"STATISTICAL ANALYSIS" 130 PRINT @64,"ENTER NUMBER,";CHR$(13);" END BY 1E30";: INPUT A(I) 140 IF A(I)=1E+30 THEN 160 150 I=I+1: PRINT @111,"": PRINT : GOTO 130 160 IF I>3 THEN 180 170 PRINT"NUST BE 3 ENTRIES OR GREATER": FOR K=1 TO 1000: NEXT X: GOTO 110 180 CLS: PRINT"SORTING"; 190 C=0 200 FOR J=1 TO I-2 210 PRINT"."; 220 IF A(J+1)>=A(J) THEN 240 230 B=A(J): A(J)=A(J+1): A(J+1)=B: C=1 240 NEXT J 250 IF C=1 THEN 190 260 CLS: LP=3 270 PRINT "LIST OF ORDERED DATA" 280 PRINT " N VALUE" 290 T=0: TS=0 300 FOR J=1 TO I=1 310 T=T+A(J): TS=TS+A(J)^2 320 PRINT J;TAB(8);A(J); 330 IF J=INT(I/2) THEN PRINT "(MEDIAN)": GOTO 350 340 PRINT 350 GOSUB 580 360 NEXT J 370 GOSUB 600 380 CLS: LP=3 390 PRIMT"FREQUENCY DISTRIBUTION" 400 PRINT " # #TIMES" 410 C=1: LC=1: N=1 420 FOR J=1 TO I-1 430 IF A(J+1)=A(J) THEN C=C+1: GOTO 470 440 PRINT A(J),C: IF C>LC THEN LC=C: N=A(J) 450 GOSUB 580 460 C=1 470 NEXT J 480 GOSUB 600 490 CLS 500 PRINT "SUM OF ENTRIES=";T 510 PRINT "MEAN";T/(I-1) 520 PRINT "SUM OF SQUARES=";TS 530 V=(TS/(I-1))-(T/(I-1))^2 540 PRINT "VARIANCE";V 550 PRINT "STAN DEVIATION=";SQR(V) 560 GOSUB 600 510 GOTO 110 580 LP=LP+1: IF LP<>15 THEN 630 590 LP=1 600 PRINT "PRESS ANY KEY TO CONTINUE" 610 A$=INKEY$: IF AS="" THEN 610 620 CLS 630 RETURN