Воскресенье, 23.02.2020, 08:22Приветствую Вас Гость | RSS
Что будем качать? •Рефераты •Дипломы •Курсовые
•Сочинения
Категории раздела
1C Бухгалтерия [12]
Авиация, Космонавтика [79]
Административное право [60]
Архитектура [102]
Астрономия [54]
Банковское дело [37]
Безопасность жизнедеятельности [349]
Биография [2108]
Биология [115]
Бухгалтерский учёт, Экономика, Финансы [292]
Бухгалтерское дело [175]
Военное дело [135]
География [118]
Геодезия, геология [110]
Журналистика [12]
Законодательство [70]
Иностранные языки [169]
Информатика [132]
Искусство, Культура [74]
История [341]
История экономики [71]
История экономических учений [161]
Конфликтология [18]
Концепции современного естествознания [53]
КСЕ [46]
Криминалистика [28]
Культурология [55]
Линейная алгебра [73]
Линейное программирование [7]
Литература и культура [158]
Логика [29]
Макроэкономика [43]
Математическая статистика [61]
Математический анализ [234]
Медицина [223]
Менеджмент и маркетинг [285]
Микроэкономика [39]
Мировая экономика [69]
Метрология [2]
Моделирование портфеля ценных бумаг [19]
ОБЖ [5]
Основы предпринимательства [44]
Отчеты по практике [4]
Педагогика и методика обучения [194]
Политология [100]
Правоведение [69]
Прикладные программы [21]
Программирование [76]
Производство [80]
Психология и педагогика [421]
Радиоэлектроника [166]
Региональная экономика [81]
Религия и мифология [35]
Русский язык [5]
Сельское хозяйство [40]
Социология [164]
Страхование [7]
Теория вероятностей [53]
Теория оптимального управления [3]
Техника [31]
Управление организацией [25]
Физика [60]
Физкультура и спорт [159]
Философия [254]
Финансовый анализ [80]
Финансы и кредит [222]
Химия [70]
Численные методы [8]
Экономика предприятия [41]
Экономическая география [69]
Экономическая теория [100]
Юриспруденция [354]
Экология [113]
Эконометрика [10]
Экономико-математическое моделирование [33]
Экономика [459]
Экономическая политика [23]
Этика [10]
Другие предметы [39]
Про Казахстан [211]
На казахском языке [57]
Разное [28]
Реклама...

Учебные материалы.. первая помощь в учебе...


Главная » Файлы » Рефераты » Прикладные программы

Работа с матрицами и обращение к Spreadsheet для чтения и записи STATISTICA Visual Basic
(Размер файла - 3.4 Kb) 21.08.2012, 18:05


'$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



Ключевые слова страницы: как, скачать, бесплатно, без, регистрации, смс, реферат, диплом, курсовая, сочинение, ЕГЭ, ГИА, ГДЗ
Категория: Прикладные программы | Добавил: -Smile-
Просмотров: 1081 | Загрузок: 93 | Рейтинг: 0.0/0
Найти работу...