rnRTRftN TO ALGOL TKANSLATOri 

 PMAJiE: 1 roRTWAN STATEMENTS 



SUSRGUTINE PFqsof IN. IO,P,R,B) 

 C P=rUNCTlON OF R 3 POWER DENSITY 

 C B= FUNCTION OF R = COMPASS BEARING 

 C R= FRLQUE^iCY IN "^ L 



DIMENSION IDC?)»PC?)»RC2)»BC2i*CC360)*S(360) 



T=10.0 



0=0.70710676 



DTH=0. 017453293 



C OTH IS ONE DEGREEE IN RADIA^JS IE HAOIANS PER 1 DEGREE 



A = 0.0 



00 10 I=l»360 



a=a+oth 



C( I )=CGSE( A) 

 10 S(n = SlNF(A) 



CALL PLOT(0.0,0.0.3) 



CALL PLOTCO.O, 10.5,?) 



CALL PL0TC8.0. 10.5,?) 



CALL PL0T(8. 0,0.0,?) 



CALL PLOTCO. 0.0.0'?) 



CALL SYMBULC 1.0,0. 5, -0.1»I0C1), 0,0,66) 



CALL PL0TCfl,0,3.S,-3) 



CALL PL0T(3.0,0.0,9) 



B-14 



