用Mathematica解方程
f'''[x]+0.5f[x]f''[x]=0，初始条件是f[0]==0,f'[0]==a,f'[10]==1-a.哪位高手给用Mathematica给解一下...
f'''[x] +0.5 f[x] f''[x]=0，初始条件是f[0] == 0, f'[0] == a, f'[10] == 1 - a.
哪位高手给用Mathematica给解一下 展开
哪位高手给用Mathematica给解一下 展开
1个回答
展开全部
s = With[{a = 1(*你设定的a值*)},
NDSolve[{f'''[x] + 0.5 f[x] f''[x] == 0, f[0] == 0, f'[0] == a,
f'[10] == 1 - a}, f[x], {x, 0, 10(*你设定的x范围*)}]];
Plot[f[x] /. s, {x, 0, 10(*你设定的x范围*)}]
这个微分方程用电脑好像解不出来
NDSolve[{f'''[x] + 0.5 f[x] f''[x] == 0, f[0] == 0, f'[0] == a,
f'[10] == 1 - a}, f[x], {x, 0, 10(*你设定的x范围*)}]];
Plot[f[x] /. s, {x, 0, 10(*你设定的x范围*)}]
这个微分方程用电脑好像解不出来
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
