16341

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

Лекция

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

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

Русский

2013-06-20

54 KB

67 чел.

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

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

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


 

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

81047. Взаимоотношения ЕС и России. Зоны противоречий ЕС-РФ 49.13 KB
  В практическом плане это должно было вылиться в сближение экономик России и Евросоюза углубление совместного сотрудничества в борьбе с организованной преступностью терроризмом незаконной миграцией а в перспективе и в отмену визового режима. По статистике на Евросоюз приходится половина объёма внешней торговли России а государстваучастники этой организации являются крупнейшими прямыми инвесторами в российскую экономику. ЕС главный для России источник современных технологий.
81048. Азиатско-тихоокеанский регион в международной системе 52.02 KB
  Развитие права норм и механизмов регулирования международных отношений в АТР как и в других регионах мира связано с такими организациями как: Ассоциация государств ЮгоВосточной Азии АСЕАН АзиатскоТихоокеанское экономическое сотрудничество АТЭС Асеановский региональный форум АРФ Шанхайская организация сотрудничества ШОС и др. Роль США в АТР АТР объединяет около 25 стран бассейна Тихого океана. Факторы повлиявшие на выделение АТР в особую зону мирового развития: передел мира после 2 ой мировой войны США становится лидером;...
81049. Внешняя политика Китайской народной республики 49.14 KB
  Документ подписали глава МИД КНР Ян Цзечи и министр иностранных дел России Сергей Лавров который находится в Китае с рабочим визитом. Таким образом между РФ и КНР окончательно урегулирована территориальная проблема переговоры по которой длились более 40 лет поставлена точка в пограничном размежевании между нашими странами и завершено юридическое оформление общей границы. Дополнительное соглашение между РФ и КНР о российско-китайской государственной границе на её восточной части было подписано в Пекине...
81050. Позиция РФ в Азиатско- Тихоокеанском регионе. Китай. Япония 53.61 KB
  Более 70 внешнеторгового оборота России с азиатскими странами приходится на государства АзиатскоТихоокеанского региона АТР. Наиболее крупными торговыми партнерами России в регионе являются Китай Япония и Республика Корея Южная Корея. Этот процесс завершил урегулирование пограничных проблем в отношениях России и КНР многолетний переговорный процесс который был начат ещё СССР и КНР в 1964 и который помимо переговоров дипломатов сопровождался ещё и кровопролитием с обеих сторон. В отношениях России с КНР важнейшей задачей на ближайшее...
81051. Многосторонние международные институты и международные организации в современных международных отношениях 41.21 KB
  Международные правительственные организации МПО членами которых выступают национальные правительства и которые создаются посредством заключения договоров между государствами. МПО выполняют роль надгосударственных образований т. МПО в зависимости от целей и членства разделяются на универсальные ООН региональные АСЕАН МЕРКОСУР ШОС и функциональные организации МАГАТЕ. В настоящее время существует свыше 300 МПО.
81052. Современная дипломатия как средство регулирования МО 40.72 KB
  съезды конференции совещания и встречиподготовка и заключение многосторонних и 2х мн договоров Участие в работе мн организаций и их органовОсуществление постоянного представительства госва за границей чз посольстваПубликация дипломатическойдокументацииОсвещение в печати позиции правительства по мн вопросамНаиболее часто встречаемые формы диплом документации письма ноты меморандумы.Формы Д:1Двусторонняя Д осуществляемая на постоянной основе через представительства одного госва на территории др2 временная Д. путем посылки в др госво...
81053. МО в Восточной Азии 41.83 KB
  Высокая динамика развития в основе которой опережающие темпы роста стран Восточной Азии их успешный диалог между собой и с внерегиональными державами могут сделать Азиатско-тихоокеанский район основным центром мирового экономического и политического тяготения подобно тому как таким центром в предшествующие эпохи была Европа. Согласно первому к АТР относят гигантский район ограничиваемый западным побережьем обеих Америк восточным побережьем Азии и зоной Австралии. При такой интерпретации в АТР включают и страны Южной Азии.
81054. МО в Южной Азии 42.3 KB
  На долю Индии приходится 734 территории ЮА 765 населения региона и около 80 валового национального продукта производимого здесь так же в военном отношении. Доминирование Индии в регионе вызывает недоверие к ней порождает ощущение угрозы их безопасности. Индия рассматривает проблему обеспечения безопасности страны в рамках всего ЮА региона = стремление защитить и упрочить доминирующие позиции Индии в ЮА. у Пакистана есть атомная бомба и он готов ее применить для обороны от Индии.
81055. МО на Ближнем и Среднем Востоке 45.42 KB
  В качестве компенсации за кражу иракской нефти Саддам Хусейн требует от Кувейта выплаты 24 млрд. Стремясь всячески избежать разрастания конфликта правительство Кувейта заявляет о своей готовности обсудить все спорные вопросы и выделить Ираку займ в размере 9 млрд. 2 августа СБ ООН принимает резолюцию в которой осуждаются агрессивные действия Ирака и содержится требование о немедленном и безоговорочном выводе иракских войск из Кувейта. Арафат который не только одобрил аннексию Кувейта и призвал находившихся там палестинцев сотрудничать с...