Blog

I want to get equal value contour of a function. But I want the curve to be precise. A naive way would be using ContourPlot, then extract the contour data. To do this, we need a utility to extract contours like below ClearAll[extractContourAssoc]; extractContourAssoc[contourPlot_] := Module[{}, tooltipData = Cases[Normal@contourPlot, Tooltip[x__] -> {x}, Infinity]; contourValueList =Read more

Can ContourPlot label contours when the plotting implicit curves? For example, ContourPlot[Abs[Sin[x] Sin[y]] == 0.5, {x, -3, 3}, {y, -3, 3}, ContourLabels -> True] produces with no visible labels, as do ContourPlot[Abs[Sin[x] Sin[y]] == 0.5, {x, -3, 3}, {y, -3, 3}, ContourLabels -> “x”] ContourPlot[Abs[Sin[x] Sin[y]] == 0.5, {x, -3, 3}, {y, -3, 3}, ContourLabelsRead more

We have two lists with plot: ( Because they are not very short we uploaded list1 and list2,here and here) In some regions the values related to the z axis of list2 gets exceeding from the values related to the z axis of list1. We specified these regions with red color. Main Question: Because weRead more

I want to create a contour plot of a function that goes to infinity at x=1 and z=0 as can be seen by plotting it for x=1: zmax = 4; fun[x_, y_, z_, xp_, yp_] := -(3*z^3)/(2*Pi*(z^2 + (x – xp)^2 + (y – yp)^2)^(5/2)); Plot[fun[1, 1, z, 1, 1], {z, 0, zmax}] The followingRead more

isoth = ContourPlot[ {v p } , {v, .12, 2}, {p, .12, 2}] adiab = ContourPlot[ {v^1.4 p} , {v, .12, 2}, {p, .12, 2}] Show[{isoth, adiab}, PlotRange -> All] In an attempt to see heat/work thermodynamics in a Carnot cycle, could not plot hyperbolae type curves together. Please help to Show how the firstRead more