Re: troubles with 3D plot
- To: mathgroup at smc.vnet.net
- Subject: [mg25452] Re: troubles with 3D plot
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Sun, 1 Oct 2000 02:44:34 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <8r19bb$hst@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
I don't know *what* your have typed in and what comes out.
How ever
In[]:=data = ReadList[
"/export/home/kuska/tmp/testdata.dat", {Number, Number, Number}];
In[]:=<< NumericalMath`SplineFit`
In[]:= sp = SplineFit[data, Bezier][u];
In[]:= ParametricPlot3D[Evaluate[sp], {u, 0, 90}, Compiled -> False]
works fine on my SGI.
Regards
Jens
Ramona Schneider wrote:
>
> I am sorry,
> I still have troubles to get this making me a 3D spline plot
>
> ReadList["d701.txt", Number, RecordLists -> True];
> data = %;
> << NumericalMath`SplineFit`;
> << Graphics`ParametricPlot3D`;
> spline = SplineFit[data, Bezier];
> SplineFunction["\[InvisibleSpace]Bezier\[InvisibleSpace]",
> "\[InvisibleSpace]{0., 90.}\[InvisibleSpace]", <>];
> ParametricPlot3D[spline[u], {u, 0, 90},
> PlotRange -> All, Compiled -> False];
> Graphics3D;
>
> Syntax::"com": "Warning: comma encountered with no adjacent
> expression; the \
> expression will be treated as Null. \!\(\"\\n\"\)"
>
> Syntax::sntxf:=
> "InvisibleSpace]", "\[Inv<<28>>ibleSpace]", <"
> cannot be followed by ">];".
>
> Thanks in advance!
> ( I am putting the datafile into the attachment)
>
> Ramona