请问谁会用mathematica画图啊！就是那个画图软件！ 请问得出一个方程的正切线的公式？

来源：蜘蛛抓取(WebSpider) 时间：2016-10-30 21:15 标签： mathematica 3d画图
Mathematica使用教程_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
Mathematica使用教程
上传于||文档简介
&&M​a​t​h​e​m​a​t​i​c​a​使​用​教​程
阅读已结束，如果下载本文需要使用3下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩10页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢用mathematica求解如下二阶微分方程的数值解 输出最终的数值解并画图用mathematica求解如下二阶微分方程的数值解和画图的程序代码A*y (x) = y'' (x)/{{1 + [y' (x)]^2}^(3/2)} + y' (x)/{{1 + [y' (x)]^2}^(1/2)}其中A＝134708.边界条件 :1) y' (0) = 0; 2) y' (0.005) = cot58 (58 是角度)x={0,0.005},步长是0.0001
浔子账垦34
In[1]:=s = NDSolve[{134708*y[x] == y''[x]/(1 + (y'[x])^2)^1.5 + y'[x]/(1 + (y'[x])^2)^0.5,y'[0] == 0,y'[0.005] == Cot[58*\[Pi]/180]},y,{x,0,0.005}]Plot[Evaluate[y[x] /.s],{x,0,0.005},PlotRange -> All]esol = Block[{\[Epsilon] = $MachineEpsilon},NDSolve[{134708*y[x] == y''[x]/(1 + (y'[x])^2)^1.5 + y'[x]/(x*(1 + (y'[x])^2)^0.5),y'[\[Epsilon]] == 0,y'[0.005] == Cot[58*\[Pi]/180]},y,{x,\[Epsilon],0.005}]]Plot[Evaluate[y[x] /.esol],{x,0.},PlotRange -> All]
为您推荐：
其他类似问题
扫描下载二维码Mathematica作图
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。

我要回帖

更多关于 mathematica 3d画图 的文章

 

随机推荐