Services & ResourcesWolfram ForumsMathGroup Archive

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

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
>

• References:
  • Filling Plot
    • From: brainiac <brainiac@gmx.net>