MathGroup Archive 2000

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

Search the Archive

Re: Re: How to plot...?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg23849] Re: [mg23792] Re: [mg23736] How to plot...?
  • From: BobHanlon at aol.com
  • Date: Mon, 12 Jun 2000 01:17:39 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 6/10/2000 3:09:53 AM, Matt.Johnson at autolivasp.com writes:

>Jos-
>
>Plot3D[ fp[ pp , vel ] , {pp, 7.9, 10.5}, {vel, 780, 940}];
>
>should do it.
>
>If you want a 2-d plot holding one variable constant, (letting pp = 7.9
>in this
>case)
>
>Plot[ fp[ 7.9, vel ], {vel, 780, 940}];
>
>-matt
>
>
>jml at accessinter.net ( Jose Lasso) on 06/04/2000 11:09:28 PM
>
>Subject: [mg23849] [mg23792]  [mg23736] How to plot...?
>
>Hi,
>
>How can I plot the following function: fp[pp_,vel_]:=(pp*vel^2)/450240,
>this is a ballistic function, where fp is the energy, pp is the pellet
>weight, and vel is the velocity of the pellet. Any ideas. Thx in advance.
>Regards.
>
>Jos M Lasso
>

If you want to plot in 2-D, you can plot a family of curves.

Needs["Graphics`Legend`"]

fp[pp_, vel_] := (pp*vel^2)/450240;

Plot[Evaluate[Table[fp[pp, vel], {pp, 7.8, 10.5, .3}]], {vel, 780, 940}, 
    Frame -> True, Axes -> False, 
    FrameLabel ->  {"\nVelocity (vel, ft/sec)", 
        "Energy (fp)\n"}, 
    PlotStyle -> Table[Hue[(x - 7.5)/3], {x, 7.8, 10.5, .3}], 
    PlotLegend -> 
      Prepend[Table[
          "  =" <> ToString[
              NumberForm[x, {3, 1}, NumberPadding -> {" ", "0"}]], {x, 8.1, 
            10.5, .3}], "pp = 7.8"], LegendPosition -> {1.1, -.65}, 
    LegendSize -> {.5, 1.4}, LegendLabel -> "Pellet Weight\n(pp, grains)", 
    Epilog -> {Text["fp = (pp * vel^2)/450240",  
          Scaled[{.05, .8}], {-1, 0}]}, ImageSize -> {500, 300}];


Bob

BobHanlon at aol.com


  • Prev by Date: Re: Pattern Matching
  • Next by Date: Re: Pattern Matching
  • Previous by thread: Re: How to plot...?
  • Next by thread: Mathematica 3.0/4.0