agNgNaNgN 
CALL LINE (TIME sBWACLoNPTS91 9000) 
TIME (N2) = TEMP 
CALL PLUT (XNEW,0.05=3) 
CALL EAXTS(000000091SHTIME IN SECUNDS9=159XAXIS90.009TIME (NI) » 
° TIME (N2) 9 TIME (N3) HT) 
CALL EAXIS(0.050.091S5HCO ACCELERATION15, YAXISCs90.0,CGACL(N1) » 
* CGACL (N2) »CGACL (N3) sHT) 
30 
20 
10 
19 
TIME (N2) = TIME (N2)/TIME(N3) 
CGACL(N2) = CGACL (N2) /CGACL (N3) 
CALL LINE (TIME »CGACL »NPTS»1 90,0) 
CONTINUE 
CALL PLOT (30.090.0,999) 
RETURN 
END 
SUBROUTINE READT (TIME »HEAVE »PITCHs BWACL »CGACL yNPTS) 
DIMENSION x (6) sHEAVE (1) sPITCH(1) 
o 9 TIME (1) sBWACL (1) »CGACL (1) 
I =0 
CONTINUE 
I = Iel 
READ(9) TIME(T) 9 (X(1) 9 1=496) »BWACL (I) »CGACL (I) 
IF (EOF (9))109015 
CONT INUE 
WRITE (6920) TIME(I) 9 (X (J) 9J=496) sBWACL (1) »CGACL(I) 
FORMAT(1H .6(F7e202X)) 
HEAVE(I) = xX(5) 
PITCH(I) = x(6) 
IF (1-GE-40N0) GO TO 10 
GO TO S 
CONTINUE 
NPTS = l-l 
RETURN 
END 
SUBROUTINE EAXIS (XPAGE » YPAGE 9 IBCD »NCHAR gAXLENg ANGLE oF IRSTV 9 
6 DELTAV»sDELTAUsHT) 
DIMENSION 1BCD(1) 
THIS ROUTINE wORKS LIKE THE CALCOMP AXIS WITH THE 
EXCEPTION THAT THE TICK MARKS ARE NOT NECCESSARILY 
EVERY INCH AND THE HEIGHT OF THE CHARACTERS IS INPUTTED 
CALL PLUT(xPAGE » YPAGE 53) 
ISN = ISIGN(1 »NCHAR) 
ISGN = SIGN(1.»DELTAV) 
AMIN = FIRSTV 
x = XPAGE 
Y = YPAGE 
XNUM = FIRSTV-DELTAV 
N = AXLEN/DELTAU 
IF (N@DELTAUCLT-AXLEN) N=Nel 
AMAX = AMIN*(N#DELTAV) 
NDIG = NDIGIT(AMINsAMAX»DELTAUsND) 
CONTINUE 
TEST = (NDIG#HT) + HT 
IF (TEST»GT.DELTAU) HT=HT/2. 
IF (TEST.GT VELTAU) GO TO 10 
AYN = (1¢5#HT) 
BYN = (((NDIG=2) #HT) /204%.9#HT) 
70 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
CALP 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
EAXIS 
tAXIS 
