|
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)
Types: TextFile
Notes: Mikados_K
Names: »NORMAL.K«
└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
└─⟦this⟧ »NORMAL.K«
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
0x000…032 Line {l1=0x30, l2=»0000 REM GRAFISK FREMSTILLING AF NORMALFORDELING«, l3=0x30}
0x032…03d Line {l1=0x09, l2=»0010 REM «, l3=0x09}
0x03d…050 Line {l1=0x11, l2=»0020 DIM LIN$(20)«, l3=0x11}
0x050…071 Line {l1=0x1f, l2=»0030 LIN$=" ####.## ##.#### "«, l3=0x1f}
0x071…085 Line {l1=0x12, l2=»0040 DIM GRAF$(60)«, l3=0x12}
0x085…0a7 Line {l1=0x20, l2=»0050 PRINT "Indtast middelværdi"«, l3=0x20}
0x0a7…0ba Line {l1=0x11, l2=»0060 INPUT MIDDEL«, l3=0x11}
0x0ba…0c7 Line {l1=0x0b, l2=»0070 PRINT «, l3=0x0b}
0x0c7…0e8 Line {l1=0x1f, l2=»0080 PRINT "INDTAST SPREDNING "«, l3=0x1f}
0x0e8…0fa Line {l1=0x10, l2=»0090 INPUT SPRED«, l3=0x10}
0x0fa…107 Line {l1=0x0b, l2=»0100 PRINT «, l3=0x0b}
0x107…153 Line {l1=0x4a, l2=»0110 PRINT "X-VÆRDI : FREKVENS : MIDDELVÆRDI =";MIDDEL;"SPREDNING =";SPRED«, l3=0x4a}
0x153…160 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x160…19a Line {l1=0x38, l2=»0130 FOR X=MIDDEL-2*SPRED TO MIDDEL+2*SPRED STEP SPRED/4«, l3=0x38}
0x19a…1d5 Line {l1=0x39, l2=»0140 PX=1/SPRED/SQR(2*3.1415)*EXP(-(X-MIDDEL)*(X-MIDDEL))«, l3=0x39}
0x1d5…1f1 Line {l1=0x1a, l2=»0150 PRINT USING LIN$:X,PX«, l3=0x1a}
0x1f1…20e Line {l1=0x1b, l2=»0160 IND=INT(PX*60/0.4+0.5)«, l3=0x1b}
0x20e…222 Line {l1=0x12, l2=»0170 FOR I=1 TO 60«, l3=0x12}
0x222…237 Line {l1=0x13, l2=»0180 GRAF$(I:1)=" "«, l3=0x13}
0x237…244 Line {l1=0x0b, l2=»0190 NEXT I«, l3=0x0b}
0x244…25d Line {l1=0x17, l2=»0200 GRAF$(IND+1:1)="X"«, l3=0x17}
0x25d…26f Line {l1=0x10, l2=»0210 PRINT GRAF$«, l3=0x10}
0x26f…27c Line {l1=0x0b, l2=»0220 NEXT X«, l3=0x0b}
0x27c…287 Line {l1=0x09, l2=»0230 END «, l3=0x09}
0x287…2a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x2a0…2c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]