Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10 | Следующая страница реферата

Do
' nashli = True

Range("Curcenter").Value = ((Range("curleft").Value) +
(Range("curright").Value)) / 2

If Abs(F(Range("Curcenter").Value)) > Range("toc").Value Then If
Sgn(F(Range("curleft").Value)) Sgn(F(Range("curcenter").Value)) Then
Range("curright").Value = Range("curcenter").Value Else:
Range("curleft").Value = Range("curcenter").Value

If Abs(F(Range("Curcenter").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)) 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)) 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

Рекомендуем скачать другие рефераты по теме: организация диплом, реферат диагностика.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10 | Следующая страница реферата