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