MathGroup Archive 2006

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

Search the Archive

Re: Problem with LaplaceTransform and InverseLaplaceTransform

  • To: mathgroup at
  • Subject: [mg67541] Re: Problem with LaplaceTransform and InverseLaplaceTransform
  • From: ab_def at
  • Date: Fri, 30 Jun 2006 04:14:26 -0400 (EDT)
  • References: <e7td5h$3kh$>
  • Sender: owner-wri-mathgroup at

aXi wrote:
> Can someone point me to site that would help me in using Mathematica
> 5.2for purpose of calculations related to Systhems theory. I'm having
> trouble with several topics... for example doing
> InverseLaplaceTransform of function:
> (1/s) * (TanH[pi*s/2])
> Thanks in advance!

If you want the inverse Laplace transform of Tanh[Pi*s/2]/s, it can be
found as follows. First take the transform of Tanh[Pi*s/2]:

In[1]:= fs = Tanh[Pi*s/2]/s;

In[2]:= InverseLaplaceTransform[s*fs, s, t]

Out[2]= DiracDelta[t] + 2*Sum[(-1)^K$40*DiracDelta[(-K$40)*Pi + t],
{K$40, 1, Infinity}]

Then integrate the result:

In[3]:= Integrate[DiracDelta[t], t] +
  2*Sum[Integrate[(-1)^k*DiracDelta[t - Pi*k], t], {k, Infinity}]

Out[3]= UnitStep[t] + (-1 + (-1)^Floor[t/Pi])*UnitStep[-1 + t/Pi]

Strictly speaking, we need to evaluate Integrate[f[tau], {tau, 0-, t}],
'including' the zero in the integration range.

It is easy to see that the result is equal to (-1)^Floor[t/Pi] or
Sign[Sin[t]]. Here's a check:

In[4]:= LaplaceTransform[Sign[Sin[t]], t, s] - fs // Simplify

Out[4]= 0

Maxim Rytin
m.r at

  • Prev by Date: Re: repeated usage of packages
  • Next by Date: Forcing a parameter to be integer when using 'Integrate'
  • Previous by thread: Re: Problem with LaplaceTransform and InverseLaplaceTransform
  • Next by thread: Pattern Matching for Exponentials