2D Functions
Function Plot
Parametric Plot
Multiple Parametric Plot
Filled Plot
Multiple Filled Plot
Logarithmic Plot


2D Data Plots
Data Plot
Data Error Plot
Data Logarithmic Plot
Data Labeled Plot


Contour & Density Plots
Contour Plot
Density Plot
Level Curves


3D Functions
3D Function Plot
3D Parametric Plot
3D Multiple Parametric Plot
3D Vector Field
3D Gradient Field
Shadow 3D Function

3D Data Plots
Contour 3D Data Plot
Density 3D Data Plot


Special Plots
Vector Field
Bar Charts
Pie Chart
Zonotope Show


Links
About This Site
Citation & Credits
Sci.Vis. Tutorials
webComputing


Data Logarithmic Plot

Logarithmic Plot of {y1, y2, ... } plots a list of values. The x coordinates for each point are taken to be 1, 2, ...
Logarithmic Plot of {{x1, y1}, {x2, y2}, ... } plots a list of values with specified x and y coordinates.

Choose the data type : <%Mathlet MSPSetDefault[$$list1, "List"]%>

> List
Enter a list of y values :
" >

> Nested list
Enter a list of values for x :
" >

Enter a list of values for y :
" >
The lists for x and for y must have equal dimensions.

<%Mathlet MSPSetDefault[$$funcType, "LogListPlot"] %> Choose the type of the plot :
    > Linear-Log
    > Log-Linear
    > Log-Log



<%Mathlet Needs["Graphics`Graphics`"]; %> <%Mathlet MSPBlock[ {$$list, $$nestlistX, $$nestlistY, $$h, $$pointSize, $$plotJoined, $$XAxe, $$YAxe, $$xAxeOrigin, $$yAxeOrigin, $$xAxeLabel, $$yAxeLabel, $$xTicks, $$yTicks, $$frame, $$rotateLabel, $$xGrids, $$yGrids, $$plotLabel, $$aspectRatio, $$fr1, $$fr2, $$fr3, $$fr4, $$xRangeBeg, $$xRangeEnd, $$yRangeBeg, $$yRangeEnd, $$rColor, $$gColor, $$bColor, $$rColorBackg, $$gColorBackg, $$bColorBackg, $$imageSize }, If[$$list1 === "List", If[VectorQ[$$list, NumberQ], l = $$list], If[MatrixQ[l1 = MapThread[{#1,#2}&,{$$nestlistX, $$nestlistY}],NumberQ], l = l1] ]; style={}; If[$$pointSize =!= Null, style = Append[style, PointSize[$$pointSize]]]; If[$$h =!= Null, style = Append[style, Hue[$$h]]]; If[MSPValueQ[l], arguments = {l, PlotRange->{If[$$xPlotRange === "Specified",{$$xRangeBeg,$$xRangeEnd}, MSPToExpression[$$xPlotRange]], If[$$yPlotRange === "Specified",{$$yRangeBeg,$$yRangeEnd}, MSPToExpression[$$yPlotRange]]}, AspectRatio->If[$$aspectRatioFlag === "Specified", $$aspectRatio, MSPToExpression[$$aspectRatioFlag] ], Axes->{$$XAxe,$$YAxe}, AxesOrigin-> If[$$axesOriginFlag === "Specified", {$$xAxeOrigin, $$yAxeOrigin}, Automatic], AxesLabel->{If[$$xAxeLabel === Null, "", ToString[HoldForm[$$xAxeLabel]]], If[$$yAxeLabel === Null, "", ToString[HoldForm[$$yAxeLabel]]]}, Ticks->{If[$$xTicksFlag === "Specified" , $$xTicks , MSPToExpression[$$xTicksFlag] ], If[$$yTicksFlag === "Specified" , $$yTicks , MSPToExpression[$$yTicksFlag] ]}, 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]]]}, RotateLabel->$$rotateLabel, GridLines-> {If[$$xGridsFlag === "Specified" , $$xGrids , MSPToExpression[$$xGridsFlag]], If[$$yGridsFlag === "Specified" , $$yGrids , MSPToExpression[$$yGridsFlag]]}, PlotLabel->If[$$plotLabel === Null, "", ToString[HoldForm[$$plotLabel]]], PlotJoined->$$plotJoined, PlotStyle->style, 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] }; result = Switch[$$funcType, "LogListPlot", LogListPlot @@ arguments, "LogLinearListPlot", LogLinearListPlot @@ arguments, "LogLogListPlot", LogLogListPlot @@ arguments]; If[Head[result] === Graphics, MSPShow[result]], "The list is incompatible."] ] %> <%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] === Graphics, MSPReturn[DisplayString[result, ftype], "image/"<>ftype , c<>"."<>$$opt] ] ] %>

Save as : 

With file name :   " >


Logarithmic list plot options

<%Mathlet MSPSetDefault[$$plotJoined, "False"] %> Plot joined :    > True   > False
Whether to draw a line joining the points.

Point color in Hue style:  "> the value of Hue must be between 0 and 1

Point size :   ">   The diameter of points is given as a fraction of the total width of the graph The initial default point size is 0.008

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 < =  " >

<%Mathlet MSPSetDefault[$$XAxe, "True"] %> <%Mathlet MSPSetDefault[$$YAxe, "True"] %> Axes :   X : > True > False      Y : > True > False

<%Mathlet MSPSetDefault[$$axesOriginFlag, "Automatic"] %> Axes origin : > Automatic   > Specified    X : " >    Y : " >

Axes labels :   X : " >   Y : " >

<%Mathlet MSPSetDefault[$$xTicksFlag, "Automatic"] %> <%Mathlet MSPSetDefault[$$yTicksFlag, "Automatic"] %> Ticks :
Whether to draw tick marks if there are axes. You may specify the positions at which ticks will be drawn.

X :   > Automatic   > None   > Specified :   " > (enter a list of values)

Y :   > Automatic   > None   > Specified :   " > (enter a list of values)

<%Mathlet MSPSetDefault[$$xGridsFlag, "None"] %> <%Mathlet MSPSetDefault[$$yGridsFlag, "None"] %> GridLines :
Whether to draw gridlines. You may specify the positions at which gridlines will be drawn.

X :   > None   > Automatic   > Specified :   " > (enter a list of values)

Y :   > None   > Automatic   > Specified :   " > (enter a list of values)

<%Mathlet MSPSetDefault[$$frame, "False"] ;%> 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, "1/GoldenRatio"] %> 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.


Plot color (RGB color) :  red part :  " >   green part :  " >   blue part :  " >
Specifies the default color to be used for axes, frames and bounds of the figure. 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

  
© 2004 webComputing,   Scientific Visualization