ListContourPlot3D
in [Mathematica]
|
From: alerodri115 on 23 Mar 2010 05:22 Hi, I have data in the format data5= { {x1,y1,z1,f1}, {x2,y2,z2,f2},... }. I would like to see 3D contour lines. I use the command: ListContourPlot3D[data5, PlotRange -> All, AxesLabel -> {"\[Beta]", "\[Omega]", "Vo"}, Contours -> {4000}] and get an empty box with the axes running from -1 to1. Any help is welcome. Thank you. p.s. here is my data: {{200, 20000 10^(1/3), 2000, 1226}, {200, 20000 10^(1/3), 2600, 1422}, {200, 20000 10^(1/3), 3200, 1581}, {200, 20000 10^(1/3), 3800, 1761}, {200, 20000 10^(1/3), 4400, 1872}, {400, 20000 10^(2/3), 2000, 1739}, {400, 20000 10^(2/3), 2600, 2041}, {400, 20000 10^(2/3), 3200, 2293}, {400, 20000 10^(2/3), 3800, 2506}, {400, 20000 10^(2/3), 4400, 2689}, {600, 200000, 2000, 2619}, {600, 200000, 2600, 2939}, {600, 200000, 3200, 3301}, {600, 200000, 3800, 3610}, {600, 200000, 4400, 4002}, {800, 200000 10^(1/3), 2000, 3825}, {800, 200000 10^(1/3), 2600, 4340}, {800, 200000 10^(1/3), 3200, 4902}, {800, 200000 10^(1/3), 3800, 5389}, {800, 200000 10^(1/3), 4400, 5812}, {1000, 200000 10^(2/3), 2000, 5731}, {1000, 200000 10^(2/3), 2600, 6590}, {1000, 200000 10^(2/3), 3200, 7283}, {1000, 200000 10^(2/3), 3800, 8080}, {1000, 200000 10^(2/3), 4400, 8781}, {1200, 2000000, 2000, 8463}, {1200, 2000000, 2600, 9911}, {1200, 2000000, 3200, 11116}, {1200, 2000000, 3800, 12134}, {1200, 2000000, 4400, 13006}, {1400, 2000000 10^(1/3), 2000, 12840}, {1400, 2000000 10^(1/3), 2600, 14567}, {1400, 2000000 10^(1/3), 3200, 16255}, {1400, 2000000 10^(1/3), 3800, 18012}, {1400, 2000000 10^(1/3), 4400, 19564}, {1600, 2000000 10^(2/3), 2000, 19125}, {1600, 2000000 10^(2/3), 2600, 21820}, {1600, 2000000 10^(2/3), 3200, 24349}, {1600, 2000000 10^(2/3), 3800, 26890}, {1600, 2000000 10^(2/3), 4400, 28671}, {1800, 20000000, 2000, 28602}, {1800, 20000000, 2600, 32915}, {1800, 20000000, 3200, 36394}, {1800, 20000000, 3800, 40242}, {1800, 20000000, 4400, 43164}, {2000, 20000000 10^(1/3), 2000, 42320}, {2000, 20000000 10^(1/3), 2600, 47587}, {2000, 20000000 10^(1/3), 3200, 46494}, {2000, 20000000 10^(1/3), 3800, 39791}, {2000, 20000000 10^(1/3), 4400, 41156}, {2200, 20000000 10^(2/3), 2000, 36822}, {2200, 20000000 10^(2/3), 2600, 27555}, {2200, 20000000 10^(2/3), 3200, 20190}, {2200, 20000000 10^(2/3), 3800, 47053}, {2200, 20000000 10^(2/3), 4400, 34705}}
From: eric g on 24 Mar 2010 05:31 On 03/23/2010 02:22 AM, alerodri115 wrote: > ListContourPlot3D[data5, PlotRange -> All, > AxesLabel -> {"\[Beta]", "\[Omega]", "Vo"}, Contours -> {4000}] > > when you use the example from the help and change the range of random numbers you get the same empty thing even if you also set the appropriate DataRange: ListContourPlot3D[RandomReal[{10, 20}, {10, 10, 10}], Contours -> {0}, DataRange -> {{10, 20}, {10, 20}, {10,20}}] bests, eric
From: dh on 24 Mar 2010 05:31 Hi, you do not have enough data points. As a work around you may e.g. linear interpolate data points by: data = Flatten[({#[[1]], 0.5 (#[[1]] + #[[2]]), #[[2]]}) & /@ Partition[data, 2, 1], 1]; ListContourPlot3D[data, PlotRange -> All, AxesLabel -> {"\[Beta]", "\[Omega]", "Vo"}] or you may use "Interpolation". Daniel On 23.03.2010 10:22, alerodri115 wrote: > Hi, > > I have data in the format data5= { {x1,y1,z1,f1}, > {x2,y2,z2,f2},... }. I would like to see 3D contour lines. > I use the command: > > ListContourPlot3D[data5, PlotRange -> All, > AxesLabel -> {"\[Beta]", "\[Omega]", "Vo"}, Contours -> {4000}] > > and get an empty box with the axes running from -1 to1. > Any help is welcome. > Thank you. > > p.s. here is my data: > > {{200, 20000 10^(1/3), 2000, 1226}, {200, 20000 10^(1/3), 2600, > 1422}, {200, 20000 10^(1/3), 3200, 1581}, {200, 20000 10^(1/3), > 3800, 1761}, {200, 20000 10^(1/3), 4400, 1872}, {400, > 20000 10^(2/3), 2000, 1739}, {400, 20000 10^(2/3), 2600, > 2041}, {400, 20000 10^(2/3), 3200, 2293}, {400, 20000 10^(2/3), > 3800, 2506}, {400, 20000 10^(2/3), 4400, 2689}, {600, 200000, 2000, > 2619}, {600, 200000, 2600, 2939}, {600, 200000, 3200, 3301}, {600, > 200000, 3800, 3610}, {600, 200000, 4400, 4002}, {800, > 200000 10^(1/3), 2000, 3825}, {800, 200000 10^(1/3), 2600, > 4340}, {800, 200000 10^(1/3), 3200, 4902}, {800, 200000 10^(1/3), > 3800, 5389}, {800, 200000 10^(1/3), 4400, 5812}, {1000, > 200000 10^(2/3), 2000, 5731}, {1000, 200000 10^(2/3), 2600, > 6590}, {1000, 200000 10^(2/3), 3200, 7283}, {1000, 200000 10^(2/3), > 3800, 8080}, {1000, 200000 10^(2/3), 4400, 8781}, {1200, 2000000, > 2000, 8463}, {1200, 2000000, 2600, 9911}, {1200, 2000000, 3200, > 11116}, {1200, 2000000, 3800, 12134}, {1200, 2000000, 4400, > 13006}, {1400, 2000000 10^(1/3), 2000, 12840}, {1400, > 2000000 10^(1/3), 2600, 14567}, {1400, 2000000 10^(1/3), 3200, > 16255}, {1400, 2000000 10^(1/3), 3800, 18012}, {1400, > 2000000 10^(1/3), 4400, 19564}, {1600, 2000000 10^(2/3), 2000, > 19125}, {1600, 2000000 10^(2/3), 2600, 21820}, {1600, > 2000000 10^(2/3), 3200, 24349}, {1600, 2000000 10^(2/3), 3800, > 26890}, {1600, 2000000 10^(2/3), 4400, 28671}, {1800, 20000000, > 2000, 28602}, {1800, 20000000, 2600, 32915}, {1800, 20000000, 3200, > 36394}, {1800, 20000000, 3800, 40242}, {1800, 20000000, 4400, > 43164}, {2000, 20000000 10^(1/3), 2000, 42320}, {2000, > 20000000 10^(1/3), 2600, 47587}, {2000, 20000000 10^(1/3), 3200, > 46494}, {2000, 20000000 10^(1/3), 3800, 39791}, {2000, > 20000000 10^(1/3), 4400, 41156}, {2200, 20000000 10^(2/3), 2000, > 36822}, {2200, 20000000 10^(2/3), 2600, 27555}, {2200, > 20000000 10^(2/3), 3200, 20190}, {2200, 20000000 10^(2/3), 3800, > 47053}, {2200, 20000000 10^(2/3), 4400, 34705}} > -- Daniel Huber Metrohm Ltd. Oberdorfstr. 68 CH-9100 Herisau Tel. +41 71 353 8585, Fax +41 71 353 8907 E-Mail:<mailto:dh(a)metrohm.com> Internet:<http://www.metrohm.com>
|
Pages: 1 Prev: "Quick and dirty" Solve[] Next: CalcLink tutorial screencasts on YouTube |