13 A=NTIC-1 



XN=X+A*CTH*OELTIC 



YN=Y+A*STH*DELTIC 



DO 20 I=1,NTIC 



CALL PL0T(XN,YN,2) 



CALL PL0T(XN+DXB,YN+DYB,2) 



CALL PL0T(XN,YN,2) 



XN=XN-CTH*DELTIC 



YN=YN-STH*OELTIC 

 20 CONTINUE 



RETURN 



END 



FUNCTION SRMS(X,N) 



DIMENSION X(l) 



AVE =0.0 



SRMS=0.0 



DO 10 1=1, N 

 10 AVE=AVE+(X(I)/FLOAT(N)) 



00 20 1=1, N 

 20 SRMS=SRMS+((X(I)-AVE)**2) 



SRMS=SRMS /FLOAT (N) 



SRMS=SQRT(SRMS) 



RETURN 



END 



170 



