АльфаОмега

база знаний!

Приветствую Вас, Гость | RSS
Форма входа
Логин:
Пароль:
...


1с бухгалтерия [12]Английский язык [6]
Банковское дело [22]Безопасность жизнедеятельности [12]
Биология [7]Бухгалтерское дело [166]
Бухгалтерский учет [129]Информатика [91]
Инновационный менеджмент [12]История экономики [80]
История экономических учений [162]Концепции современного естествознания [54]
Конфликтология [18]Культурология [45]
Линейная алгебра [72]Линейное программирование [7]
Макроэкономика [43]Маркетинг и реклама [68]
Математическая статистика [21]Математический анализ [50]
Менеджмент [141]Микроэкономика [39]
Мировая экономика [85]Моделирование портфеля ценных бумаг [19]
Основы предпринимательства [44]Отечественная история [39]
Политология [27]Правоведение [74]
Прикладные программы [21]Психология и педагогика [159]
Региональная экономика [81]Социология [58]
Теория вероятностей [53]Теория оптимального управления [3]
Управление организацией [35]Физическая культура [42]
Философия [157]Финансовый анализ [99]
Финансы и кредит [236]Численные методы [8]
Эконометрика [15]Экономика предприятия [70]
Экономико математическое моделирование [48]Экономическая география [69]
Экономическая теория [99]Экономическая политика [23]
Юриспруденция [20]Другие предметы [39]

Генераторы случайных чисел STATISTICA Visual Basic



(3.0 Kb), 23.01.2012, 23:01

Option Base 1

Sub Main

Dim x (1 To 10) As Double

Dim y (1 To 10) As Double

Dim z (1 To 10) As Double

Dim i As Integer

For i =1 To 10

x(i)=RndNormal(0.3)

y(i)=Round((RndNormal(1)+8)*10)

z(i)=Round(Rnd(150)*100)

Application.ActiveSpreadsheet.Cells(i,2)=x(i)

Application.ActiveSpreadsheet.Cells(i,3)=y(i)

Application.ActiveSpreadsheet.Cells(i,5)=z(i)

Application.ActiveSpreadsheet.Cells(i,7)=NGen(-8,2)

Application.ActiveSpreadsheet.Cells(i,9)=PGen(200)

Application.ActiveSpreadsheet.Cells(i,4)=Rnd

Application.ActiveSpreadsheet.Cells(i,6)=RGen(5,7)

Next i

End Sub

Function NGen (um As Double, ud As Double) As Double 'Генератор N(um,ud).

NGen=RndNormal(ud)+um

End Function

Function PGen (um As Double) As Double 'Генератор Пуассона

PGen=RndPoisson(um)

End Function

Function RGen (a As Double, b As Double) As Double 'Генераторо равномерного распределения на[a,b].

RGen=Rnd*(b-a)+a

End Function




Похожие материалы
Язык программирования
Уровни языков программирования
Поколения языков программирования
Объектно-ориентированное программирование (ООП)
Теоретические основы информатики. Информатика как наука

Категория: Прикладные программы | Добавил: alfa2omega
Просмотров:1414 | Загрузок: 166 | Рейтинг: 0.0/0
  
Всего комментариев: 0
 
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Меню сайта
ПОДЕЛИТЬСЯ
...