|
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: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »VARIANS1.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »VARIANS1.K«
PROGRAM VARIANSANALYSE;
CONST M=2;
N=2;
SS=4;
TYPE
SAMPLE=RECORD
X:ARRAY (1..SS) OF REAL;
MEAN:REAL;
KVADSUM:REAL
END;
VAR FIL:TEXT;
F:STRING(20);
I,J,K:INTEGER;
R,S,T:REAL;
A:ARRAY (1..M,1..N) OF SAMPLE;
RMEAN:ARRAY (1..N) OF REAL;
SMEAN:ARRAY (1..M) OF REAL;
TMEAN:REAL;
PROCEDURE INDLÆS;
BEGIN
TMEAN:=0;
F:='ØRREDE1:P2:0:K';
RESET(FIL,F);
FOR I:=1 TO M DO SMEAN(I):=0;
FOR J:=1 TO N DO
BEGIN
RMEAN(J):=0;
FOR I:=1 TO M DO
BEGIN
READLN(FIL);
R:=0;
FOR K:=1 TO SS DO
BEGIN
READ(FIL,A(I,J).X(K));
R:=R+A(I,J).X(K)
END;
A(I,J).MEAN:=R/SS;
RMEAN(J):=RMEAN(J)+A(I,J).MEAN;
SMEAN(I):=SMEAN(I)+A(I,J).MEAN;
TMEAN:=TMEAN+A(I,J).MEAN;
R:=0;
FOR K:=1 TO SS DO R:=R+SQR(A(I,J).X(K)-A(I,J).MEAN);
A(I,J).KVADSUM:=R;
END;
RMEAN(J):=RMEAN(J)/M
END;
FOR I:=1 TO M DO SMEAN(I):=SMEAN(I)/N;
TMEAN:=TMEAN/M/N;
END;
PROCEDURE PRINTOBS;
BEGIN
FOR I:=1 TO M DO WRITE(LIST,I:12,'!':17);
WRITELN(LIST);
WRITELN(LIST,'!':29,'!':29);
FOR J:=1 TO N DO
BEGIN
K:=1;
REPEAT
FOR I:=1 TO M DO
WRITE(LIST,A(I,J).X(K):12:3,A(I,J).X(K+1):12:3,'!':5);
WRITELN(LIST);
K:=K+2
UNTIL K>SS;
WRITELN(LIST,J,'Mean':11,'Kvadsum':12,'!':5,
'Mean':12,'Kvadsum':12,'!':5,'R-Mean':12);
FOR I:=1 TO M DO WRITE(LIST,A(I,J).MEAN:12:3,A(I,J).KVADSUM:12:3,'!':5);
WRITELN(LIST,RMEAN(J):12:3);
WRITELN(LIST,'_____________________________________________________________',
'__________');
WRITELN(LIST);
END;
WRITELN(LIST,'S-Mean':12,' ':12,'!':5,'S-Mean':12,'!':17,'T-Mean':12);
FOR I:=1 TO M DO WRITE(LIST,SMEAN(I):12:3,' ':12,'!':5);
WRITELN(LIST,TMEAN:12:3);
WRITELN(LIST,'_____________________________________________________________',
'__________');
WRITELN(LIST);
WRITELN(LIST);
WRITELN(LIST);
END;
PROCEDURE ANALYSE;
BEGIN
R:=0;
FOR I:=1 TO M DO R:=R+SQR(SMEAN(I)-TMEAN);
R:=R*N*SS;
WRITELN(LIST,'Variation','!':9,' Kvadratsum','!':7,
' Frihedsgrader','!':4,' Varians');
WRITELN(LIST,'_____________________________________________________________',
'_________');
WRITELN(LIST);
WRITELN(LIST,'Mellem søjler ',R:12:3,' ':6,M-1:12,' ':6,R/(M-1):12:3);
WRITELN(LIST);
R:=0;
FOR J:=1 TO N DO R:=R+SQR(RMEAN(J)-TMEAN);
R:=R*M*SS;
WRITELN(LIST,'Mellem rækker ',R:12:3,' ':6,N-1:12,' ':6,R/(N-1):12:3);
WRITELN(LIST);
R:=0;
FOR J:=1 TO N DO
FOR I:=1 TO M DO R:=R+SQR(A(I,J).MEAN-RMEAN(J)-SMEAN(I)+TMEAN);
R:=R*SS;
WRITELN(LIST,'Vekselvirkning ',R:12:3,' ':6,(N-1)*(M-1):12,' ':6,
R/(N-1)/(M-1):12:3);
WRITELN(LIST);
R:=0;
FOR J:=1 TO N DO
FOR I:=1 TO M DO
R:=R+A(I,J).KVADSUM;
WRITELN(LIST,'Indenfor sæt ',R:12:3,' ':6,N*M*(SS-1):12,' ':6,
R/N/M/(SS-1):12:3);
WRITELN(LIST);
WRITELN(LIST,'_____________________________________________________________',
'__________');
WRITELN(LIST);
R:=0;
FOR J:=1 TO N DO
FOR I:=1 TO M DO
FOR K:=1 TO SS DO R:=R+SQR(A(I,J).X(K)-TMEAN);
WRITELN(LIST,'Total ',R:12:3,' ':6,N*M*SS-1:12);
END;
BEGIN
INDLÆS;
PRINTOBS;
ANALYSE;
END.
0x000…019 Line {l1=0x17, l2=»PROGRAM VARIANSANALYSE;«, l3=0x17}
0x019…026 Line {l1=0x0b, l2=»CONST M=2;«, l3=0x0b}
0x026…033 Line {l1=0x0b, l2=» N=2;«, l3=0x0b}
0x033…041 Line {l1=0x0c, l2=» SS=4;«, l3=0x0c}
0x041…047 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x047…056 Line {l1=0x0d, l2=»SAMPLE=RECORD«, l3=0x0d}
0x056…077 Line {l1=0x1f, l2=» X:ARRAY (1..SS) OF REAL;«, l3=0x1f}
0x077…08a Line {l1=0x11, l2=» MEAN:REAL;«, l3=0x11}
0x08a…09f Line {l1=0x13, l2=» KVADSUM:REAL«, l3=0x13}
0x09f…0a5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a5…0b7 Line {l1=0x10, l2=»VAR FIL:TEXT;«, l3=0x10}
0x0b7…0cd Line {l1=0x14, l2=» F:STRING(20);«, l3=0x14}
0x0cd…0e4 Line {l1=0x15, l2=» I,J,K:INTEGER;«, l3=0x15}
0x0e4…0f8 Line {l1=0x12, l2=» R,S,T:REAL;«, l3=0x12}
0x0f8…11f Line {l1=0x25, l2=» A:ARRAY (1..M,1..N) OF SAMPLE;«, l3=0x25}
0x11f…143 Line {l1=0x22, l2=» RMEAN:ARRAY (1..N) OF REAL;«, l3=0x22}
0x143…167 Line {l1=0x22, l2=» SMEAN:ARRAY (1..M) OF REAL;«, l3=0x22}
0x167…17b Line {l1=0x12, l2=» TMEAN:REAL;«, l3=0x12}
0x17b…18e Line {l1=0x11, l2=»PROCEDURE INDLÆS;«, l3=0x11}
0x18e…195 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x195…1a2 Line {l1=0x0b, l2=» TMEAN:=0;«, l3=0x0b}
0x1a2…1ba Line {l1=0x16, l2=» F:='ØRREDE1:P2:0:K';«, l3=0x16}
0x1ba…1cb Line {l1=0x0f, l2=» RESET(FIL,F);«, l3=0x0f}
0x1cb…1ec Line {l1=0x1f, l2=» FOR I:=1 TO M DO SMEAN(I):=0;«, l3=0x1f}
0x1ec…200 Line {l1=0x12, l2=» FOR J:=1 TO N DO«, l3=0x12}
0x200…209 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x209…21b Line {l1=0x10, l2=» RMEAN(J):=0;«, l3=0x10}
0x21b…231 Line {l1=0x14, l2=» FOR I:=1 TO M DO«, l3=0x14}
0x231…23c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x23c…250 Line {l1=0x12, l2=» READLN(FIL);«, l3=0x12}
0x250…25d Line {l1=0x0b, l2=» R:=0;«, l3=0x0b}
0x25d…276 Line {l1=0x17, l2=» FOR K:=1 TO SS DO«, l3=0x17}
0x276…283 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x283…2a3 Line {l1=0x1e, l2=» READ(FIL,A(I,J).X(K));«, l3=0x1e}
0x2a3…2bd Line {l1=0x18, l2=» R:=R+A(I,J).X(K)«, l3=0x18}
0x2bd…2c9 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2c9…2e3 Line {l1=0x18, l2=» A(I,J).MEAN:=R/SS;«, l3=0x18}
0x2e3…30a Line {l1=0x25, l2=» RMEAN(J):=RMEAN(J)+A(I,J).MEAN;«, l3=0x25}
0x30a…331 Line {l1=0x25, l2=» SMEAN(I):=SMEAN(I)+A(I,J).MEAN;«, l3=0x25}
0x331…352 Line {l1=0x1f, l2=» TMEAN:=TMEAN+A(I,J).MEAN;«, l3=0x1f}
0x352…35f Line {l1=0x0b, l2=» R:=0;«, l3=0x0b}
0x35f…39b Line {l1=0x3a, l2=» FOR K:=1 TO SS DO R:=R+SQR(A(I,J).X(K)-A(I,J).MEAN);«, l3=0x3a}
0x39b…3b5 Line {l1=0x18, l2=» A(I,J).KVADSUM:=R;«, l3=0x18}
0x3b5…3bf Line {l1=0x08, l2=» END;«, l3=0x08}
0x3bf…3d9 Line {l1=0x18, l2=» RMEAN(J):=RMEAN(J)/M«, l3=0x18}
0x3d9…3e1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3e1…40b Line {l1=0x28, l2=» FOR I:=1 TO M DO SMEAN(I):=SMEAN(I)/N;«, l3=0x28}
0x40b…420 Line {l1=0x13, l2=» TMEAN:=TMEAN/M/N;«, l3=0x13}
0x420…426 Line {l1=0x04, l2=»END;«, l3=0x04}
0x426…43b Line {l1=0x13, l2=»PROCEDURE PRINTOBS;«, l3=0x13}
0x43b…442 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x442…46d Line {l1=0x29, l2=»FOR I:=1 TO M DO WRITE(LIST,I:12,'!':17);«, l3=0x29}
0x46d…47d Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
0x47d…49b Line {l1=0x1c, l2=»WRITELN(LIST,'!':29,'!':29);«, l3=0x1c}
0x49b…4af Line {l1=0x12, l2=» FOR J:=1 TO N DO«, l3=0x12}
0x4af…4b8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4b8…4c3 Line {l1=0x09, l2=» K:=1;«, l3=0x09}
0x4c3…4cf Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x4cf…4e7 Line {l1=0x16, l2=» FOR I:=1 TO M DO«, l3=0x16}
0x4e7…527 Line {l1=0x3e, l2=» WRITE(LIST,A(I,J).X(K):12:3,A(I,J).X(K+1):12:3,'!':5);«, l3=0x3e}
0x527…53d Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x53d…54b Line {l1=0x0c, l2=» K:=K+2«, l3=0x0c}
0x54b…55c Line {l1=0x0f, l2=» UNTIL K>SS;«, l3=0x0f}
0x55c…58e Line {l1=0x30, l2=» WRITELN(LIST,J,'Mean':11,'Kvadsum':12,'!':5,«, l3=0x30}
0x58e…5ba Line {l1=0x2a, l2=»'Mean':12,'Kvadsum':12,'!':5,'R-Mean':12);«, l3=0x2a}
0x5ba…608 Line {l1=0x4c, l2=» FOR I:=1 TO M DO WRITE(LIST,A(I,J).MEAN:12:3,A(I,J).KVADSUM:12:3,'!':5);«, l3=0x4c}
0x608…62a Line {l1=0x20, l2=» WRITELN(LIST,RMEAN(J):12:3);«, l3=0x20}
0x62a…679 Line {l1=0x4d, l2=»WRITELN(LIST,'_____________________________________________________________',«, l3=0x4d}
0x679…689 Line {l1=0x0e, l2=»'__________');«, l3=0x0e}
0x689…69d Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x69d…6a5 Line {l1=0x06, l2=» END;«, l3=0x06}
0x6a5…6ef Line {l1=0x48, l2=» WRITELN(LIST,'S-Mean':12,' ':12,'!':5,'S-Mean':12,'!':17,'T-Mean':12);«, l3=0x48}
0x6ef…72b Line {l1=0x3a, l2=» FOR I:=1 TO M DO WRITE(LIST,SMEAN(I):12:3,' ':12,'!':5);«, l3=0x3a}
0x72b…748 Line {l1=0x1b, l2=» WRITELN(LIST,TMEAN:12:3);«, l3=0x1b}
0x748…797 Line {l1=0x4d, l2=»WRITELN(LIST,'_____________________________________________________________',«, l3=0x4d}
0x797…7a7 Line {l1=0x0e, l2=»'__________');«, l3=0x0e}
0x7a7…7b7 Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
[…0x2…]
0x7d7…7dd Line {l1=0x04, l2=»END;«, l3=0x04}
0x7dd…7f1 Line {l1=0x12, l2=»PROCEDURE ANALYSE;«, l3=0x12}
0x7f1…7f8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x7f8…7ff Line {l1=0x05, l2=»R:=0;«, l3=0x05}
0x7ff…82b Line {l1=0x2a, l2=»FOR I:=1 TO M DO R:=R+SQR(SMEAN(I)-TMEAN);«, l3=0x2a}
0x82b…837 Line {l1=0x0a, l2=»R:=R*N*SS;«, l3=0x0a}
0x837…86c Line {l1=0x33, l2=»WRITELN(LIST,'Variation','!':9,' Kvadratsum','!':7,«, l3=0x33}
0x86c…891 Line {l1=0x23, l2=»' Frihedsgrader','!':4,' Varians');«, l3=0x23}
0x891…8e0 Line {l1=0x4d, l2=»WRITELN(LIST,'_____________________________________________________________',«, l3=0x4d}
0x8e0…8ef Line {l1=0x0d, l2=»'_________');«, l3=0x0d}
0x8ef…8ff Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
0x8ff…94b Line {l1=0x4a, l2=»WRITELN(LIST,'Mellem søjler ',R:12:3,' ':6,M-1:12,' ':6,R/(M-1):12:3);«, l3=0x4a}
0x94b…95b Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
0x95b…962 Line {l1=0x05, l2=»R:=0;«, l3=0x05}
0x962…98e Line {l1=0x2a, l2=»FOR J:=1 TO N DO R:=R+SQR(RMEAN(J)-TMEAN);«, l3=0x2a}
0x98e…99a Line {l1=0x0a, l2=»R:=R*M*SS;«, l3=0x0a}
0x99a…9e6 Line {l1=0x4a, l2=»WRITELN(LIST,'Mellem rækker ',R:12:3,' ':6,N-1:12,' ':6,R/(N-1):12:3);«, l3=0x4a}
0x9e6…9f6 Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
0x9f6…9fd Line {l1=0x05, l2=»R:=0;«, l3=0x05}
0x9fd…a0f Line {l1=0x10, l2=»FOR J:=1 TO N DO«, l3=0x10}
0xa0f…a50 Line {l1=0x3f, l2=»FOR I:=1 TO M DO R:=R+SQR(A(I,J).MEAN-RMEAN(J)-SMEAN(I)+TMEAN);«, l3=0x3f}
0xa50…a5a Line {l1=0x08, l2=»R:=R*SS;«, l3=0x08}
0xa5a…aa0 Line {l1=0x44, l2=»WRITELN(LIST,'Vekselvirkning ',R:12:3,' ':6,(N-1)*(M-1):12,' ':6,«, l3=0x44}
0xaa0…ae5 Line {l1=0x43, l2=» R/(N-1)/(M-1):12:3);«, l3=0x43}
0xae5…af5 Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
0xaf5…afc Line {l1=0x05, l2=»R:=0;«, l3=0x05}
0xafc…b0e Line {l1=0x10, l2=»FOR J:=1 TO N DO«, l3=0x10}
0xb0e…b20 Line {l1=0x10, l2=»FOR I:=1 TO M DO«, l3=0x10}
0xb20…b47 Line {l1=0x25, l2=» R:=R+A(I,J).KVADSUM;«, l3=0x25}
0xb47…b8c Line {l1=0x43, l2=»WRITELN(LIST,'Indenfor sæt ',R:12:3,' ':6,N*M*(SS-1):12,' ':6,«, l3=0x43}
0xb8c…bd0 Line {l1=0x42, l2=» R/N/M/(SS-1):12:3);«, l3=0x42}
0xbd0…be0 Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
0xbe0…c2f Line {l1=0x4d, l2=»WRITELN(LIST,'_____________________________________________________________',«, l3=0x4d}
0xc2f…c3f Line {l1=0x0e, l2=»'__________');«, l3=0x0e}
0xc3f…c4f Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
0xc4f…c56 Line {l1=0x05, l2=»R:=0;«, l3=0x05}
0xc56…c68 Line {l1=0x10, l2=»FOR J:=1 TO N DO«, l3=0x10}
0xc68…c7a Line {l1=0x10, l2=»FOR I:=1 TO M DO«, l3=0x10}
0xc7a…caa Line {l1=0x2e, l2=»FOR K:=1 TO SS DO R:=R+SQR(A(I,J).X(K)-TMEAN);«, l3=0x2e}
0xcaa…ce8 Line {l1=0x3c, l2=»WRITELN(LIST,'Total ',R:12:3,' ':6,N*M*SS-1:12);«, l3=0x3c}
0xce8…cee Line {l1=0x04, l2=»END;«, l3=0x04}
0xcee…cf5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0xcf5…d00 Line {l1=0x09, l2=» INDLÆS;«, l3=0x09}
0xd00…d0d Line {l1=0x0b, l2=» PRINTOBS;«, l3=0x0b}
0xd0d…d19 Line {l1=0x0a, l2=» ANALYSE;«, l3=0x0a}
0xd19…d1f Line {l1=0x04, l2=»END.«, l3=0x04}
0xd1f…d20 00 ┆ ┆
0xd20…d40 00 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 ┆ ccccccccccccccccccccccccccccccc┆
0xd40…d60 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┆
[…0x9…]
0xe80…ea0 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 00 ┆ccccccccccccccccccccccccccccccc ┆