16341

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

Лекция

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

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

Русский

2013-06-20

54 KB

72 чел.

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

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

Постановка задачи. На отрезке [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)


 

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

64621. Мотивации в управлении персоналом 72.85 KB
  Но это не означает что на мотивации персонала тоже надо экономить потому как хорошо обученный мотивированный и организованный персонал определяет судьбу предприятия. В то же время теоретические аспекты построения механизмов мотивации нуждаются в дальнейшей разработке.
64622. Предложения по совершенствованию классификации затрат и по их снижению в ООО «Лентал» 113.58 KB
  Анализ издержек помогает выяснить их эффективность установить не будут ли они чрезмерными проверить качественные показатели работы правильно установить цены регулировать и контролировать расходы планировать уровень прибыли и рентабельности производства.
64623. Анализ дебиторской задолжности: цель, задачи, информационная обеспеченность 111.12 KB
  Неизбежным следствием существующей в настоящее время системы денежных расчетов между организациями является дебиторская задолженность, при которой всегда имеется разрыв времени платежа с моментом перехода права собственности на товар...
64624. Решение конечного разностного уравнения третьего порядка 86.55 KB
  Колмогоров один из основоположников современной теории вероятностей им получены фундаментальные результаты в топологии математической логике теории турбулентности теории сложности алгоритмов и ряде других областей математики и её приложений.
64625. Роспись стены акрилом 830.24 KB
  История настенной живописи. Материалы для акриловой живописи Акриловые краски их состав и технические свойства Технология и техника акриловой живописи. Представленная курсовая работа посвящена акриловой живописи и росписи стен в частности.
64626. Распределение средств между предприятиями, ООО «Солнышко», ООО «Алладин», ОАО «Береза», ОАО «Свет», ОАО «Сумки» 684.92 KB
  Инвестировать деньги только в один какой-то проект часто может быть не самым прибыльным и надежным вариантом. Причина этого в том что все предприятия дают разную прибыль в зависимости от вложенных инвестиций и кроме того инвестируя лишь один проект шанс потерять свои деньги возрастает во много раз.
64627. Функции таможенны органов в части обеспечения мер по противодействию легализации (отмыванию) доходов, полученных преступным путем и финансированию терроризма 328.97 KB
  Роли таможенных органов в обеспечении мер направленных на борьбу с отмыванием денег и финансирование терроризма. В отчете о стратегии международной борьбы с распространением наркотиков подготовленном Государственным департаментом...
64628. Этика деловых отношений в организации ООО «Аэросервис» 88.56 KB
  Целью данной работы является изучение этики деловых отношений в организации ООО Аэросервис. Для написания данной работы необходимо решить следующие задачи: всесторонне рассмотреть теоретические аспекты этики деловых отношений...
64629. Проектирование и строительство архитектурного ансамбля 40.87 KB
  Икона Казанской Божией Матери, покровительницы государства Российского и дома Романовых, была привезена в Санкт-Петербург Петром І в 1710 году для освящения новой столицы Российской империи. Первоначально икону помещают в церковь Рождества Богородицы на Петроградской стороне.