MathGroup Archive 1995

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

Search the Archive

Re: Few MMA questions - need some help!

  • To: mathgroup at
  • Subject: [mg1074] Re: Few MMA questions - need some help!
  • From: rubin at (Paul A. Rubin)
  • Date: Fri, 12 May 1995 17:41:02 -0400
  • Organization: Michigan State University

In article <3o6u1g$psn at>,
   pikus at (Fedor G. Pikus) wrote:
->I need some help to make MMA do the calculation I want to:
->1. MMA 2.2 cannot take the following integral:
->	Integrate[E^(s t) E^(I wmk t),{t,-Infinity,T}]
->even if I write 
->	Integrate[E^(s^2 t) E^(I wmk t),{t,-Infinity,T}]
->which defines that at -Infinity Exp goes to 0, it still cannot take it.
->MMA 2.0 did take this integral, and the one before, where it assumed
->positive s. 

This may be a bug in Integrate.  I verified that kernel 2.2.2 cannot do it 
either; but if you combine the factors in the integrand, you get an answer:

  In[1]:=  Integrate[ E^((s + I wkm) t), {t, -Infinity, T} ]
       T (s + I wkm)
         s + I wkm

->The integral with finite limits 
->	Integrate[E^(s^2 t) E^(I wmk t),{t,-A,T}]
->can be computed, but the limit cannot. What it so difficult about 
->limit of E^(s^2 t) at t-> -Infinity?

Actually, I was about to say that I'm not sure the answer above is 
appropriate.  You may be thinking that s is real, but Mathematica doesn't 
know that (and perhaps should not assume it).  I assume you feel the limit 
is 0; but what if s = I?

->2. I need to make MMA compute the integrals like this:
->	Int[t Sum[f[k],{k,Infinity}],{t,0,1}]
->	Int[If[m == n, t, t^2], {t,0,1}]
->	Sum[f[k],{k,Infinity}]
->	If[m == n, 1, 1/2]

You can write your own integration function to do all this:

In[1]:=  Clear[ int ];
In[2]:=  int[ x_ Sum[ z__ ], y_List ] := 
           Sum[ z ] Integrate [x, y ] /; FreeQ[ z, y[[1]] ]
In[3]:=  int[ If[ a_, b_, c_ ], d_List ] :=
           If[ a, 
             Evaluate[ Integrate[ b, d ] ], 
             Evaluate[ Integrate[ c, d ] ] 
In[4]:=  int[ x_, y_List ] := Integrate[ x, y ]

In[5]:=  int[ t Sum[ f[k], {k, Infinity} ], {t, 0, 1} ]
         Sum[f[k], {k, Infinity}]
In[6]:=  int[ If[ m== n, t, t^2 ], {t, 0, 1} ]
                     1  1
          If[m == n, -, -]
                     2  3


* Paul A. Rubin                                  Phone: (517) 432-3509   *
* Department of Management                       Fax:   (517) 432-1111   *
* Eli Broad Graduate School of Management        Net:   RUBIN at MSU.EDU    *
* Michigan State University                                              *
* East Lansing, MI  48824-1122  (USA)                                    *
Mathematicians are like Frenchmen:  whenever you say something to them,
they translate it into their own language, and at once it is something
entirely different.                                    J. W. v. GOETHE

  • Prev by Date: Mma Sound
  • Next by Date: Re: Ouestion about Ploting?
  • Previous by thread: Few MMA questions - need some help!
  • Next by thread: Multivariate analysis under Mathematica ?!?