NDSolve and differential equation system

*To*: mathgroup at smc.vnet.net*Subject*: [mg53944] NDSolve and differential equation system*From*: Christian Moosmann <some@Adress>*Date*: Sat, 5 Feb 2005 03:14:56 -0500 (EST)*Organization*: Rechenzentrum der Universitaet Freiburg, Germany*Sender*: owner-wri-mathgroup at wolfram.com

Hi MathGroup I have a question concerning NDSolve and a system of differential equations. consider an equation system A x'[t] + (K1 + v[t] * K2).x[t]=B, where A,K1,K2 are Matrices, B and x are vectors and v[t] is a defined skalar function. I want to compute this system with NDSolve, however, it takes a very long time. To try it you should use Theodor Gray's ShowStatus function in the frontend. ShowStatus[status_] := LinkWrite[$ParentLink, SetNotebookStatusLine[FrontEnd`EvaluationNotebook[], ToString[ status ] ] ]; Dim = 40; I use random Matrices here. They show the same basic behaviour as the matrices I usually use (those are also dense), so this problem should not be related directly to the matrices. K1 = Table[Random[], {i, Dim}, {j, Dim}]; K2 = Table[Random[], {i, Dim}, {j, Dim}]; Ainv = Inverse[Table[Random[], {i, Dim}, {j, Dim}]]; B = Table[Random[], {i, Dim}]; tStart = 0.; tEnd = 1; At first we solve without the function v[t]: Timing[NDSolve[{D[ x[t], t] + Ainv.( K1 + K2).x[t] == B , x[tStart] == Table[0. , {Dim}]} , x , { t, tStart, tEnd }, SolveDelayed -> True, StepMonitor :> ShowStatus[t] ] ] {0.080987 Second, {{x -> InterpolatingFunction[{{0., 1.}}, <>]}}} is quite fast, now we would like to include the function: v[t_] := UnitStep[t - 0.2]*4*(t - 0.2) - UnitStep[t - 0.45]*4*(t - 0.45); Timing[NDSolve[{D[ x[t], t] + Ainv.( K1 + v[t]*K2).x[t] == B , x[tStart] == Table[0. , {Dim}]} , x , { t, tStart, tEnd }, SolveDelayed -> True, StepMonitor :> ShowStatus[t] ] ] {137.341 Second, {{x -> InterpolatingFunction[{{0., 1.}}, <>]}}} Well, this is a factor of > 1000, and what I would like to compute is at least Dimension 100. If you use the stepmonitor you also may notice, that the time counts up, then stops for some time, counts up again... Does anyone have any suggestions how to deal with that? Thanks in advance Christian