Компьютерные книги
Главное меню
Главная Поиск по сайту Добавить материал О нас Карта книг Карта сайта
Реклама
computersbooks.net -> Добавить материал -> Теория программирования -> Боровиков В. -> "STATISTICA. Искусство анализа данных на компьютере" -> 195

STATISTICA. Искусство анализа данных на компьютере - Боровиков В.

Боровиков В. STATISTICA. Искусство анализа данных на компьютере — Спб.: Питер, 2003. — 688 c.
Скачать (прямая ссылка): statistikaiskusstvoanalizadannih2003.djvu
Предыдущая << 1 .. 189 190 191 192 193 194 < 195 > 196 197 198 199 200 201 .. 204 >> Следующая


Dim r As Long *. As Long

n=1000

Создаем новуо таблиц результатов.

Dim s As New Spreadsheet

Задаем размеры таблицы: л - чмепо наблюдений 2 - число переменных.

s SetSize(n-2)

Заполняем таблицу случайными числами.

For 1-1 То п s Value{i.l)-RndU) s Valued 2)-RndNonival(l'

Next 1

Устанавливаем имена переменных.

s. VariaMeName(l)-"llnifonif s VarlableName(2)="Norma1" s Visible-True End Sub

Вывод индикатора состояния

Иногда в процессе длительных вычислений желательно отображать индикатор состояния, который показывает процент выполненных операций Индикатор состояния отображается в STATISTICA во время вычислении на больших объемах данных Приведем пример кода, реализующего индикатор состояния в программе, генерирующей нормально распределенные случайные числа"
Глава 1В- Язык STATISTICA Vuuml dmSIC (SVB^

Option Base 1 Sub Main

Dim n As Long л As Long rt-1000

' Создаем нов_у» таблицу результатов.

Din s As New Spreadsheet

¦ Задаем размеры таблицы: n - число наблюдений. 2 - число переменных ' Устанавливаем индикатор состояния.

Dim pb As ProgressBar

Set pb - AdtiProgressBarf"Generating randan mmbers" i ni For i-1 To n

1 Обновляем индикатор состояния.

pb.CurrentComter - i ' Заполняем таблицу cjij/чайнымн числами, s. valued. l)-Rnd(l) s Valued 2)-RndNormald)

Next i

' Закрываем индикатор состояния.

Set рЪ - Nothing ' Сохраняем имена переменных, s. VanableNameC 1 )-"Uni form" s VariableNarne(2)-"Normal” s Visible-True End Sub

1

Построение гистограммы с подгонкой нормального распределения

Следующий пример иллюстрирует построение гистограмм для выборки, сгенерированной ранее.

Option Base 1 Sub Main Dim n As Long n-1000

Dim s As New Spreadsheet Заполняем таблицу s случайными числами.

ComputeRandomNurbers s. n Строин гистограмму дпя s.

CreateHistograms s End Sub

Описание процедуры заполнения таблицы s случайными числами Sub ConputeRandomNunbers (s As Spreadsheet n As Long)

Dim 1 As Long ReDim x(n.2) As Double s SetSlze(n.Z)

For i-1 To n xd.l)-Rnd(l) xCi Z)-RndNormaKl)

Next 1
Примеры программ с комментариями

661

s Data-x

s VariaMeNameUJ-'ltnifornf s VariableNare(2);’"Normal"

End Sub

Описание процедуры построения гистограммы.

Sub CreateHistograms (s As Spreadsheet)

Задание и описание вила анализа.

Dim newanalysis As Analysis Set newanalysis - Analysis (sc2dHistograms. s)

¦ Описание параметре! гиетограими.

With newanalysis Dialog

Variables - "1 2 | ’

GraphType - scHistgoramRegularPlor End With

¦ Активация гистограммы (построение гистограиин).

newanalysis Dialog.Graphs visible - True

End Sub

Отметим, что в программе вызываются две процедуры: подготовка данных и построение гистограммы.

Гистограмма строится с использованием встроенных процедур STATISTICA. Раскраска таблицы

Option Base 1

¦Данный макрос выделяет ячейки рабочей таблицы

'¦рифтом Aria! Black с наклоном, размере* 12 и щеток (255.12.265).

‘где (x.y.z)- координаты цвета в (красной.зелено*.синеи" тонах.

¦Предполагается, что таблица содержит в ячейках числа, отличные от 0.

Sub Main
Глава 18. Язык STATISTICA VISUAL BASIC (SVB)

Выбираем активную таблицу Set i = Acti veSpreadsteet

цикл no переменный таблицы For л-l To s NunfcerQfVariables

'Цикл no наблюдения* таблицы For i-l To s NuntoerOfCases-1

'Условия выбора ячейки которую мы «зтив отметить If b.Value(i.j>/s Value(i+I j)>l Then

'Задание названия шрифта в данной ячейке 5 Cells(i.j) Font Name - "Anal Black"

'Задание разкера шрифта в данной ячейке s Cel15(1.j) Font.Size - 1Z

Задание наклона шрифта в данной ячейке s Cells(i»j) Font Italic - True

Задание цвета шрифта в данной ячейке s.Cellsd j) Font Color - RGB(255.1f Л5)

End If Next ’

Next j End Sub

Создание пользовательских диалогов

Нажмите левую верхнюю кнопку User Dialog, на экране появится окно User Dialog Editor. Это редактор пользовательских диалоговых окон, который позволяет вам визуально создавать необходимые диалоговые окна.

Например, работая только мышью, вы мгновенно создадите окно.

Последовательность ваших действий очень проста: с помощью мыши вы выбираете кнопку в левой части и перетаскиваете ее в нужное место справа в создаваемом диалоговом окне Итак, из типовых заготовок вы последовательно собираете нужное вам окно.

Просмотр объектов и функций_____________________________________________________663

Двойной щелчок левой мышью на кнопке позволяет редактировать свойства кнопки, вносить текст, менять положение и т.д.

Просмотр объектов и функций

Нажав на клавиатуре кнопку F2 или кнопку Object Browser, вы откроете окно, в котором можете просмотреть доступные вам объекты.
Предыдущая << 1 .. 189 190 191 192 193 194 < 195 > 196 197 198 199 200 201 .. 204 >> Следующая
Книги
Web-программирован-
ие
Аппаратное обеспечение Графика Руководство по П.О. Самоучитель Теория программирования Фотошоп Языки программирования
Новые книги
Вирт Н. "Систематическое программирование " (Теория программирования)

Эком "Microsoft Excel 2000 шаг за шагом Русская версия самоучитель " (Самоучитель)

Поляков А.Ю. "Методы и алгоритмы компьютерной графики в примерах Vizual C++" (Графика)

Баяковский Ю.М. "Графическая библиотека Open GL " (Графика)

Валиков А. "Технология " (Языки программирования)
Авторские права © 2013 ComputersBooks. Все права защищены.