Re: ListCurvePathPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg95935] Re: [mg95909] ListCurvePathPlot
- From: Curtis Osterhoudt <cfo at lanl.gov>
- Date: Fri, 30 Jan 2009 05:44:00 -0500 (EST)
- Organization: LANL
- References: <200901291058.FAA18253@smc.vnet.net>
- Reply-to: cfo at lanl.gov
The following is rather interesting. I think it (with some imagination) conforms to the definition given in the Mathematica Documentation, but it wasn't what I was expecting.
data = Table[RandomReal[{-1.3, 1.2}]*{Cos[t], Sin[t]},
{t, 0, 6*Pi - 2*(Pi/6), Pi/6.1}];
{{0.25002688366379333, 0.}, {0.9356799430343185,
0.5295589611737038},
{0.10118796319464748, 0.16851424646497157},
{-0.029188553024956546, -1.1332520553860652},
{-0.23082153680912088, 0.4335135296822279},
{0.7576710364167465, -0.48192811086842924},
{0.9705776190593385, -0.05003046313427862},
{1.0962492703177467, 0.5479411095599908},
{0.6370536297044893, 0.9468064433345135}, {0.03136422751102095,
0.4051894691695028}, {0.364963285556999, -0.7797519520786809},
{-0.9341065689324766, 0.6640763628660812},
{0.013137997466309304, -0.0013580598861936942},
{-0.6906567258137415, -0.301834640354331},
{0.566523954686374, 0.7549438704279434}, {0.07549928355009236,
0.5831410479690148}, {0.4000794379862568, -0.9837423213746447},
{0.24638452631107208, -0.19500664556832673},
{1.1421844045687481, -0.17789046644213574},
{0.11779527337621096, 0.04440716210668134},
{-0.10502847445807519, -0.12589786231771516},
{0.20288991501930384, 1.1133525098565278},
{0.19075826931350767, -0.54838931166244}, {-0.013717694614866967,
0.012056157937833439}, {0.8381916063026793, \
-0.17515740827734855},
{-0.7711479671903417, -0.24617764515949736},
{0.5886009181985181, 0.6359230898649515}, {-0.2787870392560766,
-1.1813146432588384}, {-0.04025184234997148, 0.1382818883263678},
{0.29420624689007885, -0.2867261088679789},
{0.6823920131526263, -0.17971101963053693},
{1.1400162086445282, 0.3002284190055794}, {-0.13739394197848387,
-0.13390072706458242}, {0.00505513032785771,
0.017366483784624985},
{0.10886543986338092, -0.4612995589701644}}
ListCurvePathPlot[data, Axes -> False]
--C.O.
On Thursday 29 January 2009 03:58:55 David Park wrote:
> I don't understand the new ListCurvePathPlot, which the Help page says:
> "attempts to reconstruct smooth curves defined by the specified set of
> points."
>
>
>
> This plot routine also has the option: InterpolationOrder. And the word
> "Curve" appears not only in the name but repeatedly in the descriptions.
> But look at the following example:
>
>
>
> data = Table[
>
> RandomReal[{.8, 1.2}] {Cos[t], Sin[t]}, {t, 0, 2 \[Pi] - 2 \[Pi]/6,
>
> 2 \[Pi]/6}];
>
> ListCurvePathPlot[data,
>
> InterpolationOrder -> 3,
>
> Axes -> False]
>
>
>
> I don't see anything "smooth" or "curvy" about the results! So it seems
> that these terms are a misdirection in understanding the use of the routine.
> It appears that what the routine actually does is reorder the points to give
> some simpler line (not curve) than the original set of points. But what is
> the criterion for this? Is this some well know computational geometry
> algorithm? Was InterpolationOrder included as an option by mistake? Did the
> implementation change from the original intention? What is the purpose of
> the routine? What is the relation of this and the spline functions?
>
>
>
> David Park
>
> djmpark at comcast.net
>
> <http://home.comcast.net/~djmpark> http://home.comcast.net/~djmpark/
>
>
--
==========================================================
Curtis Osterhoudt
cfo at remove_this.lanl.and_this.gov
PGP Key ID: 0x4DCA2A10
Please avoid sending me Word or PowerPoint attachments
See http://www.gnu.org/philosophy/no-word-attachments.html
==========================================================
- References:
- ListCurvePathPlot
- From: "David Park" <djmpark@comcast.net>
- ListCurvePathPlot