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

MathGroup Archive 2012

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

Search the Archive

Re: Filling Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg129125] Re: Filling Plot
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Mon, 17 Dec 2012 02:55:22 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net
  • References: <20121216100527.3C272694C@smc.vnet.net>

Show[
 RegionPlot[
  4 > y > Re[Sqrt[x^2 - 9]],
  {x, 0, 5}, {y, 0, 5},
  PlotStyle -> Green,
  BoundaryStyle -> None,
  Axes -> True,
  Frame -> False,
  AxesLabel -> {x, y},
  AxesStyle -> Arrowheads[0.02],
  AspectRatio -> Automatic,
  ImageSize -> 600,
  PlotRange -> {{0, 5}, {0, 5}}],
 Plot[Sqrt[x^2 - 9], {x, 0, 5},
  PlotStyle -> {Red, Thick}],
 Graphics[{
   Line[{{0, 4}, {5, 4}}],
   Text[Style[
     "\!\(\*FormBox[\(f(x) = \
\(TraditionalForm\`\(TraditionalForm\`\*SqrtBox[\(\*SuperscriptBox[\
\(x\), \(2\)] - 9\)]\)\)\),
     TraditionalForm]\)", Large, Red, Bold], {3.4, 3}]}],
 Graphics[{
   Text[Style["Rotationsfl=E4che",
     Large, Yellow, Bold], {1.5, 2}]}]]


Bob Hanlon


On Sun, Dec 16, 2012 at 5:05 AM, brainiac <brainiac at gmx.net> wrote:
> Hi,
>
> I wanted to Fill the space between a function and the y-axis, but i was only able to fill the positiv value of the function. Is it possible to fill the imaginary part of the function somehow?
>
> Show[RegionPlot[4 > y > Sqrt[x^2 - 9] && x > 0, {x, 3, 5}, {y, 0, 5},
>
>   PlotStyle -> Green, BoundaryStyle -> None, Axes -> True,
>   Frame -> False, AxesLabel -> {x, y},
>   AxesStyle -> Arrowheads[0.02], AspectRatio -> Automatic,
>   ImageSize -> 600, PlotRange -> {{0, 5}, {0, 5}}],
>
>  Plot[Sqrt[x^2 - 9], {x, 0, 5}, PlotStyle -> {Red, Thick}],
>  Graphics[{Text[
>     Style["\!\(\*FormBox[\(f(x) = \
> \(TraditionalForm\`\(TraditionalForm\`\*SqrtBox[\(\*SuperscriptBox[\(\
> x\), \(2\)] - 9\)]\)\)\),
> TraditionalForm]\)", Large, Red, Bold], {3.4, 3}]}],
>  Graphics[{Text[
>     Style["Rotationsfl=E4che", Large, Yellow, Bold], {1.5, 2}]}],
>  ListLinePlot[{{0, 4}, {5, 4}}, PlotStyle -> {Black}]]
>
> with best regards
>



  • Prev by Date: Re: Do Plot
  • Next by Date: Re: Do Plot
  • Previous by thread: Filling Plot
  • Next by thread: Copy as LaTeX v9 vs v8