Табулирование функции

Задача табулирования функции предполагает получение таблицы значений функции при изменении аргумента с фиксированным шагом. В качестве исходной информации должны быть заданы: X ₀, Xn- начало и конец промежутка табулирования, при этом (X ₀ < Xn); - число шагов разбиения промежутка [X ₀, Xn]; F(X) - описание табулируемой функции.

При составлении алгоритма предполагается, что X - текущее значение аргумента; - шаг изменения аргумента (иногда его называют шагом табуляции функции); - текущий номер точки, в которой вычисляются функция
(i = 0.. n).

Количество интервалов n, шаг табуляции h и величины X ₀, Xn связаны между собой формулой:

. (2-17)

Интерпретация переменных (т. е. их обозначение в математической постановке задачи, смысл и тип, обозначения в программе) приведены в таблице имен.

Таблица имен

Математ. величина	Обозначение в программе	Содержательный смысл	Тип переменной
n	N	Число интервалов разбиения [X0, Xn]	integer
X0	X0	Начало промежутка	real
Xn	XN	Конец промежутка	real
X	X	Текущее значение аргумента	real
F(X)	Y	Текущее значение функции	real
	H	Шаг табулирования	real

Пример 18. Табулировать функцию F(X) в N равноотстоящих точках, заданную на промежутке [X₀, X n ], где

.

Sub Pr18()

Dim X As Double, Y As Double, I As Integer, N As Integer

Dim H As Double, X0 As Double, XN As Double

Cells(I+1, 1) = ”X”

Cells(I+1, 2) = ”Y”

X0 = InputBox(“Введите Xначальное”)

XN = InputBox(“Введите Xконечное”)

N = InputBox(“Введите количество точек”)

H: = (XN - X0)/(N-1)

For I: = 0 To N

X: = X0 + I*H;

Y: = SIN(X+1)*EXP(2-X^2)

Cells(I+2, 1) = X

Cells(I+2, 2) = Y

Next I

End Sub