Форум программистов, компьютерный форум CyberForum.ru

Рунге-Кутта из 4 порядка в 3-й - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Дерево отрезков, редактирование куска и поиск суммы http://www.cyberforum.ru/cpp-beginners/thread906969.html
Добрый вечер. Пишу алгоритм нахождения суммы элементов на отрезке и редактирования элементов на отрезке. Вводится N - число элементов в массиве, K - кол - во операций. Далее на вход программе дается 2 различные команды A l r x - присвоить элементам с позиции l до r значение х Q l r - найти сумму элементов на отрезке от l до r Изначально массив заполнен нулями. (1 <= N <= 100 000), (0 <= K...
C++ Подключение библиотеки audiere C++ Code Blocks Скачала архив (приложила его). Распаковала. Что делать дальше? Куда и что надо распихать? Заранее спасибо. http://www.cyberforum.ru/cpp-beginners/thread906938.html
C++ Написать программу с использованием функции cctype
Программа, которая читает клавиатурный ввод до символа @ и повторяет его, за исключением десятичных цифр, преобразуя каждую букву верхнего регистра в букву нижнего регистра и наоборот.
C++ В массиве y(20), сформированном случайным образом, найти среднее арифметическое модулей всех ненулевых элементов
вот задание: В массиве y(20), сформированном случайным образом, найти среднее арифметическое модулей всех ненулевых элементов. Заранее спасибо.
C++ Замена указанного массива информации на массив информации http://www.cyberforum.ru/cpp-beginners/thread906893.html
Написать программу производящую замену указанного массива информации с позиции A до позиции B в файле на массив информации находящийся в этом же файле c позиции A+C до позиции B+C.
C++ Переделать програму #include <iostream> using namespace std; char Bykvi(int i) { return static_cast<char>('a'-1+i); } void main() { подробнее

Показать сообщение отдельно
DenProx
Техник
 Аватар для DenProx
306 / 164 / 4
Регистрация: 09.10.2009
Сообщений: 3,006
20.06.2013, 14:55     Рунге-Кутта из 4 порядка в 3-й
Доброго времени суток. У меня есть такой кусок кода, для численного метода Рунге-Кутта 4 порядка:

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
///////////////////////////////////////////////////////////////////////
    //                  - Метод Рунге-Кутта 4 порядка -                  //
    ///////////////////////////////////////////////////////////////////////
    for (j = 0; j < n; j++) y0[j] = y[j];   // Копируем его в y0
    f (y0, q0, xi);         // Заполняем q0, основываясь на значениях из y0
    for (j = 0; j < n; j++) q0[j] *= h; // Делаем q0
    xi += h;                // Следующий шаг
    // ... а остальные 3 добываем с помощью метода Рунге-Кутта 4 порядка.
    for (i = 0; i < 3; i++)     // i - КАКОЕ ЗНАЧЕНИЕ УЖЕ ЕСТЬ
    {                   // А ВЫЧИСЛЯЕМ ЗНАЧЕНИЯ Y[i+1]!!!!
        // Сначала нужны коэффициенты k1
        // Элемент y[i, j] = y0 + (i * n) + j = y0[i * n + j]
        f (&y0[i * n], k1, xi); // Вычислим f(xi, yi) = k1 / h
        // И для каждого дифференциального уравнения системы проделываем
        // операции вычисления k1, а также подготовки в ya аргумента для
        // вычисления k2
        for (j = 0; j < n; j++)
        {
            k1[j] *= h;                 // Вычислим наконец-то k1
            ya[j] = y0[i*n+j] + k1[j] / 2.;
            // И один из аргументов для функции 
        }                           // вычисления k2
        f (ya, k2, xi + (h / 2.));          // Вычислим f(xi,yi) = k2 / h
        for (j = 0; j < n; j++)
        {                           // Вычислим наконец-то k2
            k2[j] *= h;
            ya[j] = y0[i*n+j] + k2[j] / 2.; // И один из аргументов для функции 
        }                           // вычисления k3
        f (ya, k3, xi + h / 2.);            // Вычислим f(xi,yi) = k3 / h
        for (j = 0; j < n; j++)
        {
            k3[j] *= h;                 // Вычислим наконец-то k3
            ya[j] = y0[i*n+j] + k3[j];  // И один из аргументов для функции 
        }                       // вычисления k4
        f (ya, k4, xi + h);         // Вычислим f(xi,yi) = k4 / h
        for (j = 0; j < n; j++) k4[j] *= h; // Вычислим наконец-то k4
        // Надо вычислить приращение каждой функции из n
        for (j = 0; j < n; j++)         // Вычисляем следующее значение
                                // функции
                                // Y[i+1] = Yi + ...
    y0[(i+1)*n+j] = y0[i*n+j] + (k1[j] + 2. * k2[j] + 2 * k3[j] + k4[j]) / 6.;
                                // И новое значение q[i+1]
        f (&y0[(i+1)*n], &q0[(i+1)*n], xi); // qi = f (xi, yi);
        for (j = 0; j < n; j++) q0[((i+1)*n)+j] *= h;
        xi += h;                    // Следующий шаг    }
Помогите пожалуйста переделать его на 3-й порядок. В численных методах я не силен, разбираться времени нет ... сроки поджимают. Думаю тут разница в 2 строки примерно должна быть, одну убрать, другую немного подредактировать.

Заранее спасибо.

Добавлено через 19 часов 4 минуты
Тема закрыта. Изменения не потребовались 3-го порядка требовалось уравнение, а метод можно и 4-го )
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 20:54. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru