Re: matrix differential equations with NDSolve
- To: mathgroup at smc.vnet.net
- Subject: [mg40232] Re: matrix differential equations with NDSolve
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 27 Mar 2003 06:49:20 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <b5rlun$etk$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
is
var = Table[y[i][t], {i, 1, 5}];
A = Table[Random[], {5}, {5}];
NDSolve[Join[
D[var, t] == A.var // Thread,
(var == Table[Random[], {5}] // Thread) /. t -> 0],
var, {t, 0, 2}]
so complicated ?
Regards
Jens
Richard Easther wrote:
>
> Is there an easy way to solve matrix (ordinary) differential equations
> numerically inside of Mathematica? (The hard way is to spell them out
> term by term, of course)
>
> It may be I am missing something obvious, but a quick set of
> experiments with NDSolve did not bring any joy....
>
> Richard Easther