Читать методичка по Отсутствует: "Численные методы в визуальном программировании" Страница 2

(Назад) (Cкачать работу)

Text2.Text = ‘ ‘

Text3.Text = ‘ ‘.Text = ‘ ‘.Text = ‘ ‘1.Caption = ‘Введите значение A‘

Label2.Caption = ‘Введите значение B‘

Label3.Caption = ‘Введите значение E‘

Label4.Caption = ‘Вывод значения xn‘

Label5.Caption = ‘Вывод значения yn‘ Заготовку формы для примера 1-1 с измененными свойствами смотрите на рис. 2.3.

. Для создания программного кода в проводнике проекта или в меню View выбрать команду Code.

В окне Project1 - Form1 (Code) выбрать в списке General название кнопки 1 и кликнуть по ней. В результате появится заготовка записи программного кода для Command1 с инициированием для нее события Click. Значения A, B, E пользователь должен ввести в окна Text1, Text2, Text3. Но в текстовом окне данные получаются также текстовые, типа Single. Поэтому используем функцию Val( ) для перевода в числовой тип Single, который объявлен для переменных A, B, E в начале программы в операторе Dim. Для вывода значений xn, yn используется функция Round( ), которая округляет количество знаков после запятой до четырёх.

. Аналогичные действия выполняем в отношении кнопки 2. Для Command2 будет выполняться одно действие - закрыть приложение. Это выполняет команда End.

Рис. 2.3. Заготовка формы для примера 1-1 с измененными свойствами.

Программный код для примера нахождения корней уравнения методом деления отрезка пополам будет иметь вид:

Private Sub Command1_Click()

Rem Лабораторная работа 1-1, вариант 13

A=0, B=1, E=0.001A, B, E, YA, YB, xn, yn As Single

A = Val(Text1.Text)= Val(Text2.Text)= Val(Text3.Text)= fnf(A / 1): YB = fnf(B / 1)YA * YB > 0 Then GoTo 1"xn", "yn"

xn = (A + B) / 2: yn = fnf(xn / 1)xn, ynYA * yn < 0 then b = xn else a = xn(b - a) > E Then GoTo 2.Text = Round(xn, 4).Text = Round(vn, 4)SubSub Command2_Click()

End Sub . Для сохранения проекта надо выполнить команду меню File (файл) → Save Project As (Сохранить проект как). В диалоговом окне Save File As (Сохранить файл как) выбрать название диска, на котором должна быть создана папка для хранения файлов нового проекта. Далее для сохранения формы, следует набрать имя файла в поле ввода File Name (Имя файла), например Primer1-1, и нажать клавишу «Enter». Форма Form1 будет сохранена в файле с расширением Primer1-1.frm.

. После сохранения формы следует сохранить проект. В VISUAL BASIC это происходит автоматически, после чего должно появиться диалоговое окно Save Project As -Сохранить проект. Следует набрать то же имя Primer1-2 и нажать клавишу «Enter». Файл проекта будет сохранен с расширением Primer1-1.vbp.

. Теперь запустить проект на выполнение. Выбираем команду Run → Start или Shift+F5. В поле Text1 нужно ввести значение A, в поле Text2 - значение B, в поле Text3 - значение E - после чего нажать кнопку «Старт». В окнах Text4, Text5 появились значения xn, yn. Для завершения работы приложения следует нажать кнопку «Финиш». 1.2 Метод Ньютона (метод касательных)

численный метод линейный программирование

Пример: Решить уравнение F(x)=x3+x-1=0 на отрезке [0;1] методом Ньютона c точностью e=0.01.

Решение:

На рис. 1.5 приведена программа решения данного уравнения методом Ньютона.

CLSLR-1-2, m=13, n=5FNF(X)=X^3+X-1FNP(X)=3*X+1X, E

X=X- FNF(X)/FNP(X)X, FNF(X)ABS(FNF(X)/FNP(X))>E THEN 1

END

Рис. 1.5. Программа нахождения корней методом Ньютона. 1.3 Метод простой итерации Пример: Решить уравнение F(x)=x3+x-1=0 на отрезке [0;1] методом простой итерации c точностью e=0.01.

Похожие работы