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,