НАХОЖДЕНИЕ ВСЕХ ДЕЙСТВИТЕЛЬНЫХ КОРНЕЙ АЛГЕБРАИЧЕСКОГО МНОГОЧЛЕНА МЕТОДОМ ДЕЛЕНИЯ ОТРЕЗКА ПОПОЛАМ (БИСЕКЦИИ) И МЕТОДОМ ХОРД И КАСАТЕЛЬНЫХ С УКАЗАННОЙ ТОЧНОСТЬЮ И УЧЕТОМ ВОЗМОЖНОЙ КРАТНОСТИ КОРНЕЙ - (курсовая)
p>If F1(Range("curleft"). Value) * F2(Range("curleft"). Value) > 0 Then Range("curleft"). Value = Range("curleft"). Value - ((Range("curright"). Value Range("curleft"). Value) * (F(Range("Curleft"). Value) / (F(Range("Curright"). Value - F(Range("Curleft"). Value)))))Range("Curright"). Value = Range("curright"). Value - F(Range("curright"). Value) / F1(Range("curright"). Value)
End If
If F1(Range("curleft"). Value) * F2(Range("curleft"). Value) < 0 Then Range("curright"). Value = Range("curleft"). Value - ((Range("curright"). Value Range("curleft"). Value) * (F(Range("Curleft"). Value) / (F(Range("Curright"). Value - F(Range("Curleft"). Value)))))
Range("Curleft"). Value = Range("curright"). Value - F(Range("curright"). Value) / F1(Range("curright"). Value)
End If
If Abs(Abs(F(Range("Curright"). Value))) - Abs(F(Range("Curleft"). Value))
'MsgBox (Range("curleft"). Value)
ListBox1. AddItem (Range("Curright"). Value)
'If ((Range("Curleft"). Value) + (Range("Curright"). Value)) > 0 Then ListBox1. AddItem (((Range("Curleft"). Value) + (Range("Curright"). Value)) / 2) 'If ((Range("Curleft"). Value) + (Range("Curright"). Value)) < 0 Then ListBox1. AddItem (((Range("Curleft"). Value) + (Range("Curright"). Value)) / 2) Range("Koren"). Value = Range("Curleft"). Value
End If
Loop Until Abs(F(Range("Curright"). Value)) - Abs(F(Range("Curleft"). Value))
End If
Loop Until Range("Stepleft"). Value > Range("right"). Value Or nashli = True End Sub
Sub MoveLe()
Range("stepleft"). Value = Range("stepleft"). Value + 0. 333
Range("curLeft"). Value = Range("stepleft"). Value
Range("Curright"). Value = Range("Curleft"). Value + 0. 333
Range("Curcenter"). Value = ((Range("curleft"). Value) + (Range("curright"). Value)) / 2
End Sub
Private Sub CommandButton3_Click()
Horda_Kas
End Sub
Private Sub UserForm_Deactivate()
ListBox1. Clear
TextBox1. Value = 0
End Sub
Sub Perenos()
Range("a1"). Value = Range("L1"). Value
Range("a2"). Value = Range("L2"). Value
Range("a3"). Value = Range("L3"). Value
Range("a4"). Value = Range("L4"). Value
Range("a5"). Value = Range("L5"). Value
Range("a6"). Value = Range("L6"). Value
Range("a7"). Value = Range("L7"). Value
Range("a8"). Value = Range("L8"). Value
Range("a9"). Value = Range("L9"). Value
Range("a10"). Value = Range("L10"). Value
Range("a11"). Value = Range("L11"). Value
Range("a12"). Value = Range("L12"). Value
Range("a13"). Value = Range("L13"). Value
Range("a14"). Value = Range("L14"). Value
Range("a15"). Value = Range("L15"). Value
Range("a16"). Value = Range("L16"). Value
Range("a17"). Value = Range("L17"). Value
Range("a18"). Value = Range("L18"). Value
Range("a19"). Value = Range("L19"). Value
End Sub
FORM_MAIN
Private Sub CommandButton1_Click()
Form_Koeff. Show
End Sub
Private Sub CommandButton2_Click()
Form_Mnogo. Show
End Sub
Private Sub CommandButton3_Click()
Gra
Form_Main. Height = 84
Sheets("D1"). Select
Form_WP. Show
Form_Main. Height = 360
Sheets("Лист1"). Select
End Sub
Private Sub CommandButton4_Click()
Form_Korni. Show
End Sub
Private Sub CommandButton5_Click()
Application. Quit
End Sub
Private Sub CommandButton7_Click()
Form_About. Show
End Sub
Private Sub CommandButton8_Click()
ActiveWorkbook. Save
End Sub
Private Sub UserForm_initialize()
Sheets("Лист1"). Select
Form_Main. Height = 360
End Sub
FORM_MNOGO
Dim mn As String
Private Sub CommandButton1_Click()
Form_Mnogo. Hide
End Sub
Private Sub UserForm_activate()
mn = "F(x)="
If Range("a20") > 0 Then mn = mn + Range("a20"). Text + "X^20" If Range("a20") < 0 Then mn = mn + Range("a20"). Text + "X^20"
If Range("a19") > 0 Then mn = mn + " + " + Range("a19"). Text + "X^19" If Range("a19") < 0 Then mn = mn + Range("a19"). Text + "X^19"
If Range("a18") > 0 Then mn = mn + " + " + Range("a18"). Text + "X^18" If Range("a18") < 0 Then mn = mn + Range("a18"). Text + "X^18"
If Range("a17") > 0 Then mn = mn + " + " + Range("a17"). Text + "X^17" If Range("a17") < 0 Then mn = mn + Range("a17"). Text + "X^17"
If Range("a16") > 0 Then mn = mn + " + " + Range("a16"). Text + "X^16" If Range("a16") < 0 Then mn = mn + Range("a16"). Text + "X^16"
If Range("a15") > 0 Then mn = mn + " + " + Range("a15"). Text + "X^15" If Range("a15") < 0 Then mn = mn + Range("a15"). Text + "X^15"
If Range("a14") > 0 Then mn = mn + " + " + Range("a14"). Text + "X^14" If Range("a14") < 0 Then mn = mn + Range("a14"). Text + "X^14"
If Range("a13") > 0 Then mn = mn + " + " + Range("a13"). Text + "X^13" If Range("a13") < 0 Then mn = mn + Range("a13"). Text + "X^13"
If Range("a12") > 0 Then mn = mn + " + " + Range("a12"). Text + "X^12" If Range("a12") < 0 Then mn = mn + Range("a12"). Text + "X^12"
If Range("a11") > 0 Then mn = mn + " + " + Range("a11"). Text + "X^11" If Range("a11") < 0 Then mn = mn + Range("a11"). Text + "X^11"
If Range("a10") > 0 Then mn = mn + " + " + Range("a10"). Text + "X^10" If Range("a10") < 0 Then mn = mn + Range("a10"). Text + "X^10"
If Range("a9") > 0 Then mn = mn + " + " + Range("a9"). Text + "X^9" If Range("a9") < 0 Then mn = mn + Range("a9"). Text + "X^9"
If Range("a8") > 0 Then mn = mn + " + " + Range("a8"). Text + "X^8" If Range("a8") < 0 Then mn = mn + Range("a8"). Text + "X^8"
If Range("a7") > 0 Then mn = mn + " + " + Range("a7"). Text + "X^7" If Range("a7") < 0 Then mn = mn + Range("a7"). Text + "X^7"
If Range("a6") > 0 Then mn = mn + " + " + Range("a6"). Text + "X^6" If Range("a6") < 0 Then mn = mn + Range("a6"). Text + "X^6"
If Range("a5") > 0 Then mn = mn + " + " + Range("a5"). Text + "X^5" If Range("a5") < 0 Then mn = mn + Range("a5"). Text + "X^5"
If Range("a4") > 0 Then mn = mn + " + " + Range("a4"). Text + "X^4" If Range("a4") < 0 Then mn = mn + Range("a4"). Text + "X^4"
If Range("a3") > 0 Then mn = mn + " + " + Range("a3"). Text + "X^3" If Range("a3") < 0 Then mn = mn + Range("a3"). Text + "X^3"
If Range("a2") > 0 Then mn = mn + " + " + Range("a2"). Text + "X^2" If Range("a2") < 0 Then mn = mn + Range("a2"). Text + "X^2"
If Range("a1") > 0 Then mn = mn + " + " + Range("a1"). Text + "X" If Range("a1") < 0 Then mn = mn + Range("a8"). Text + "X"
If Range("a21") > 0 Then mn = mn + " + " + Range("a21"). Text If Range("a21") < 0 Then mn = mn + Range("a21"). Text
TextBox1. Value = mn
End Sub
FORM_WP
Private Sub Label1_Click()
Call Gra
End Sub
Private Sub CommandButton1_Click()
Sheets("D1"). Print
End Sub
Private Sub CommandButton2_Click()
Form_WP. Hide
Call Gra
End Sub
Private Sub UserForm_Click()
Form_WP. Hide
End Sub
____________________________
VoID InVaSiON HG ©
VI Function 2. 0 beta
