LISTING OF COMPUTER PROGRAM FOR CALCOMP PLOTS 
an00 
PROGRAM PLTHSP (INPUT »QUTPUT » TAPES=INPUT » TAPE6=OUTPUT 9 TAPE? 9 TAPES) 
ITAPE = 7 
CALL CALPLT(ITAPE) 
STOP 
END 
SUBROUTINE CALPLT(ITAPE) 
DIMENSION TIME (4003) »PITCH (4003) sHEAVE (4003) 
* » [BUF (1000) »BWACL (4003) »CGACL (4003) 
. LOGICAL ACCEL 
10 
CAL CUMP PLOT OF PITCH AND HEAVE VERSUS TIME 
IREAD = S 
READ(IREAD.10) XAXISsYAXISP ,VAXISHohT 
FORMAT (8F 10.0) 
ACCEL = .FALSE. 
READ(IREAD.20) IA 
9 FORMAT (110) 
IF (TA.EQ.1) ACCEL = .TRUE. 
IF (ACCEL) SCEAD(IREAD,10) YAXISbH,YAXISC 
CALL READT (TIME sHEAVE PITCH» BWACL sCGACL »NPTS) 
CALL PLOTS (IBUF 9100097) 
CALL PLUT(0.591.09=-3) 
CALL ESCALE (TIME »XAXISoNPTSo1) 
CALL ESCALE (HEAVE sYAXISH»NPTS91) 
CALL ESCALE (PITCHs YAXISP»NPTS91) 
IF (ACCEL) CALL ESCALE (BWACL 5 YAXISB»NPTSo1) 
IF (ACCEL) CALL ESCALE (CGACL 5YAXISCsNPTS91) 
Nl = NPTS#} 
N2 = NPTS¢2 
N3 = NPTS¢3 
CALL EAXIS(0.0,0.0,1SHTIME IN SECUNDS 9-15 9XAX1IS50.09 
TIME (NL) o TIME (N2) o TIME (N3) 9HT) 
“CALL EAXIS(0e090ceO0o13HHEAVE IN FEET 9139 VAXISHS90009 
e HEAVE (11) sHEAVE (N2) sHEAVE (N3) 9 HT) 
TEMP = TIME (N2) 
TIME (N2) = TIME (N2)/TIME(N3) 
HEAVE(N2) = HEAVE (N2) /REAVE (N3) 
CALL LINE (TIME sHEAVE »NPTS919090) 
TIME(N2) = TEMP 
XNEW = XAXTS¢3. 
YNEw = 1.0 
CALL PLUT (xXNEW50.05=3) 
CALL EAAIS(00490.0,1SHTIME IN SECONDS 9=155XAXIS 90.05 
e TIME (N1) o TIME (N2) 9 TIME (N3) 9HT) 
CALL EAXIS(00090.0e13HPITCH IN RAVo 913s YAXISP 590009 
6 PITCH(NI]) sPITCH(N2) sPITCHI(N3) sAT) 
TIME(N2) = TIME (N2) /TIME(N3) 
PITCH(N2) = PITCH(N2) ZPITCH(N3) 
CALL LINE (TIME sPITCHsNPTS 91 9090) 
IF (~NOTeACCEL) GO TO 30 
TIME(N2) = TEMP 
CALL PLOT (XNEW50.09=3) 
CALL EAXIS(9.0900091SHTIME IN StCUNDS9=-159XAXIS900 OsTIMECN1]) » 
e TIME (N2) » TIME (N3) sHT) 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALL EAXTS(2.050.0916HBUW ACCELERATION) 1659 YAXISB990.0 98WACL (N1) »CALP 
* BWACL (N2) sBWACL (N3) sAT) 
TIME (N2) = TIME (N2)/TIME(N3) 
-BWACL(N2) = BWACL(N2) /BWACL(N3) 
69 
CALP 
CALP 
CALP 
OBNDAMNFWNAMNFE Wh 
