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