Tag: Plotting

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:
enter image description here

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:

enter image description here

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.

Its the answer :

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 youenter image description here

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)

enter image description here

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.

enter image description here

Do you have any suggestion?

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.

enter image description here

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.:

enter image description here

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