## plotting – Using ListDenistyPlot to Plot 3 Dimensional List

I have a question regarding how to use `ListDenistyPlot`.

I am trying to plot a large list of data (150,000 data points) by using `ListDenistyPlot`. However, I just get a blank plot. I was googling and found that `DataRange->All` might solve the problem. but `DataRange->All` does not give a plot that I expect.

First of all, here is a small portion of my whole data set:

``````list1={{0.01, 333333., -3.34023}, {0.01, 666667., -4.72878}, {0.01, 1.*10^6, -4.57112}, {0.01, .33333*10^6, -4.16681}, {0.01, 1.66667*10^6, -4.17742}, {0.01, 2.*10^6, -3.90155}, {0.01, 2.33333*10^6, -3.88109}, {0.01, 2.66667*10^6, -3.56056}, {0.01, 3.*10^6, -4.00657}, {0.01, 3.33333*10^6, -3.74037}};
list2={{0.02, 333333., -3.80096}, {0.02, 666667., -3.96544}, {0.02, 1.*10^6, -3.91482}, {0.02, .33333*10^6, -3.82796}, {0.02, 1.66667*10^6, -3.88325}, {0.02, 2.*10^6, -3.66242}, {0.02, 2.33333*10^6, -3.74607}, {0.02, 2.66667*10^6, -4.07409}, {0.02, 3.*10^6, -3.82338}, {0.02, 3.33333*10^6, -4.0941}};
list3={{0.03, 333333., -1.56863}, {0.03, 666667., -2.52771}, {0.03, 1.*10^6, -2.32215}, {0.03, 1.33333*10^6, -2.36717}, {0.03, 1.66667*10^6, -2.32597}, {0.03, 2.*10^6, -2.19032}, {0.03, 2.33333*10^6, -2.57862}, {0.03, 2.66667*10^6, -2.46321}, {0.03, 3.*10^6, -2.33937}, {0.03, 3.33333*10^6, -2.63628}};
``````

Next, I used `Join` to combine the lists.

``````listcomb=Join(list1,list2,list3);
``````

Here, I want the first component to go to the x-axis, the second component to go to the y-axis and the last component is the amplitude. i.e. {{x1,y1,z1},{x2,y2,z2},…}. Now, I tried `ListDensityPlot(listcomb)` and this is what I got:

From the range of the blank plot, I can see that mathematica is recognizing which component should be on the x-axis and y-axis. But, there is nothing in the plot. Next, I tried `ListDensityPlot(listcomb,DataRange->All)` option and this is what I got:

This time I see something other than a blank image, but now, mathematica recognizes number of the sublists as y-axis (30 data points). For the x-axis, I do not even know what it means.

I would like to know if there is a way to fix this issue.

Thanks!

## plotting – Get a List plot with hep of module

I just want to get a list plot for my model which I wrote with help of the module.

``````pp(nn_) := Module({},
n = nn;
(*......Main code Here ....*)
ff(Solve::"svars");
N(U /. qsol);
ListPlot(N(U /. qsol), n, AxesLabel -> {"n", "E (J)"}))
Off(Solve::"svars");
Show(Table(pp(j), {j, 1, 5}))
``````

It gave me the correct answer, but I couldn’t get any action.

``````Show({ListPlot(0., 1, AxesLabel -> {"n", "E (J)"}),
ListPlot(3087.46, 2, AxesLabel -> {"n", "E (J)"}),
ListPlot(7312.15, 3, AxesLabel -> {"n", "E (J)"}),
ListPlot(8717.81, 4, AxesLabel -> {"n", "E (J)"}),
ListPlot(9210.08, 5, AxesLabel -> {"n", "E (J)"})})
``````

I want to get a plot that evaluates all my code for n and plots it for every n.

## plotting – I want to solve for X in an equation

I want to solve for X in the equation ode1 (Meaning to leave it alone, or that all the values are on the other side of the equal sign) but the answer it gives me includes to then graph it X vs L but the values on L are changing constantly. Please help

