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)


 

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

69538. Управление финансами ТНК 651.5 KB
  Транснациональные корпорации способствовали превращению мировой экономики в международное производство обеспечивая ускорение научно-технического прогресса во всех его направлениях технический уровень и качество продукции эффективность производства совершенствование...
69539. Бюджетная система 523 KB
  Финансовая система Украины Централизованные финансовые ресурсы сосредотачиваются в Государственном бюджете Пенсионном фонде Фонде государственного страхования и др. Государственный бюджет формируется за счет отчислений плательщиков налогов согласно Закону...
69540. Проектное финансирование 96.5 KB
  Отличие проектного финансирования от кредитования реальных инвестиций.1 Отличие проектного финансирования от кредитования реальных инвестиций. Однако в Украине преобладает упрощенное представление о проектном финансировании как о банковском долгосрочном кредитовании...
69541. Складні речовини. Основні класи неорганічних сполук. Оксиди, їх склад, назва, визначення. Фізичні властивості 71 KB
  Ознайомити учнів з основними класами неорганічних сполук; складом, фізичними властивостями оксидів, та їх класифікацію; вдосконалювати вміння складати формули бінарних сполук.; виробляти вміння складати генетичні ряди.
69542. Конспекти уроків з технології 11 клас 655 KB
  Професійна діяльність і професійне самовизначення. Проектування як складова сучасного виробництва в життєдіяльності людини. Методи творчого та критичного мислення в проектній технології. Раціоналізаторські пропозиції – рушійна сила розвитку виробництва...
69543. Методологія і організація наукових досліджень 483 KB
  Наукове дослідження – це процес генерування нових наукових знань, тобто процес вивчення певного об’єкта (процесу або явища) з метою встановлення закономірностей його виникнення, розвитку і перетворення для раціонального використання у практичній діяльності людей.
69544. Методы прогнозирования и принятия решений, курс лекций 1.49 MB
  В курсе лекций показаны роль и место управленческих решений в функционировании организаций, методология и технология процесса разработки управленческих решений, классификация и типология управленческих решений, качество и эффективность управленческих решений, роль и методология прогнозирования в процессе принятия решений.
69545. Основы управления интеллектуальной собственностью, курс лекций 365.5 KB
  Интеллектуальная собственность в последнее время стала одной из основных движущих сил развития общества. В большинстве стран мира сложилась крупная отрасль общественного производства – экономика интеллектуальной собственности.
69546. Соціологія, курс лекцій 1.25 MB
  Вивчення даного курсу допоможе сформувати у майбутніх фахівців соціологічне мислення і культуру, надасть їм необхідну допомогу в розумінні сутності й змісту складних соціологічних явищ і процесів, що відбуваються в сучасному ринковому суспільстві