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

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.73
Nihi
0 / 0 / 0
Регистрация: 19.03.2013
Сообщений: 9
#1

Метод конечных разностей, явная разностная схема - Delphi

23.03.2013, 13:28. Просмотров 1462. Ответов 2
Метки нет (Все метки)

Люди, если кто программировал МКР а конкретно явную схему, помогите !
Объясните в чем ошибка в коде? мб цикл не такой или еще что-то
кусок про-мы....
Код
delta_fi:=2*pi/20;
  C0:=C0+C0*sin(delta_fi);//концентрация в соответствии с нач. условиями
  tau_na_dva:=sqr(delta_fi)/2*D;//определяем расчетный шаг по времени, руководствуясь условием устойчивости
  Rc:=D/sqr(r1+h_u);


  //{определяем расчетный шаг сетки по пространственной координате}
  hx:=delta_fi;


  //определяем концентрацию в начальный момент времени
   for i:=1 to Nx do
      for j:=1 to Ny do

      C[i,j]:=C0;

      time:=0;
      while time<t_end do

         begin
           time:=time+tau_na_dva;

         for i:=2 to Nx-1 do
          for j:=2 to Ny-1 do

         end;

          CC[i,j]:=C[i,j]+Rc*tau_na_dva/sqr(hx)*(C[i,j-1]-2*C[i,j]+C[i,j+1]);

           begin

          for i:=1 to Nx do
           for j:=1 to Ny do
           CC[1,j]:=0;CC[Nx,j]:=Cz;CC[i,1]:=0;CC[i,Ny]:=Cz;

           time:=time+tau_na_dva;
       end;


      begin

        for i:=1 to Nx do
          for j:=1 to Ny do

       writeln(CC[i,j]:8:5);
      end;
   readln;readln;






end.
P.s В делфи мягко говоря не очень, прошу строго не судить
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2013, 13:28
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Метод конечных разностей, явная разностная схема (Delphi):

КРАЕВЫЕ ЗАДАЧИ. Метод конечных разностей - Delphi
Есть задача на тему КРАЕВЫЕ ЗАДАЧИ. Метод конечных разностей есть уровнение оно ришаетса но задачу делал не я, скачал с инета. Нужно...

Решение неоднородного уравнения теплопроводности методом конечных разностей - Delphi
Дано дифференциальное уравнение вида p(x)u''(x)+q(x)u'(x)+r(x)u(x)=f(x) определенное на интервале при предельных условиях u(a)=ua, u(b)=ub....

СЛАУ; метод конечных элементов - Delphi
доброго времени суток, форумчане. нужна ваша помощь/совет. нуждаюсь в примере/куске кода/любой помощи по реализации метода конечных...

нужен алгоритм\блок-схема транспортной зад метод сев-зап угла - Delphi
нужен алгоритм\блок-схема транспортной зад метод сев-зап угла вставить в курсачь... %) красноглазю весь вечер за монитором завтра...

Метод конечных разностей. Явная и не явная схема - Matlab
Помогите пожалуйста методом конечных разностей решить уравнения с заданными начальными и граничными условиями используя явную и неявную...

метод сеток(конечных разностей). блок-схема - Дифференциальные уравнения
Помогите, пожалуйста!(( Скажите, как влияют х1 и х2 на блок-схему и вообще на решение?? в инете множество примеров, но проблема именно во...

2
manyak666
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 7
07.06.2013, 20:41 #2
я тоже над ней страдаю...
Метод конечных разностей для краевой задачи
0
Разноинженер
3 / 3 / 0
Регистрация: 20.09.2013
Сообщений: 25
24.09.2013, 15:55 #3
А препод помочь не хочет?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.09.2013, 15:55
Привет! Вот еще темы с ответами:

Метод конечных разностей. - C#
Очень нужна помощь: нужно решить задачу Пуассона методом конечных разностей. Много всего пересмотрено, но программа получается косячная....

Метод конечных разностей - Численные методы
Подскажите, пожалуйста, как правильно составить СЛАУ для данного метода. (ДУ 2ого порядка с граничными условиями)

Метод конечных разностей - Численные методы
Здравствуйте! Помогите, пожалуйста, мне необходимо реализовать метод конечных разностей для стационарной задачи. Я так понял надо...

Метод конечных разностей - C#
Решаю 3-хдиагональную СЛАУ методом конечных разностей не могу понять почему последние 2 элемента считает правильно, а потом функция резко...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru