athematica中对定义的函数作运算
mathematica中对定义的函数作运算 -
equ = {D[x1[t], t] == x1[t] + H, D[x2[t], t] == x1[t]*x2[t] - H};sol = DSolve[equ, {x1, x2}, t]但这样求不出来这可能这方程组没有解析解你可以尝试数值解法带入x1 ,x2的初始值，在一定范围的t内求数值解 就是H = x1[t]^2 + x2[t]^2;equ 到此结束了？。
f[n_]:=f[n]=n f[n-2]
equ = {D[x1[t], t] == x1[t] + H, D[x2[t], t] == x1[t]*x2[t] - H};sol = DSolve[equ, {x1, x2}, t]但这样求不出来这可能这方程组没有解析解你可以尝试数值解法带入x1 ,x2的初始值，在一定范围的t内求数值解 就是H = x1[t]^2 + x2[t]^2;equ 到此结束了？。
f[n_]:=f[n]=n f[n-2]
第一步画图很简单，就不多少了。接下来是找解部分，
f[x_,y_,z_]:=x^2+y^3-Log[z];f[1,3,5]注意：Log默认底为自然对数E，若想为别的数t就是Log[t,z],10就是Log[10,z]
Mathematica 7.0 利用导数求函数的单调区间 -
如图，先定义函数后，第一步画出大意图，第二步解出f'[x]=0的点，即极值，求得为-1和1，然后单调区间一眼就能看出来了。代码不用再单独给出了吧，就两句，看图就知道了。
f[x_,y_,z_]:=x^2+y^3-Log[z];f[1,3,5]注意：Log默认底为自然对数E，若想为别的数t就是Log[t,z],10就是Log[10,z]
mathematica怎样调用函数 -
Mathematica 中函数可以这么定义，例如a(x) = x^2:a[x_]:=x^2按Ctrl+Enter，调用时用：a[5]
你定义了一个函数，然后如果你以后用那个函数，就把它所在的细胞的style设置为code，然后保存的时候会提示自动生成.m文件，以后在任意notebook里就可以在工作目录调用这个包里的函数。用Get["a.m"]a.nb里面，也就是a.m里面有fun这个函数，就可以用了。
mathematica 随即形成n个100以内的整数,定义函数计算数表的算术平均数...
。。。显然LZ没有很好地阅读Mathematica帮助。算术平均：Mean[{a,b,c,d,好了吧！}]几何平均：GeometricMean[{a,b,c,d,好了吧！}]调和平均：HarmonicMean[{a,b,c,d,好了吧！}]生成随机数：RandomInteger[{1,100},n]
关于多元函数的每个变量的偏微分，说白了就是求梯度，Mathematica做偏微分的函数D有5种语法，其中第4种就是对付你这情况的。代数值嘛，可以定义函数再代：f[x, y, z, w] = Log@x + y^2 + Sin[z] + Exp@wdf[x_, y_, z_, w_] = D[f[x, y, z, w], {{x, y, z, w}}希望你能满意。