DO 20 I=2»L 

 X=X+DX 



Y = ZLOGP( I )-bE 



20 CALL PLOT (X»Y,25 



CALL SYMB0lCX,Y»0.1 j.lHP*0.0»l ) 



X = 5.0 



YaZLOQVCL)-bE 



CALL SYM8aL(X,Y*0.1.1HA, 0.0.1) 



CALL PL0T(X,Y,3) 



M = L-t 



DO 21 1=1. M 



X=X-OX 



II=L-I 



Y = ZLOGvCin-BE 



21 CALL PLOTCX.Y,?) 

 WMAX=MAX 



X = 0.0 



YrZLQGWCl )-bE 

 CALL PL0TCX#Y,3) 

 DO 22 1=2. L 

 X=X+OX 



ir(ZLUGW(n-WHAX)24. 23.23 

 23 Y=8.0 



GO TO 22 



B-12 



