16341

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

Лекция

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

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

Русский

2013-06-20

54 KB

80 чел.

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

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

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


 

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

63774. Здравоохранение зарубежных стран, типы 39 KB
  ВОЗ определила системы и виды здравоохранения по уровню управления: централизованные учреждения здравоохранения подчиняются местным органам здравоохранения; частичной децентрализации учреждения и местные органы здравоохранения не подчиняются центральным органам...
63775. Всемирная организация здравоохранения 26.5 KB
  ВОЗ это крупнейшая международная медицинская организация. Основной целью ее деятельности является достижение всеми народами возможно высшего уровня здоровья.
63776. Контроль качества медицинской помощи. Компоненты качества 25.5 KB
  Компоненты качества В последние годы вопросы контроля качества медицинской помощи являются наиболее острыми для российского здравоохранения. Отрасль в целом и каждое ЛПУ в отдельности заняты не только поиском дополнительного финансирования но и путей снижения...
63777. Система обеспечения качества медицинской помощи 31 KB
  Система обеспечения качества медицинской помощи состоит из 3х элементов. Законодательная база к числу участников контроля качества медицинской помощи относит: медицинские учреждения; общественные объединения потребителей; органы управления здравоохранением...
63778. Контроль качества медицинской помощи. Средства 30.5 KB
  В последние годы вопросы контроля качества медицинской помощи являются наиболее острыми для российского здравоохранения. Отрасль в целом и каждое ЛПУ в отдельности заняты не только поиском дополнительного финансирования но и путей снижения...
63779. Социальная медицина (СМ) 29 KB
  Социальная медицина СМ наука о здоровье общества о социальных проблемах медицины. Вопросам профилактической медицины уделяли много внимания Боткин Захарьин Остроумов. Первую кафедру Социальной медицины организовал в Берлинском университете...
63780. Здоровье 26 KB
  факторам относятся: условия труда жилищные условия условия питания культура образование состояние здоровья. Показатели определяющие здоровье населения: медико-демографические рождаемость смертность естественный прирост...
63781. Теоретические основы и организационные принципы здравоохранения 24 KB
  Система здравоохранения это совокупность взаимосвязанных мероприятий которые содействуют укреплению здоровья и проводятся на дому в учебных заведениях на рабочих местах в общинах в физическом...
63782. Три органа управления здравоохранением 26.5 KB
  Среди органов управления здравоохранением следует выделять центральные республиканские и местные краевые областные городские районные органы здравоохранения. К центральным органам относятся министерства здравоохранения которые несут ответственность за состояние и развитие медицинской помощи.