DGaussianWavelet
利用可能
Derivative-of-Gaussian continuous wavelet of order n
DGaussianWavelet[]
DGaussianWavelet[n]
Plot[WaveletPsi[DGaussianWavelet[1], x], {x, -5, 5}]
→ -Graphics-FormulaGrid[Table[{k, Simplify@WaveletPsi[DGaussianWavelet[k], x]}, {k, 1, 5}]]
→ FormulaGrid[{{1, -((Sqrt[2]*x)/(E^(x^2/2)*Pi^(1/4)))}, {2, (2/E^(x^2/2) - (2*x^2)/E^(x^2/2))/(Sqrt[3]*Pi^(1/4))}, {3, ((6*Sqrt[2]*x)/E^(x^2/2) - (2*Sqrt[2]*x^3)/E^(x^2/2))/(Sqrt[15]*Pi^(1/4))}, {4, (-4*(3/E^(x^2/2) - (6*x^2)/E^(x^2/2) + x^4/E^(x^2/2)))/(Sqrt[105]*Pi^(1/4))}, {5, ((-60*Sqrt[2]*x)/E^(x^2/2) + (40*Sqrt[2]*x^3)/E^(x^2/2) - (4*Sqrt[2]*x^5)/E^(x^2/2))/(3*Sqrt[105]*Pi^(1/4))}}]ψ = WaveletPsi[DGaussianWavelet[2], x]
→ (-2*(-E^(-1/2*x^2) + x^2/E^(x^2/2)))/(Sqrt[3]*Pi^(1/4)) 全 6300 関数 ·
MCPクライアントから使う