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)


 

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

27552. Функции теории государства и права 25 KB
  В юридической литературе в числе функций теории государства и права называются: онтологическая; методологическая; идеологическая; вводная; обобщающая. С онтологической точки зрения теория государства и права призвана констатировать что и как происходит в сфере государства и права а затем объяснять почему это происходит. 2 Методологическая функция заключается в следующем: права понятия и выводы являются предпосылкой отправным моментом для последующей научной деятельности например понятия €œнорма права€ €œправоотношение€ и т.
27553. Цивилизационные подходы к типологии государства 27 KB
  Тойнби пишет что €œкультурный элемент представляет собой душу кровь лимфу сущность цивилизации; в сравнении с ним экономический и тем более политический план кажется искусственным несущественным заурядным созданием природы и €œдвижущих сил цивилизации€. Понятие цивилизации им сформулировано как относительно замкнутое и локальное состояние социума отличающееся общностью религиозных психологических культурных географических и иных признаков два из которых остаются неизменными: религия и формы ее организации а также степень...
27554. Что такое пробелы в праве и как они устраняются в практике применения правовых норм 39.5 KB
  Точное определение этих границ сфер позволяет обнаружить: 1 отношения урегулированные правом; 2 отношения нуждающиеся в правовом опосредовании; 3 нормативные предписания подлежащие реализации; 4 пробелы и иные недостатки в праве; 5 пределы деятельности правоприменительных органов по осуществлению права. В зависимости от отрасти права в которой они установлены различают пробелы в конституционном государственном гражданском уголовном семейном и других отраслях права. Пробелы различают по форме права в которой они обнаружены.
27555. Экономика и право 27 KB
  Право это система общеобязательных формально определенных норм исходящих от государства им охраняемых и регулирующих общественные отношения Социальные последствия соотношения экономики и права: 1 позитивные право способствует развитию экономики тогда когда оно соответствует естественноисторическому ходу развития общества объективным экономическим законам; 2 негативные право тормозит развитие экономики тогда когда оно противоречит объективным экономическим законам развития общества. Пределы государственноправового...
27556. Юридическая ответственность государства 30.5 KB
  Государство как субъект ответственности. Всякий раз когда государство становится участником какоголибо правоотношения оно может быть привлечено к ответственности за нарушение прав и охраняемых законом интересов другого участника этих отношений и наоборот. Это общее правило касающееся юридической ответственности. Однако говоря о государстве как субъекте ответственности нужно вести речь об ином об особых случаях внедоговорной ответственности государства за вред причиненный в определенных ситуациях.
27557. Юридическая техника. Понятие и основные приемы 31 KB
  Способы закрепления приёмов ЮТ: 1 НПА; 2 правовые обычаи; 3 научнометодические разработки. Юридическая технология это боле широкое понятие это основанная на определенных принципах планах прогнозах протекающих в определенно установленных процессуальных формах деятельность по созданию НПА и иных актов в ходе которой используются средства и способы ЮТ. 2 юридические способы пути достижения намеченных целей с помощью конкретных юр. способы структуризации; способы логического изложения; способы языкового изложения; способы...
27558. Юридическая типология: основные правовые системы современности 35.5 KB
  Юридическая типология права это его специфическая классификация. Основополагающим объектом юридической типологии выступает категория правовая система тесно связанная с такими исходными концептуальными понятиями как правовая карта мира исторический тип права семья правовых систем национальная правовая система. При этом понятие правовая система не синоним понятия система права так как последнее понятие институционное раскрывающее взаимосвязь соотношение и строение отраслей права что предопределяется факторами как...
27559. Юридические факты 30.5 KB
  Юридические факты конкретные жизненные обстоятельства события действия вызывающие в соответствии с нормами права наступление определенных правовых последствий возникновение изменение или прекращение правовых отношений. Юридические факты имеют ряд признаков: по своему содержанию это реальные жизненные обстоятельства явления; данные жизненные обстоятельства предусмотрены нормами права; они вызывают наступление определенных юридических последствий; юридический факт несет в себе информацию о состоянии общественных отношений; ...
27560. Позитивный и ретроспективный аспект юридической ответственности 27.5 KB
  Юридическая ответственность возникшее в результате лично совершенного правонарушения и предусмотренное юридической нормой политикоправовое состояние когда компетентный орган должностное лицо или гражданин на основе закона или в специальной форме требует от правонарушителя отчет в совершенном деянии возлагает на него определенную меру лишений а правонарушитель претерпевает неблагоприятные последствия нарушения юридической нормы. 1 Положительная позитивная ответственность одна из характеристик правомерного поведения. Все несут...