WOLFRAM NOTEBOOK

LT[f_,t_,s_]:=
-
f
-st
t(*BilateralLaplaceDefined*)
In[]:=
f[t_]:=(Sin[t])*UnitStep[t]
In[]:=
Plot[f[t],{t,-10,10}]
Out[]=
In[]:=
F=LT[f[t],t,s]
ConditionalExpression
1
1+
2
s
,Re[s]>0(*ROCdoesn'tincludejωaxis?NotStable:))
In[]:=
Block[{s=σ+Iω},Table[plot[Abs[F],{σ,-10,10},{ω,-10,10},PlotRangeFull],{plot,{Plot3D,ContourPlot,DensityPlot}}]]
Out[]=
,
,
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.