Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Graphics3D use' topicStudent Support Forum > General > "Graphics3D use"

Next Comment >Help | Reply To Topic
Author Comment/Response
guest
11/02/12 11:15am

The following code does not work because I donīt manage to evaluate the vector {u[t], v[t], w[t]} in the end. What is wrong?

OBE = {Dt[u[t],
t] == \[CapitalDelta]/\[CapitalOmega] v[t] - \[CapitalGamma]/(
2 \[CapitalOmega]) u[t],
Dt[v[t], t] == -(\[CapitalDelta]/\[CapitalOmega]) u[t] +
w[t] - \[CapitalGamma]/(2 \[CapitalOmega]) v[t],
Dt[w[t], t] == -v[t] - \[CapitalGamma]/\[CapitalOmega] (w[t] - 1),
u[0] == 0, v[0] == 0, w[0] == 1};

\[CapitalGamma] = 0; \[CapitalOmega] = "\[CapitalOmega]"; \
\[CapitalDelta] = 0;

s = NDSolve[OBE, {u[t], v[t], w[t]}, {t, 0, 2 Pi}];

Manipulate[
Graphics3D[
Arrow[{{0, 0, 0}, Evaluate[{u[t], v[t], w[t]} /. s]}]], {t, 0,
2 Pi}]



Thank you very much for help.


URL: ,

Subject (listing for 'Graphics3D use')
Author Date Posted
Graphics3D use guest 11/02/12 11:15am
Re: Graphics3D use Bill Simpson 11/02/12 2:08pm
Next Comment >Help | Reply To Topic