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

MathGroup Archive 2007

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

Search the Archive

drawing half planes / spaces with Mathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg75930] drawing half planes / spaces with Mathematica
  • From: dimitris <dimmechan at yahoo.com>
  • Date: Sun, 13 May 2007 05:56:09 -0400 (EDT)

Hello.

Does anybody use Mathematica in order to draw half planes or/and a
half spaces?
I mean from the applied mathematics point of view! Like those
encountered in the
mathematical theory of elasticity/piezoelectrecity etc.
For example in Boussinesq / Cerruti problem (3D) and their
2D counterpart Flamant problem.

Let me be more specific...

Suppose I have the following drawing
(note that in another post I ask how it is possible to produce
the same output more directly!)

In[2611]:=
surf = Block[{$DisplayFunction = Identity}, ParametricPlot[{13*Cos[u],
4*Sin[u]}, {u, 0, 2*Pi}, PlotStyle -> Thickness[0.008],
     PlotPoints -> 100]];
surfgray = surf /. Line[x_] :> {GrayLevel[0.95], Polygon[x]};
halfspa = Block[{$DisplayFunction = Identity},
ParametricPlot[13*{Cos[u], Sin[u]}, {u, Pi, 2*Pi}, PlotStyle ->
Thickness[0.008],
     PlotPoints -> 100]];
halfspagr = halfspa /. Line[x_] :> {GrayLevel[0.95], Polygon[x]};
Show[surfgray, halfspagr, surf, halfspa, Axes -> False];

I would like the obtained half space to be smooth but not SO smooth as
a sphere. In other words I am looking in a way deform halfspa curve in
a
way that it will not lost its smoothness (that is continuoous
derivatives everywhere!)
but it will not have everywhere the same radious.

Thanks a lot for any ideas!

Dimitris



  • Prev by Date: Re: Jlink executable
  • Next by Date: Re: How to get sqrt(Year^2)===Year?
  • Previous by thread: Re: Plot & warning messages (v6)
  • Next by thread: Three unrelated questions about Graphics and Mathematica 5.2