вариант 1 Введем обозначения- хn xk ~ границы отрезка; h ~ шаг; х ~ точка; f ~ знач
Работа добавлена на сайт samzan.net:
Табулирование функции
Табулирование функции одной переменной
Постановка задачи. На отрезке [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
Табулирование функции двух переменных (вложенные циклы)
Постановка задачи. На интервале xn≤x≤xk с шагом Δх, для каждого у из интервала уn≤y≤yk с шагом Δу вычислить значение функции 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)
2. Тема 2. Правовое регулирование трудовых отношений в спорте
3. реферат дисертації на здобуття наукового ступеня доктора медичних наук Київ ~
4. Реферат на тему- ВерсальськоВашингтонська система
5. представительной монархии в России- а
6. і Философ ~рі экономист Аристотель айырбас а~шаны~ пайда болуы мен ат~аратын ~ызметін зерттейді
7. тема- Учетная политика организации принципы ее формирования и раскрытия выполнила студ
8. модуль; процедура; кнопка; форма
9. GRGE MSTERS 2013 Восьмерка 8Bll Цель игры Данная игра является заказной при это
10. 1415 Дефиле 142015
11. Марино и Швейцарии республик в Европе
12. Тепловые электрические станции Новочеркасск 2010 УДК 621
13. Напишіть заяву автобіографію резюме
14. Варианты реорганизации предприятий Внутренняя среда организации Зарубежный опыт государственного р
15. Реферат- Традиционные и новые способы краткосрочного финансирования
16. Акціонерне товариство
17. О реконструкции дославянских этнических границ на территории славии в связи с одной языковой чертой
18. Курсовая работа- Бухгалтерский учет финансовых вложений на предприятиях различных форм собственности
19. Статья- Детская ревность
20. Ключевое освещение баланс освещения их свойства и характеристики