MathGroup Archive 2001

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

Search the Archive

Re: Dumb question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg27779] Re: [mg27772] Dumb question
  • From: BobHanlon at aol.com
  • Date: Sat, 17 Mar 2001 05:41:04 -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?
>


  • Prev by Date: Re: Dumb question: Summary
  • Next by Date: Re: Dumb question
  • Previous by thread: Re: Dumb question
  • Next by thread: Re: Dumb question