Services & ResourcesWolfram ForumsMathGroup Archive

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

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

• Follow-Ups:
  • Re: Filling Plot
    • From: Bob Hanlon <hanlonr357@gmail.com>