Re: Dumb question
- To: mathgroup at smc.vnet.net
- Subject: [mg27779] Re: [mg27772] Dumb question
- From: BobHanlon at aol.com
- Date: Fri, 16 Mar 2001 04:37:34 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Needs["Graphics`Graphics`"];
Needs["Graphics`Legend`"];
Limit[(Sin[a-x]*t/(a-x))^2, x -> a]
t^2
P[a_, t_, a_] := t^2;
P[x_, t_, a_] := (Sin[a-x]*t/(a-x))^2;
Plot[Evaluate[
Table[P[x, 1, a], {a, -Pi/2, Pi, Pi/2}]],
{x, -Pi, 2Pi},
Ticks -> {PiScale, Automatic},
PlotStyle -> Table[Hue[(k-1)/k], {k, 4}],
PlotLegend -> Table[a, {a, -Pi/2, Pi, Pi/2}],
LegendLabel -> "a =",
LegendPosition -> {1, -.25},
ImageSize -> {450, 230}];
Bob Hanlon
In a message dated 2001/3/14 4:33:32 AM, gseabra at swbell.net writes:
>Hello. I know this may be a dumb question, and I apologize for doing that.
>But I am new to Mathematica, and I'm having a little trouble with this.
>I
>want to plot the equation:
>
>P=[sin(a-x)*t/(a-x)]^2
>
>with fixed t (say, 1) and fixed a (say, Pi/2), with x varying from 0 to
>Pi.
>I know there is a discontinuity at x=a. Is there a way to plot this? I
>mean,
>P(x) versus x?
>