Форум программистов, компьютерный форум, киберфорум
C# Windows Forms
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 20.01.2015
Сообщений: 1

Изобразить разложение периодической функции f (x) в виде ряда Фурье

20.01.2015, 20:26. Показов 3240. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть задание "изобразить разложение периодической функции f(x) в виде ряда Фурье.
Функция принимает значение -1, когда в промежутке от -пи, до 0; значение 0, в точках -пи и пи; значение 1, когда от 0 до пи.
Само разложение в ряд я определил и подтвердил свои догадки материалами из гугла.
f(x)=4/π(sinx+1/3sin3x+1/5sin5x+...)
Форму создал. Но загвоздка состоит в том, что я не могу закодировать изображение графика для последующих слагаемых. То есть. Если график первой частичной суммы равен: 4/pi(sin(x)), то второй 4/pi(sin(x)+1/3sin(3x)). Ну и так далее в этом же темпе. Мне надо графики этих частичных сумм (штук 20, чтобы увидеть разложение). Умоляю, подскажите. Уже всю голову сломал и, видимо, не вижу очевидных вещей.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.01.2015, 20:26
Ответы с готовыми решениями:

График функции, представленный в виде ряда Фурье
Подскажите пожалуйста, как построить график, представленный таким разложением. Соответственно, зависимость только от времени t, все...

Ряд Фурье для периодической функции.
имеется функция и ряд фурье. Определить число членов ряда, при которых погрешность приближения не превышает 1%, т.е. мне надо построить...

Разложение ряда Фурье
Доброе время суток! Ломаю голову над заданием - . Столкнулся с проблемой написанием. Во-первых, не знаю, как задать по очередность...

1
Эксперт .NETАвтор FAQ
 Аватар для Storm23
10427 / 5157 / 1825
Регистрация: 11.01.2015
Сообщений: 6,226
Записей в блоге: 34
21.01.2015, 01:36
Лучший ответ Сообщение было отмечено Wolvo как решение

Решение

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
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Drawing;
using System.Threading;
using System.Windows.Forms;
 
