next up previous contents index
Next: SUBROUTINE LCNTR Up: MASTER Subroutines Previous: SUBROUTINE GLPLOT

SUBROUTINE HIST3D

   HIST3D plots a 2-d histogram as square columns plotted as z values from the x,y plane with hidden line removal. The input consists of the values of the z axis for each (x,y) point on the plane. Each square grid is plotted as two triangles using either  SKETCH or  PLT3DH permitting hidden line removal if desired. HIST3D calls  INIT3DH to initialize the 3-d hidden line package. Default space is provided in the INIT3DH common block. The ISIZE variable will be reset to the internal size if its value is smaller than the internal size. Sufficient space in the internal common block is provided for reasonably complex surfaces.

CALL HIST3D(z,ndx,ndy,nx,ny,s,p,t,dv,zref,xl,yl,zl,iflag,ia,
                xt,nxt,tx,sx,gx,fx,
                yt,nyt,ty,sy,gy,fy,
                zt,nzt,tz,sz,gz,fz,
                xm,xx,ym,yx,zm,zx<,ic>)

z      (R): array of z values
ndx,ndy(I): dimensions of z array
nx,ny  (I): number of points in each dimension to use of z array
s,p,t  (R): yaw,roll,pitch angles of axes (see INIT3DH)
dv     (R): perspective scale factor for INIT3DH
            < 0 : no hidden lines in SKETCH, INIT3DH called
            = 0 : INIT3DH not called to initialize 3d package,
                  (INIT3DH previously called)
            > 0 : hidden lines in SKETCH, INIT3DH called
            = 9999 : no perspective in INIT3DH
zref   (R): reference value from which columns are drawn from
xl     (R): x axis length in inches
yl     (R): y axis length in inches
zl     (R): z axis length in inches
iflag  (I): option flag
           < 0 : do not close LONGLIB after plotting
           = 0 : close LONGLIB--no plot produced
           > 0 : close LONGLIB after plotting
(magnitude) > 10000 : do not initialize LONGLIB before plotting
   (1's digit)   = 1 : do not use color array
                 = 2 : use color array
   (10's digit)  = 0 : hidden line removal for surface only
                 = 1 : hidden line removal for axis and surface
                 = 2 : no hidden line removal (SKETCH not used)
   (100's digit) = 0 : Ask which screen device to use
                <> 0 : Screen Device Number (see FRAME)
ia     (I): axis option flag
            < 0 : plot axis use input z axis scale
            = 0 : do not plot axes
            > 0 : plot axis use computed z axis scale
   (1's digit)  = 1 : plot y axis using input scale
                = 2 : plot y axis using input, smoothed scale
   (10's digit) = 1 : plot x axis using input scale
                = 2 : plot x axis using input, smoothed scale
xt     (C): x axis title string
nxt    (I): number of characters in x axis title
            < 0 : axis ticks on top of x axis
            = 0 : no axis
            > 0 : axis ticks on bottom of x axis (normal)
tx     (R): number and pattern of axis ticks (see AXIS3)
sx     (R): size of axis labeling (see AXIS3)
           < 0 auto exponent scaling (x10 to power) disabled
           > 0 auto exponent scaling (x10 to power) enabled
gx     (R): rotation angle for x axis (see AXIS3DH)
fx     (R): format of axis number labeling (see AXIS3)
yt     (C): y axis title string
nyt    (I): number of characters in y axis title
            < 0 : axis ticks on top of axis
            = 0 : no axis
            > 0 : axis ticks on bottom of axis (normal)
ty     (R): number and pattern of axis ticks (see AXIS3)
sy     (R): size of axis labeling (see AXIS3)
           < 0 auto exponent scaling (x10 to power) disabled
           > 0 auto exponent scaling (x10 to power) enabled
gy     (R): rotation angle for y axis (see AXIS3DH)
fy     (R): format of axis number labeling (see AXIS3)
zt     (C): z axis title string
nzt    (I): number of characters in z axis title
            < 0 : axis ticks on top of axis
            = 0 : no axis
            > 0 : axis ticks on bottom of axis (normal)
tz     (R): number and pattern of axis ticks (see AXIS3)
sz     (R): size of axis labeling (see AXIS3)
           < 0 auto exponent scaling (x10 to power) disabled
           > 0 auto exponent scaling (x10 to power) enabled
gz     (R): rotation angle for z axis (see AXIS3DH)
fz     (R): format of axis number labeling (see AXIS3)
xm,xx  (R): minimum, maximum value displayed on x axis
ym,yx  (R): minimum, maximum value displayed on y axis
zm,zx  (R): minimum, maximum value of z axis (accessed if ia < 0)
ic     (I): color list (accessed if 1's digit of iflag=2)
            ic(1) : color for axes
            ic(2) : color for surface



David Long
Wed Jun 12 10:34:11 MDT 1996