Density 3D Data Plot

A density plot generated from an array of height values. It shows a rectangular plot that consists of a grid of smaller rectangles each being colored according to the value of the array.
array = {{z₁₁, z₁₂, ...., z_1,n2}, .... {z_n2,1, z_n2,2, ...., z_n1,n2}},     z_ij = z(x_i, y_j),    1 < = i < = n₁,   1 < = j < = n₂
Successive rows of the array are arranged up the page; successive columns across the page.

Enter a two dimentional list :   

" >

---

<%Mathlet MSPBlock[{$$list, $$frame, $$meshx0, $$meshx1, $$meshy0, $$meshy1, $$imageSize, $$mesh, $$shColor, $$meshstyle, $$plotLabel, $$fr1, $$fr2, $$fr3, $$fr4, $$rotateLabel, $$aspectRatio, $$xRangeBeg, $$xRangeEnd, $$yRangeBeg, $$yRangeEnd, $$zRangeBeg, $$zRangeEnd, $$rColor, $$gColor, $$bColor, $$rColorBackg, $$gColorBackg, $$bColorBackg}, result = ListDensityPlot[$$list, AspectRatio->If[$$aspectRatioFlag === "Specified", $$aspectRatio, MSPToExpression[$$aspectRatioFlag]], Mesh->$$mesh, ColorFunction ->$$shColor, Frame->$$frame, FrameLabel->{If[$$fr1 === Null, "", ToString[HoldForm[$$fr1]]], If[$$fr2 === Null, "", ToString[HoldForm[$$fr2]]], If[$$fr3 === Null, "", ToString[HoldForm[$$fr3]]], If[$$fr4 === Null, "", ToString[HoldForm[$$fr4]]]}, PlotLabel->If[$$plotLabel === Null, "", ToString[HoldForm[$$plotLabel]]], PlotRange->{If[$$xPlotRange === "Specified",{$$xRangeBeg,$$xRangeEnd}, MSPToExpression[$$xPlotRange]], If[$$yPlotRange === "Specified",{$$yRangeBeg,$$yRangeEnd}, MSPToExpression[$$yPlotRange]], If[$$zPlotRange ==="Specified", {$$zRangeBeg,$$zRangeEnd}, MSPToExpression[$$zPlotRange]]}, MeshRange->If[$$meshrange ==="Specified", {{$$meshx0,$$meshx1},{$$meshy0,$$meshy1}}, MSPToExpression[$$meshrange]], MeshStyle->$$meshstyle, RotateLabel->$$rotateLabel, DefaultColor->If[{$$rColor,$$gColor,$$bColor} =!= {"","",""}, RGBColor[$$rColor,$$gColor,$$bColor], Automatic], Background-> If[{$$rColorBackg,$$gColorBackg,$$bColorBackg} =!= {"","",""}, RGBColor[$$rColorBackg,$$gColorBackg,$$bColorBackg], Automatic], ImageSize-> If[NumberQ[$$imageSize],$$imageSize,Automatic] ]; If[Head[result] === DensityGraphics, MSPShow[result]] ] %>

Save as:  > GIF and animated GIF (.gif) >JPEG (.jpeg) >JPEG (.jpg) > Encapsulated PostScript (.eps) > Mathematica abbreviated PostScript (.mps) > Adobe Acrobat portable document format (.pdf) > Microsoft bitmap format (.bmp) > Encapsulated PostScript with device independent preview (.epsi) > Encapsulated PostScript with TIFF preview (.eps) > Mathematica independent raster graphics format (.mgf) > Portable bitmap format (.pbm) >TIFF (.tif) >TIFF (.tiff) > X window system bitmap (.xbm)

With file name:   " > <%Mathlet MSPBlock[{$$fname, $$submitButton1}, c = If[$$fname === Null, "", ToString[$$fname]]; ftype = Switch[$$opt, "jpg", "JPEG", "tif", "TIFF", "eps", "EPSTIFF", "xbm", "XBitmap", "mps", "MPS", _ , $$opt]; If[Head[result] === DensityGraphics, MSPReturn[DisplayString[result, ftype], "image/"<>ftype , c<>"."<>$$opt] ] ] %>

---

Density Data Plot options

Mesh:   <%Mathlet MSPSetDefault[$$mesh, "True"]; %> > True   > False    whether to draw a mesh

Colored in:   <%Mathlet MSPSetDefault[$$shColor, "Automatic"] ;%> > Gray scale   > Color scale   whether to use colors for shading

Mesh Range:    This option sets the range of values in x and y. It makes sure that the axes are properly arranged.

<%Mathlet MSPSetDefault[$$meshrange, "Automatic"]%> > Automatic   > Specified for both :

Mesh range for x-axis:   from   " >   to   " >

Mesh range for y-axis:   from   " >   to   " >

Mesh style:   > Black > Red > Yellow > Green > Blue > Violet

General options

Plot range: (All - all points are included, Automatic - outlying points are dropped)

X:  <%Mathlet MSPSetDefault[$$xPlotRange, "Automatic"] %> > Automatic   > All   > Specified   " >  < = x < =  " >

Y:  <%Mathlet MSPSetDefault[$$yPlotRange, "Automatic"] %> > Automatic   > All   > Specified   " >  < = y < =  " >

Z:  <%Mathlet MSPSetDefault[$$zPlotRange, "Automatic"] %> > Automatic   > All   > Specified   " >  < = z < =  " >

<%Mathlet MSPSetDefault[$$frame, "True"] ;%> Frame:  > True   > False

Frame labels:

Frame label down:   " >  Frame label left:   " >

Frame label up:   " >  Frame label right:   " > 

<%Mathlet MSPSetDefault[$$rotateLabel, "True"] %> Rotate labels:  > True   > False   (whether to allow text in frame labels to be vertically positioned)

Plot label:   " >

<%Mathlet MSPSetDefault[$$aspectRatioFlag, "Automatic"] %> Aspect ratio :  > Default   > Automatic   > Specified :   " >
Setting the AspectRatio option changes the whole shape of your plot. AspectRatio gives the ratio of height to width.
Its default value is the inverse of the Golden Ratio - supposedly the most pleasing shape for a rectangle.
Automatic determines the shape of the display area from the original coordinate system.

Frame color (RGB color):  red part :  " >   green part :  " >   blue part :  " >
The values of the color parts must be between 0 and 1.

Background (RGB color):  red part :  " >   green part :  " >   blue part :  " >

Image size:   ">   specifies that the image should have a width of x printer's points

  

---