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

исправьте ошибку! - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ формирование масива http://www.cyberforum.ru/cpp-beginners/thread205654.html
Из масивов A и B сформировать масив с ,записывать в него элементы масивов A и B с чётными индексами. Вычислить среднее арифметическое положительных элементов масива c.
C++ C++&Assembler. Здравствуйте уважаемые форумчани! Было задание, написать простейшую программу которая бы считала пример(с дробями) в С++ и в Ассемблере, и выводила результаты с С++ и соответственно с Ассемблера. ... http://www.cyberforum.ru/cpp-beginners/thread205651.html
Как найти 6 наименьших элементво массива C++
Как найти 6 наименьших элементов массива, пользуясь функцией сотрировки массивов?
элементы C++
Удалить из масива последнюю группу элементов представлюящую собой знакочередующуюся последовательность.
C++ Работа с массивами в динамической памяти http://www.cyberforum.ru/cpp-beginners/thread205636.html
Задача такова. Необходимо создать 2 массива в динамической памяти. Обращение к элементам массива - через косвенную адресацию. Вывести на экран первым тот массив, произведение элементов которго...
C++ Найти минимум среди максимальных элементов столбцов матрицы вот код для переделки // Поиск максимального элемента среди минимальных int max = a; // Это будущий максимум, пока что равен первому элементу матрицы for(int i = 0; i < n; ++i) // Проход в... подробнее

Показать сообщение отдельно
кибернетика
Сообщений: n/a

исправьте ошибку! - C++

07.12.2010, 20:57. Просмотров 261. Ответов 0
Метки (Все метки)

#include <stdio.h>
#define dist 0.1 /* stepsize int*/
#define xf5 /*max for t*/
FILE *output;/*internal filename*/
double rkutta (double x, double y, double h );/* Runge-Kutta function */
double F (double x, double y );/* function for derivatives */
main()
{
double x, y, h;
int n;
output=fopen ; ( "xydata.dat", "w"); /* External filename */
h=0.1;
y=1; /* Initial condition */
fprintf ( output, "0\t%f\n", y );
for (n=0; dist*n<=xf;n++ )/* The time loop */
{
x=n*dist;
y=rkutta ( x, y, dist );
fprintf ( output,"%f\t%f\n", x,y );
}
fclose(output);
}/*End of main function*/
double rkutta (double x, double y, double h )/* Called on RK function*/
{
double yn, k1,k2,k3,k4;
double H=h/2.0;
k1 = ( h*F (x,y ));
k2 = ( h*F( x+H, y+ ( k1/2)));
k3 = ( h*F( x+H, y+ ( k2/2)));
k4 = ( h*F( x+h, y+k3));
return (y+=(y+(k1+2*k2+2*k3+k4)*1/6));
}
double F(double x, double y) /*Called on derivative*/
{
return ( y );
}
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru