A two-state model of simple reaction time

'-..,
CJ
SRTEXP 17
I:
2: C
3:
4:
5: C
6:
7:
8:
9 :
10:
II:
12: 112
13:
14:
IS:
16: III
17: 110
18 :
19: i 100
20: 100
21: C
22: C
23:
24:
25:
26:
27: 202
28 :
29: 201
30: 200
31 :
32:
33:
34:
35:
36:
37:
38: 210
39 :
40:
41 :
42:
43: 300
44:
45: 2000
46:
47:
48:· 2100
49 :
50:
51 :
52: 2200
53: 400
- 139 -
SUBROUTINE DTANLQlCI STM.XRT)
DIMENSION ISTM( IQle).XRT( 1(0).XITI (5bXTBL( 5.5.10).
* J TEL ( 5. 5). X ST:>1C 5). XXRT( 5)
DO I 00 I I= I. 2 Ql
DO I 10 I I 1= I. 5
J 1= CI I- I> * 5+ I I I
XXRT(I II>=XRT(J I>
KSTM= 100
KSTP= I S T:1 (J I>
IFCKSTP.EQ.0)GO TO Ilf
KS TM = I F I X ( FL 0 AT ( KSTM >* I • 3)
KSTP=KSTP- I
GO TO 112
XSTMCI II>=FLOATCKSTM)/100. 0
CONTINUE
WRITE(6. 11(0) (XSTM(J IbXXRTCJ I>.J 1= I. 5)
FOR"1ATC IX. 5( F5. 2, F6. 2. 3X»
CONTINUE
DO 200 I 2= I. 5
DO 201 121=1.5
DO 202122=1.10
XTBL(I2.I21.I22)=99999.9
CONTINUE
J TBL ( I 2. I 2· I> = 0
CONTINUE
CONTINUE
K2= I SnlC P + I
DO 2 10 I 2= 2. I 00
K I=K2
K2=I STM( I 2)+ 1
JTEL(K I. K2)=JTBLCK I. K2)+ I
K3=JTBLC K 1. K2)
XTBLCK I. K2. K3) =XRTCI 2)
CONTINUE
KITI=100
DO 300 13= I. 5
XITI(I3)=FLOAT(KITI)/100.0
KITI=IFIX(FLOAT(KITI)*1.3)
CONTINUE
v.IRI TE( 6.20(0)
FOR'1AT( IHI. 5X. 'CONTINGENCY TABLES')
DO 4130 I 4= 1. 5
WHIT E( 6. 2 I (0) XI TI CI Lj) • (X I TI (J 4) • J 4 = I. 5)
FOf1l1AT(IIIISX. 'RT"S FOR'.F5.2. IX. 'SEC. FP'II
* 12X. 'CONTINGENT ON PREVIUOS FP' 'So 'II
* 10X.S(FS.2.' SEC.')II)
WRI TE( 6.22(0) «XTBL(JK I. 14. Jl(2).• JK 1= I. 5). JK2= I. 10)
·FO[{j"1AT( 10( lex. 5( F5. 2. SX). I»
CONTINUE