Создание программных продуктов для обработки экспериментальных данных. Идентификация параметров

Создание программных продуктов для обработки экспериментальных данных. Идентификация параметров

КУРСОВАЯ РАБОТА

Тема

Создание программных продуктов для обработки

экспериментальных данных. Идентификация параметров

Аннотация

В данной работе выполняется проверка расчетной зависимости на основании экспериментальной выборки. Также построены графические зависимости экспериментальных и расчетных значений от x для их сравнения.

Работа выполняется в средах Visual Basic, MathCAD и Excel.

Введение

Для выполнения данной курсовой работы были использованы следующие программные продукты:

VISUAL BASIC. Visual Basic - один из первых языков, поддерживающих событийно управляемое программирование.

Слово Basic (Визуальный) в рассматриваемой версии языка означает, что при создании программ многие операции выполняются визуальными средствами, т.е. без непосредственного написания кода.

Разработка программного интерфейса осуществляется на принципах объектно-ориентированного подхода, реализованного в VB применительно к приложениям, выполняемым под управлением Windows. Для таких приложений характерным является существование на экране в любой момент времени множества объектов: окон, кнопок, меню, текстовых и диалоговых окон и т.п. Для каждого объекта на экране существует ряд возможных событий. Каждое событие проявляется в определенных действиях (откликах программы). Эти действия можно разделить на две группы. Первая является следствием свойств объекта. Вторая группы действий (отклика) полностью определяется программистом.

Таким образом, VB предоставляет пользователю объектно ориентированную среду проектирования, основанную на событиях.

MATHCAD. MathCAD - автоматизированная система, позволяющая динамически обрабатывать данные в числовом и аналитическом (формульном) виде. ,Программа MathCAD сочетает в себе возможности проведения расчетов и подготовки форматированных научных и технических документов.

MathCAD -программное средство для решения разнообразных инженерно-технических и математических задач с помощью компьютера. MathCAD предоставляет пользователю инструменты для работы с формулами, числами, графиками и текстами. Основным достоинством этой технологии является то, что при решении задач главным становится математическое описание и алгоритмизация, а не программирование.

Название системы происходит от сочетания Mathematic и CAD (Computer Aided Design - компьютерный дизайн).. Табличный процессор Excel - это пакет программ, предназначенный для обработки данных, хранящихся в прямоугольных таблицах. Электронные таблицы используются в технических, научных и бухгалтерских расчетах для обработки табличных данных, связанных с постоянной корректировкой, пересчетом и выдачей на печать документации одинаковой формы. Электронные таблицы позволяют обрабатывать тексты , управлять базами данных.

1. Выполнение работы в среде Visual Basic

1.1 Эскиз экранной формы

1.2 Свойства объектов

1.3 Алгоритм

1.4 Программный код

x() As Single, y() As Single, yp() As Single, d() As Single, P() As SingleSub mnk(n As Integer, x() As Single, y() As Single, a0 As Single, a1 As Single)i As Integer, sx As Single, sy As Single, sx2 As Single, sxy As Single= 0: sy = 0: sx2 = 0: sxy = 0i = 1 To n= sx + 1 / x(i)= sy + y(i)= sx2 + 1 / (x(i) ^ 2)= sxy + y(i) / x(i)i= n * sx2 - sx ^ 2= (sy * sx2 - sxy * sx) / Z= (n * sxy - sx * sy) / ZSub

Sub Command1_Click()n As Integer, i As Integer, a0 As Single, a1 As Single, P() As SingleApp.Path + "\text1.txt" For Input As #1App.Path + "\text2.txt" For Input As #2= CSng(InputBox("n="))x(1 To n) As Single, y(1 To n) As Single, yp(1 To n) As Single, d(1 To n) As Single, P(0 To n) As Singlei = 1 To n#1, x(i)ii = 1 To n#2, y(i)i#1, #2i = 1 To nimnk(n, x(), y(), a0, a1)CStr(a0), 1, "a0"CStr(a1), 1, "a1"i = 1 To n(i) = a0 + a1 / x(i)(i) = Abs(yp(i) - y(i)) / Abs(y(i)).Rows = n + 1Gr= 0

Col = 0: .Text = "¹"

Col = 1: .Text = "X(i)"= 2: .Text = "y(i)"= 3: .Text = "yp(i)"= 4: .Text = "d(i)"With.Row = i.Col = 0: Gr.Text = CStr(i).Col = 1: Gr.Text = CStr(x(i)).Col = 2: Gr.Text = CStr(y(i)).Col = 3: Gr.Text = CStr(yp(i)).Col = 4: Gr.Text = CStr(d(i))i"D:\276\otvet.txt" For Output As #3#3,i = 1 To n#3, yp(i)i#3P(0 To n, 1 To 4)

StBar1.Panels(3).Text = "Òàáëèöà,Ãðàôèê"

For i = 1 To n(0, 1) = x(i)(0, 2) = y(i)(0, 3) = x(i)(0, 4) = yp(i)i.ChartData = PSubSub Command2_Click()Sub

Private Sub ×àñû1_Timer()

StBar1.Panels(1).Text = Date.Panels(2).Text = TimeSub

.txt

2 3 4 5 8 10

.txt

.6 2.3 2.2 2.08 2.12 2.1 2.0

экспериментальный выборка visual basic excel

1.5 Результаты

.txt

,603747

,289139

,184269

,131835

,100374

,053183

,037452

Выполнение работы в среде пакета MathCAD:

Обработка экспериментальных данных

Вычисление коэффициентов

Расчетное значение

Выполнение работы в среде Excel

Выводы

В ходе проделанной работы была выполнена проверка расчетной зависимости на основании экспериментальной выборки. Были построены графические зависимости экспериментальных и расчетных значений от x для их сравнения.

Программы VB, Excel и MathCAD показали одинаковые в пределах погрешности результаты.

Используемая литература

Г.Н. Вениаминова, В.Н. Чепикова, А.Г. Ананченко, В. А. Холоднов. Информатика. Учебное пособие.

Г.Н. Вениаминова, В.Н. Чепикова, В. А. Холоднов. Программные продукты Microsoft Office в химии и химической технологии. Использование дополнительных элементов управления в Visual Basic.