PDE
- To: mathgroup at smc.vnet.net
- Subject: [mg42801] PDE
- From: "VASSILIOS MATSIS" <vmats at tee.gr>
- Date: Wed, 30 Jul 2003 04:07:28 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hi
Could anyone help me with this problem?
NDSolve[{D[QM[x, t], t] == 4x D[QM[x, t], x, x]
+ 6 D[QM[x, t], x] - 4.46 (QM -
QB), D[QB[x, t], t] == 1.911 (QM - QB), D[C[t], t] == 0.00005632
(
C - CS), Derivative[1, 0][QM][1,
t] == 0.000047 (C - CS), QS == CS^1.17, QM[x, 0] == 0, QB[x, 0] == 0,
C[0] == 1, QM[1, t] == QS[t]}, QM, QB, C, CS, QS, {x, 0, 1}, {t, 0,
0.1}, AccuracyGoal -> Infinity, PrecisionGoal ->
20, WorkingPrecision -> 25, MaxSteps ->
2000, StartingStepSize -> 0.0001]
NDSolve::"nonopt": "Options expected (instead of \!\({t, 0, 0.1`}\)) beyond
\
position \!\(4\) in \!\(\[LeftSkeleton] 1 \[RightSkeleton]\). An option must
\
be a rule or a list of rules."
Thanks in advance