Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #2084 > unrolled thread

Re: Adding computed values to a Contourplot function

Back to article view | Back to comp.soft-sys.math.mathematica

Contents

  Re: Adding computed values to a Contourplot function Bob Hanlon <hanlonr@cox.net> - 2011-05-04 10:34 +0000

#2084 — Re: Adding computed values to a Contourplot function

a = 1/2; b = 1; c = 6; d = 2; e = 3; f = -30;

Framed[
 ContourPlot[
  a x^2 + b x*y + c y^2 + d x + e y - 30 == 0,
  {x, -12, 10}, {y, -8, 8},
  ContourStyle -> {Red, Thick},
  Axes -> True,
  AxesLabel -> {x, y},
  Frame -> False,
  AspectRatio -> 16/22,
  ImageSize -> {540, 400},
  Epilog -> {Text[
     Style["b^2 - 4ac = " <> ToString[b^2 - 4 a c],
      FontSize -> 20], {5, 5}]}]]

Framed[
 ContourPlot[
  a x^2 + b x*y + c y^2 + d x + e y - 30 == 0,
  {x, -12, 10}, {y, -8, 8},
  ContourStyle -> {Red, Thick},
  Axes -> True,
  AxesLabel -> {x, y},
  Frame -> False,
  AspectRatio -> 16/22,
  ImageSize -> {540, 400},
  Epilog -> {Text[
     Style["b"^2 - "4 a c" == b^2 - 4 a c,
      FontSize -> 20], {5, 5}]}]]


Bob Hanlon

---- sigismond kmiecik <sigismond.kmiecik@wanadoo.fr> wrote: 

=============
Hello to everybody

How can I modify the code below (after Epilog) in order to add after 
"b^2-4ac=" its computed value and have everyhing framed?


a=0.5;b=1;c=6;d=2;e=3;f=-30;
ContourPlot[{a x^2  +b x*y + c  y^2  + d x  + e y - 30 == 0 }, {x, -12, 
10}, {y, -8, 8
}, ContourStyle-> {Red, Thick}, Axes -> True, AxesLabel-> {x,y} ,
Frame-> False,ImageSize-> {550,400}, Epilog->{Text[Style["b^2 - 
4ac=",FontSize-> 20],{5,5}]}]


I haven't found in the Mathematica 8 Documentation center a similar example.

Thanks

Sigismond Kmiecik

[toc] | [standalone]

Back to top | Article view | comp.soft-sys.math.mathematica

csiph-web