Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.56/25: Рейтинг темы: голосов - 25, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 01.04.2015
Сообщений: 10

Уравнение теплопроводности с переменным шагом

01.06.2015, 06:46. Показов 4902. Ответов 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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
#include <iostream>
#include <fstream>
#include <string.h>  
#include <math.h>
#include <iomanip>
using namespace std;
int main()
{ 
    const int N = 20., lambda = 5.0;
    float gamma = 1.16126, dt = 0.01, dx = 0.001, E = 0.01;
    float u[N], u1[N], x[N], a[N], b[N], c[N], d[N];
    int i, r, t = 0;
 
    x[0] = 0.;
    for(i = 1; i <= N - 1; i++)
        x[i] = x[i - 1] + dx*pow(gamma,i - 1);
    FILE *F;
        char *file;
        file = "Results1.txt";
        F = fopen(file,"w");
        for(i = 0 ; i < N; i++)
            fprintf(F,"%f\n",x[i]);
 
    for(i = 0; i <= N - 2; i++)          //начальные и граничные условия:
        u[i] = u1[i] = 100.;      //при t = 0 и x=0      
    u[N - 1] = u1[N - 1] = 1000.;   //при x = N-1
    
    float z = 2*lambda*dt;
 
    while(true)
    {
        t = t + dt;
 
        for(i = 1; i <= N - 2; i++)
        {
            float hh = x[i + 1] - x[i - 1],
                h1 = x[i + 1] - x[i],
                h2 = x[i] - x[i - 1];
            u[i] = z/hh*(u1[i+1]/h1+u1[i-1]/h2)+u1[i]*(1-z/(h1*h2));
        }
        
        int j = 0;
        for(i = 1; i <= N - 2; i++)
        {
            r = abs((u[i]-u1[i])/u1[i]);
            if(r > j)
                j = r;
        }
        if(j > E)
        {
            u1[i] = u[i];
        }
        else
        {
            fprintf(F,"%f\n");
            for(i = 0 ; i < N; i++)
            {
                fprintf(F,"%f\n",u[i]);
                
            }
            break;
        }
    }
    
    fclose(F);
 
    return 0 ;
}
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
01.06.2015, 06:46
Ответы с готовыми решениями:

Численные методы. Волновое уравнение и уравнение теплопроводности. Метод сеток
Задание: написать программу для нахождения значений функции u(x, y, t) волнового уравнения и уравнения теплопроводности методом разностных...

Интерполяция c переменным шагом
Добрый день Уважаемые Форумчане. Было получено задание на практике следующего вида. Графики сигнала /\/\/\ и |\|\|\. Даны значения...

Метод сканирования с переменным шагом
Озадачили методом сканирования с переменным шагом, почитал материал, но как-то не представляю как реализовать это все в Delphi.

4
Модератор
Эксперт С++
 Аватар для zss
13769 / 10962 / 6491
Регистрация: 18.12.2011
Сообщений: 29,238
01.06.2015, 07:23
Цитата Сообщение от aidil Посмотреть сообщение
const int N = 20., lambda = 5.0;
C++
1
2
const int N = 20;
const double lambda = 5.0;
0
0 / 0 / 0
Регистрация: 01.04.2015
Сообщений: 10
01.06.2015, 07:46  [ТС]
не в этом суть
0
Модератор
Эксперт С++
 Аватар для zss
13769 / 10962 / 6491
Регистрация: 18.12.2011
Сообщений: 29,238
01.06.2015, 07:48
Лучший ответ Сообщение было отмечено aidil как решение

Решение

Исправил остальные ошибки программирования.
Однако, процесс расходится. Посмотрите внимательнее на алгоритм пересчета в строке 42.
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
#include <iostream>
#include <fstream>
#include <cmath>
using namespace std;
int main()
{ 
    const int N = 20;
    double gamma = 1.16126;
    double x[N];
    x[0] = 0.;
    double pgamma=1.0,dx=0.001;
    for(int i = 1; i <= N - 1; i++)
    {
        x[i] = x[i - 1] + dx*pgamma;
        pgamma*=gamma;
    }
    char file[]="Results1.txt";
    ofstream F(file);
    if(!F)
        return 1;
    for(int i = 0 ; i < N; i++)
       F<<x[i]<<endl;
    double u[N],u1[N];
    for(int i = 0; i <= N - 2; i++)          //начальные и граничные условия:
        u[i] = u1[i] = 100.;      //при t = 0 и x=0      
    u[N - 1] = u1[N - 1] = 1000.;   //при x = N-1
 
    double lambda = 5.0;
    double dt = 0.01;
    double z = 2.0*lambda*dt;
    double t=0.;
    double eps=1e-4;
    while(true)
    {
        t += dt;
 
        for(int i = 1; i <= N - 2; i++)
        {
            double hh = x[i + 1] - x[i - 1];
            double h1 = x[i + 1] - x[i];
            double h2 = x[i] - x[i - 1];
            u[i] = z/hh*(u1[i+1]/h1+u1[i-1]/h2)+u1[i]*(1.-z/(h1*h2));
        }
        
        double j = 0;
        for(int i = 1; i <= N - 2; i++)
        {
            double r = fabs((u[i]-u1[i])/u1[i]);
            if(r > j)
                j = r;
        }
        if(j > eps)
        {
            for(int i = 0; i <= N - 1; i++)
            u1[i] = u[i];
        }
        else
        {
            F<<endl;
            for(int i = 0 ; i < N; i++)
               F<<u[i]<<endl;
            break;
        }
    }
    F.close();
    cout<<"Result in Results1.txt\n";
    system("pause");
    return 0 ;
}
0
0 / 0 / 0
Регистрация: 01.04.2015
Сообщений: 10
01.06.2015, 07:57  [ТС]
алгоритм вроде верный
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.06.2015, 07:57
Помогаю со студенческими работами здесь

QBasic и цикл с переменным шагом
В циклах не всегда бывает шаг постоянным, например равным 1. При вычислении простых чисел часто используется Цикл с переменным шагом....

Методы интегрирования с переменным шагом
Добрый день! Подскажите пожалуйста где найти информацию о численных методах интегрирования с переменным шагом и какие существуют? ...

Уравнение теплопроводности
Написала код для решения явной схемы для уравнения Ut=D*Uxx, t=100, с граничными условиями U(0)=0, U(10)=100, зависимость х(t) - функция...

Уравнение теплопроводности
Всем привет. Пытался перевести задачу с кода Pascal на Matlab, но выдает ошибки. Подскажите , пожалуйста в чем ошибка? До этого...

Уравнение теплопроводности
Добрый день! Помогите, пожалуйста, решить задачу. Требуется решить следующие задачи приближенно, методом конечных разностей (методом...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод https:/ / **********/ gallery/ thinkpad-x220-tablet-porn-gzoEAjs . . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru