File RECO2H.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

C ANOVA ON CORRECT LATENCIES OF RECO2 DATA...WINER,P110 DESIGN
	DIMENSION LATP(20,12),P(20)
	CALL LTAPE(1,LATP(1,1),9)
	G=0.
	X2=0.
	T2=0.
	P2=0.
	DO 40 I=1,20
 40	P(I)=0.
	DO 100 J=1,12
	T=0.
	SX2=0.
	DO 90 I=1,20
	X=LATP(I,J)
	SX2=SX2+X*X
	P(I)=P(I)+X
 90	T=T+X
	X2=X2+SX2
	T2=T2+T*T
	G=G+T
	U=T/20.
	S=SQRT((SX2/20.-U*U)/20.)
 100	WRITE(1,2)J,U,S
 2	FORMAT(I4,2F10.2)
	DO 110 I=1,20
 110	P2=P2+P(I)*P(I)
	P2=P2/12.
	T2=T2/20.
	G=G*G/240.
	WRITE(1,3)
 3	FORMAT(///8X,'SS',10X,'MS',7X,'DF'//)
	SSBP=P2-G
	BPMS=SSBP/19.
	I=19
	WRITE(1,4)SSBP,BPMS,I
 4	FORMAT('BS',2F10.2,I8)
	SSWP=X2-P2
	WPMS=SSWP/220.
	I=220
	WRITE(1,5)SSWP,WPMS,I
 5	FORMAT('WS',2F10.2,I8)
	SSTR=T2-G
	TRMS=SSTR/11.
	I=11
	WRITE(1,6)SSTR,TRMS,I
 6	FORMAT('TR',2F10.2,I8)
	SSR=X2-T2-P2+G
	RMS=SSR/209.
	I=209
	WRITE(1,7)SSR,RMS,I
 7	FORMAT('R ',2F10.2,I8)
	SST=X2-G
	TMS=SST/239.
	I=239
	F=TRMS/RMS
	WRITE(1,8)SST,TMS,I,F
 8	FORMAT('T ',2F10.2,I8//'F=',F10.3)
	END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search