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)


 

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

28944. Основные этапы становления государственности в Древней Руси и ее особенности 26 KB
  Были разгромлены Волжская Булгария и Хазарский каганат покорены мордовские племена отражен натиск печенегов но война с Византией закончилась неудачно: дружине Святослава с трудом удалось отступить. Святослав попал в засаду печенегов в районе днепровских порогов и был убит. Был укреплен государственный аппарат и решена задача обороны от печенегов.
28945. Принятие христианства и его роль в укреплении государства, духовном объединении древнерусского общества 28.5 KB
  Язычество приводило к изоляции Руси от христианского мира Европы тормозило развитие международных связей и торговли; 2. Язычество мешало стабилизации и укреплению феодального строя на Руси; 3. Монотеизм христианской религии укреплял авторитет княжеской власти способствовал единению Руси; 5. Появляющееся социальное неравенство на Руси требовало новой идеологии которая могла бы оправдать богатство одних и бедность других утешить людей попавших в зависимость от феодала обещая им лучшую жизнь в ином мире.
28946. Русь в период политической раздробленности. Основные политический центры, их государственный и общественный строй 32 KB
  Опираясь на его мощь местные князья сумели установить свою власть в каждой земле. Однако впоследствии между силившимися боярством и местными князьями возникли противоречия и борьба за власть. Боярство обладавшее значительной экономической силой сумело победить князя в борьбе за власть. Реальная же власть была сосредоточена в руках местного боярства.
28947. Борьба русских княжеств с иноземнми захватчиками в XIII веке. Установление ордынского языке и его последствия 29 KB
  Русь переживала период политической раздробленности и шанс объединить силы перед грядущей опасностью был упущен. на съезде золотоордынской знати было принято решение о походе на Русь который возглавил внук Чингисхана – Батый. предпринял новый поход на Русь теперь на юг. Приняв на себя основной удар героически сопротивляясь Русь спасла Западную Европу от страшного агрессора.
28948. Возвышение Москвы. Роль московских князей в свержении ордынского ига и создании централизованного Русского государства 32 KB
  Иван I Калита которого называют первым собирателем земель русских перенёс митрополическую кафедру из Владимира в Москву московские князья в своей политике получают в союзники главу русской церкви авторитет которого в то время был очень высок. Политику Ивана I Калиты продолжили его сыновья Симеон Гордый 13401353 и Иван II Красный 1353 1359. После смерти Василия II 1462 великим князем становится его сын Иван III 1462 1505. Человек осторожный расчетливый Иван III последовательно проводил свой курс на покорение удельных княжеств...
28949. Возникновение сословно-представительной монархии в Московском государстве. Внутренняя и внешняя политики Ивана IV 48.5 KB
  Внутренняя и внешняя политики Ивана IV В 16 веке в России складывается сословнопредставительная монархия. в России уже было 25 000 стрельцов. в России разразился настоящий хозяйственный кризис. Последствия опричнины для России были трагичными: 1.
28950. Борьба политических партий за власть в 1917 г. Большевистский государственный переворот 96 KB
  От большевиков в Исполком вошли А. Было принято предложение большевиков об усилении Исполкома путем введения в него по три представителя от партий большевиков меньшевиков и эсеров. На основании этого в состав Исполкома от большевиков были дополнительно введены В. Относительная гибкость партии так же как способность улавливать преобладавшие настроения масс содействовала победе большевиков по крайней мере столько же сколько революционная дисциплина организационное единство и авторитет Ленина.
28951. Борьба политический партий за власть, большевистский государственный переворот 31.5 KB
  Следствием кризиса был Корниловский мятеж в результате которого все большую популярность получили большевики был окончательно потерян авторитет ВП. ЦИК советов и ИСКД создали чрезвычайный орган Комитет народной борьбы с контрреволюцией в который входили меньшевики эсеры и большевики. В это время большевики активизировали работу в советах стали восстанавливать отряды Красной гвардии направили своих агитаторов в корниловские войска Донскую Уссурийскую и Дикую дивизии. Укрепили свои позиции большевики возросло их влияние в народе.
28952. Возникновение советской государственности. Политика «военного коммунизма» 46.5 KB
  С приходом большевиков к власти возможность расширения правительства за счет вхождения в него других социалистических партий не была утеряна. В рядах партии имелась влиятельная группа большевиков которая отстаивала эту позицию. На заседании ЦК большевиков 1 ноября эта линия была расценена как капитулянтская переговоры были свернуты а Каменев снят с поста председателя ВЦИКа. в него было избрано 715 из800 депутатов: 370 эсеров 175 большевиков 40 левых эсеров 17 кадетов 15 меньшевиков 86 представителей национальных партий.