Re: ListContourPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg108572] Re: ListContourPlot3D
- From: dh <dh at metrohm.com>
- Date: Wed, 24 Mar 2010 04:40:44 -0500 (EST)
- References: <hoa180$fbh$1@smc.vnet.net>
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 at metrohm.com>
Internet:<http://www.metrohm.com>