Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: ContourPlot under ListPlot3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg112656] Re: ContourPlot under ListPlot3D
  • From: Szymon Roziewski <szymon.roziewski at gmail.com>
  • Date: Sat, 25 Sep 2010 02:19:20 -0400 (EDT)

Ok,
then these are my data:

{{0.0108186, 0.0403757, 0.}, {0.0295571, 0.0295571, 0.}, {0.0403757,
  0.0108186, 0.}, {0.0403757, -0.0108186, 0.}, {0.0295571, -0.0295571,
   0.}, {0.0108186, -0.0403757, 0.}, {-0.0108186, -0.0403757,
  0.}, {-0.0295571, -0.0295571, 0.}, {-0.0403757, -0.0108186,
  0.}, {-0.0403757, 0.0108186, 0.}, {-0.0295571, 0.0295571,
  0.}, {-0.0108186, 0.0403757, 0.}, {0.0118798, 0.044336,
  0.}, {0.0324562, 0.0324562, 0.}, {0.044336, 0.0118798,
  0.}, {0.044336, -0.0118798, 0.}, {0.0324562, -0.0324562,
  0.}, {0.0118798, -0.044336, 0.}, {-0.0118798, -0.044336,
  0.}, {-0.0324562, -0.0324562, 0.}, {-0.044336, -0.0118798,
  0.}, {-0.044336, 0.0118798, 0.}, {-0.0324562, 0.0324562,
  0.}, {-0.0118798, 0.044336, 0.}, {0.0130704, 0.0487793,
  0.}, {0.0357089, 0.0357089, 0.}, {0.0487793, 0.0130704,
  0.}, {0.0487793, -0.0130704, 0.}, {0.0357089, -0.0357089,
  0.}, {0.0130704, -0.0487793, 0.}, {-0.0130704, -0.0487793,
  0.}, {-0.0357089, -0.0357089, 0.}, {-0.0487793, -0.0130704,
  0.}, {-0.0487793, 0.0130704, 0.}, {-0.0357089, 0.0357089,
  0.}, {-0.0130704, 0.0487793, 0.}, {0.0143903, 0.0537055,
  0.}, {0.0393151, 0.0393151, 0.}, {0.0537055, 0.0143903,
  0.}, {0.0537055, -0.0143903, 0.}, {0.0393151, -0.0393151,
  0.}, {0.0143903, -0.0537055, 0.}, {-0.0143903, -0.0537055,
  0.}, {-0.0393151, -0.0393151, 0.}, {-0.0537055, -0.0143903,
  0.}, {-0.0537055, 0.0143903, 0.}, {-0.0393151, 0.0393151,
  0.}, {-0.0143903, 0.0537055, 0.}, {0.0158397, 0.0591147,
  0.}, {0.0432749, 0.0432749, 0.}, {0.0591147, 0.0158397,
  0.}, {0.0591147, -0.0158397, 0.}, {0.0432749, -0.0432749,
  0.}, {0.0158397, -0.0591147, 0.}, {-0.0158397, -0.0591147,
  0.}, {-0.0432749, -0.0432749, 0.}, {-0.0591147, -0.0158397,
  0.}, {-0.0591147, 0.0158397, 0.}, {-0.0432749, 0.0432749,
  0.}, {-0.0158397, 0.0591147, 0.}, {0.0174185, 0.0650068,
  0.}, {0.0475883, 0.0475883, 0.}, {0.0650068, 0.0174185,
  0.}, {0.0650068, -0.0174185, 0.}, {0.0475883, -0.0475883,
  0.}, {0.0174185, -0.0650068, 0.}, {-0.0174185, -0.0650068,
  0.}, {-0.0475883, -0.0475883, 0.}, {-0.0650068, -0.0174185,
  0.}, {-0.0650068, 0.0174185, 0.}, {-0.0475883, 0.0475883,
  0.}, {-0.0174185, 0.0650068, 0.}, {0.0191526, 0.0714785,
  0.}, {0.0523259, 0.0523259, 0.}, {0.0714785, 0.0191526,
  0.}, {0.0714785, -0.0191526, 0.}, {0.0523259, -0.0523259,
  0.}, {0.0191526, -0.0714785, 0.}, {-0.0191526, -0.0714785,
  0.}, {-0.0523259, -0.0523259, 0.}, {-0.0714785, -0.0191526,
  0.}, {-0.0714785, 0.0191526, 0.}, {-0.0523259, 0.0523259,
  0.}, {-0.0191526, 0.0714785, 0.}, {0.0210679, 0.0786264,
  0.}, {0.0575585, 0.0575585, 0.}, {0.0786264, 0.0210679,
  0.}, {0.0786264, -0.0210679, 0.}, {0.0575585, -0.0575585,
  0.}, {0.0210679, -0.0786264, 0.}, {-0.0210679, -0.0786264,
  0.}, {-0.0575585, -0.0575585, 0.}, {-0.0786264, -0.0210679,
  0.}, {-0.0786264, 0.0210679, 0.}, {-0.0575585, 0.0575585,
  0.}, {-0.0210679, 0.0786264, 0.}, {0.0231643, 0.0864504,
  0.}, {0.0632861, 0.0632861, 0.}, {0.0864504, 0.0231643,
  0.}, {0.0864504, -0.0231643, 0.}, {0.0632861, -0.0632861,
  0.}, {0.0231643, -0.0864504, 0.}, {-0.0231643, -0.0864504,
  0.}, {-0.0632861, -0.0632861, 0.}, {-0.0864504, -0.0231643,
  0.}, {-0.0864504, 0.0231643, 0.}, {-0.0632861, 0.0632861,
  0.}, {-0.0231643, 0.0864504, 0.}, {0.0254937, 0.0951437,
  0.}, {0.06965, 0.06965, 0.}, {0.0951437, 0.0254937,
  0.}, {0.0951437, -0.0254937, 0.}, {0.06965, -0.06965,
  0.}, {0.0254937, -0.0951437, 0.}, {-0.0254937, -0.0951437,
  0.}, {-0.06965, -0.06965, 0.}, {-0.0951437, -0.0254937,
  0.}, {-0.0951437, 0.0254937, 0.}, {-0.06965, 0.06965,
  0.}, {-0.0254937, 0.0951437, 0.}, {0.0280301, 0.10461,
  0.}, {0.0765797, 0.0765797, 0.}, {0.10461, 0.0280301,
  0.}, {0.10461, -0.0280301, 0.}, {0.0765797, -0.0765797,
  0.}, {0.0280301, -0.10461, 0.}, {-0.0280301, -0.10461,
  0.}, {-0.0765797, -0.0765797, 0.}, {-0.10461, -0.0280301,
  0.}, {-0.10461, 0.0280301, 0.}, {-0.0765797, 0.0765797,
  0.}, {-0.0280301, 0.10461, 0.}, {0.0308512, 0.115138,
  0.}, {0.0842871, 0.0842871, 0.}, {0.115138, 0.0308512,
  0.}, {0.115138, -0.0308512, 0.}, {0.0842871, -0.0842871,
  0.}, {0.0308512, -0.115138, 0.}, {-0.0308512, -0.115138,
  0.}, {-0.0842871, -0.0842871, 0.}, {-0.115138, -0.0308512,
  0.}, {-0.115138, 0.0308512, 0.001}, {-0.0842871, 0.0842871,
  0.001}, {-0.0308512, 0.115138, 0.001}, {0.0339312, 0.126633,
  0.003}, {0.0927017, 0.0927017, 0.}, {0.126633, 0.0339312,
  0.}, {0.126633, -0.0339312, 0.}, {0.0927017, -0.0927017,
  0.}, {0.0339312, -0.126633, 0.}, {-0.0339312, -0.126633,
  0.}, {-0.0927017, -0.0927017, 0.001}, {-0.126633, -0.0339312,
  0.005}, {-0.126633, 0.0339312, 0.008}, {-0.0927017, 0.0927017,
  0.009}, {-0.0339312, 0.126633, 0.008}, {0.0373217, 0.139287,
  0.022}, {0.101965, 0.101965, 0.003}, {0.139287, 0.0373217,
  0.}, {0.139287, -0.0373217, 0.}, {0.101965, -0.101965,
  0.}, {0.0373217, -0.139287, 0.}, {-0.0373217, -0.139287,
  0.}, {-0.101965, -0.101965, 0.004}, {-0.139287, -0.0373217,
  0.03}, {-0.139287, 0.0373217, 0.052}, {-0.101965, 0.101965,
  0.06}, {-0.0373217, 0.139287, 0.05}, {0.0410487, 0.153196,
  0.063}, {0.112147, 0.112147, 0.007}, {0.153196, 0.0410487,
  0.}, {0.153196, -0.0410487, 0.}, {0.112147, -0.112147,
  0.}, {0.0410487, -0.153196, 0.}, {-0.0410487, -0.153196,
  0.}, {-0.112147, -0.112147, 0.01}, {-0.153196, -0.0410487,
  0.087}, {-0.153196, 0.0410487, 0.166}, {-0.112147, 0.112147,
  0.199}, {-0.0410487, 0.153196, 0.156}, {0.0451639, 0.168554,
  0.098}, {0.12339, 0.12339, 0.009}, {0.168554, 0.0451639,
  0.}, {0.168554, -0.0451639, 0.}, {0.12339, -0.12339,
  0.}, {0.0451639, -0.168554, 0.}, {-0.0451639, -0.168554,
  0.}, {-0.12339, -0.12339, 0.013}, {-0.168554, -0.0451639,
  0.13}, {-0.168554, 0.0451639, 0.253}, {-0.12339, 0.12339,
  0.3}, {-0.0451639, 0.168554, 0.237}, {0.0496674, 0.185361,
  0.23}, {0.135694, 0.135694, 0.019}, {0.185361, 0.0496674,
  0.}, {0.185361, -0.0496674, 0.}, {0.135694, -0.135694,
  0.}, {0.0496674, -0.185361, 0.}, {-0.0496674, -0.185361,
  0.}, {-0.135694, -0.135694, 0.026}, {-0.185361, -0.0496674,
  0.291}, {-0.185361, 0.0496674, 0.578}, {-0.135694, 0.135694,
  0.666}, {-0.0496674, 0.185361, 0.547}, {0.0546367, 0.203907,
  0.211}, {0.14927, 0.14927, 0.018}, {0.203907, 0.0546367,
  0.}, {0.203907, -0.0546367, 0.}, {0.14927, -0.14927,
  0.}, {0.0546367, -0.203907, 0.}, {-0.0546367, -0.203907,
  0.}, {-0.14927, -0.14927, 0.022}, {-0.203907, -0.0546367,
  0.249}, {-0.203907, 0.0546367, 0.465}, {-0.14927, 0.14927,
  0.521}, {-0.0546367, 0.203907, 0.447}, {0.0601237, 0.224385,
  0.089}, {0.164261, 0.164261, 0.008}, {0.224385, 0.0601237,
  0.}, {0.224385, -0.0601237, 0.}, {0.164261, -0.164261,
  0.}, {0.0601237, -0.224385, 0.}, {-0.0601237, -0.224385,
  0.}, {-0.164261, -0.164261, 0.009}, {-0.224385, -0.0601237,
  0.1}, {-0.224385, 0.0601237, 0.184}, {-0.164261, 0.164261,
  0.201}, {-0.0601237, 0.224385, 0.179}, {0.0661283, 0.246794,
  0.052}, {0.180666, 0.180666, 0.007}, {0.246794, 0.0661283,
  0.}, {0.246794, -0.0661283, 0.}, {0.180666, -0.180666,
  0.}, {0.0661283, -0.246794, 0.}, {-0.0661283, -0.246794,
  0.}, {-0.180666, -0.180666, 0.007}, {-0.246794, -0.0661283,
  0.055}, {-0.246794, 0.0661283, 0.09}, {-0.180666, 0.180666,
  0.106}, {-0.0661283, 0.246794, 0.086}, {0.0661283, 0.246794,
  0.033}, {0.180666, 0.180666, 0.006}, {0.246794, 0.0661283,
  0.}, {0.246794, -0.0661283, 0.}, {0.180666, -0.180666,
  0.}, {0.0661283, -0.246794, 0.}, {-0.0661283, -0.246794,
  0.}, {-0.180666, -0.180666, 0.005}, {-0.246794, -0.0661283,
  0.034}, {-0.246794, 0.0661283, 0.057}, {-0.180666, 0.180666,
  0.078}, {-0.0661283, 0.246794, 0.054}, {0.080001, 0.298568,
  0.027}, {0.218567, 0.218567, 0.006}, {0.298568, 0.080001,
  0.}, {0.298568, -0.080001, 0.}, {0.218567, -0.218567,
  0.}, {0.080001, -0.298568, 0.}, {-0.080001, -0.298568,
  0.}, {-0.218567, -0.218567, 0.005}, {-0.298568, -0.080001,
  0.028}, {-0.298568, 0.080001, 0.042}, {-0.218567, 0.218567,
  0.053}, {-0.080001, 0.298568, 0.041}, {0.0879985, 0.328415,
  0.021}, {0.240416, 0.240416, 0.005}, {0.328415, 0.0879985,
  0.}, {0.328415, -0.0879985, 0.}, {0.240416, -0.240416,
  0.}, {0.0879985, -0.328415, 0.}, {-0.0879985, -0.328415,
  0.}, {-0.240416, -0.240416, 0.005}, {-0.328415, -0.0879985,
  0.022}, {-0.328415, 0.0879985, 0.031}, {-0.240416, 0.240416,
  0.036}, {-0.0879985, 0.328415, 0.031}, {0.0967983, 0.361256,
  0.013}, {0.264458, 0.264458, 0.004}, {0.361256, 0.0967983,
  0.}, {0.361256, -0.0967983, 0.}, {0.264458, -0.264458,
  0.}, {0.0967983, -0.361256, 0.}, {-0.0967983, -0.361256,
  0.}, {-0.264458, -0.264458, 0.003}, {-0.361256, -0.0967983,
  0.013}, {-0.361256, 0.0967983, 0.019}, {-0.264458, 0.264458,
  0.023}, {-0.0967983, 0.361256, 0.018}, {0.106478, 0.397382,
  0.008}, {0.290904, 0.290904, 0.003}, {0.397382, 0.106478,
  0.}, {0.397382, -0.106478, 0.}, {0.290904, -0.290904,
  0.}, {0.106478, -0.397382, 0.}, {-0.106478, -0.397382,
  0.}, {-0.290904, -0.290904, 0.002}, {-0.397382, -0.106478,
  0.008}, {-0.397382, 0.106478, 0.011}, {-0.290904, 0.290904,
  0.013}, {-0.106478, 0.397382, 0.011}}

