Фортран для профессионалов
книга

Фортран для профессионалов : математическая библиотека IMSL

3

Автор: О. Бартеньев

Форматы: PDF

Издательство: Диалог-МИФИ

Год: 2001

Место издания: Москва

ISBN: 5-86404-158-0

Страниц: 369

Артикул: 41446

Электронная книга
100

Краткая аннотация книги "Фортран для профессионалов"

Излагаются средства математической библиотеки IMSL, входящей в состав профессиональных версий Фортрана фирм Microsoft и Compaq, позволяющие анализировать линейные модели и выполнять матричные вычисления. Приводятся алгоритмы, положенные в основу процедур библиотеки, а также варианты их программных реализаций. Поясняются все используемые при описании процедур библиотеки понятия. Излагаемый материал иллюстрируется большим числом примеров. Предназначено для научных работников, инженеров, преподавателей, студентов и аспирантов вузов.

Содержание книги "Фортран для профессионалов"


1. ИНТЕРПОЛЯЦИЯ И АППРОКСИМАЦИЯ
1.1. Введение
1.2. Обзор процедур
1.3. Интерполяция кубическими сплайнами
1.4. Интерполяция В-сплайнами
1.5. Оценка кусочно-многочленных сплайнов
1.6. квадратичные сплайны и их оценка
1.7. Интерполяция по рассеянным данным. Подпрограмма SURF (DSURF)
1.8. Аппроксимация по методу наименьших квадратов
1.9. Сглаживающие кубические сплайны
1.10. Приближение Чебышева. Подпрограмма RATCH (DRATCH)
2. АППРОКСИМАЦИЯ КРИВЫХ И ПОВЕРХНОСТЕЙ СПЛАЙНАМИ БИБЛИОТЕКИ IMSL 90 MP
2.1. Общие сведения
2.2. Описание функций, употребляемых с плоскими сплайнами
2.3. Описание функций, употребляемых с Пространственными сплайнами
3. ИНТЕГРИРОВАНИЕ И ДИФФЕРЕНЦИРОВАНИЕ
3.1. Введение
3.2. численное интегрирование функции одной переменной
3.3. Численное Интегрирование функции нескольких переменных
3.4. Правила Гаусса и трехэлементные рекуррентные соотношения
3.5.Численное дифференцирование. Функция DERIV (DDERIV)
4. РЕШЕНИЕ ДИФФЕРЕНЦИАЛЬНЫХ УРАВНЕНИЙ
4.1. Некоторые сведения о дифференциальных уравнениях
4.2. Задача Коши
4.3. Системы алгебраических дифференциальных уравнений. Подпрограмма DASPG (DDASPG)
4.4. Краевая задача
4.5. Решение Дифференциальных уравнений в частных производных. Подпрограмма MOLCH (DMOLCH)
4.6. Решение уравнений Пуассона и Гельмгольца
4.7. задача Штурма - Лиувилля
ПРОИЗВОДНЫХ
5.1. Подпрограмма PDE_1D_MG библиотеки IMSL 90 MP
5.2. Примеры употребления подпрограммы PDE_1D_MG
Литература

Все отзывы о книге Фортран для профессионалов : математическая библиотека IMSL

Чтобы оставить отзыв, зарегистрируйтесь или войдите

Отрывок из книги Фортран для профессионалов : математическая библиотека IMSL

1. Интерполяция и аппроксимация 67 Описание: Подпрограмма PP1GD, получив вектор с абсциссами x(1:n), в котором xi < xi + 1 для i = 1, …, n - 1, вычисляет производную порядка j f (j)(xi), i = 1, …, n КМ-представления сплайна, возвращая результат в векторе value. Функцио-нально подпрограмма PP1GD аналогична программе, в которой функция PPDER вызывается в цикле. Однако PP1GD значительно эффективнее. Подпрограмма PP1GD основывается на процедуре PPVALU, приведен-ной в [7]. Пример. Решается та же, что и для вышерассмотренной функции PPDER, задача. program pp1gdTest use dfimsl integer(4), parameter :: korder = 4, n = 20, ncoef = 20, ndata = 20, nknot = ndata + korder integer(4) :: i, nintv, nppcf real(4) :: break(ncoef), bscoef(ncoef), df, f, fdata(ndata), ppcoef(korder, ncoef), & value1(n), value2(n), x, xdata(ndata), xknot(nknot), xvec(n) ! Задаем функцию и ее производную f(x) = x * exp(x) df(x) = (x + 1.0) * exp(x) do i = 1, ndata ! Задаем точки интерполяции xdata(i) = float( i - 1) / float(ndata - 1) fdata(i) = f(xdata(i)) end do ! Генерируем последовательность узлов ! и вычисляем затем интерполяционный В-сплайн call bsnak(ndata, xdata, korder, xknot) call bsint(ncoef, xdata, fdata, korder, xknot, bscoef) ! Преобразовываем В-сплайн в КМ-представление call bscpp(korder, xknot, ncoef, bscoef, nppcf, break, ppcoef) ! Генерируем оценочные точки do i = 1, n xvec(i) = float(i - 1) / float(n - 1) end do nintv = nppcf ! Оценка КМ-представления call pp1gd(0, n, xvec, korder, nintv, break, ppcoef, value1) ! Оценка первой производной КМ-представления В-сплайна call pp1gd (1, n, xvec, korder, nintv, break, ppcoef, value2) ! Вывод заголовка таблицы результатов write(*, "(11x, 'x', 8x, 's(x)', 7x, 'Error', 7x, 's''(x)', 7x, 'Error')") do i = 1, n ! Вывод результата на однородной сетке