Density Plot

Density plots show the values of your function of two variables at a regular array of points. Lighter regions are higher parts of the surface.

Enter a function z = f(x,y) :  ">   

Range for the independent variables :   ">  = < x < =  ">  ,  ">  = < y < =  ">

---

<%Mathlet MSPBlock[{$$func, $$xBeg, $$xEnd, $$yBeg, $$yEnd, $$xPoints, $$yPoints, $$mesh, $$shColor, $$frame, $$fr1, $$fr2, $$fr3, $$fr4, $$plotLabel, $$rotateLabel, $$aspectRatio, $$rColor, $$gColor, $$bColor, $$rColorBackg, $$xRangeBeg,$$xRangeEnd,$$yRangeBeg,$$yRangeEnd, $$zRangeBeg, $$zRangeEnd, $$gColorBackg, $$bColorBackg, $$imageSize}, result = DensityPlot[$$func, {x,$$xBeg,$$xEnd},{y,$$yBeg,$$yEnd}, AspectRatio->If[$$aspectRatioFlag === "Specified", $$aspectRatio, MSPToExpression[$$aspectRatioFlag]], PlotPoints->{$$xPoints, $$yPoints}, Mesh->$$mesh, ColorFunction->$$shColor, PlotRange->{If[$$xPlotRange === "Specified",{$$xRangeBeg,$$xRangeEnd}, MSPToExpression[$$xPlotRange]], If[$$yPlotRange === "Specified",{$$yRangeBeg,$$yRangeEnd}, MSPToExpression[$$yPlotRange]], If[$$zPlotRange ==="Specified", {$$zRangeBeg,$$zRangeEnd}, MSPToExpression[$$zPlotRange]]}, 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]]], 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], RotateLabel->$$rotateLabel]; 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 Plot options

x plot points :   " size=6 >   y plot points :   " size=6 >

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

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

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 parts of color 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

  

---