我碰到数学中的“无可用内存”错误消息.我明白“并行[]”不是(显然)会帮助我.也没有“ClearSystemCache []”.
是什么赋予了？我只需要更多的RAM？
我的代码
Needs["VectorAnalysis`"]
Needs["DifferentialEquations`InterpolatingFunctionAnatomy`"];
Clear[Eq4,EvapThickFilm,h,S,G,E1,K1,D1,VR,M,R]
Eq4[h_,{S_,G_,E1_,K1_,D1_,VR_,M_,R_}] := \!\(
\*SubscriptBox[\(\[PartialD]\),\(t\)]h\) +
Div[-h^3 G Grad[h] +
h^3 S Grad[Laplacian[h]] + (VR E1^2 h^3)/(D1 (h + K1)^3)
Grad[h] + M (h/(1 + h))^2 Grad[h]] + E1/(
h + K1) + (R/6) D[D[(h^2/(1 + h)),x] h^3,x] == 0;
SetCoordinates[Cartesian[x,y,z]];
EvapThickFilm[S_,R_] :=
Eq4[h[x,t],{S,R}];
TraditionalForm[EvapThickFilm[S,R]];
L = 318; TMax = 10;
Off[NDSolve::mxsst];
Clear[Kvar];
Kvar[t_] := Piecewise[{{1,t <= 1},{2,t > 1}}]
(*Ktemp = Array[0.001+0.001#^2&,13]*)
hSol = h /. NDSolve[{
(*S,E,K,D,M*)
EvapThickFilm[1,3,0.1,7,0.01,160],h[0,t] == h[L,h[x,t] == h[x,L,(*h[x,0] == 1.1+Cos[x] Sin[2y] *)
h[x,0] ==
1 + (-0.25 Cos[2 \[Pi] x/L] - 0.25 Sin[2 \[Pi] x/L]) Cos[
2 \[Pi] y/L]
},{x,L},{y,{t,TMax},MaxStepSize -> 0.1
][[1]]
hGrid = InterpolatingFunctionGrid[hSol];
错误信息
No more memory available. Mathematica kernel has shut down. Try quitting other applications and then retry.
我的操作系统规格
英特尔酷睿2双核与4.00 GB RAM,64位操作系统(Windows 7)
