CALL SYMB0L(3.25.0.0»0.1MHi^ ,0.0M) 



CALL AXISCO.O'I .0»0H # 0» 5 . 0. 90 . 0» " 1 . 0» 1 .0 ) 



CALL PLOTCO.0.1 .0»3) 



CALL PL0TC0.0.0.0*2) 



CALL PLDTC-3. 0*0.0,?) 



CALL SYMB0L(-3.26,O.0,0.1 f IHS »0.0.n 



X=-3.0*D 



Y = X 



CALL SYMBOLCX-O.WY-0. 1,0.1. IHE ,0.0,1) 



CALL PL0T(X,Y,3) 



CALL PL0TC-X,-Y,5) 



CALL SYMBOLCO. 1-X,o.1-Y,0.1,1HW ,0.0, n 



CALL PLOT(0.0,0.0»-3) 



DO 20 1=1,6 



A = 0.5*rL0ftTF CI D 



CALL PLOTCA,0.0,B) 



DO 30 J=l»360 



Y=A*SC J)*0 



X=A*CCJ) ♦ Y 

 30 CALL PL0TCX,Y,2) 

 20 CONTINUE 



CALL PL0T(0.0»0.O,-3) 



DslO.O*D 



10*0 NEEDED TO SCALE 0,0-0.3 TO 0-3 INCHES ON PLOTS 



B-15 



