16341

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

Лекция

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

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

Русский

2013-06-20

54 KB

63 чел.

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

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

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


 

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

10155. Научная картина мира как форма систематизации научного знания, ее виды и функции. 82.5 KB
  Научная картина мира как форма систематизации научного знания ее виды и функции. Как особый структурный феномен не входящий полностью в теоретическое знание в настоящее время выделяется еще научная картина мира. НКМ – целостная система представлений об общих ...
10156. Научные революции и типы научной рациональности 62.5 KB
  Научные революции и типы научной рациональности. Типология традиций и новаций в науке. Глобальные научные революции. Изменение научной рациональности. В предыдущей лекции речь шла о соотношении традиций и новаций в развитии науки. Выделим теперь типы...
10157. Глобальные научные революции в истории культуры. Классическая, неклассическая и постнеклассическая наука: временные рамки и специфика 49 KB
  Глобальные научные революции в истории культуры. Классическая неклассическая и постнеклассическая наука: временные рамки и специфика. В истории европейской науки традиционно принято выделять две глобальные научные революции, более дискуссионными являются вопро
10158. Этика науки и проблема социальной ответственности ученого и проектировщика. Формы реализации ответственности ученых за использование достижений науки 44 KB
  Этика науки и проблема социальной ответственности ученого и проектировщика. Формы реализации ответственности ученых за использование достижений науки. Проблема этической размерности научной деятельности и технического творчества обозначилась в ХХ в.: достаточ...
10159. Различие внутренней и внешней этики науки. Этические нормы в профессиональной работе ученого, проектировщика 43 KB
  Различие внутренней и внешней этики науки. Этические нормы в профессиональной работе ученого проектировщика С т.з. адресата этика науки и техники подразделяется на внешнюю по отношению к обществу в целом и внутреннюю но отношению к коллегам в рамках совместного тр
10160. Предмет философии техники. Специфика философского изучения техники 71.5 KB
  Предмет философии техники. Специфика философского изучения техники ФТ это конкретная философская дисциплина так же как ФН ФР этика эстетика логика. Т.е. достаточно самостоятельная область исследования. Философия техники во-первых исследует феномен техники в цел...
10161. Предпосылки и этапы формирования философии техники 33.5 KB
  Предпосылки и этапы формирования философии техники. История техники это объективная предпосылка человеческой деятельности. Есть несколько концепций исторического развития техники. В классическом марксистском видении ее история выражена цепочкой последовательн...
10162. Определение техники как философская проблема. Основные способы определения техники 47 KB
  Определение техники как философская проблема. Основные способы определения техники. Отсутствие должной степени разработки философских аспектов техники во многом вызвано тем обстоятельством что техника как объект исследования со стороны философии представляет с...
10163. Специфика технического отношения к миру и технического типа мышления 36 KB
  Специфика технического отношения к миру и технического типа мышления. В имеющихся определениях техники обнаруживается существенно общий смысловой срез: по отношению к человеку техника является вопервых воплощением его деятельности и вовторых таким вопло...