Search Results

I would like to plot points in 3D Space and show a number next to them. How can I achieve this ? Here is the list of coordinates / number : (0 0 0) //0 (35 0 0) //1 (35 10 0) //2 (0 10 0) / …

You can use mapping instead of a for loop: For instance, define the list of parameter to be changed: list = {1, 2, 3, 4, 5, 6}; Then: Show[Plot[Sin[x] + #, {x, 0, 2 Pi}, PlotRange -> {0, 7}] & /@ …

I have the following code: plotImageZoom = Plot[{20*x, (20/(4 - x)*#) & /@ {0.5, 1.5, 2.5}}, {x, 0, 1.5}, PlotRange -> {{0, 1.5}, {0, 30}}, Ticks -> None, LabelStyle -> {Thick, Bold, Thick, Bol …

I have the following list: {{A, B, C, D}, {1, Sin[1], Cos[1], Tan[1]}, {2, Sin[2], Cos[2], Tan[2]}, {3, Sin[3], Cos[3], Tan[3]}, {4, Sin[4], Cos[4], Tan[4]}, {5, Sin[5], Cos[5], Tan[5]}} I wo …

Let's say that I have the following Dataset: ds = Dataset[ AssociationThread[{"A", "B"}, #] & /@ {{Range[10], Sin[#] & /@ Range[10]}, {Range[10], Cos[#] & /@ Range[10]}, {Range[10], …

I am trying to make an image out of a graphic, which is a rectangle with given size. However, the dimension of the image do not correspond to the size given to the rectangle: im = Image[Graphics[Rec …

I have two contour plots: c1 = ContourPlot[Cos[x] + Cos[y], {x, 0, 4 Pi}, {y, 0, 4 Pi}, FrameTicks -> None] c2 = ContourPlot[10*Cos[x] + Cos[y], {x, 0, 4 Pi}, {y, 0, 4 Pi}, FrameTicks -> None] …

I would like to plot bars with specific thickness for each bar like that: Is there an easy way to do it? What I have tried: Plot[{Evaluate[y = 0], Evaluate[y = 1], Evaluate[y = 2]}, {x, -10, 10 …

I have the following oscilloscope image: I would like to extract the points of the yellow curve together with the correct values. Do you know how I could do it? Extracting the yellow curve from th …

I have the following spectrum (tabulated as {wavelength, power}): spectrum = {{400, 0.16196`}, {403, 0.14969`}, {406, 0.1379`}, {409, 0.12663`}, {412, 0.11589`}, {415, 0.10572`}, {418, 0.09 …

I have data from a stress-strain simulation of a washer: Please download it here: https://expirebox.com/download/46f2e72dd2bd04e857e9209b78f40ddf.html The output should look like this: I am trying …

data = {{0.00001, 0.00001, 0.00913538}, {0.00001, 0.10001, 14.0666}, {0.00001, 0.20001, 22.0695}, {0.00001, 0.30001, 27.8521}, {0.00001, 0.40001, 32.3443}, {0.00001, 0.50001, 35.9819}, {0.000 …

I would like to graphically show Bendixson’s criterion. The Bendixson Criterion: If $f_1$ and $f_2$ are continuous in a region $R$ which is simply-connected (i.e., without holes), and …

I created a path: path[x_] := TriangleWave[x*3] radius[alpha_] := path[alpha/(2 Pi)]; BaseRadius = 3; vecPC = {{(BaseRadius - radius[alpha])* Cos[alpha]}, {(BaseRadius - radius[alpha])* Si …

I have a set of images: im1 = Import[ "https://images.pexels.com/photos/67636/rose-blue-flower-rose-\ blooms-67636.jpeg?cs=srgb&dl=beauty-bloom-blue-67636.jpg&fm=jpg"]; im2 = Import[ "https://i …