一道VB题目,实验5.6 对x=1,2,...,10,求函数f(x)=x-10*cos(x
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/28 15:30:42
一道VB题目,实验5.6 对x=1,2,...,10,求函数f(x)=x-10*cos(x
实验5.6 对x=1,2,...,10,求函数f(x)=x-10*cos(x)-5*sin(x)的最大值.要求在窗体上建立两个名称分别为Command1和Command2,标题分别为"计算"和"退出"的命令按钮.程序运行后,单击"计算"按钮,实现上述功能,将结果输出到窗体,单击"退出"按钮,结束程序.窗体文件命名为Ex5-6.frm,工程文件命名为 Ex5-6.vbp.
提示:
求最大值问题,一般先假设一个较小的数为最大值的初值.因本题无法估计较小的值,则取第一个数为最大值的初值.
实验5.6 对x=1,2,...,10,求函数f(x)=x-10*cos(x)-5*sin(x)的最大值.要求在窗体上建立两个名称分别为Command1和Command2,标题分别为"计算"和"退出"的命令按钮.程序运行后,单击"计算"按钮,实现上述功能,将结果输出到窗体,单击"退出"按钮,结束程序.窗体文件命名为Ex5-6.frm,工程文件命名为 Ex5-6.vbp.
提示:
求最大值问题,一般先假设一个较小的数为最大值的初值.因本题无法估计较小的值,则取第一个数为最大值的初值.
Private Sub Command1_Click()
Dim a(1 To 10) As Double, max As Double
For x = 1 To 10
a(x) = x - 10 * Cos(x) - 5 * Sin(x)
Print "x=" & x & "时,f(x)=" & a(x)
Next x
max = a(1)
For i = 2 To 10
If a(i) > max Then max = a(i)
Next i
Print "函数的最大值为:" & max
End Sub
Private Sub Command2_Click()
End
End Su
Dim a(1 To 10) As Double, max As Double
For x = 1 To 10
a(x) = x - 10 * Cos(x) - 5 * Sin(x)
Print "x=" & x & "时,f(x)=" & a(x)
Next x
max = a(1)
For i = 2 To 10
If a(i) > max Then max = a(i)
Next i
Print "函数的最大值为:" & max
End Sub
Private Sub Command2_Click()
End
End Su
一道VB题目,实验5.6 对x=1,2,...,10,求函数f(x)=x-10*cos(x
求一道高数里的函数题f(sin x)=cos2x+1,求f(cos x).
已知函数f(x)=(1/2)cos^x+((根号3)/2)sin x cos x -(1/4),x属于R,求函数f(x)
求函数f(x)=cos(x^2+√x)的导数f′(x)
已知函数f(x)=cos(x-3/ 兀)-sin(2/兀-x).(1)求函数f(x)的最小值.
已知函数f(x)=cos(2x-π/3)+sin^2x-cos^2x,设函数g(x)=[f(x)]^2+f(x),求g(
RT:f(x)+2f(1/x)=x,将原式中x与1/x互换,得f(1/x)+2f(x)=1/x这是一道求函数解析式的题目
一道高一函数数学题f(x)+2f(x+1/1-x)=3x,求f(x)
我们高二期末考试有一道题目是:已知x= -3 是函数f[x]=aln[1-x]+x^2+10x的一个极值点,
已知函数f(x)=2Cos x(Sin x-Cos x)+1
已知函数f(x)=6cos^4x-5cos^2x+1/2cos^2x-1,求f(x)的定义域值域
已知函数f(x)=1/2(sin x+cos x)-1/2|sin x-cos x|,求f(x)值域