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