急救：mathematica 一元函數(shù)求極值
急救,急救,我有一個關于一元函數(shù)求極值的題目,要是解答不出來我就完了.
題目是這樣的：一元函數(shù)求極值的問題：請設計一個程序包求一元函數(shù)在[a,b]上最大值和最小值.要求運行時只要用戶任意輸入一個一元函數(shù)和連續(xù)區(qū)間[a,b],就計算并告知用戶該函數(shù)在[a,b]上取最大值和最小值的點和相應的最大值和最小值.
我的程序是：BeginPackage["jizhi`"]
jizhi::uasage = "jizhi is a programme for making MAX and MIN in a hanshu if \
user input a f(x) and geting a exact (x,f(x))"
Begin["`Private`"]
Module[{a,b,x},
f[x_] := Input[ Inputhanshu];
a = Input[please Input zuoduandian];
b = Input[please Input youduandian];
zhudian = Solve[f[x] == 0,x];
zhudianbiao = Union[{x,f[x]} /.zhudian,{{a,f(a)},{b,f(b)}}];
fmax = Max[Transpose[zhudianbiao][[2]]];
fmin = Min[Transpose[zhudianbiao][[2]]];
x1 = Position[zhudianbiao,fmin];
x2 = Position[zhudianbiao,fmax];
Min = zhudianbiao[[x1[[1,1]]]];
Max = zhudianbiao[[x2[[1,1]]]];]
End[]
EndPackage[]
請指點下為什么運行不對呢?
若解答正確,小女子感恩不盡.
非常感謝你能抽時間幫我看，但是我用你修改的程序運行了一遍，還是不對??？
你修改后的程序是
BeginPackage["jizhi`"]
jizhi::uasage = "jizhi is a programme for making MAX and MIN in a hanshu if \
user input a f(x) and geting a exact (x,f(x))"
Begin["`Private`"]
Module[{a,b,x},f = Input[Inputhanshu];
fff[x_] := f
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}]
End[]
EndPackage[]
再幫我看看吧~我用的是4。0