34 Является устаревшим дополнением к объявлению встраиваемой функции inline.
35 Впрочем, механизм перегрузки и шаблоны функций позволяют решать те же задачи, что и макросы [25, 48].
do i= 1, npde + 1 write(7, "(4el5.5)") u(i,:) end do
tout = min(tout + delta_t, tend) if(tO = tend) ido = 3 end if
case(3) ! Интегрирование завершено
close(unit = 7) . ! Графический вывод allocate(uv(2, n)) uv(l,
= u(npde+ 1,:)
uv(2,:) = u( 1,:) ! Выводим график (далее…)
use pde_ld_mg_int use error_option_packet implicit none
integer, parameter :: npde = 2, nl = 10, n2 = 51, n = nl + n2 integer i, ido, nframes
real(kind(ldO)) u(npde + 1, n), tO, tout, dxl, dx2, diff
real(kind(ldO)):: zero = OdO, one = IdO, delta_t = ld-1, tend = 5d0, xmax = 25d0 real(kind(ldO)):: uO = IdO, ul = OdO, tdelta = ld-1, tol = ld-2 type(d_options) iopt(3)
! Массив,
(далее…)
11 — знак цены (коммерческое at); # — знак номера (хэш-символ); & — амперсанд (коммерческое и); | — коммерческое или.
12 По-другому, типы Си разделяют на основные (void, char, int, float и double вместе с вариантами short, unsigned и long) и производные (указатели и ссылки на другие типы, массив, функция, структура, объединение (далее…)
о
- v
(2 =
о
Vv"*y
Граничные условия задаются равенствами ги – ехр(-20ґ)^ v
Р = 0, у = при X = Хі и
ч
и-1
Vv
у
Р = 0, у =
при X = дгл.
При интегрировании (далее…)
58. ФароновВ. В. Турбо Паскаль 7.0 Начальный курс. —М.: Но-лидж, 1997. —616 с.
59. Фаронов В. В. Турбо Паскаль 7.0 Практика программирования. — М.: Нолидж, 1997. —432 с.
60. ФиличевС. В. Занимательный Basic для старшеклассников и не только… — М.: ЭКОМ, 1997. —192 с.
61. Форсайт Дж., МалькольмМ., МоулерК. Машинные методы математических вычислений. — М.: Мир, 1980. —280 с.
62. Фортран 90. Международный (далее…)
subroutine bc_01(t, beta, gamma, u, dudx, npde, left, ires) implicit none ! Задает граничные условия примера 1
integer npde, ires logical left
real(kind(ldO)) t, beta(npde), gamma(npde), u(npde), dudx(npde) if(left) then
beta(2) = OdO gamma(2) = u(2)
OjSO

beta(2) (далее…)
Свежие комментарии