PROGRAM EXA12_3
PARAMETER (N=18)
DIMENSION XRAY(N),YRAY(N),Z1RAY(N),Z2RAY(N),XWRAY(N),
* YWRAY(N),ICRAY(N)
CHARACTER*80 CBUF
DATA XRAY/1., 3., 8., 1.5, 9., 6.3, 5.8, 2.3, 8.1, 3.5,
* 2.2, 8.7, 9.2, 4.8, 3.4, 6.9, 7.5, 3.8/
DATA YRAY/5., 8., 3.5, 2., 7., 1.,4.3, 7.2, 6.0, 8.5,
* 4.1, 5.0, 7.3, 2.8, 1.6, 8.9, 9.5, 3.2/
DATA Z1RAY/0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
* 0., 0., 0., 0., 0., 0., 0., 0./
DATA Z2RAY/4.,5.,3.,2.,3.5,4.5,2.,1.6,3.8,4.7,
* 2.1, 3.5, 1.9, 4.2, 4.9, 2.8
DATA ICRAY/30, 30, 30, 30, 30, 30, 100, 100, 100, 100,
* 100, 100, 170, 170, 170, 170, 170, 170/
DO I=1,N
XWRAY(I)=0.5
YWRAY(I)=0.5
END DO
CALL SETPAG('DA4P')
CALL METAFL('PS')
CALL DISINI
CALL PAGERA
CALL HWFONT
CALL AXSPOS(200,2600)
CALL AXSLEN(1800,1800)
CALL NAME('X-axis','X')
CALL NAME('Y-axis','Y')
CALL NAME('Z-axis','Z')
CALL TITLIN('3-D Bars / BARS3D',3)
CALL LABL3D('HORI')
CALL GRAF3D(0.,10.,0.,2.,0.,10.,0.,2.,0.,5.,0.,1.)
CALL GRID3D(1,1,'BOTTOM')
CALL BARS3D(XRAY,YRAY,Z1RAY,Z2RAY,XWRAY,YWRAY,ICRAY,N)
CALL LEGINI(CBUF,3,20)
CALL LEGTIT(' ')
CALL LEGPOS(1300,1100)
CALL LEGLIN(CBUF,'First',1)
CALL LEGLIN(CBUF,'Second',2)
CALL LEGLIN(CBUF,'Third',3)
CALL LEGEND(CBUF,3)
CALL HEIGHT(50)
CALL TITLE
CALL DISFIN
END
Figure 12.3: 3-D Bars / BARS3D