用mathematica画动画
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/15 16:20:42
你可以参考这里:http://zhidao.baidu.com/question/489350888.html?oldq=1再问:我对与MATHEMATICA基本没概念,这个好像是给出函数画动态图吧。
h=32/a/b;z=50ab+402(a+b)h;Minimize[{z,a>0&&b>0},{a,b},Reals]//RootReducePlot3D[z,{a,0.3,16},{b,0.3,1
data={{0.25,15.},{0.5,32.},{0.75,38.},{1.,41.},{1.5,41.},{2.,40.},{2.5,35.},{3.,35.},{4.,25.},{5.,20
LinearSolve[M,b]{-2,0,0,3}应该就是这样
7.0或8.0上运行Manipulate[Show[Graphics[Circle[{x,Sin[x]},.2],PlotRange->{{-7,7},{-1.3,1.3}}],Plot[Sin[i]
你的函数定义不对,圆括号,方括号,花括号三种括号的基本用法也没用对,建议找个最基本的入门书籍先看一下,下面是函数的定义:f[x_, y_] := ((Cos[
Animate[]或者Manipulate[]再问:格式呢?麻烦详细点
Clear[x];NIntegrate[(x-0.006)/((x-0.006)^2+(8-7)^2+(7-5)^2)^(3/2),{x,-1,1}]NIntegrate[(x-0.006)/((x-
Plot[{Sqrt[-20*x],-Sqrt[-20*x]},{x,-5,1}]Plot[-0.4x^2,{x,0,5}]
p1=ParametricPlot3D[{Cos[t],Sin[t],t},{t,0,4\[Pi]},BoxRatios->{1,1,1/2}];Manipulate[Show[p1,Graphics
shift+enter.
s=With[{a=1(*你设定的a值*)},NDSolve[{f'''[x]+0.5f[x]f''[x]==0,f[0]==0,f'[0]==a,f'[10]==1-a},f[x],{x,0,10(
用ParametricPlot命令来画图.代码如下,r=1;ParametricPlot[{ra-rCos[a],-r+rSin[a]},{a,-2Pi,2Pi}]大小写不可搞错.已测试,直接拷贝到M
Clear["`*"]清除一下变量
Animate[Graphics[{Gray,Disk[{5,-4.9t^2},1]},Axes->True,AxesOrigin->{0,0},PlotRange->{-45,0}],{t,0,3}
In[1]:=res=RSolve[{a[n+3]==p*a[n]+q*a[n+2]},a[n],n]Out[1]={{a[n]->C[1]Root[-p-q#1^2+#1^3&,1]^n+C[2]R
见下图:
绘制由NDSolve求出的微分方程数值解曲线的命令Plot[Evaluate[y[x]/.solution],{x,a,b}]具体如:Plot[Evaluate[y[x]/.NDSolve[{y'[x
用专用的图形包,比如箭头,直方图什么的,可以去help查阅一下具体的你也可以学问社区多看看,那里的mathemtatica小组的资源很多
解决常微分问题,命令是DSolve,举个例子:y'=x命令为:DSolve[y'[x]==x,y'[x],x]按shift+enter运行.结果为:{{y[x]->x^2/2+C[1]}}.你可以照着