多元函数微分方程的求解程序|定积分的近似计算程序语言
Mathematica 2.0或以上版本例1.函数 .
解 In[ ]:=Plot3D[x Sin[y]+yE^x,{x,-2,2},{y,-2,2},Plotpoints->30,Lighting->True]
In[ ]:=ContourPlot[x Sin[y]+yE^x,{x,-2,2},{y,-2,2},PlotRange->{0,0}]
In[ ]:=ContourPlot[x Sin[y]+yE^x,{x,-2,2},{y,-2,2},PlotRange->{-1,1}]
In[ ]:=y=f[x]
In[ ]:=D[x Sin[y]+yE^x= =0,x]
In[ ]:=Solve[%,f [x]]
In[ ]:= f [x_ ]:=-(Sin[y]+yE^x)/(e^x+xCOS[Y])
In[ ]:=x=0
In[ ]:=Solve[x Sin[y]+yE^x= =0,y]
In[ ]:=f[0]=0
In[ ]:= f [0]
例2.求定积分 .
解 定义函数和式（取右端点），计算和式的数值，输入下语句
t[n_ ]=Nsum[Exp[i/n]/n,{I,1,n}]
t[100]
t[500]
t[1000]
t[5000]
t[10000]
t[50000]
t[100000]
t[500000]
页:
[1]
