Нахождение минимума функции методом Фибоначчи. Полное решение

@jumper423 · Регистрация: 01.03.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте.

Вот пример моей программы по нахождение минимума функции методом Фибоначчи.

C#
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
 
 
class Program
{
    static void Main()
    {
        int[] f = {1,1,2,3,5,8,13,21,34,55,89,144,233,377,610};
        float L0,l,a,b,c,E,kn,fy,fz;
        float[]  z = new float[20];
        float[]  y = new float[20];
        float[]  bk = new float[20];
        float[] ak = new float[20];
        int i,n=0,k;
        
        Console.WriteLine("Vvedite a,b,c funkcii  ");
        a = Convert.ToSingle(Console.ReadLine());
        b = Convert.ToSingle(Console.ReadLine());
        c = Convert.ToSingle(Console.ReadLine());
        Console.WriteLine("Vvedite a i b  ");
        ak[0] = Convert.ToSingle(Console.ReadLine());
        bk[0] = Convert.ToSingle(Console.ReadLine());
        Console.WriteLine("Vvedite l  ");
        l = Convert.ToSingle(Console.ReadLine());
        L0 = bk[0]-ak[0];
        Console.Write("Vvedite E  ");
        E = Convert.ToSingle(Console.ReadLine());
        Console.WriteLine("------------------");
        
        //1
        Console.WriteLine("1)  L.0 = ["+ak[0]+";"+bk[0]+"] , l="+l+" , E="+E);
        kn = L0/l;
        for (i=0;i<=14;i++)
            if (f[i] >= kn)
            {
                n=i;
                break;
            }
        Console.WriteLine("    F."+n+" = "+f[n]+" > |L.0|/l = "+L0+"/"+l+" = "+kn+" , N="+n);
     
        //2
        Console.Write("2)  F.0=F.1=1");
        for (i=2;i<=n;i++)
            Console.Write(";  F."+2+"="+f[i]);
        Console.WriteLine();
     
        //3
        Console.WriteLine("3)  k=0");
        k=0;
     
        //4
        y[0] = ak[0] + f[n-2]/f[n]*(bk[0]-ak[0]);
        z[0] = ak[0] + f[n-1]/f[n]*(bk[0]-ak[0]);
        Console.WriteLine("4)  y.0=a.0+F."+(n-2)+"/F."+n+"(b.0-a.0)="+ak[0]+"-"+f[n-2]+"/"+f[n]+"*("+bk[0]+"-"+ak[0]+")="+y[0]);
        Console.WriteLine("    z.0=a.0+F."+(n-1)+"/F."+n+"(b.0-a.0)="+ak[0]+"-"+f[n-1]+"/"+f[n]+"*("+bk[0]+"-"+ak[0]+")="+z[0]);
     
     
     
     
        Metka:
        //5
        fy = a*y[k]*y[k]+b*y[k]+c;
        fz = a*z[k]*z[k]+b*z[k]+c;
        Console.WriteLine("5^"+k+")  f(y."+k+")=f("+y[k]+")="+fy);
        Console.WriteLine("      f(z."+k+")=f("+z[k]+")="+fz);
     
        //6
        if (fy<=fz)
        {
            Console.WriteLine("6^"+k+")  f(y."+k+")<=f(z."+k+")");
            ak[k+1]=ak[k];
            bk[k+1]=z[k];
            z[k+1]=y[k];
            y[k+1]=ak[k+1]+f[n-k-3]/f[n-k-1]*(bk[k+1]-ak[k+1]);
            Console.WriteLine("      a."+k+1+"=a."+k+"="+ak[k]);
            Console.WriteLine("      b."+k+1+"=z."+k+"="+z[k]);
            Console.WriteLine("      z."+k+1+"=y."+k+"="+y[k]);
            Console.WriteLine("      y."+k+1+"="+y[k+1]);
        }
        else
        {
            Console.WriteLine("6^"+k+")  f(y."+k+")>f(z."+k+")");
            ak[k+1]=y[k];
            y[k+1]=z[k];
            bk[k+1]=bk[k];
            z[k+1]=ak[k+1]+f[n-k-2]/f[n-k-1]*(bk[k+1]-ak[k+1]);
            Console.WriteLine("      a."+(k+1)+"=y."+k+"="+y[k]);
            Console.WriteLine("      y."+(k+1)+"=z."+k+"="+z[k]);
            Console.WriteLine("      b."+(k+1)+"=b."+k+"="+bk[k]);
            Console.WriteLine("      z."+(k+1)+"="+z[k+1]);
        }
        
 
        //7
        if (k!=n-3)
        {
                Console.WriteLine("7^"+k+")  k="+k+"!=N-3="+(n-3));
                Console.WriteLine("      L."+k+"=["+ak[k+1]+" ; "+bk[k+1]+"]");
                k=k+1;
                Console.WriteLine("      k="+k+"     => n.5");
                goto Metka;
        }
        else
        {
                Console.WriteLine("7^"+k+")  k="+k+"=N-3="+(n-3));
                Console.WriteLine("      Pust y."+(n-1)+" = y."+(n-2)+" = z."+(n-2)+" = "+z[n-2]);
                y[n-1] = y[n-2];
                z[n-1]=y[n-1] + E;
                Console.WriteLine("      z."+(n-1)+"=y."+(n-1)+"+E = "+z[n-1]);
                fy = a*y[n-1]*y[n-1]+b*y[n-1]+c;
                fz = a*z[n-1]*z[n-1]+b*z[n-1]+c;
                Console.WriteLine("      f(y."+(n-1)+")="+fy);
                Console.WriteLine("      f(z."+(n-1)+")="+fz);
                if (fy<=fz)
                {
                        Console.WriteLine("      f(y."+(n-1)+") <= f(z."+(n-1)+")");
                        ak[n-1]=ak[n-2];
                        bk[n-1]=z[n-1];
                        Console.WriteLine("      a."+(n-1)+" = a."+(n-2)+" = "+ak[n-1]);
                        Console.WriteLine("      b."+(n-1)+" = z."+(n-2)+" = "+bk[n-1]);
                }
                else
                {
                        Console.WriteLine("      f(y."+(n-1)+") > f(z."+(n-1)+")");
                        ak[n-1]=y[n-1];
                        bk[n-1]=bk[n-2];
                        Console.WriteLine("      a."+(n-1)+" = y."+(n-1)+" = "+ak[n-1]);
                        Console.WriteLine("      b."+(n-1)+" = b."+(n-2)+" = "+bk[n-1]);
                }
                Console.WriteLine("      x*e["+ak[n-1]+" ; "+bk[n-1]+"]");
                Console.WriteLine("      x*=~("+ak[n-1]+" + "+bk[n-1]+")/2=~"+(ak[n-1] + bk[n-1])/2);
        }
        Console.ReadLine();
     
    }
}

Код не объектно ориентирован, но всё же)

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .