|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 512 (0x200)
Types: TextFile
Names: »STAT.BAS«
└─⟦016ef1d53⟧ Bits:30005210 BASIC Demo
└─ ⟦this⟧ »STAT.BAS«
10 PRINT "THIS PROGRAM CALCULATES THE MEAN AND STANDARD" 20 PRINT " DEVIATION OF INPUT DATA" 30 S=0:V=0 40 INPUT "NUMBER OF VALUES";N 50 FOR I=1 TO N 60 INPUT A(I) 70 S=S+A(I) 80 NEXT 90 S=S/N 100 REM CALCULATION OF VARIANCE 110 FOR I=1 TO N 120 V=V+(A(I)-S)^2/N 130 NEXT 140 SD=SQR(V) 150 PRINT "MEAN=";S 160 PRINT "STANDARD DEVIATION IS=";SD 170 PRINT:PRINT 180 INPUT "MENU";A$ 190 RUN "MENU" «nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»