Форум программистов, компьютерный форум, киберфорум
Наши страницы
Алгоритмы
Войти
Регистрация
Восстановить пароль
 
archar
1 / 1 / 0
Регистрация: 11.03.2015
Сообщений: 108
1

Алгоритм моделирования - прогноз загрязнения реки

02.04.2015, 23:42. Просмотров 332. Ответов 3
Метки нет (Все метки)

народ помогите пожалуйста составить алгоритм.
вот задание:
Концентрация вещества, поступающего в реку со стоком, изменяется в результате действия рассеивания, адвекции, реакции. Концентрация хi вещества в реке зависит только от расстояния i, i=0,1,:, n по течению реки и определяется по формуле: ab(xi+1-2xi+xi+1)-c(xi-xi-1)-daxi=0, где а - площадь поперечного сечения реки, b - коэффициент рассеивания по течению реки, с - полный объемный расход реки, d - скорость разложения органического вещества. Эти величины a, b, c, d считаются пока постоянными. Общий поток вещества определяется: N=cxi-ab(xi+1-xi). Цель моделирования - прогноз загрязнения реки (для каждого i ).

Добавлено через 34 секунды
не пойму как составить
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.04.2015, 23:42
Ответы с готовыми решениями:

Алгоритм непрерывной модели. Прогноз потребления, прогноз переработки
Пусть x(t) - величина ресурса (вещественного, энергетического или информационного), а(х) - скорость...

Моделирование - прогноз загрязнения реки
вот задание: Концентрация вещества, поступающего в реку со стоком, изменяется в результате...

Моделирование загрязнения реки
Здравствуйте! Есть следующая задача: 1. Концентрация вещества, поступающего в реку со стоком,...

Моделирование загрязнения реки
вот задание: Концентрация вещества, поступающего в реку со стоком, изменяется в результате...

Создать таблицу уровня загрязнения реки через час, два и т.д., до тех пор, пока концентрация
Создать программу начиная с кнопки AddLine и использовать условные операторы if и циклы: for или...

3
Mysterious Light
Эксперт по математике/физике
4098 / 2006 / 411
Регистрация: 19.07.2009
Сообщений: 3,027
Записей в блоге: 22
03.04.2015, 00:28 2
1) не хватает скобок или индексов. Вставили бы картинкой формулу, если набрать в LaTeX не можете.
Попробую угадать:
http://www.cyberforum.ru/cgi-bin/latex.cgi?ab(x_{i+1}-2x_i+x_{i-1}) - c(x_i-x_{i-1}) - dax_i=0
i меняется в неких пределах

2) Это уравнение является дискретизацией диффура http://www.cyberforum.ru/cgi-bin/latex.cgi?a b\Delta x - c \nabla x - a d x = 0, второго порядка. Стало быть, граничных условий должно быть два. Какие они?

Подсказка: это скорее всего (x[1], x[2]) либо (x[1],x[n]).

3) как только Вы определились с граничными условиями, записываете систему n-2 линейных уравнений с n-2 неизвестными для каждого i=1,2,...,n-1 и решаете её. Матрица будет трёхдиагональной.
3а) даны x[1] и x[2]. Халява. Переписываем уравнение как x[i+1] = ... выраженное через x[i] и x[i-1]. Далее в цикле по i=1,3,...,n-1 считаем x[i]. Сделано.
3б) даны x[1] и x[n]. Труднее. Ищите метод прогонки. Ну или в лоб решайте СЛАУ тем же методом Гаусса.
1
archar
1 / 1 / 0
Регистрация: 11.03.2015
Сообщений: 108
04.04.2015, 12:59  [ТС] 3
Пускай x[1]=0,x[2]=1
не пойму как записать систему n-2 линейных уравнений с n-2 неизвестными для каждого i=1,2,...,n-1 .

Добавлено через 14 минут
x[1]=ab(x[2]-2x[1]+x[0])-c(x[1]-x[0])-dax[1]=0;
x[2]=ab(x[3]-2x[2]+x[1])-c(x[2]-x[1])-dax[2]=1;
.....
x[n-1]=ab(x[n]-2x[n-1]+x[n-2])-c(x[n-1]-x[n-2])-dax[n-1]=?

Добавлено через 3 минуты
в условии задачи расстояние i, i=0,1,:, n

Добавлено через 14 часов 7 минут
Mysterious Light помогите пожалуйста.не пойму как выглядит СЛАР?

Добавлено через 18 минут
мне нужно это запрограммировать,а я не пойму как это сделать.
Дано:
массив А;
Граничные условия:
x[1]=0;
x[2]=1;
как выглядит СЛАР?

Добавлено через 11 часов 46 минут
люди хелп

Добавлено через 1 час 54 минуты
не пойму ,что даст мне решение этой СЛАР?корни,а зачем они?как я смогу спрогнозировать загрязнения реки (для каждого i )?
0
Mysterious Light
Эксперт по математике/физике
4098 / 2006 / 411
Регистрация: 19.07.2009
Сообщений: 3,027
Записей в блоге: 22
04.04.2015, 14:07 4
Единственный, кто отписался в теме, был я, поэтому я продолжу гнуть свою линию со СЛАР.

Вот посмотрите на случай n=4. Выпишем явно все уравнения, данные нам условием.
http://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{cases}<br />
ab(x_3-2x_2+x_1) - c(x_2-x_1) - dax_1=0, \\<br />
ab(x_4-2x_3+x_2) - c(x_3-x_2) - dax_2=0.<br />
\end{cases}
Причём x[1] и x[2] нам даны. Давайте перепишем так:
http://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{cases}<br />
x_3 = \alpha x_1 + \beta x_2, \\<br />
x_4 = \alpha x_2 + \beta x_3.<br />
\end{cases}
http://www.cyberforum.ru/cgi-bin/latex.cgi?\alpha = \frac{ad-c-ab}{ab}, \qquad \beta = \frac{c+2ab}{ab}
И что же мы видим? Оказывается, x[3] можно вычислить, а затем вычислить x[4]. Задача решена.

Далее, обобщим на случай произвольного n.
http://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{cases}<br />
x_3 = \alpha x_1 + \beta x_2, \\<br />
x_4 = \alpha x_2 + \beta x_3, \\<br />
\ldots<br />
x_n = \alpha x_{n-2} + \beta x_{n-1}.<br />
\end{cases}
И что мы тут видим? Опять же, просто цикл
Pascal
1
2
3
4
alpha := (a*d-c-a*d) / (a*b);
beta := (c+2*a*b) / (a*b);
for i := 3 to n do
    x[i] := alpha * x[i-2] + beta * x[i-1];
1
04.04.2015, 14:07
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2015, 14:07

Найти количество суток, прошедших с момента загрязнения реки свинцом для получения концентрации свинца Сn ≤ 0,03
Здраствуйте! У меня была задача, которую нужно было решить в паскале...

Найти: n – количество суток, прошедших с момента загрязнения реки свинцом для получения концентрации свинца Сn ≤ 0,03
Здравствуйте, господа! Помогите, пожалуйста решить задачу! Ну очень очень прошу!!!:boredom: В...

Алгоритм моделирования полной группы событий
Реализовать и исследовать на точность алгоритм моделирования полной группы N случайных событий ...


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

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

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