Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Interpolate in polar coordinates or cartesian

• To: mathgroup at smc.vnet.net
• Subject: [mg112771] Re: Interpolate in polar coordinates or cartesian
• From: Szymon Roziewski <szymon.roziewski at gmail.com>
• Date: Thu, 30 Sep 2010 04:50:03 -0400 (EDT)
• References: <201009290816.EAA28232@smc.vnet.net>

Hello,
Thank You very much for your solutions.
I have such a problem namely, how I can find a maximum of interpolated
function test?
NMaximize doesn't work - it's surprised during computations.. or I do sth
wrong...


This is the output:

NMaximize[test0[{x, y}], {x, y}]

HierarchicalClustering`DistanceMatrix::amtd: -- Message text not found --
({{x,y},{0.0108186,0.0403757}}) >>

HierarchicalClustering`DistanceMatrix::amtd: -- Message text not found --
({{x,y},{0.0295571,0.0295571}}) >>

HierarchicalClustering`DistanceMatrix::amtd: -- Message text not found --
({{x,y},{0.0403757,0.0108186}}) >>

General::stop: Further output of HierarchicalClustering`DistanceMatrix::amtd
will be suppressed during this calculation. >>



2010/9/29 u31815170 <ingolf.dahl at telia.com>

> Hi Szymon,
> You might do this without my package with
>
> Show[{ListPlot3D[Data,
>   PlotRange -> {{-0.3, 0.3}, {-0.3, 0.3}, {-0.1, 0.6}},
>   MeshFunctions -> {#3 &}, Mesh -> {Range[-0.1, 0.6, 0.1]}],
>  ListPointPlot3D[Data,
>   PlotRange -> {{-0.3, 0.3}, {-0.3, 0.3}, {-0.1, 0.6}}]}]
>
> or with my package and with definitions below (shows more detail, takes
> some
> time)
>
> test == Interpolation[Data1, Method -> "ObtuseAngle",
>  InterpolationOrder -> 2];
> Show[{Plot3D[test[{x, y}], {x, -0.3, 0.3}, {y, -0.3, 0.3},
>   PlotRange -> {-0.1, 0.6}, MeshFunctions -> {#3 &},
>   Mesh -> {Range[-0.1, 0.6, 0.1]}, PlotPoints -> 30],
>  ListPointPlot3D[Data,
>   PlotRange -> {{-0.3, 0.3}, {-0.3, 0.3}, {-0.1, 0.6}}]}]
>
> This is sent from Outlook2007 as unformatted text
> Best regards
>
> Ingolf Dahl
> ingolf.dahl at telia.com
>
> -----Ursprungligt meddelande-----
> Fr=E5n: Szymon Roziewski [mailto:szymon.roziewski at gmail.com]
> Skickat: den 28 september 2010 12:06
> Till: mathgroup at smc.vnet.net
> =C4mne: [mg112728] Re: Interpolate in polar coordinates or cartesian
>
> hi there,
> the interpolation works fine now,
> but I wonder whether it is possible to make a contour lines on Plot3D
> curve=
>



-- 
Z wyrazami szacunku,
Szymon Roziewski

--0016e6db2d624aeb410491657e3d
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Hello,<br>Thank You very much for your solutions.<br>I have such a problem =
namely, how I can find a maximum of interpolated function test?<br>NMaximiz=
e doesn&#39;t work - it&#39;s surprised during computations.. or I do sth w=
rong...<br>
<br><br>This is the output:<br><br>NMaximize[test0[{x, y}], {x, y}]<br><br>=
HierarchicalClustering`DistanceMatrix::amtd: -- Message text not found -- (=
{{x,y},{0.0108186,0.0403757}}) &gt;&gt;<br><br>HierarchicalClustering`Dista=
nceMatrix::amtd: -- Message text not found -- ({{x,y},{0.0295571,0.0295571}=
}) &gt;&gt;<br>
<br>HierarchicalClustering`DistanceMatrix::amtd: -- Message text not found =
-- ({{x,y},{0.0403757,0.0108186}}) &gt;&gt;<br><br>General::stop: Further o=
utput of HierarchicalClustering`DistanceMatrix::amtd will be suppressed dur=
ing this calculation. &gt;&gt;<br>
<br><br><br><div class="gmail_quote">2010/9/29 u31815170 <span dir="ltr=
">&lt;<a href="mailto:ingolf.dahl at telia.com">ingolf.dahl at telia.com</a>&gt=
;</span><br><blockquote class="gmail_quote" style="border-left: 1px sol=
id rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="im">Hi Szymon,<br>
You might do this without my package with<br>
<br>
Show[{ListPlot3D[Data,<br>
   PlotRange -&gt; {{-0.3, 0.3}, {-0.3, 0.3}, {-0.1, 0.6}},<br>
   MeshFunctions -&gt; {#3 &amp;}, Mesh -&gt; {Range[-0.1, 0.6, 0.1]}],<b=
r>
  ListPointPlot3D[Data,<br>
   PlotRange -&gt; {{-0.3, 0.3}, {-0.3, 0.3}, {-0.1, 0.6}}]}]<br>
<br>
or with my package and with definitions below (shows more detail, takes som=
e<br>
time)<br>
<br>
test == Interpolation[Data1, Method -&gt; &quot;ObtuseAngle&quot;,<br>
  InterpolationOrder -&gt; 2];<br>
Show[{Plot3D[test[{x, y}], {x, -0.3, 0.3}, {y, -0.3, 0.3},<br>
   PlotRange -&gt; {-0.1, 0.6}, MeshFunctions -&gt; {#3 &amp;},<br>
   Mesh -&gt; {Range[-0.1, 0.6, 0.1]}, PlotPoints -&gt; 30],<br>
  ListPointPlot3D[Data,<br>
   PlotRange -&gt; {{-0.3, 0.3}, {-0.3, 0.3}, {-0.1, 0.6}}]}]<br>
<br>
This is sent from Outlook2007 as unformatted text<br>
Best regards<br>
<br>
Ingolf Dahl<br>
<a href="mailto:ingolf.dahl at telia.com">ingolf.dahl at telia.com</a><br>
<br>
-----Ursprungligt meddelande-----<br>
</div><div class="im">Fr=E5n: Szymon Roziewski [mailto:<a href="mailt=
o:szymon.roziewski at gmail.com">szymon.roziewski at gmail.com</a>]<br>
</div><div class="im">Skickat: den 28 september 2010 12:06<br>
Till: <a href="mailto:mathgroup at smc.vnet.net">mathgroup at smc.vnet.net</a><=
br>
</div>=C4mne: [mg112728] Re: Interpolate in polar coordinates or cartesia=
n<br>
<div class="im"><br>
hi there,<br>
the interpolation works fine now,<br>
</div>but I wonder whether it is possible to make a contour lines on Plot3D=
 curve=<br>
</blockquote></div><br><br clear="all"><br>-- <br>Z wyrazami szacunku,<br=
>Szymon Roziewski<br>

--0016e6db2d624aeb410491657e3d--

• References:
  • Re: Interpolate in polar coordinates or cartesian
    • From: "u31815170" <ingolf.dahl@telia.com>