Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.soft-sys.math.mathematica > #2073
| Path | csiph.com!x330-a1.tempe.blueboxinc.net!newsfeed.hal-mli.net!feeder1.hal-mli.net!news.glorb.com!news-out.readnews.com!news-xxxfer.readnews.com!216.40.28.145.MISMATCH!novia!newspump.sol.net!posts.news.twtelecom.net!nnrp2.twtelecom.net!not-for-mail |
|---|---|
| From | Peter Breitfeld <phbrf@t-online.de> |
| Newsgroups | comp.soft-sys.math.mathematica |
| Subject | Re: Adding computed values to a Contourplot function |
| Date | Tue, 3 May 2011 12:23:28 +0000 (UTC) |
| Organization | Steven M. Christensen and Associates, Inc and MathTensor, Inc. |
| Sender | steve@smc.vnet.net |
| Approved | Steven M. Christensen <steve@smc.vnet.net>, Moderator |
| Message-ID | <ipos40$i43$1@smc.vnet.net> (permalink) |
| References | <ipoioe$g1h$1@smc.vnet.net> |
| Lines | 36 |
| NNTP-Posting-Date | 03 May 2011 11:24:16 GMT |
| NNTP-Posting-Host | b35c9327.news.twtelecom.net |
| X-Trace | DXC=O@aDULD=SP:7fPcHfS<E_<C_A=>8kQj6=;[h;PUXBgb4e6cLf4b_YJ3EFiONJ7[Go6SRhQg4gb5i= |
| X-Complaints-To | abuse@twtelecom.net |
| Xref | x330-a1.tempe.blueboxinc.net comp.soft-sys.math.mathematica:2073 |
Show key headers only | View raw
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
>
You can use Inset and Row like this:
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 -> Inset[
Style[Row[{HoldForm[b^2-4 a c]," = ",b^2-4 a c}],Large],
{5, 5}]]
--
_________________________________________________________________
Peter Breitfeld, Bad Saulgau, Germany -- http://www.pBreitfeld.de
Back to comp.soft-sys.math.mathematica | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
Adding computed values to a Contourplot function sigismond kmiecik <sigismond.kmiecik@wanadoo.fr> - 2011-05-03 09:43 +0000 Re: Adding computed values to a Contourplot function Peter Breitfeld <phbrf@t-online.de> - 2011-05-03 12:23 +0000 Re: Adding computed values to a Contourplot function Dan <dflatin@rcn.com> - 2011-05-04 10:35 +0000 Re: Adding computed values to a Contourplot function Helen Read <readhpr@gmail.com> - 2011-05-04 10:31 +0000
csiph-web