Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*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 2006

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

Search the Archive

Re: Plot Truncation in RealTime3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg65509] Re: Plot Truncation in RealTime3D
  • From: "Narasimham" <mathma18 at hotmail.com>
  • Date: Thu, 6 Apr 2006 06:51:49 -0400 (EDT)
  • References: <e08lb0$4gm$1@smc.vnet.net><e0o56p$1uv$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Peter Pein wrote:

> Narasimham schrieb:
> > a) How to make ParametricPlot3D to plot in the required PlotRange for
> > top half surface only?
> > b) How to omit/hide circumferential circles or parameter lines of al
> > in Show[pos,neg] ?  TIA
> >
> > <<RealTime3D`
> > pos=ParametricPlot3D[ {Cosh[th] Cos[th+al], th, Cosh[th]Sin[th+al]},
> > {th,-1.2, 1.2 }, {al,0, 2 Pi} ,PlotRange-> { { -2,2},{2,0},{0,2} } ];
> > neg=ParametricPlot3D[ {Cosh[th] Cos[th+al], th, -Cosh[th]Sin[th+al]},
> > {th,-1.2, 1.2 }, {al,0, 2 Pi} ,PlotRange-> { { -2,2},{2,0},{0,2} } ];
> > Show[pos,neg] ;
> > <<Default3D`
> >
> Well, I guess you want
>
> In[1]:=
> clipLine[pts_Line] := Module[{p2 = Sort[pts[[1]], #1[[3]] > #2[[3]] & ]},
>     If[p2[[1,3]] < 0, Unevaluated[Sequence[]],
>      If[p2[[2,3]] < 0, p2[[2]] = p2[[1]] + (p2[[1,3]]*Subtract @@ p2)/(p2[[2,3]] - p2[[1,3]])];
>       Line[p2]]]
>
> In[2]:=
> {pos, neg} = Block[{$DisplayFunction = #1 & },
>      (Table[ParametricPlot3D[{Cosh[th]*Cos[th + al], th, #1*Cosh[th]*Sin[th + al]},
>           {th, -1.2, 1.2}], {al, 0, 2*Pi, Pi/12}] & ) /@ {1, -1} /. l_Line :> clipLine[l]];
>
> In[3]:=
> << "RealTime3D`"
>
> In[4]:=
> Show[pos, neg]

Can now orient only the needed lines by mouse,and it comes out so
wunderschön. Thanks, Narasimham


  • Prev by Date: Re: Count Function
  • Next by Date: Re: graphic inside a gridbox
  • Previous by thread: Re: Plot Truncation in RealTime3D
  • Next by thread: Re: A test with options