User Portlet
| Discussions |
|---|
| Another way: DSolve[{x[1]'[t] == -x[1][t] + x[2][t], x[2]'[t] == x[1][t] - x[2][t]}, {x[1][t], x[2][t]}, t] |
| thanks a lot. |
| I believe part of the reason you are seeing what you see as Real is because of approximate (decimal) constants. In[1]:= (0.` + 8.111989164074249`*^-126 I)*Conjugate[(0.` + 8.111989164074249`*^-126 I) ] Out[1]= 6.58044*10^-251 + 0. I In[2]:= (0 + 8... |
| One idea: Use replacement to turn all Cos[eta] into CosEta, Cos[eta]^2 into CosEta^2, etc. You will need to study how to use pattern matching and replacement to make certain you make no errors in this step. Then use the Mathematica function... |
| Thank you for the copy of the file. That went surprisingly smothly. I am very glad I didn't try guess what kind of random file to show you. For anyone who doesn't want to download the 52kbyte .rar compressed file which uncompresses to 20 mbytes,... |