Re: labelling contours
- To: mathgroup at smc.vnet.net
- Subject: [mg5271] Re: [mg5235] labelling contours
- From: "Daitaro Hagihara" <daiyanh at mindspring.com>
- Date: Mon, 18 Nov 1996 02:30:13 -0500
- Sender: owner-wri-mathgroup at wolfram.com
The following strip of Mma code, which I wrote eons ago, shows the use of =
LabeledListPlot to "simulate" labeling contours. May not be the best =
example, but it works (for me at least).
Regards,
profit =3D ( 1 - c ) p^p ( ( 1 - p ) / t )^( 1 - p ) ( 1 + t ) ;
<<Graphics`Graphics`
points =3D Table [
{ ( 1 - c ) ( -1 + p + p t ), ( 1 - c ) ( -1 + p + p t ) / t,
StringForm [ "``%", Round [ 100 p ] ] } /.
g1 =3D LabeledListPlot [ points, DisplayFunction -> Identity ] ;
g2 =3D Table [ Graphics [ Line [ Table [ { x, y } /.
Show [ Append [ g2, g1 ], DisplayFunction -> $DisplayFunction,