Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

Re: Solid plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg49176] Re: Solid plot
  • From: "Roger L. Bagula" <rlbtftn at netscape.net>
  • Date: Tue, 6 Jul 2004 03:33:52 -0400 (EDT)
  • References: <ccb6e8$eqd$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Dear G.L.Narasimham.
As usual you are trying to make Mathematica
more useful to people interested in geometry
research.
I'll try it!

G.L.Narasimham wrote:
> I suggest that a single "Solid" command for 3D be made available
> to users in Mathemtica, if not already in existence.
> 
> Generally, constants still appearing in 3D parameterizations can be
> varied to obtain a thickness dimension of a solid.This should be  
> equivalent to depicting the following 6 individual external surface
> plots using ParametricPlot3D.
> 
> The command could be useful in solid modelling in
> Architecure, Finite Element Method of structural
> analysis and in faster 3D visualizations of sections of 
> four dimensional manifolds.The example here shows a radially
> thickened spherical segment bounded by 6 parameter values.
> A more real 3D feel object would be obtained by click/drag
> of mouse, Spinshow etc.  
> 
> "Solid[XYZ,{u,umin,umax},{v,vmin,vmax},{w,wmin,wmax}]"
> 
> Clear[u,v,w,umin,umax,vmin,vmax,wmin,wmax];
> umin=0;umax=1;vmin=0;vmax=1;wmin=.8;wmax=1;
> XYZ={w Cos[u]Cos[v],w Cos[u]Sin[v],w Sin[u]}; 
> w=wmin;
> uvlo=ParametricPlot3D[XYZ,{u,umin,umax},{v,vmin,vmax}];
> w=wmax;
> uvhi=ParametricPlot3D[XYZ,{u,umin,umax},{v,vmin,vmax}];
> u=umin;
> vwlo=ParametricPlot3D[XYZ,{v,vmin,vmax},{w,wmin,wmax}];
> u=umax;
> vwhi=ParametricPlot3D[XYZ,{v,vmin,vmax},{w,wmin,wmax}];
> v=vmin;
> wulo=ParametricPlot3D[XYZ,{w,wmin,wmax},{u,umin,umax}];
> v=vmax;
> wuhi=ParametricPlot3D[XYZ,{w,wmin,wmax},{u,umin,umax}];
> Show[{uvlo,uvhi,vwlo,vwhi,wulo,wuhi},
> ViewPoint->{-1,2,-3},Boxed->False,Axes->None];
> 
> Best Regards,
> Narasimham
> 


  • Prev by Date: AW: partition of 2D arrray
  • Next by Date: Re: RE: Re: Bug in FromDate
  • Previous by thread: Solid plot
  • Next by thread: Re: Solid plot