Re: Adding computed values to a Contourplot function
- To: mathgroup at smc.vnet.net
- Subject: [mg118604] Re: Adding computed values to a Contourplot function
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 4 May 2011 06:34:02 -0400 (EDT)
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 at 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