namespace WindowsFormsApplication227
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
 
            var chart = new Chart{Parent = this, Dock = DockStyle.Fill};
 
            for (int power = 0; power < 10; power++)
            {
                var pow = power;
                chart.Functions.Add(x => MyFunction(x, pow));
            }
        }
 
        double MyFunction(double x, int power)
        {
            var res = 0.0;
            for(int i=0;i<=power;i++)
            {
                var k = i*2 + 1.0;
                res += (1/k)*Math.Sin(k*x);
            }
 
            return res * 4 / Math.PI;
        }
    }
 
    public class Chart : Control
    {
        /// <summary>
        /// Отступы
        /// </summary>
        [DefaultValue(20)]
        public int Indent { get; set; }
 
        [DefaultValue(2)]
        public float MaxX { get; set; }
 
        [DefaultValue(-2)]
        public float MinX { get; set; }
 
        [DefaultValue(2)]
        public float MaxY { get; set; }
 
        [DefaultValue(-2)]
        public float MinY { get; set; }
 
        /// <summary>
        /// Шаг сетки
        /// </summary>
        [DefaultValue(1)]
        public float GridStep { get; set; }
 
        public List<Color> Palette { get; set; }
 
        /// <summary>
        /// Отображаемая функция
        /// </summary>
        public List<Func<double, double>> Functions { get; private set; }
 
        public Chart()
        {
            SetStyle(ControlStyles.AllPaintingInWmPaint | ControlStyles.OptimizedDoubleBuffer | ControlStyles.ResizeRedraw | ControlStyles.UserPaint, true);
            Indent = 20;
            MinX = -2;
            MaxX = 2;
            MinY = -2;
            MaxY = 2;
            GridStep = 1;
            Functions = new List<Func<double, double>>();
            Palette = new List<Color>(new Color[] {Color.Red, Color.Blue, Color.Green, Color.Magenta, Color.Brown, Color.Lime});
        }
 
        /// <summary>
        /// Область внутри которой будет рисоваться график
        /// </summary>
        private Rectangle ChartArea
        {
            get
            {
                var rect = ClientRectangle;
                rect.Inflate(-Indent, -Indent);
                return rect;
            }
 
        }
 
        /// <summary>
        /// Преобразует виртуальные координаты в пикселы
        /// </summary>
        float YToPixels(float y)
        {
            return ChartArea.Height * (y - MinY) / (MaxY - MinY);
        }
 
        /// <summary>
        /// Преобразует виртуальные координаты в пикселы
        /// </summary>
        float XToPixels(float x)
        {
            return ChartArea.Width * (x - MinX) / (MaxX - MinX);
        }
 
        /// <summary>
        /// Отрисовка
        /// </summary>
        protected override void OnPaint(PaintEventArgs e)
        {
            var rect = ChartArea;
            var gr = e.Graphics;
 
            gr.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality;
 
            var center = new PointF(rect.Left + XToPixels(0), rect.Bottom - YToPixels(0));
 
            //рисуем сетку
            using (var font = new Font(Font.FontFamily, 8f))
            using (var pen = new Pen(Color.FromArgb(50, Color.Navy), 1))
            {
                for (var x = MinX; x <= MaxX; x += GridStep)
                {
                    var absX = rect.Left + XToPixels(x);
                    gr.DrawLine(pen, absX, rect.Bottom, absX, rect.Top);
                    gr.DrawString(x.ToString("0.0"), font, Brushes.Navy, absX - 7, center.Y + 5);
                }
 
                for (var y = MinY; y <= MaxY; y += GridStep)
                {
                    var absY = rect.Bottom - YToPixels(y);
                    gr.DrawLine(pen, rect.Left, absY, rect.Right + 5, absY);
                    gr.DrawString(y.ToString("0.0"), font, Brushes.Navy, center.X - 25, absY - 5);
                }
            }
 
            //рисуем оси
            using (var pen = new Pen(Color.Navy, 1))
            {
                pen.EndCap = System.Drawing.Drawing2D.LineCap.ArrowAnchor;
                gr.DrawLine(pen, center.X, rect.Bottom, center.X, rect.Top - 10);
                gr.DrawLine(pen, rect.Left, center.Y, rect.Right + 7, center.Y);
            }
 
            //рисуем функцию
            for (int i = 0; i < Functions.Count;i++ )
            using (var pen = new Pen(Palette[i % Palette.Count], 2))
            {
                var step = GridStep / 30;
                for (var x = MinX; x < MaxX; x += step)
                {
                    var y1 = (float)Functions[i](x);
                    var y2 = (float)Functions[i](x + step);
                    e.Graphics.DrawLine(pen, rect.Left + XToPixels(x), rect.Bottom - YToPixels(y1), rect.Left + XToPixels(x + step), rect.Bottom - YToPixels(y2));
                }
            }
        }
    }
}
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.01.2015, 01:36
Помогаю со студенческими работами здесь

Разложение функции в ряд Фурье
Помогите пожалуйста разложить эту функцию в ряд Фурье. Сама функция расположена выше оси X,а ее формула такая |sin(x/2)| вот график этой...

Разложение функции в ряд фурье
собственно нужно разложить функцию в ряд Фурье до 50 члена, как пример дан sin x Плиз хелп)

Разложение функции в ряд фурье
Здравствуйте! Подскажите пожалуйста как можно разложить в ряд Фурье функцию заданную в виде конечно числа координат X и Y.

Разложение функции в ряд Фурье
Нужно разложить этот график в ряд Фурье, нашел формулы, но не знаю как именно идет суммирование?

Разложение в ряд Фурье функции
Подскажите в чем ошибка? Почему не строится второй график?


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных через динамический список в справочнике
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru