1) :
.
.
2) , , , :
., 1405, 13.
3) :
-6-1
ε=10-5 f(x)=x3 - 2x2+x - 3=0,
4) :
. .
f(x)=3x2-4x+1 :
x ;
a ;
f f(x) ;
p f'(x) ;
i , ;
y f(x) .
, ε , ε, |x-a| < ε.
Kop(), x0=2.2 ε=10-5, xl. Function: Funy(), f(x), Fproiz() (x). , Kop() Function, .
5) , :
5.1) :
, . 4.6.4-1.
. 4.6.4-1. 1- 6-1:
x3-2x2+x-3=0
5.2) :
. 4.6.4-2 .
4.6.4-2
Form1 | Text | 4.6.1. |
Label1 | Name | Label1 |
Text | f(x)=x^3-2x^2+x-3=0 | |
ForeColor | ||
Font | Microsoft Sans Serif, , 10 | |
Label2 | Name | Label2 |
Text | E= | |
ForeColor | ||
Font | Microsoft Sans Serif, , 8 | |
Label3 | Name | Label3 |
Text | X0= | |
ForeColor | ||
Font | Microsoft Sans Serif, , 8 | |
Label4 | Name | Label4 |
Text | ||
ForeColor | ||
Font | Microsoft Sans Serif, , 8 | |
Label5 | Name | Label5 |
Text | ||
ForeColor | ||
Font | Microsoft Sans Serif, , 8 | |
Label6 | Name | Label6 |
Text | x= y= | |
ForeColor | ||
Font | Arial, , 12 | |
TextBox1 | Name | TextBox1 |
ForeColor | ||
Font | Microsoft Sans Serif, , 8 | |
TextBox2 | Name | TextBox2 |
ForeColor | ||
Font | Microsoft Sans Serif, , 8 | |
TextBox3 | Name | TextBox3 |
ForeColor | ||
Font | Microsoft Sans Serif, , 8 | |
TextBox4 | Name | TextBox4 |
ForeColor | ||
Font | Microsoft Sans Serif, , 8 | |
ListBox1 | Name | ListBox1 |
ForeColor | ||
Font | Microsoft Sans Serif, , 8 | |
ListBox2 | Name | ListBox2 |
ForeColor | ||
Font | Microsoft Sans Serif, , 8 | |
Button1 | Name | Button1 |
Text | ||
Button2 | Name | Button2 |
Text |
5.3) :
|
|
Kop() . 4.6.4-2.
. 4.6.4-2. Kop(x) 6-1: x3-2x2+x-3=0
5.4) :
. 4.6.4-3.
Imports System.Math Public Class Form1 ' TextBox Function vvod(ByVal T As TextBox) As Double Return Val(T.Text) End Function ' TextBox Sub vivod(ByVal Z As Double, ByVal T As TextBox) T.Text = CStr(Z) End Sub ' ListBox Sub vivodList(ByVal Z As Double, ByVal LB As ListBox) LB.Items.Add(CStr(Z)) End Sub ' ListBox Sub vivodListint(ByVal Z As Integer, ByVal LB As ListBox) LB.Items.Add(CStr(Z)) End Sub '-Function, Public Function FProiz(ByVal x As Double) As Double Dim p As Double p = 3 * x ^ 3 - 4 * x + 1 Return p End Function '-Function, Public Function Funy(ByVal x As Double) As Double Dim f As Double f = x ^ 3 - 2 * x ^ 2 + x - 3 Return f End Function ' Public Sub Kop(ByVal E As Double, ByVal x0 As Double, _ ByRef xe As Double) Dim x, a As Double Dim i As Integer i = 0 x = x0 Do a = x x = a - Funy(a) / FProiz(a) i = i + 1 vivodListint(i, ListBox1) vivodList(x, ListBox2) Loop Until Abs(x - a) < E xe = x End Sub Private Sub Button1_Click(sender As Object,e As EventArgs)_ Handles Button1.Click Dim EE, x0x0, xn, y As Double EE = vvod(TextBox1): x0x0 = vvod(TextBox2) Kop(EE, x0x0, xn) vivod(xn, TextBox3) y = Funy(xn) vivod(y, TextBox4) End Sub Private Sub Button2_Click(sender As Object,e As EventArgs)_ Handles Button2.Click End End Sub End Class |
. 4.6.4-3. 6-1:
x3-2x2+x-3=0
6) :
. 4.6.4-4.
. 4.6.4-4. 6-1:
x3-2x2+x-3=0
7) :
f(x) = 0.00012315320113. , f(2.17457839205816) = 0.00012315320113 .
|
|