Derivadas Generalizadas

ϕ[x_] := Exp[-x^2 / 2]

Plot[ ϕ[x], {x,-5,5}, PlotRange-> {0,1}]

dϕ[x_] :=D[ ϕ[x],x]

dϕ[x]

Plot[-(E^(-((x^2)/2))) x, {x,-5,5}, PlotRange->{-1,1}]

d2ϕ[x_] :=D[ dϕ[x],x]

d2ϕ[x]

Plot[-(E^(-((x^2)/2)))+(E^(-((x^2)/2))) (x^2), {x,-5,5}, PlotRange->{-1,1}]

Fϕ[k_]:= FourierTransform[ϕ[x], x, k]

Fϕ[k]

Plot[ Fϕ[k], {k,-5,5}]

InverseFourierTransform[I k (E^(-((k^2)/2))), k,x]

Plot[ (E^(-((x^2)/2))) x, {x,-5,5}]

df1x[x_] = InverseFourierTransform[I k (E^(-((k^2)/2))), k,x]

Plot[ df1x[x], {x,-5,5}]

df2x[x_] = InverseFourierTransform[(I k)^2 *  (E^(-((k^2)/2))), k,x]

Plot[ df2x[x], {x,-5,5}]

gdx[x_,s_] = InverseFourierTransform[(I k)^s *  (E^(-((k^2)/2))), k,x]

Manipulate[Plot[ gdx[x,s], {x,-5,5}],{s,1,2}]