Hagbard |
Verfasst am: 04. Mai 2011 14:12 Titel: |
|
Die Hilfe auf der Wolfram Website hab ich durchgelesen und auch schon allerhand probiert. Kann es sein, dass Mathematica schon mit dem Conjugate nicht zurecht kommt?
Code: | In[1]= GL1 = I D[u[t, r], t] == 1/4*(D[u[t, r], r, r] + 2/r*D[u[t, r], r]) - A[t, r]^2*u[t, r] + u[t, r] - Abs[u[t, r]]^2 u[t, r] - I/4*(D[A[t, r], r]*u[t, r] + A[t, r]*D[u[t, r], r]) GL2 = 0.9*D[A[t, r], t] == 1/(2*I*4)*(Conjugate[u[t, r]]*D[u[t, r], r] - u[t, r]*Conjugate[D[u[t, r], r]]) - Abs[u[t, r]]^2*A[t, r] - 1/r*D[A[t, r], r] + D[A[t, r], r, r] nsol = NDSolve[{GL1, GL2, u[t, 10] == 0, A[t, 0] == 0}, {u, A}, {t, 0, 50}, {r, 0, 10}]
|
|
|