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

MathGroup Archive 2010

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

Search the Archive

Re: an attempt at solid modeling with Mathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg109846] Re: an attempt at solid modeling with Mathematica
  • From: chris <aarthur at tx.rr.com>
  • Date: Wed, 19 May 2010 20:14:30 -0400 (EDT)

The syntax for the function is very wrong.
Is it just to make a solid with many interior shells?

Narasimham a =E9crit :
> a==1;
> base==ParametricPlot3D[{ a Cos[u], a Sin[u], u},{u,0, 2 Pi}]
> var1==ParametricPlot3D[{ a Cos[u+v], a Sin[u+v], u},{u,0, 2 Pi},{v,0,2 Pi}]
> var2==ParametricPlot3D[{ u Cos[v], u  Sin[v], u},{u,0, 2 Pi},{v,0,2 Pi}]
> var3==ParametricPlot3D[{ u Cos[v], u  Sin[v], v},{u,0, 2 Pi},{v,0,2 Pi}]
> ThreeParaInto3D[u_,v_,w_]=={ u Cos[v+w], u  Sin[v+w], v} ;
> (*  we could, so to say, say that ParametricPlot3D1, ParametricPlot3D2
> commands are available already as above, but not the next/extended
> ParametricPlot3D3 *)
>
> ParametricPlot3D3_[{u_,v_,w_} ,{u,0, 2 Pi},{v,0,2 Pi},{w,0, 2 Pi}]:==ParametricPlot3D[[ThreeParaInto3D[u,v,w], {u,0, 2 Pi},{v,0,2 Pi}],{w,0, 2 Pi}]
> ParametricPlot3D3[ThreeParaInto3D[u,v,w], {u,0, 2 Pi},{v,0,2 Pi},{w,0, 2 Pi}]
>
>  


> The above does not work,  how to write the macro ?
>
> TIA
> Regards
> Narasimham
>
>
>  



  • Prev by Date: Re: Equals, Less, Greater, etc; Confused by this simple output.
  • Next by Date: Orthogonal Distance Regression available?
  • Previous by thread: an attempt at solid modeling with Mathematica
  • Next by thread: Re: an attempt at solid modeling with Mathematica