MyColorData[z_] :=
  Which[
   0.02 < z <= 0.1, RGBColor[0.61, 0.52, 0.83],
   0.1 < z <= 0.2, RGBColor[0.33, 0, 0.89],
   0.2 < z <= 0.3, RGBColor[0, 0.45, 0.76],
   0.3 < z <= 0.4, RGBColor[0, 0.45, 0.23],
   0.4 < z <= 0.5, RGBColor[0.25, 0.76, 0.06],
   0.5 < z <= 0.6, RGBColor[1, 0.92, 0],
   0.6 < z <= 0.7, RGBColor[1, 0, 0],
   0.7 < z <= 0.8, RGBColor[0.35, 0, 0],
   True, RGBColor[1, 1, 1]
   ];

ListPlot3D[Data, PlotRange -> All, ColorFunction -> MyColorData,
  Mesh -> None];




2010/9/23 Szymon Roziewski <szymon.roziewski at gmail.com>

> Hi there,
> How can I get a contour (from the surface which is plotted by ListPlot3D)
> plot under ListPlot3D? and place it on one graph?
>
>
>
> Best regards,
> Szymon Roziewski
>
>
>


-- 
Best regards,
Szymon Roziewskii



  • Prev by Date: UnitStep vs Piecewise
  • Next by Date: Re: Interpolate in polar coordinates or cartesian
  • Previous by thread: Re: ContourPlot under ListPlot3D
  • Next by thread: Re: ContourPlot under ListPlot3D