I am having trouble finding a symbolic solution to the system below:
v[t_] = {Subscript[v, 1][t], Subscript[v, 2][t], Subscript[v, 3][t]}
B = {Subscript[b, 1], Subscript[b, 2], Subscript[b, 3]}
elc = {Subscript[e, 1], Subscript[e, 2], Subscript[e, 3]}
A = q/c {{0, Subscript[b, 3], -Subscript[b, 2]}, {-Subscript[b, 3], 0,
Subscript[b, 1]}, {Subscript[b, 2], -Subscript[b, 1], 0}}
system = v'[t] == 1/m ( A.v[t]+q elc)
sol = DSolve[system, {Subscript[v, 1], Subscript[v, 2], Subscript[v, 3]}, t]
Note $q,c,B,elc,m$ are all constants (or their components are). The answer I get running the code is very complex/not correct. Any comments on how to improve would be appreciated.