Cc 
Cc 
Cc 
c 
Cc 
Cc 
80 
99 
# ® #® #@ # THIS FUNCTION IS USED TO GRADUALLY IMPLIMENT THE WAVE 
T CURRENT TIME 
START TIME TO START RAMP FRUM 0.0 TO 1.0 
RISE THE LENGTH OF THE RISE FROM 0.0 TO 1.0 
H=0.0 
IF (T LTeSTART)GO TO 99 
IF (RISE-EQ.0.0)GO TO 80 
TOP=T=START 
Hel Ai!) 
IF (TOP. LT RISE) H=TOP/RISE 
GO JO 99 
H=1. 
IF (T.EQoSTART)H=0.5 
RMP=H 
RETURN 
END 
68 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
RMP 
