MathGroup Archive 1996

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

Search the Archive

Re: labelling contours


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