d STD DEV3.BAS :n ******************************** `x * * * STD DEV3.BAS * * (VERSION 3.0) * * A SIMPLE STANDARD DEVIATION * * CALCULATOR FOR POPULATION OR * * SAMPLE STATISTICAL ANALYSIS. * D * * j * WRITTEN BY RICHARD B. EBLING * * OF SALT LAKE CITY,UT * * REVISED 1/18/88 * * * * DONATED TO THE PUBLIC DOMAIN * ( ******************************** N * NOTE:TO CHANGE MAXIMUM NUMBER* t * NUMBER OF CASES, RUN2000. * ******************************** MC99 "1020 ,B(MC):RP0:***INSTRUCTIONS*** #6" HIS PROGRAM CALCULATES AND DISPLAYS STANDARD DEVIATIONS FOR SETS OF" t@" DATA. TANDARD DEVIATIONS MAY BE CALCULATED AS THE DEVIATION OF A" J" POPULATION [USING 1/N] OR AS THE" T" DEVIATION OF A SAMPLE [USING 1/N-1]. FTER SELECTING DEVIATION TO" -^" BE CALCULATED, ENTER 'N' OF CASES AT PROMPT, THEN"; Zh" ENTER VALUE OF EACH CASE AT PROMPT." cr"" |"O YOU WANT CALCULATION BASED ON" " 'N VALUES' (P OPULATION) OR" " 'N - 1' VALUES (S AMPLE)
";P$
P$"P"P1:440
P$"S"P2:440 ;
"OU MUST ENTER OR
":380 b
MLMC1:"OW MANY VALUES DO YOU"
" WISH TO ENTER (N<";ML;")"
N:NMC" N MUST BE LESS THAN";ML:460
N2" HAT'S SILLY. NTER 'N' OF 2 OR MORE.":460 )"ALCULATING STANDARD DEVIATION BASED ON ",N;" VALUES." P***DATA ENTRY TAKES PLACE HERE*** " NTER VALUES (NON-NUMERIC ENTRIES WILL BE COUNTED AS ZERO'S)" I1N:""I" = ":"ALUE #";B(I):I S0:I1N:SSB(I):I " LL VALUES ENTERED." " ...THINKING..." H&XSN:SX0:I1N:SXSX(B(I)X)2:I g0P2SD(SX(N1)).5:600 x:SD(SXN).5 DSD(SXN).5 N***SELECT PRINTER OUTPUT*** X" O YOU WANT RESULTS PRINTED";:" (Y/N)";PR$ b940 l"NTERMEDIATE RESULTS:" Mv" SX(I)=SQUARE OF THE DIFFERENCE BETWEEN THAT VALUE AND THE MEAN" :" V-X = THE DIFFERENCE BETWEEN THAT VALUE AND THE MEAN": " #";7)"VAL";16)"SX(I)";26)"V-X": I1N:I;6)((1000B(I).5)1000); 15)((1000((B(I)X)2).5)1000);" "; 525)((1000(B(I)X).5)1000) <I e960:"IT [Š] TO CONTINUE" |C$:C$(32)710 940 " ̠:":***OBVIOUS*** 980 ""9)"-" 2)" N";9);"X"14)" STD. DEV.": )2)N;7)((1000X.5)1000);17)(1000SD.05)1000"" H960:****CLOSE PRINTER*** y"IEW RESULTS AGAIN (Y/N)";R2$:R2$"Y"540 "ONTINUE Y/N";C$:C$"N!"920 *C$"N"850 4J1MC:B(J)0:J >RPRP1:RP380,380,380,380,380,842,380,844,380,380,846 5J"HAT'LL MAKE 6 TIMES THROUGH THIS THING.":380 bL"OW, YOU'RE REALLY WORKING HARD!":380 N"OY, YOU MUST HAVE A LOT OF ENERGY. F YOU'D LIKE TO TAKE A SHORT"; O" BREAK, THOUGH, ɠWON'T MIND. NEED TO"; /P" STRETCH MY CIRCUITS A LITTLE--THESE FIGURES CAN BE REAL CIRCUIT-BREAKERS" 8Q380 NR***ABUSE USER*** yS"RE YOU SURE...Y/N";Q1$:Q1$"N"380 \"RE YOU SURE...Y/N";Q2$:Q2$"N"380 f"ON'T YOU HAVE SOME MORE CALCULATIONS TO DO..Y/N";Q3$:Q3$"Y"380 Dp"OULDN'T IT BE A LOT EASIER JUST TO KEEP ON..Y/N";Q4$:Q4$"Y"380 z" KAY. HANKS FOR USING 3. EE ME LATER.":KK11000:KK "(Y THE WAY, TO ESCAPE QUICKLY, HIT 'N!' AT THE FIRST EXIT PROMPT.)" "SYS64738":"HIT