MathGroup Archive 2000

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

Search the Archive

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


  • Prev by Date: Re: List element manipulation
  • Next by Date: Re: Bug: Mathematica multipies statements together
  • Previous by thread: Re: StringQ?
  • Next by thread: Re: Bug: Mathematica multipies statements together