16341

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

Лекция

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

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

Русский

2013-06-20

54 KB

76 чел.

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

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

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


 

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

18943. Коммуникативное пространство. Роль связей с общественностью в формировании коммуникативного пространства 90.5 KB
  Коммуникативное пространство. Роль связей с общественностью в формировании коммуникативного пространства Коммуникативное пространство современной цивилизации формируется рядом машин порождающих символы. В этой роли выступают и массмедиа и искусство и политиче
18944. Межкультурная коммуникация 43 KB
  Межкультурная коммуникация МЕЖКУЛЬТУРНАЯ КОММУНИКАЦИЯ У каждой культуры своя логика свое представление о мире. То что значимо в одной культуре может быть несущественным в другой. Поэтому важно всегда с уважением смотреть на своего партнера с иной культурой. Он де
18945. Коммуникации в организациях: виды и формы 81.5 KB
  Коммуникации в организациях: виды и формы Действенным средством повышения эффективности работы фирм и даже отдельным направление в ПР является работа с внутренней общественностью представленной служащими организации. Это часть организации человеческий ресурс ф
18946. Роль ПР-специалиста в разрешении конфликтов в группах и организациях 34 KB
  Роль ПРспециалиста в разрешении конфликтов в группах и организациях Специалист по связям с общественностью должен играть ключевую роль в антиконфликтном и антикризисном управлении. Занимаясь управлением конфликтами и кризисами специалист по PR имеет дело собствен
18947. Межличностные конфликты. Специфика проявления 41.5 KB
  Межличностные конфликты. Специфика проявления МК Емельянов противоборство двух людей на основе столкновения противоположно направленных мотивов. МК Гришина ситуация противоречий разногласий столкновений между людьми. Он может быть определен как ситуация п...
18948. Коммуникационный менеджмент как процесс 49.5 KB
  Коммуникационный менеджмент как процесс Компании всегда занимались коммуникацией выстраивали вокруг и внутри систему взаимодействий призванную помогать бизнесу в достижении его стратегических и текущих целей. Успехи организации зависят от конструктивности вз...
18949. Организация и проведение избирательной кампании: стратегический замысел, цели и масштаб работы с избирательными территориями 200.5 KB
  Организация и проведение избирательной кампании: стратегический замысел цели и масштаб работы с избирательными территориями Избирательная кампания это те же самые скоординированные целенаправленные но осуществляемые в течение отделенного законодательством в
18950. Телевизионная журналистика: особенности, виды, способы финансирования 88.5 KB
  Телевизионная журналистика: особенности виды способы финансирования Телевидение одно из самых глобальных достижений человечества. Оно отбирает у своих поклонников не только способность мыслить но и способность сопротивляться воздействию: яркая движущаяся кар