Информатика. Индришенок В.И - 32 стр.

UptoLike

ВУЗ: 

МИРЭА | Москва

Составители: 

Рубрика: 

-32-
Пример: Вычисление определенного интеграла методом Монте-Карло:
Private Sub Com_Monte_Int_Click()
Dim x1, x2, ff, xx, sf, MonteInt As Double
MonteInt = 0
Int_List.Clear
For i = 0 To num
x1 = A + i * d
x2 = x1 + d
sf = 0
For j = 1 To 1000
Randomize
xx = x1 + Rnd(i) * d
ff = xfunc(xx)
sf = sf + ff
Next j
sf = sf / 1000
sf = sf * d
MonteInt = MonteInt + sf
Int_List.AddItem (Str(x1 + d / 2) + " " +
Str(MonteInt))
Next i
End Sub
БИБЛИОГРАФИЧЕСКИЙ СПИСОК
1. Индришенок В.И., Певцов Е.Ф., Русанов К.Е. Информатика:
Практикум по программированию: Основы программирования
на VISUAL BASIC 6.0 // Методические указания по выполне-
нию лабораторных работ. Московский государственный ин-
ститут радиотехники, электроники и автоматики (Технический
Университет). М.: 2001, 32 с.
2.
Глушаков С.В., Мельников И.В., Сурядный А.С. Программи-
рование в среде Windows: Учебный курс / Харьков: Фолио;
Ростов-н/Д: Феникс; Киев: Абрис, 2000. – 487 с.
3.
Волченков Н.Г. Программирование на Visual Basic 6: В 3-х ч.
М.: ИНФРА-М, 2000.
4.
Стивенс Р. Тестирование и отладка программ на Visual Basic:
Пер. с англ. – М.: ДМК Пресс, 2001. – 384 с.
5.
Ракитин В.И., Первушин В.Е. Практическое руководство по
методам вычислений с приложением программ для персональ-
ных компьютеров: Учеб. пособие. – М.: Высш. шк., 1998. –
383с. 
                               -32-

Пример: Вычисление определенного интеграла методом Монте-Карло:
Private Sub Com_Monte_Int_Click()
Dim x1, x2, ff, xx, sf, MonteInt As Double
MonteInt = 0
Int_List.Clear
For i = 0 To num
x1 = A + i * d
x2 = x1 + d
sf = 0
For j = 1 To 1000
Randomize
xx = x1 + Rnd(i) * d
ff = xfunc(xx)
sf = sf + ff
Next j
sf = sf / 1000
sf = sf * d
MonteInt = MonteInt + sf
Int_List.AddItem (Str(x1 + d / 2) +                    "   "   +
Str(MonteInt))
Next i
End Sub
                    БИБЛИОГРАФИЧЕСКИЙ СПИСОК
1.   Индришенок В.И., Певцов Е.Ф., Русанов К.Е. Информатика:
     Практикум по программированию: Основы программирования
     на VISUAL BASIC 6.0 // Методические указания по выполне-
     нию лабораторных работ. Московский государственный ин-
     ститут радиотехники, электроники и автоматики (Технический
     Университет). М.: 2001, 32 с.
2.   Глушаков С.В., Мельников И.В., Сурядный А.С. Программи-
     рование в среде Windows: Учебный курс / Харьков: Фолио;
     Ростов-н/Д: Феникс; Киев: Абрис, 2000. – 487 с.
3.   Волченков Н.Г. Программирование на Visual Basic 6: В 3-х ч.
     М.: ИНФРА-М, 2000.
4.   Стивенс Р. Тестирование и отладка программ на Visual Basic:
     Пер. с англ. – М.: ДМК Пресс, 2001. – 384 с.
5.   Ракитин В.И., Первушин В.Е. Практическое руководство по
     методам вычислений с приложением программ для персональ-
     ных компьютеров: Учеб. пособие. – М.: Высш. шк., 1998. –
     383с.

Страницы