Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

DSolve modifications in version 5

  • To: mathgroup at smc.vnet.net
  • Subject: [mg52668] DSolve modifications in version 5
  • From: "waldy73" <jawaldvo8776 at webmail.winona.edu>
  • Date: Tue, 7 Dec 2004 04:10:22 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

This mathematica code works for version 4 but i can't get it to work in
version 5. Does anybody have any sugestions.

F = {Fx, Fy, Fz};
r = {x[t], y[t], z[t]};
EF = {Ex, Ey, Ez};
BF = {Bx, By, Bz};
v = D[r, t]

F = q EF + q Cross[v, BF]

eq1 = F - m D[r, {t, 2}] == 0 // Thread;
eq1 // ColumnForm

initial = {
x[0] == 0, x'[0] == 0,
y[0] == 0, y'[0] == 0,
z[0] == 0, z'[0] == 0};

fields = Thread /@ {BF -> {0, 0, m Ï?0/
q}, EF -> {E0 Cos[Ï? t], 0, 0}} // Flatten

eqs = Join[eq1, initial] /. fields

dsol = DSolve[eqs, {x[t], y[t], z[t]}, t] // Flatten // FullSimplify
when i do this last part i get this message

DSolve::bvnul: "For some branches of the general solution, the given
boundary \
conditions lead to an empty solution. 

Thanks!


  • Prev by Date: SVG to graphics primitives
  • Next by Date: Practical problem
  • Previous by thread: SVG to graphics primitives
  • Next by thread: Practical problem