16341

Табулирование функции. Табулирование функции одной переменной в VBA

Лекция

Информатика, кибернетика и программирование

Табулирование функции Табулирование функции одной переменной Постановка задачи. На отрезке [ab] с шагом h протабулировать функцию fx=x2Ln|x| и вывести на печать значения этой функции. Технология выполнения задания: Для решения задачи в област

Русский

2013-06-20

54 KB

81 чел.

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

Табулирование функции одной переменной

Постановка задачи. На отрезке [a,b] с шагом h протабулировать функцию f(x)=x2+Ln|x| и вывести на печать значения этой функции.

Технология выполнения задания:

Для решения задачи в области определения функции вводится сетка – совокупность точек {x0,x1,x2, …, xi}, где x0 = а, x1= x0+h, …, xi = xi-1+h, xn = b.

Тогда задача сводится к вычислению функции f в точках xi, то есть нужно вычислить f(x0), f(x1), …, f(xi), f(xn).

I вариант

1. Введем обозначения:

хn, xk – границы отрезка;

       h – шаг;

       х – точка;

       f – значение функции в точке.

2.Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл For:

Public Sub primer1()

Dim x As Single

Dim xn As Single

Dim xk As Single

Dim h As Single

Dim f As Single

xn = InputBox("xn=", xn)

xk = InputBox("xk=", xk)

h = InputBox("h=", h)

k = 1

For x = xn To xk Step h

x = Format(x, "##.##")

f = x ^ 2 + Log(Abs(x))

f = Format(f, "##.####")

Cells(k, 1).Value = x

Cells(k, 2).Value = f

k = k + 1

Next x

End Sub

II вариант

1. Введем обозначения:

хn, xk – границы отрезка;

       h – шаг;

       х – точка;

        f – значение функции в точке .

2.Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя итерационный цикл:

Sub primer2()

Dim x As Single

Dim xn As Single

Dim xk As Single

Dim f As Single

Dim h As Single

xn = InputBox("xn=", xn)

xk = InputBox("xk=", xk)

h = InputBox("h=", h)

x = xn

k = 1

Do

Cells(k, 1).Value = x

f = x ^ 2 + Log(Abs(x))

Cells(k, 2).Value = f

x = x + h

k = k + 1

Loop While x <= xk

End Sub


Табулирование функции двух переменных (вложенные циклы)

Постановка задачи. На интервале xnxxk с шагом Δх, для каждого у из интервала уnyyk с шагом Δу вычислить значение функции z=x2+ln|y|.

Технология выполнения задания:

Для решения задачи в области определения функции вводится разностная сетка {хi, yi}, где x0 = xn, x1 = x0+hx, …, xi = xi-1+hx, …, xn=xk; y0 = yn, y1 = y0+hy, …, yj = yj-1+hy, …, ym=yk.

- количество узлов сетки по оси х,

- количество узлов сетки по оси y.

Тогда задача сводится к вычислению функции z в точках xi и yj, то есть z(xi,yj), то есть z(xi,yj)=x2+ln|y|, где i=1,2,… n, j=1,2, … m.

I вариант:

1. Введем обозначения:

             х,y – координаты узла сетки;

                 f – значение функции в нем;

хn, xk,yn,yk – границы отрезка;

          hх,hy – шаги сетки.

2.Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл For:

Sub primer3()

Dim x As Single

Dim y As Single

Dim xn As Single

Dim xk As Single

Dim yn As Single

Dim yk As Single

Dim f As Single

Dim hx As Single

Dim hy As Single

xn = InputBox("xn=", xn)

xk = InputBox("xk=", xk)

yn = InputBox("yn=", yn)

yk = InputBox("yk=", yk)

hx = InputBox("hx=", hx)

hy = InputBox("hy=", hy)

k = 1

For y = yn To yk Step hy

For x = xn To xk Step hx

f = x ^ 2 + Log(Abs(y))

Cells(k, 1).Value = x

Cells(k, 2).Value = y

Cells(k, 3).Value = f

k = k + 1

Next x

Next y

End Sub

II вариант

1. Введем обозначения:

             х,y – координаты узла сетки;

                 f – значение функции в нем;

