|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »KORRELAT.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KORRELAT.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KORRELAT.K«
0010 // -------------------------- korrelation ---------------------- 0020 // Programmet finder en række deskriptorer for n talpar: 0030 // (x1,y1),(x2,y2), ... ,(xn,yn). 0040 // n angives i den første datasætning. 0050 // x1,x2, ... ,xn angives i de næste datasætninger 0060 // y1,y2, ... ,yn angives i de næste datasætninger 0070 // 0080 CLEAR 0090 READ N 0100 DIM X(N),Y(N),S$ OF 1 0110 SUM1:=0;SUM2:=0;SUM3:=0;SUM4:=0;SUM5:=0 0120 FOR I:=1 TO N DO 0130 READ X(I) 0140 NEXT I 0150 FOR I:=1 TO N DO 0160 READ Y(I) 0170 NEXT I 0180 FOR I:=1 TO N DO 0190 SUM1:=SUM1+X(I) 0200 SUM2:=SUM2+Y(I) 0210 SUM3:=SUM3+X(I)**2 0220 SUM4:=SUM4+Y(I)**2 0230 SUM5:=SUM5+X(I)*Y(I) 0240 NEXT I 0250 MX:=SUM1/N 0260 MY:=SUM2/N 0270 VX:=SUM3/N-MX*MX 0280 VY:=SUM4/N-MY*MY 0290 COVXY:=SUM5/N-MX*MY 0300 SX:=SQR(VX) 0310 SY:=SQR(VY) 0320 R:=COVXY/SX/SY 0330 A:=COVXY/VX 0340 B:=MY-A*MX 0350 PRINT USING "Observationssætet består af### talpar.":N 0360 PRINT 0370 PRINT "Observationssættet X:" 0380 FOR I:=1 TO N DO 0390 PRINT USING "+####, ":X(I), 0400 NEXT I 0410 PRINT 0420 PRINT 0430 PRINT "Observationssættet Y:" 0440 FOR I:=1 TO N DO 0450 PRINT USING "+####, ":Y(I), 0460 NEXT I 0470 PRINT 0480 PRINT 0490 PRINT "Observationssættene X og Y har følgende deskriptorer: " 0500 PRINT 0510 PRINT USING "M(X) =+####.###":MX 0520 PRINT USING "M(Y) =+####.###":MY 0530 PRINT USING "V(X) =+####.###":VX 0540 PRINT USING "V(Y) =+####.###":VY 0550 PRINT USING "S(X) =+####.###":SX 0560 PRINT USING "S(Y) =+####.###":SY 0570 PRINT USING "COV(X,Y) =+####.###":COVXY 0580 PRINT USING "R(X,Y) =+####.###":R 0590 PRINT 0600 PRINT "Y-regressionslinien y:=ax + b er fastlagt ved:" 0610 PRINT USING "a=+###.### b=+###.### ":A,B 0630 PRINT 0640 DATA 8 0650 DATA 5,7,8,10,8,11,9,7 0660 DATA 12,8,7,6,8,4,7,9 0670 PRINT USING "Liniens ligning: y = +###.###x +###.###":A,B 0690 CURSOR 70,24 0700 INPUT "Return!":S$
0x0000…0047 Line {l1=0x45, l2=»0010 // -------------------------- korrelation ----------------------«, l3=0x45}
0x0047…0086 Line {l1=0x3d, l2=»0020 // Programmet finder en række deskriptorer for n talpar:«, l3=0x3d}
0x0086…00ae Line {l1=0x26, l2=»0030 // (x1,y1),(x2,y2), ... ,(xn,yn).«, l3=0x26}
0x00ae…00db Line {l1=0x2b, l2=»0040 // n angives i den første datasætning.«, l3=0x2b}
0x00db…0114 Line {l1=0x37, l2=»0050 // x1,x2, ... ,xn angives i de næste datasætninger«, l3=0x37}
0x0114…014d Line {l1=0x37, l2=»0060 // y1,y2, ... ,yn angives i de næste datasætninger«, l3=0x37}
0x014d…0157 Line {l1=0x08, l2=»0070 // «, l3=0x08}
0x0157…0164 Line {l1=0x0b, l2=»0080 CLEAR «, l3=0x0b}
0x0164…0171 Line {l1=0x0b, l2=»0090 READ N«, l3=0x0b}
0x0171…018d Line {l1=0x1a, l2=»0100 DIM X(N),Y(N),S$ OF 1«, l3=0x1a}
0x018d…01bb Line {l1=0x2c, l2=»0110 SUM1:=0;SUM2:=0;SUM3:=0;SUM4:=0;SUM5:=0«, l3=0x2c}
0x01bb…01d3 Line {l1=0x16, l2=»0120 FOR I:=1 TO N DO «, l3=0x16}
0x01d3…01e3 Line {l1=0x0e, l2=»0130 READ X(I)«, l3=0x0e}
0x01e3…01f0 Line {l1=0x0b, l2=»0140 NEXT I«, l3=0x0b}
0x01f0…0208 Line {l1=0x16, l2=»0150 FOR I:=1 TO N DO «, l3=0x16}
0x0208…0218 Line {l1=0x0e, l2=»0160 READ Y(I)«, l3=0x0e}
0x0218…0225 Line {l1=0x0b, l2=»0170 NEXT I«, l3=0x0b}
0x0225…023d Line {l1=0x16, l2=»0180 FOR I:=1 TO N DO «, l3=0x16}
0x023d…0253 Line {l1=0x14, l2=»0190 SUM1:=SUM1+X(I)«, l3=0x14}
0x0253…0269 Line {l1=0x14, l2=»0200 SUM2:=SUM2+Y(I)«, l3=0x14}
0x0269…0282 Line {l1=0x17, l2=»0210 SUM3:=SUM3+X(I)**2«, l3=0x17}
0x0282…029b Line {l1=0x17, l2=»0220 SUM4:=SUM4+Y(I)**2«, l3=0x17}
0x029b…02b6 Line {l1=0x19, l2=»0230 SUM5:=SUM5+X(I)*Y(I)«, l3=0x19}
0x02b6…02c3 Line {l1=0x0b, l2=»0240 NEXT I«, l3=0x0b}
0x02c3…02d4 Line {l1=0x0f, l2=»0250 MX:=SUM1/N«, l3=0x0f}
0x02d4…02e5 Line {l1=0x0f, l2=»0260 MY:=SUM2/N«, l3=0x0f}
0x02e5…02fc Line {l1=0x15, l2=»0270 VX:=SUM3/N-MX*MX«, l3=0x15}
0x02fc…0313 Line {l1=0x15, l2=»0280 VY:=SUM4/N-MY*MY«, l3=0x15}
0x0313…032d Line {l1=0x18, l2=»0290 COVXY:=SUM5/N-MX*MY«, l3=0x18}
0x032d…033f Line {l1=0x10, l2=»0300 SX:=SQR(VX)«, l3=0x10}
0x033f…0351 Line {l1=0x10, l2=»0310 SY:=SQR(VY)«, l3=0x10}
0x0351…0366 Line {l1=0x13, l2=»0320 R:=COVXY/SX/SY«, l3=0x13}
0x0366…0378 Line {l1=0x10, l2=»0330 A:=COVXY/VX«, l3=0x10}
0x0378…0389 Line {l1=0x0f, l2=»0340 B:=MY-A*MX«, l3=0x0f}
0x0389…03c6 Line {l1=0x3b, l2=»0350 PRINT USING "Observationssætet består af### talpar.":N«, l3=0x3b}
0x03c6…03d3 Line {l1=0x0b, l2=»0360 PRINT «, l3=0x0b}
0x03d3…03f7 Line {l1=0x22, l2=»0370 PRINT "Observationssættet X:"«, l3=0x22}
0x03f7…040f Line {l1=0x16, l2=»0380 FOR I:=1 TO N DO «, l3=0x16}
0x040f…0432 Line {l1=0x21, l2=»0390 PRINT USING "+####, ":X(I),«, l3=0x21}
0x0432…043f Line {l1=0x0b, l2=»0400 NEXT I«, l3=0x0b}
0x043f…044c Line {l1=0x0b, l2=»0410 PRINT «, l3=0x0b}
0x044c…0459 Line {l1=0x0b, l2=»0420 PRINT «, l3=0x0b}
0x0459…047d Line {l1=0x22, l2=»0430 PRINT "Observationssættet Y:"«, l3=0x22}
0x047d…0495 Line {l1=0x16, l2=»0440 FOR I:=1 TO N DO «, l3=0x16}
0x0495…04b8 Line {l1=0x21, l2=»0450 PRINT USING "+####, ":Y(I),«, l3=0x21}
0x04b8…04c5 Line {l1=0x0b, l2=»0460 NEXT I«, l3=0x0b}
0x04c5…04d2 Line {l1=0x0b, l2=»0470 PRINT «, l3=0x0b}
0x04d2…04df Line {l1=0x0b, l2=»0480 PRINT «, l3=0x0b}
0x04df…0524 Line {l1=0x43, l2=»0490 PRINT "Observationssættene X og Y har følgende deskriptorer: "«, l3=0x43}
0x0524…0531 Line {l1=0x0b, l2=»0500 PRINT «, l3=0x0b}
0x0531…055c Line {l1=0x29, l2=»0510 PRINT USING "M(X) =+####.###":MX«, l3=0x29}
0x055c…0587 Line {l1=0x29, l2=»0520 PRINT USING "M(Y) =+####.###":MY«, l3=0x29}
0x0587…05b2 Line {l1=0x29, l2=»0530 PRINT USING "V(X) =+####.###":VX«, l3=0x29}
0x05b2…05dd Line {l1=0x29, l2=»0540 PRINT USING "V(Y) =+####.###":VY«, l3=0x29}
0x05dd…0608 Line {l1=0x29, l2=»0550 PRINT USING "S(X) =+####.###":SX«, l3=0x29}
0x0608…0633 Line {l1=0x29, l2=»0560 PRINT USING "S(Y) =+####.###":SY«, l3=0x29}
0x0633…0661 Line {l1=0x2c, l2=»0570 PRINT USING "COV(X,Y) =+####.###":COVXY«, l3=0x2c}
0x0661…068b Line {l1=0x28, l2=»0580 PRINT USING "R(X,Y) =+####.###":R«, l3=0x28}
0x068b…0698 Line {l1=0x0b, l2=»0590 PRINT «, l3=0x0b}
0x0698…06d5 Line {l1=0x3b, l2=»0600 PRINT "Y-regressionslinien y:=ax + b er fastlagt ved:"«, l3=0x3b}
0x06d5…070c Line {l1=0x35, l2=»0610 PRINT USING "a=+###.### b=+###.### ":A,B«, l3=0x35}
0x070c…0719 Line {l1=0x0b, l2=»0630 PRINT «, l3=0x0b}
0x0719…0726 Line {l1=0x0b, l2=»0640 DATA 8«, l3=0x0b}
0x0726…0743 Line {l1=0x1b, l2=»0650 DATA 5,7,8,10,8,11,9,7«, l3=0x1b}
0x0743…075f Line {l1=0x1a, l2=»0660 DATA 12,8,7,6,8,4,7,9«, l3=0x1a}
0x075f…07a1 Line {l1=0x40, l2=»0670 PRINT USING "Liniens ligning: y = +###.###x +###.###":A,B«, l3=0x40}
0x07a1…07b4 Line {l1=0x11, l2=»0690 CURSOR 70,24«, l3=0x11}
0x07b4…07cd Line {l1=0x17, l2=»0700 INPUT "Return!":S$«, l3=0x17}
0x07cd…07e0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccc┆
0x07e0…0800 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5e…]