mathematica 下载,急救：mathematica 一元函数求极值急救,急救,我有一个关于一元函数求极值的题目,要是解答不出来我就完了.题目是这样的：一元函数求极值的问题：请设计一个程序包求一元函数在[a,b]上最大

急救：mathematica 一元函数求极值急救,急救,我有一个关于一元函数求极值的题目,要是解答不出来我就完了.题目是这样的：一元函数求极值的问题：请设计一个程序包求一元函数在[a,b]上最大

在外面定义若干函数,例如
fg[x_] := 3x + 1
模块修改如下：
Module[{a,b,x},fff = Input[Inputhanshu];
a = Input[please Input zuoduandian];
b = Input[please Input youduandian];
zhudian = Solve[fff[x] == 0,x];
zhudianbiao = Union[{x,fff[x]} /.zhudian,{{a,fff[a]},{b,fff[b]}}];
fmax = Max[Transpose[zhudianbiao][[2]]];
fmin = Min[Transpose[zhudianbiao][[2]]];
x1 = Position[zhudianbiao,fmin];
x2 = Position[zhudianbiao,fmax];
Min1 = zhudianbiao[[x1[[1,1]]]];
Max1 = zhudianbiao[[x2[[1,1]]]];
{Min1,Max1}]
出现Input[Inputhanshu]的时候,只是输入函数名,例如上面定义的 fg ,而不是输入函数表达式
另外Min不能用,它是内部函数,我把它改成 Max1、Min1
还有,你没有求极值,是求了函数的零点,你的zhudianbiao包括端点值和零点值,这个我没有改
再就是,你是不是要输出Min1,我把它写上了,就是{Min1,Max1}
最后,最大最小值Mathematica5.1中分别用用
Maximize[{(1-x^2)^2,x>=-2,x=-2,x4}}
Out[78]=
{0,{x->-1}}
实现,用这个产生你的zhudianbiao吧!
补充
如果一定要在Input[Inputhanshu]输入函数式的话,那么应将
f[x_] := Input[ Inputhanshu]
修改为
f = Input[ Inputhanshu]
fff[x_] := f
另外你在是用Module[]的时候是立即执行的,如果想定义成软件包的话应该这样
f[x_]:=Module[.]
只有这样,在调入软件包的时候,才不至于立即出现输入窗口.只有在输入并执行f[x]的时候出现输入窗口(Input[Inputhanshu])才对.

mathematica求导使用mathematica对 ((λw+(1

D[Integrate[((λ w + (1 - λ) (p - c) - r) (a + k e + l r + x)) f[x],{x,A,B}],r]
结果是
Integrate[(-(a + e k + l r + x) f[x] + (-r + (-c + p) (1 - λ) + w λ) f[x]),{x,A,B}]
没有错
Mathematica 8.0
你在l和r间要加空格

mathematica 画微分方程数值解求y'(t)=y^2+t^2,y(0)=0的解的图像!

tt1=NDSolve[{D[y[t],t]\[Equal]y[t]^2+t^2,y[0]\[Equal]0},y,{t,-2,2}]
{{y -> InterpolatingFunction[{{-2.,2.}},""]}}
Plot[y[t] /.tt1,{t,-2,2}]

用Mathematica做：寻找100以内的勾股数.求程序设计及结果我要的是用Mathematica做的，不要其他东西做的

For[i = 1, i < 100, i++,
For[j = i, j < 100, j++,
For[k = j, k < 100, k++,
If[i^2 + j^2 == k^2,
Print[i, " ", j, " ", k];
]
]
]
]
直接复制进去,Shift+Enter ,结果为：
3 4 5
5 12 13
6 8 10
7 24 25
8 15 17
9 12 15
9 40 41
10 24 26
11 60 61
12 16 20
12 35 37
13 84 85
14 48 50
15 20 25
15 36 39
16 30 34
16 63 65
18 24 30
18 80 82
20 21 29
20 48 52
21 28 35
21 72 75
24 32 40
24 45 51
24 70 74
25 60 65
27 36 45
28 45 53
30 40 50
30 72 78
32 60 68
33 44 55
33 56 65
35 84 91
36 48 60
36 77 85
39 52 65
39 80 89
40 42 58
40 75 85
42 56 70
45 60 75
48 55 73
48 64 80
51 68 85
54 72 90
57 76 95
60 63 87
65 72 97

Mathematica 给定定义域 函数最大值f(x,y)=(0.116+x/60000)*1.5+(0.144+y/33300)+(0.116+x/60000)*(0.144+y/33300)*1.5*1.4x+y=14776怎么用Mathematica 来算最大值啊 语句怎么写

其实你只要仔细看帮助的话,函数 MaxValue 的介绍中有相似的例子.
MaxValue[{(0.116+x/60000)*1.5+(0.144+y/33300)+
(0.116+x/60000)*(0.144+y/33300)*1.5*1.4, x + y == 14776}, {x, y}]
输出为 0.920984
想要求得精确解,就要把式子中所有的数换成精确数
MaxValue[{(116/1000 + x/60000)*3/2 + (144/1000 +
y/33300) + (116/1000 + x/60000)*(144/1000 + y/33300)*3/2*7/5, x + y == 14776}, {x, y}]
输出结果为 29816868281/32375000000