хn, xk,yn,yk – границы отрезка;

          hх,hy – шаги сетки.

2. Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя итерационный цикл

Sub primer4()

Dim x As Single

Dim y As Single

Dim xn As Single

Dim xk As Single

Dim yn As Single

Dim yk As Single

Dim f As Single

Dim hx As Single

Dim hy As Single

xn = InputBox("xn=", xn)

xk = InputBox("xk=", xk)

yn = InputBox("yn=", yn)

yk = InputBox("yk=", yk)

hx = InputBox("hx=", hx)

hy = InputBox("hy=", hy)

i = 1

y = yn

Do

x = xn

Do While x <= xk

f = x ^ 2 + Log(Abs(y))

Cells(i, 1).Value = x

Cells(i, 2).Value = y

Cells(i, 3).Value = f

x = x + hx

i = i + 1

Loop

y = y + hy

Loop Until y > yk

End Sub

PAGE  2


yn

yk

k

xn

y

z

x

а

х1

b

f(a)

f(x1)

f(b)


 

А также другие работы, которые могут Вас заинтересовать

48565. Будова та функції ядра 50.5 KB
  Методи та методичні прийоми: словесні інтелектуальна розминка розповідь з елементами бесіди пояснення фронтальне опитування практичні самостійна робота наочнографічні демонстрація схем будови мітохондрії хлоропласта взаємоперетворення пластид будови метафазної хромосоми і нитки хромосоми. Базові поняття і терміни: еукаріоти прокаріоти клітина цитоплазма поверхневий апарат ядро хромосоми гени. Засоби навчання: схема Будова мітохондріїâ схема Будова хлоропластаâ схема Взаємоперетворення пластид схема Будова...
48566. ОСНОВНЫЕ БИЗНЕС-ПРОЦЕССЫ В ОРГАНИЗАЦИИ 75.5 KB
  Субъектами предпринимательства могут быть как отдельные частные лица, так и объединения партнеров. Частные лица как субъекты предпринимательства выступают в этом качестве, как правило, путем организации единоличного или семейного предприятия. Такие предприниматели могут ограничиваться затратами собственного труда или использовать наемный труд.
48567. Конспект лекцій. Економіка підприємства 1.92 MB
  УДК Конспект лекцій по дисципліні âЕкономіка підприємстваâ Укл. Містить конспект лекцій по дисципліні âЕкономіка підприємстваâ для студентів економічних спеціальностей усіх форм навчання. ЗМІСТ Тема1: Організаційно правові аспекти діяльності підприємства 1.
48568. Коммерческое (предпринимательское) право 3.26 MB
  Понятие коммерческого права Принципы коммерческого права История коммерческого права Очерк истории науки и преподавания коммерческого торгового права в России
48570. ОСНОВИ І МЕТОДИ АРХІТЕКТУРНОГО ПРОЕКТУВАННЯ. КУРС ЛЕКЦІЙ 476 KB
  Поняття і види архітектурного проектування МЕТОДИ АРХІТЕКТУРНОГО ПРОЕКТУВАННЯ за Б. Поняття методу і методики проектування.
48572. Промышленная безопасность во взрывном деле 3.75 MB
  Правила безопасности при перевозке взрывчатых материалов автомобильным транспортом Специальные требования по обеспечению безопасности при транспортировании промышленных ВМ разработанные в соответствии с постановлением Правительства Российской Федерации от 23 апреля 1994 г. Перечень взрывчатых материалов оборудования и приборов взрывного дела допущенных к применению в Российской Федерации [Текст] А. Положение о порядке выдачи разрешений на применение взрывчатых материалов промышленного назначения и проведение взрывных работ РД 13537 03...
48573. Процеживающие решетки и усреднители сточных вод. Конструкции фильтров для сточных вод 163 KB
  Процеживание сточных вод осуществляется пропусканием воды через решетки и волокноуловители. Решетки применяют для улавливания из сточных вод крупных нерастворенных плавающих загрязнений. Грабельная механизированная решетка Решетки устанавливают на очистных станциях при поступлении на них сточных вод самотеком.