Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Генерация нормально роспределенных чисел Добавлено: 05.11.08 18:28  

Автор вопроса:  Наталя | ICQ: Nata-Lviv 
Как в VBA сгенерировать масив нормально-роспределенных чисел с указаной дисперсией и средним?

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #1 		Добавлено: 05.11.08 21:36
по-русски сначала писать научиться
  1.  
  2. Option Explicit
  3. Dim mean As Integer
  4. Dim stddev As Integer
  5. Sub main()
  6.     mean = 5
  7.     stddev = 2
  8.     Randomize
  9.     Dim i As Integer
  10.     Dim arr(9) As Integer
  11.     For i = 0 To 9
  12.         arr(i) = GetNumber
  13.     Next
  14.     Dim str As String
  15.     str = ""
  16.     For i = 0 To 9
  17.         str = str + CStr(arr(i)) + " "
  18.     Next
  19.     MsgBox str
  20. End Sub
  21. Function GetNumber() As Integer
  22.     Dim u1, s2 As Double
  23.     Dim x As Integer
  24.     Do
  25.         u1 = 2 * Rnd() - 1
  26.         s2 = u1 * u1 + (2 * Rnd() - 1) ^ 2
  27.     Loop Until (s2 < 1)
  28.     x = ((-2 * Log(s2) / s2) ^ (1 / 2)) * u1 * stddev + mean
  29.     GetNumber = x
  30. End Function

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам