Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 28.03.2018
Сообщений: 1
1

Максимум функции методом золотого сечения, нужно построить график с точками

28.03.2018, 19:39. Просмотров 1287. Ответов 2
Метки нет (Все метки)


vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim eps As Double
        Dim a As Double
        Dim b As Double
        Dim x As Double
        Dim y As Double
 
        Dim x1 As Double
        Dim x2 As Double
        Dim y1 As Double
        Dim y2 As Double
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        eps = Val(TextBox3.Text)
        x1 = a * 0.618 + 0.382 * b
        x2 = 0.382 * a + 0.618 * b
        y1 = (10 * x1) / (1 + x1 ^ 2)
        y2 = (10 * x2) / (1 + x2 ^ 2)
        While Math.Abs(b - a) < eps
            If y1 < y2 Then
                b = x2
                x2 = x1
                y2 = y1
                x1 = 0.618 * a + 0.382 * b
                y1 = (10 * x1) / (1 + x1 ^ 2)
            Else
                a = x1
                x1 = x2
                y1 = y2
                x2 = 0.382 * a + 0.618 * b
                y2 = (10 * x2) / (1 + x2 ^ 2)
            End If
        End While
        x = (a + b) / 2
        y = (10 * x) / (1 + x ^ 2)
        RichTextBox1.Text += Format(x, "0.000") + " " + Format(y, "0.000") + vbCrLf
        Chart1.Series(0).Points.AddXY(x, y)
    End Sub
 
 
End Class
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.03.2018, 19:39
Ответы с готовыми решениями:

Найти максимум функции методом золотого сечения
Здравствуйте, в университете задали задачу, которую необходимо сделать в Mathcad'е. Необходимо...

Минимизировать Функции методом золотого сечения
Минимизировать Функции f(x) = |x| + e^10x методом золотого сечения Отрезок неопределнности ....

Минимизация функции методом золотого сечения
Здравствуйте, помогите с лабораторной. Нужно написать код, исходя из следующей блок схемы:...

Методом «Золотого сечения» нахождение функции
Здравствуйте, подскажите пожалуйста. Задание такое: написать программу по определению экстремума...

2
3608 / 2926 / 704
Регистрация: 02.02.2013
Сообщений: 2,812
Записей в блоге: 2
29.03.2018, 14:14 2
Уважаемая IrinaHaes, я не понял о какой собственно функции идет речь. Напишите ее в явном виде. Максимум ищется на интервале [a,b] с точностью eps и результатом будет точка максимума с координатами {x,y}. И здесь тоже не очень понятно, что вы хотите отобразить в Chart1. У вас получается что точку, хотя интерес, наверное, представляет поведение функции на интервале [a,b].
0
3608 / 2926 / 704
Регистрация: 02.02.2013
Сообщений: 2,812
Записей в блоге: 2
29.03.2018, 19:57 3
Лучший ответ Сообщение было отмечено Yury Komar как решение

Решение

Можно так
Кликните здесь для просмотра всего текста
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Imports System.Windows.Forms.DataVisualization.Charting
'…
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim a As Double = 0
        Dim b As Double = 4
        Dim eps As Double = 0.00001
        Dim ff = Function(x) 10 * x / (1 + x ^ 2)
        Dim xx As Double = miniGold(a, b, eps, ff)
        Dim yy As Double = ff(xx)
        Label2.Text = "X=" & xx.ToString
        Label3.Text = "Y=" & yy.ToString
        drawGraph(a, b, 50, ff)
    End Sub
    Private Function miniGold(ByVal A As Double, ByVal B As Double, ByVal eps As Double, ByVal ff As Func(Of Double, Double)) As Double
        Dim gs As Double = 0.6180339
        Dim xr As Double = A + (B - A) * gs
        Dim xl As Double = B - (B - A) * gs
        Dim yr As Double = ff(xr)
        Dim yl As Double = ff(xl)
        Do While (B - A) > eps
            'If yr < yl Then 'for min
            If yr > yl Then
                A = xl
                xl = xr
                yl = yr
                xr = A + (B - A) * gs
                yr = ff(xr)
            Else
                B = xr
                xr = xl
                yr = yl
                xl = B - (B - A) * gs
                yl = ff(xl)
            End If
        Loop
        Return 0.5 * (A + B)
    End Function
    Private Sub drawGraph(ByVal A As Double, ByVal B As Double, ByVal n As Integer, ByVal ff As Func(Of Double, Double))
        Dim stp As Double = Math.Abs(B - A) / n
        Dim x, y As Double
        With Chart1
            .Series.Clear()
            .Series.Add("curve")
            .ChartAreas(0).AxisX.Minimum = A
            .ChartAreas(0).AxisX.Maximum = B
            .ChartAreas(0).AxisX.Interval = 0.5
            With .Series("curve")
                x = A
                For i = 1 To n - 1
                    y = ff(x)
                    .Points.AddXY(x, y)
                    x += stp
                Next
                x = B
                y = ff(x)
                .Points.AddXY(x, y)
                .BorderWidth = 2
                .ChartType = SeriesChartType.Spline
                .Color = Color.Red
                .IsVisibleInLegend = False
            End With
            .Show()
        End With
    End Sub
1
Миниатюры
Максимум функции методом золотого сечения, нужно построить график с точками  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.03.2018, 19:57

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Поиск экстремума функции методом золотого сечения.
Вычислить экстремум функции с заданной точностью ε. Результаты вычисления вывести на экран...

Определить минимум функции методом золотого сечения
Ребята помогите с решением задачи в маткаде по золотому сечению: Определить методом золотого...

Найти значение функции методом золотого сечения
function f(x:real):real; begin f:=x*x*x-4*x*x-11*x+30; end; procedure...

Поиск экстремума функции методом золотого сечения
Напишите программу, которая находит все минимумы и максимумы функции (см. варианты на следующей...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.