mathematica解二阶偏微分方程想得到数值解图形分布怎么输入语言
pde={\!\(\*SubscriptBox[\(\[PartialD]\),\({{x},2}\)]\(f[x,t]\)\)==\!\(\*SubscriptBox[...
pde = {\!\(
\*SubscriptBox[\(\[PartialD]\), \({{x}, 2}\)]\(f[x, t]\)\)== \!\(
\*SubscriptBox[\(\[PartialD]\), \({{t}, 1}\)]\(f[x, t]\)\)*0.01};
ic = {f[0, t] = 30, f[100000, t] = 0, f[x, 0] = 0};
s = NDSolve[{pde, ic}, {f}, {0, t}, {100000, t}, {x, 0}, {x, 0,
100000}, {t, 0, 24}];
Plot3D[s, {x, 0, 100000}, {t, 0, 24}]
我这样输入的得不到结果 展开
\*SubscriptBox[\(\[PartialD]\), \({{x}, 2}\)]\(f[x, t]\)\)== \!\(
\*SubscriptBox[\(\[PartialD]\), \({{t}, 1}\)]\(f[x, t]\)\)*0.01};
ic = {f[0, t] = 30, f[100000, t] = 0, f[x, 0] = 0};
s = NDSolve[{pde, ic}, {f}, {0, t}, {100000, t}, {x, 0}, {x, 0,
100000}, {t, 0, 24}];
Plot3D[s, {x, 0, 100000}, {t, 0, 24}]
我这样输入的得不到结果 展开
1个回答
展开全部
输入格式不规范，另外你的边界条件与初始条件也不一致
pde = D[f[x, t], t] == 0.01*D[f[x, t], x, x];
ic = {f[0, t] == 30, f[100000, t] == 0, f[x, 0] == 0};
s = NDSolve[{pde, ic}, f[x, t], {x, 0，100000}, {t, 0, 24}];
Plot3D[f[x, t] /. s, {x, 0, 100000}, {t, 0, 24}]
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
