Ausgabe Realteil < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) überfällig  | | Datum: | 19:08 Do 11.04.2013 | | Autor: | LoKiaK |
Hallo,
kann mir jemand sagen warum Mathematica mir nicht den Realteil ausspucken möchte?
Vielen Dank!!
Auszug:
a = 1.0
imax = 3
u[x_] = BesselJ[0, a] + [mm] 2*Sum[I^i*BesselJ[i, [/mm] a]*Cos[i*x], {i, imax}]
Out[151]= k [mm] \in [/mm] Reals
Out[152]= 1.
Out[153]= 3
Out[154]= 0.765198+ 2 (0.440051 I Cos[x] - 0.114903 Cos[2 x] - 0.0195634 I Cos[3 x])
In[167]:= v[k_] = FourierTransform[u[x], x, k]
Simplify[Re[%], Element[k, Reals]]
Out[167]= (0.- 0.0490381 I) DiracDelta[-3 + k] - 0.28802 DiracDelta[-2 + k] + (0.+ 1.10304 I) DiracDelta[-1 + k] + 1.91807 DiracDelta[k] + (0.+ 1.10304 I) DiracDelta[1 + k] - 0.28802 DiracDelta[2 + k] - (0.+ 0.0490381 I) DiracDelta[3 + k]
Out[168]= Re[(0.- 0.0490381 I) DiracDelta[-3 + k] - 0.28802 DiracDelta[-2 + k] + (0.+ 1.10304 I) DiracDelta[-1 + k] + 1.91807 DiracDelta[k] + (0.+ 1.10304 I) DiracDelta[1 + k] - 0.28802 DiracDelta[2 + k] - (0.+ 0.0490381 I) DiracDelta[3 + k]]
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 19:20 Sa 13.04.2013 | | Autor: | matux |
$MATUXTEXT(ueberfaellige_frage)
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig | | Datum: | 20:02 Sa 13.04.2013 | | Autor: | Peter_Pein |
Hi,
bin mal wieder spät dran ![[verlegen]](/images/smileys/verlegen.gif "[verlegen]") .
Für solche Zwecke gibt's in Mathematica die Funktion ComplexExpand:
| 1: | In[7]:= FullSimplify[Re[v[k]] // ComplexExpand, Element[k, Reals]]
| | 2: |
| | 3: | Out[7]= 0. - 0.28802 DiracDelta[-2 + k] + 1.91807 DiracDelta[k] -
| | 4: | 0.28802 DiracDelta[2 + k] |
Gruß,
Peter
|
|
|
|
