VAX5D plots a 4 or 5-d surface by plotting slices through the 3rd and 4th dimensions in a 2-d array of of 3-d plots. Each 3-d surface plots d(*) as a function of 2 of the dimensions using VAX3D.
Origin of the plot is in the lower-left corner. The X axis runs left to right along the subplot bottom. The Y axis is plotted into the page of the subplot (see VAX3D). The Z axis runs left to right in subplots with the W axis vertical subplots.
^ W | | d Y | |/_ X | ----------> Z
Since the subplots may runoff the edge of the plotting page, the routine includes a page size option to issue a NEWPAGE and plot the additional subplots on separate pages. A shrinking factor is included to shrink the subplots. Labeling of the W and Z axis is due in the lower right hand corner. Each subplot is further tagged with the corresponding W and Z axis value. A multiple page plot can be pasted together to form a large representation of a 5-d (or 4-d) surface.
CALL VAX5D(d,nd,n,a,b,iflag,iax,iform,w,xh,yh,zh,ph,pl,fac,iw,iz, st,en,t1,nt1,t2,nt2,t3,nt3,t4,nt4,dt,ndt,<dm,dx<,ic>>) d (R): array to plot dimensioned d(nd(1),nd(2),nd(3),nd(4)) nd (I): array of dimensions of d array n (I): array of the number of points from in dimension to plot a,b (R): angles a,b for VAX3D subplot 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) = 2 : use color array (need all parameters) = 1 : do not use color array (10's digit) = 0 : Plot sides of subplots = 1 : Do not plot sides (100's) = 0 : Ask which screen device to use <> 0 : Screen Device Number (see FRAME) iax (I): axis format control < 0 : plot axes, use input scale factors dm and dx = 0 : no axes plotted, optional parameters (t1...dx) not used, scaling computed from input array > 0 : plot axes, axis parameters t1 through nt4 used, scaling computed from input array (1's digit) = 1 : Plot actual max/min or input values for Y axis = 2 : Plot SCALE smoothed values for Y axis (10's digit) = 0 : Axes plotted for all subplots = 1 : Axes plotted only for first subplot iform (I): plot format code selects which dimension of d array is to become which output axis plot axis plot axis Code X Y Z W Code X Y Z W _____ ____________ _____ ____________ 1 input: 1 2 3 4 13 3 1 2 4 2 dimen- 1 2 4 3 14 3 1 4 2 3 sion 1 4 2 3 15 3 2 1 4 4 number 1 4 3 2 16 3 2 4 1 4 1 4 3 2 16 3 2 4 1 5 1 3 2 4 17 3 4 1 2 6 1 3 4 2 18 3 4 2 1 7 2 1 3 4 19 4 1 2 3 8 2 1 4 3 20 4 1 3 2 9 2 4 3 1 21 4 2 1 3 10 2 4 1 3 22 4 2 3 1 11 2 3 4 1 23 4 3 1 2 12 2 3 1 4 24 4 3 2 1 w (R): working array dimensioned at least n(x)*n(y) xh,yh,zh (R): length of each axis of subplot ph,pl (R): page height, length when multiple pages accessed fac (R): shrink factor for subplots (2 == FACTOR(1/2)) iw,iz (I): plot every iw'th and iz'th subplots st,en (R): arrays containing axes start and end values (permuted along with d array dimensions) (NOTE: titles/number of characters permuted with d array dimensions) t1 (C): title corresponding to 1st dimension of d nt1 (I): number of characters in title t1 = 0 : no axis plotted > 0 : axis plotted t2 (C): title corresponding to 2st dimension of d nt2 (I): number of characters in title t2 = 0 : no axis plotted > 0 : axis plotted t3 (C): title corresponding to 3rd dimension of d nt3 (I): number of characters in title t3 = 0 : no axis plotted > 0 : axis plotted t4 (C): title corresponding to 4th dimension of d nt4 (I): number of characters in title t4 = 0 : no axis plotted > 0 : axis plotted t5 (C): title corresponding to 5th dimension of d nt5 (I): number of characters in title t5 = 0 : no axis plotted > 0 : axis plotted (NOTE: the following optional parameters are accessed only if iax < 0 or mod(iflag,10) = 1) dm,dx (R): minimum and maximum scale values for array ic (I): color array ic(1) : color for axis lines ic(2) : color for axis numbers ic(3) : color for axis titles ic(4) : color for axis exponents ic(5) : color index for lower plot surface (return) ic(6) : color index for upper plot surface (return)