АльфаОмега

база знаний!

Приветствую Вас, Гость | 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]

Работа с матрицами и обращение к Spreadsheet для чтения и записи STATISTICA Visual Basic



(3.4 Kb), 23.01.2012, 22:59

'$include: "*STB.svx"' Библиотека обязательна

Option Base 1

'Перед запуском программы следует открыть Spreadsheet нужного размера (здесь 100*6)

 

Sub Main

'Обращение к Spreadsheet для чтения и записи

Dim x(0 To 200) As Double

Dim y(0 To 200) As Double

Dim q As Double

Dim r As Double

Dim a1 As Double

Dim a2 As Double

Dim a3 As Double

Dim a4 As Double

Dim A (1 To 100,1 To 4) As Double

Dim B (1 To 100,1 To 8) As Double

Dim i As Integer

Dim ResText As String

x(0)=1

y(0)=3

r=0

q=0.05 'Теперь что-либо сосчитаем.

For j=1 To 100

  For i=0 To 199

  a1=1-10/(j)

  a2=1-20/(j)

  a3=3-10/(j)

  a1=4-10/(j)

  x(i+1)=x(i)+(a1*x(i)+a2*y(i))*q

  y(i+1)=y(i)+(a3*x(i)+a4*y(i))*q

  Next i

Application.ActiveSpreadsheet.Cells(j,5)=x(2*j)' Заполним 5 и 6 столбцы Spreadsheet

Application.ActiveSpreadsheet.Cells(j,6)=y(2*j) 'посчитанными величинами.

MatrixFill(x(j),B,j,3,1,2) 'Заполним матрицу В.

MatrixFill(x(j)-y(j),B,j,1,1,1)

r=r+B(j,1)

Next j

a1=Application.ActiveSpreadsheet.Cells(1,5) ' Читаем из Spreadsheet.

a2=Application.ActiveSpreadsheet.Cells(1,6)

a3=Application.ActiveSpreadsheet.Cells(100,5)

a4=Application.ActiveSpreadsheet.Cells(100,6)

ResTest="r="+Str(r)+";"+"B(1,5)="+Str(a1)+";"+"B(1,6)="+Str(a2)+";"+"B(100,5)="+Str(a3)+";"+"B(100,6)="+Str(a4)

MatrixDisplay(B,"Pешение B")

MsgBox ResTest

End Sub




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

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