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

Groups > comp.soft-sys.math.mathematica > #2069

Re: Adding computed values to a Contourplot function

Show all headers | View raw

This should work:

 Epilog -> {Text[
    Framed[Style["b^2-4 a c =" <> ToString[b^2 - 4 a c],
      FontSize -> 20]], {5, 5}]}

If you want a nicer formatting you could do something like

Epilog -> {Text[
   Framed[Style[
     ToString[StandardForm[HoldForm[b^2 - 4 a c]]] <> "=" <>
      ToString[b^2 - 4 a c], FontSize -> 20]], {5, 5}]}

Heike

On 3 May 2011, at 10:43, sigismond kmiecik 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
>

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread

Thread

Re: Adding computed values to a Contourplot function Heike Gramberg <heike.gramberg@gmail.com> - 2011-05-03 12:22 +0000

csiph-web