# 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

Next | Previous | Contents