``````     Sin(3 Degree)) + (((2*(2.27766*-6)*Sqrt(.003))/
Tan(6 Degree))) (Sqrt(.003 + L*Tan(6 Degree)) -
Sqrt(.003)) (1651 - X) - 0.9*(5.67*-8)*(.003*3 Degree*L)*X^4 == 0
sol = Solve(ode1, X, {L, 0, 10})
Plot(sol, {L, 0, 10})```
``````

## plotting – Determining intersection point in mathematica plot

I plotted the function given in the figure with respect to “z” .I obtained different plots for different distinct values of “t”.

Now please can you help how to obtain the intersection point of the straight line and the curves.I.e how to precisely obtain the value of ” z” at each intersection point.
Actually I am using mathematica online.So some sorts of code to obtain the intersection point will be helpfull.

Thank you

## plotting – Fix Value at the BarLegends

I am having trouble fixing a value at the barlegends.

``````contours = Function({min, max}, Range(min, max, Round((max - min)/15, 0.01)));
BarLegend({"myColorFunction", {0.4, 1}}, contours,
LegendLayout -> "Row", LabelStyle -> {FontSize -> 40},
LegendMarkerSize -> 1000)
BarLegend({"myColorFunction", {0.25, 1}}, contours,
LegendLayout -> "Row", LabelStyle -> {FontSize -> 40},
LegendMarkerSize -> 1000)
``````

What I want is the first and last value to show up in the barlegends. For example, for the first one value from 0.4 to 1, it would be nice to have contour such that 0.4,0.5,0.6,0.7,0.8,0.9,1. So the first and last value is 0.4 and 1.

Do you have any suggestion?

## plotting – Animate ellipse drawing

$$(x/3)^2+(y/5)^2=1$$, $$x=3sin(t)$$, $$y=5 cos(t)$$

I want to draw a phase trajectory with time-lapse using manipulate or animate.

Manipulate(ParametricPlot((x/3)^2 + (p/5)^2 == 1, {x, -3, 3}, {p, -5, 5}), {t, 0, 10})
I tried this code. It is not working. What is the proper version?

## plotting – MeshFunction in SmoothDensityHistogram

I would like to make a `SmoothDensityHistogram` of a data set where I can also visualize the probability level inside certain (concentric) regions. Here is the code:

``````somePoints =
RandomReal(BinormalDistribution({-2, 2}, {1, 1}, .8), 1000);

SmoothDensityHistogram(somePoints,
Automatic, "PDF",
ColorFunction -> "DarkBands",
BaseStyle -> {FontSize -> 34, FontFamily -> "Arial"},
FrameStyle -> Directive(Black, AbsoluteThickness(3)),
ImageSize -> 800,
AspectRatio -> 0.5,
PlotRange -> All,
MeshStyle -> Black,
Mesh -> 5)
``````

The issue that I have is to indicate the probability encircled by each mesh-line directly with a label on the plot (similar to what `ContourPlot` does). I am looking into `MeshFunction` but I cannot arrive to the results that I am looking for.
Ideally, I am also able to decide the mesh-lines that are plotted (eg corresponding to probabilities of 60% and 80%)

## graphics – Plotting Minkowski product of two sets in complex 2D plane

I am trying to draw Minkowski product of two sets in complex 2D
plane in `Mathematica`. While I can draw the individual complex 2d plane for these sets
in Mathematica using `ComplexRegionPlot`, I do not know if there is
a way to draw the corresponding Minkowski product.

For example, consider the following complex 2d regions
begin{align*} mathcal{G}_{1} & =left{ zinmathbf{C}midmathrm{Re}(z)geqvert zvert^{2}right} ,\ mathcal{G}_{2} & =left{ zinmathbf{C}midfrac{3}{2}mathrm{Re}(z)geqvert zvert^{2}+frac{1}{2}right} , end{align*}

where their Minkowski product is

$$mathcal{G}_{1}cdotmathcal{G}_{2}=left{ z_{1}z_{2} in mathbf{C} mid z_{1}inmathcal{G}_{1},z_{2}inmathcal{G}_{2}right} ,$$

and I am trying to plot the complex region associated with this Minkowski
product $$mathcal{G}_{1}cdotmathcal{G}_{2}$$. Any help/suggestions will be much appreciated.

## plotting – Obtaining the intersections of 3-D regions using loop?

I am trying to take intersections of several three-dimensional regions by using the regionplot3d command.
Currently thinking about how to use looping to take intersections for several 3-D regions.

``````RegionPlot3D(
x - 2*(A/8)^(i) - p^(i)*(y + z) < 0 &&
x + (A/8)^(i) - p^(i)*(y + z) > 0, {x, -2, 2}, {y, -2, 2}, {z, -2,
2}, Mesh -> None, PlotPoints -> 100)
``````

The region after taking $$i = 4,5,6,…,20$$

any idea of looping?
$$A =3, p =0.5$$

## plotting – How do i use Streamplot to plot a non homogenous differential equation

I have the following equations:

x’ = x-y
y’ = x+y-2xy

I used the following code to do the streamplot: I apologize for only having an image, as I am using Mathematica through my school servers I cannot copy and paste the data.

But I do not get any results, so then I linearize the equations and plot them separately, but I cannot figure out how to combine the plots to show in one plot.:

Is there any way to use Streamplot with nonhomogenous DE’s or a better way to combine the equations?