Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Filling Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg129116] Filling Plot
  • From: brainiac <brainiac at gmx.net>
  • Date: Sun, 16 Dec 2012 05:05:27 -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

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äche", Large, Yellow, Bold], {1.5, 2}]}], 
 ListLinePlot[{{0, 4}, {5, 4}}, PlotStyle -> {Black}]]

with best regards



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