Appendix B: Examples

B.2 Polar Plots

            PROGRAM EXA_2
      C     USE DISLIN         for Fortran 90!
            PARAMETER (N=300, M=10)
            REAL XRAY1(N),YRAY1(N),XRAY2(M),YRAY2(M)

            XPI=3.1415927
            STEP=360./(N-1)
            DO I=1,N
              A=(I-1)*STEP
              A=A*XPI/180
              YRAY1(I)=A
              XRAY1(I)=SIN(5*A)
            END DO

            DO I=1,M
              XRAY2(I)=I
              YRAY2(I)=I
            END DO
 
            CALL SETPAG('DA4P')
            CALL METAFL('CONS')
            CALL DISINI
            CALL PAGERA
            CALL HWFONT

            CALL TITLIN ('Polar Plots', 2)
            CALL TICKS(3,'Y')
            CALL AXENDS('NOENDS','X')
            CALL LABDIG(-1,'Y')
            CALL AXSLEN(1000,1000)
            CALL AXSORG(1050,900)

            CALL POLAR(1.,0., 0.2, 0., 30.)
            CALL CURVE(XRAY1,YRAY1,N)
            CALL HTITLE(50)
            CALL TITLE
            CALL ENDGRF

            CALL LABDIG(-1,'X')
            CALL AXSORG(1050,2250)
            CALL LABTYP('VERT','Y')
            CALL POLAR(10.,0.,2.,0.,30.)
            CALL BARWTH(-5.)
            CALL POLCRV('FBARS')
            CALL CURVE(XRAY2,YRAY2,M)
            CALL DISFIN
            END

Figure B.2: Polar Plots