Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50365/socf.dat
There is 1 other file named socf.dat in the archive. Click here to see a list.
1 STOP ST*P
3 EXPT EX*
4 ECHO EC*
5 NOECHO NOEC*
6 LECHO LEC*
7 LOAD L*D
9 VARS VA*
10 COMMANDS C*M*
11 SHORT SH*
12 VSHORT V*SH*
13 LONG L*G
14 STAT ST*,ST*T*
15 REPEAT R*P*
16 NO RPT N*R*
17 SAVEBIN S*V*B*
18 SAVECARD S*V*C*
19 DATAOUT D*A* D*O*
20 NODATOUT N*D*T*
21 XPRINT X*PR*
22 NOXPRINT N*X*
@END
       SOCIAL FACILITATION SIMULATION
       D. W. RAJECKI, AUTHOR, SUMMER 1972
       R. NUSSLOCH, PROGRAMMER, SUMMER 1972
       MODIFIED FOR THE DEC-SYSTEM-10 BY JAMES R ULLRICH AND ROY F TOUZEAU
@END
ECHO MAXCONDS=1 NOVER=1000 NGRP=100 NDEF=12 COSTPT @E
/SUBS (S*U*,S*S) 1, EXT KWD, (BUGS (B*)=1,
SOPHS (S*)=2; DEFAULT=3) DEFAULT/
/STAGE (S*A*,S*E, ST*) 1, EXT KF, (ONE (O*)=1; TWO (TW*)=2;
THREE (TH*)=3 DEFAULT=4) 4 (1,3)/
/SOCON (S*C*,S*N) 2, EXT KWD, (ALONE (AL*)=1; COACT (C*)=2;
AUDIENCE (AU*)=5; MERE (M*)=3; DEFAULT=4) DEFAULT/
/TASK (TA*) 3, EXT KWD (EASY (E*)=1; HARD (H*)=2) EASY/
/DRISIT (D*) 4, EXT KWD (LOW(L*)=1; HIGH(H*)=2;
DEFAULT=3) DEFAULT/
/MTRLN (M*) 5, EXT KWD (FIRST (F*)=1; SECND (S*)=2; DEFAULT=3) DEFAULT/
/HABIT (H*) 6, EXT KWD (EQUAL(E*)=1; DIFF (DI*)=2 DEFAULT=3) DEFAULT/
/ETASK (ET*) 7,  EXT KWD (DEFAULT=1, EMULTE(EMU*E)=2, EMULTH(EMU*H)=3,
EMOTORS(EMO*S)=4, EMOTORF(EMO*F)=5, EJUMBLEK(EJ*K)=6,
EJUMBLEA(EJ*A)=7, EPALN(EP*N)=8, EPALC(EP*C)=9, EHABITQ(EH*Q)=10,
EHABITD(EH*D)=11) DEFAULT/
/PTASK (PT*) 8,  EXT KWD (DEFAULT=1, PCOLORS(PC*S)=2, PCOLORW(PC*W)=3,
PRISKC(PR*C)=4, PRISKW(PR*W)=5, PPLUSA(PP*A)=6, PPLUST(PP*T)=7)
DEFAULT/
/TYPE (TY*) 9,  EXT KWD (DEFAULT=1, JERK(J*)=2, EXPERT(E*)=3) DEFAULT/
/OUTCOME(OU*) 10,  EXT KWD (DEFAULT=1, DISC(D*)=2, GRADE(G*)=3) DEFAULT/
/PERSON (PER*)  11, EXT KWD  (DEFAULT=1, CALM(C*)=2, ANXS(A*)=3)  DEFAULT/
/INTELL (INT*)  12, EXT KWD  (DEFAULT=1, FAST(F*)=2, SLOW(S*)=3, NORM(N*)=4)
DEFAULT/
@END
/SUBS=3/
/STAGE=4/
/STAGE=1 SOCON=3/
/STAGE=1 DRISIT=(1,2)/
/STAGE=1 MTRLN=(1,2)/
/STAGE=1 HABIT=(1,2)/
/STAGE=(1,2) ETASK=(2,11)/
/STAGE=(1,2) PTASK=(2,7)/
/STAGE=(1,2) TYPE=(2,3)/
/STAGE=(1,2) OUTCOME=(2,3)/
/STAGE=(1,2) PERSON=(2,3)/
/STAGE=(1,2) INTELL=(2,4)/
/STAGE=3 ETASK=1 PTASK=1/
/STAGE=3 ETASK=(2,11) PTASK=(2,7)/
/STAGE=2 SOCON=4 DRISIT=3/
/STAGE=2 SOCON=(1,3) DRISIT=(1,2)/
/STAGE=2 MTRLN=3 HABIT=3/
/STAGE=2 MTRLN=(1,2) HABIT=(1,2)/
@END
@END
MEAN,VAR @END
ATTEMPTS,CORRECT,RUNTM,LAT,MOTOR,VERBAL