|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 736 (0x2e0)
Notes: Mikados TextFile, Mikados_K
Names: »NORMAL«
└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
└─ ⟦this⟧ »NORMAL«
0000 REM GRAFISK FREMSTILLING AF NORMALFORDELING 0010 REM 0020 DIM LIN$(20) 0030 LIN$=" ####.## ##.#### " 0040 DIM GRAF$(60) 0050 PRINT "Indtast middelværdi" 0060 INPUT MIDDEL 0070 PRINT 0080 PRINT "INDTAST SPREDNING " 0090 INPUT SPRED 0100 PRINT 0110 PRINT "X-VÆRDI : FREKVENS : MIDDELVÆRDI =";MIDDEL;"SPREDNING =";SPRED 0120 PRINT 0130 FOR X=MIDDEL-2*SPRED TO MIDDEL+2*SPRED STEP SPRED/4 0140 PX=1/SPRED/SQR(2*3.1415)*EXP(-(X-MIDDEL)*(X-MIDDEL)) 0150 PRINT USING LIN$:X,PX 0160 IND=INT(PX*60/0.4+0.5) 0170 FOR I=1 TO 60 0180 GRAF$(I:1)=" " 0190 NEXT I 0200 GRAF$(IND+1:1)="X" 0210 PRINT GRAF$ 0220 NEXT X 0230 END