MathGroup Archive 1996

[Date Index] [Thread Index] [Author Index]

Search the Archive

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,



  • Prev by Date: Re: Help for Class Project
  • Next by Date: Re: Applescript support in Mathematica 3.0
  • Previous by thread: Re: labelling contours
  • Next by thread: Reading Numbers