![]() |
|
сделать стартовой | добавить в избранное |
![]() |
Компьютеры, Программирование
Компьютерные сети
Создание программных продуктов для решения задач |
Санкт-Петербургский государственный технологический институт ( Технический университет) Кафедра Математического моделирования и оптимизации химико-технологических процессов Факультет 5 Курс I Группа 517Дисциплина: информатика. КУРСОВАЯ РАБОТА Тема: Создание программных продуктов для решения задач.Студент: Хохленко Сергей Дмитриевич Научный руководитель: Гайков Андрей Владимирович Санкт-Петербург 2002 СодержаниеВведение 3 Задание на работу .4 Описание метода .5 Алгоритм построения решения задачи . 6 Глава I .7 Проект. Рабочая форма Visual Basic 8 Программный код .9 Свойства объектов 10 Рабочая форма с данными 11 Глава II .12 Решение в Ma hCad’е 13 Графики №1 и .14 Глава .15 Решение задачи в .16 Графики .17 .18 .19 Аннотация В данной курсовой работе рассмотрен Метод наименьших квадратов, позволяющий вести расчеты в различных физико-химических задачах. Главными законами, необходимыми для решения поставленной задачи, являются: Закон Ньютона и Закон Стефана-Больцмана. Работа выполнена в трех программных средах: Visual Basic, Excel и Ma h-Cad. Программный код, написанный на языке программирования Visual Basic, читается с легкостью и прост в понимании. Построенные графики позволяют выбрать наиболее подходящий закон для расчета скорости охлаждения. Введение Современное программирование развивается и широко используется для решения таких задач, как программирование баз данных, реализация обмена между приложениями, использование сетевых технологий и т.д.; современ-ные системы программирования обеспечивают генерацию кода. Большинство компьютеров в рамках всего мира работают под управлением операционной системы Wi dows корпорации Microsof . Каждый пользователь хотя бы раз в жизни работал с приложениями Word, Excel или Access. Практические задачи иногда требуют обмена данными между прило-жениями; пусть, например, имеется база данных, нужно сделать запрос к ней, а затем – математическую обработку результатов запроса, которую, можно выполнить только с использованием Excel; здесь следует передать резуль-таты запроса в приложение Excel и для этого нужно использовать язык про-граммирования. Базовым языком программирования корпорации Microsof является Visual Basic. Современные его версии позволяют, и реализовать в программе SQL- запрос к базе данных и выполнить вышеупомянутую передачу данных. Особенность языка Visual Basic заключается в репликации и синхронизации баз данных. Курсовая работа включает в себя три различных варианта ввода данных значений: автоматический (наиболее простой) и два ручных: открытие файла и самостоятельный ввод каждого отдельного числа (значения). Кроме этого, работа включает в себя универсальный инженерный калькулятор, необходи-мый для каких либо вычислений. Построенные графики зависимостей в про-граммах позволяют выбрать наиболее приемлемый закон, а также сам язык программирования. Задание №7 Закон Ньютона имеет вид: V=AQ (1) где V- скорость охлаждения, а Q- избыток температуры. По данным наблюдений, представляемым в таблице: № Опыта V(I) Q(I) V(I) расч. V(I) 1 8.81 220 2 7.40 200 3 6.10 180 4 4.89 160 5 3.88 140 6 3.0
2 120 7 2.30 100 Найти значения коэффициента A; скорость охлаждения, вычисляемую по формуле (1); относительную погрешность. (2) Для вычисления коэффициента A необходимо решить систему уравнений: (4) Если максимальная относительная погрешность (2) окажется больше 5%, проверить, согласуется ли с данными опыта закон Стефана: V=k((Q 273)^4- 273^4) (5).Обозначив Z=k((Q 273)^4-273^4), где k=5,67 10^(-9), подобрать коэффи-циент A, скорость охлаждения, относительную погрешность, решить сле-дующую систему уравнений: V=AZ (6) План решения задачи 1. Составить алгоритм и программу вычисления коэффициента А, V(I) расчетного и относительную погрешность. 2. Вычисление А оформить в виде подпрограммы общего вида. 3. Напечатать таблицы. 4. Построить графики зависимостей V(I) расчетного и V(I) от Q(I). 5. Выбрать закон, по которому расчетные значения V(I) расчетные лучше согласуются с данными опыта. Проект. Рабочая форма Visual Basic: Программный код в среде Visual Basic:Op io Explici Dim I As I eger Dim a(7) As Si gle‘ВВОД ЭЛЕМЕНТОВ МАССИВОВ Priva e Sub Комманда1 Click() Dim V(7) As Si gle, Q(7) As Si gle MSFlexGrid1. ex Ma rix(0, 0) = “№ Опыта” MSFlexGrid1. ex Ma rix(0, 1) = “ V(I) “ MSFlexGrid1. ex Ma rix(0, 2) = “ Q(I) “ MSFlexGrid1. ex Ma rix(0, 3) = “ V(I)расч.” MSFlexGrid1. ex Ma rix(0, 4) = “V(I), %” For I = 1 o 7 MSFlexGrid1. ex Ma rix(I, 0) = I ex I 'АВТОМАТИЧЕСКИЙ ВВОД If Проверка1.Value = 1 he Ope “A:Данные. x ” For I pu As #1 For I = 1 o 7 I pu #1, V(I), Q(I) MSFlexGrid1. ex Ma rix(I, 1) = V(I) MSFlexGrid1. ex Ma rix(I, 2) = Q(I) ex I Close #1 E d If ‘ВВОД ЭЛЕМЕНТОВ МАССИВОВ ВРУЧНУЮ If Проверка1.Value = 0 he For I = 1 o 7 MSFlexGrid1. ex Ma rix(I, 1) = I pu Box(“ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА V(I)”) ex I For I = 1 o 7 MSFlexGrid1. ex Ma rix(I, 2) = I pu Box(“ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА Q(I)”) ex I E d If E d Sub'РЕШЕНИЕ A=V/Q, НАХОЖДЕНИЕ MI (MAX),СУММЫ ЭЛЕМЕНТОВ МАССИВОВ Priva e Sub Комманда2 Click() Список1.Clear For I = 1 o 7 Список1.AddI em (CCur(MSFlexGrid1. ex Ma rix(I, 1) / MSFlexGrid1. ex Ma rix(I, 2))) ex I Dim Summ As Si gle Summ = 0 For I = 1 o 7 Summ = Summ MSFlexGrid1. ex Ma rix(I, 1) ex I Текст1. ex = CS g(Summ) Dim Summa As Si gle For I = 1 o 7 Summa = Summa MSFlexGrid1. ex Ma rix(I, 2) ex I Текст2. ex = CS g(Summa) ‘РАСЧЕТ КОЭФФИЦИЕНТА “А” Dim a As Si gle a = Текст1. ex / Текст2. ex Текст3. ex = CS g(a) E d Sub‘V(I)РАСЧЕТНАЯ Priva e Sub Комманда3 Click() For I = 1 o 7 MSFlexGrid1. ex Ma rix(I, 3) = Текст3. ex MSFlexGrid1. ex Ma rix(I, 2) ex I E d Sub‘ПОГРЕШНОСТЬ Priva e Sub Комманда4 Click() For I = 1 o 7 MSFlexGrid1. ex Ma rix(I, 4) = Ccur(Sqr((((MSFlexGrid1. ex Ma rix(I, 3) – MSFlexGrid1. ex Ma rix(I, 1)) / MSFlexGrid1. ex Ma rix(I, 1)) 100) ^ 2)) ex I ‘СОРТИРОВКА Dim mi As Si gle Dim max As Si gle mi = MSFlexGrid1. ex Ma rix(7, 4) ‘НАХОЖДЕНИЕ MI For I = 1 o 7 If MSFlexGrid1. ex Ma rix(I, 4) < mi he mi = MSFlexGrid1. ex Ma rix(I, 4) ex I Текст4. ex = CS g(mi ) max = MSFlexGrid1. ex Ma rix(1, 4) ‘НАХОЖДЕНИЕ MAX For I = 1 o 7 If MSFlexGrid1. ex Ma rix(I, 4) > max he max = MSFlexGrid1. ex Ma rix(I, 4) ex I Текст6. ex = CS g(max) E d SubPriva e Sub Комманда5 Click() 'ЗАКОН СТЕФАНА-БОЛЬЦМАНА 'V=k Q^4, где k-постоянная Стефана-Больцмана: k = 5.6
7 10 ^ -8 Dim z(7) As Si gle, V(7) As Si gle For I = 1 o 7 z(I) = 0.0000000567 ((MSFlexGrid1. ex Ma rix(I, 2) 273) ^ 4 – 273 ^ 4) ‘V=AZ V(I) = 0.1 Текст3. ex z(I) 'ВЫВОД СКОРОСТИ ОХЛАЖДЕНИЯ Список2.AddI em (Ccur(V(I))) ex I E d SubPriva e Sub Комманда6 Click() E d E d Sub Priva e Sub Comma d7 Click() Dim V(7) As Si gle, Q(7) As Si gle MSFlexGrid1. ex Ma rix(0, 0) = “№ Опыта” MSFlexGrid1. ex Ma rix(0, 1) = “ V(I) “ MSFlexGrid1. ex Ma rix(0, 2) = “ Q(I) “ MSFlexGrid1. ex Ma rix(0, 3) = “ V(I)расч.” MSFlexGrid1. ex Ma rix(0, 4) = “V(I), %” For I = 1 o 7 MSFlexGrid1. ex Ma rix(I, 0) = I ex I'АВТОМАТИЧЕСКИЙ ВВОД If Проверка1.Value = 1 he Ope “A:Данные. x ” For I pu As #1 For I = 1 o 7 I pu #1, V(I), Q(I) MSFlexGrid1. ex Ma rix(I, 1) = V(I) MSFlexGrid1. ex Ma rix(I, 2) = Q(I) ex I Close #1 E d If ‘ВВОД ЭЛЕМЕНТОВ МАССИВОВ ВРУЧНУЮ If Проверка1.Value = 0 he For I = 1 o 7 MSFlexGrid1. ex Ma rix(I, 1) = I pu Box(“ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА V(I)”) ex I For I = 1 o 7 MSFlexGrid1. ex Ma rix(I, 2) = I pu Box(“ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА Q(I)”) ex I E d If Список1.Clear For I = 1 o 7 Список1.AddI em (Ccur(MSFlexGrid1. ex Ma rix(I, 1) / MSFlexGrid1. ex Ma rix(I, 2))) ex I Dim Summ As Si gle Summ = 0 For I = 1 o 7 Summ = Summ MSFlexGrid1. ex Ma rix(I, 1) ex I Текст1. ex = CS g(Summ) Dim Summa As Si gle For I = 1 o 7 Summa = Summa MSFlexGrid1. ex Ma rix(I, 2) ex I Текст2. ex = CS g(Summa) ‘РАСЧЕТ КОЭФФИЦИЕНТА “А” Dim a As Si gle a = Текст1. ex / Текст2. ex Текст3. ex = CS g(a) For I = 1 o 7 MSFlexGrid1. ex Ma rix(I, 3) = Текст3. ex MSFlexGrid1. ex Ma rix(I, 2) ex I For I = 1 o 7 MSFlexGrid1. ex Ma rix(I, 4) = Ccur(Sqr((((MSFlexGrid1. ex Ma rix(I, 3) – MSFlexGrid1. ex Ma rix(I, 1)) / MSFlexGrid1. ex Ma rix(I, 1)) 100) ^ 2)) ex I ‘СОРТИРОВКА Dim mi As Si gle Dim max As Si gle mi = MSFlexGrid1. ex Ma rix(7, 4) ‘НАХОЖДЕНИЕ MI For I = 1 o 7 If MSFlexGrid1. ex Ma rix(I, 4) < mi he mi = MSFlexGrid1. ex Ma rix(I, 4) ex I Текст4. ex = CS g(mi ) max = MSFlexGrid1. ex Ma rix(1, 4) ‘НАХОЖДЕНИЕ MAX For I = 1 o 7 If MSFlexGrid1. ex Ma rix(I, 4) > max he max = MSFlexGrid1. ex Ma rix(I, 4) ex I Текст6. ex = CS g(max)'ЗАКОН СТЕФАНА-БОЛЬЦМАНА 'V=k Q^4, где k-постоянная Стефана-Больцмана: k = 5.67 10 ^ -8 Dim z(7) As Si gle, W(7) As Si gle For I = 1 o 7 z(I) = 0.0000000567 ((MSFlexGrid1. ex Ma rix(I, 2) 273) ^ 4 – 273 ^ 4) ‘V=AZ W(I) = 0.1 Текст3. ex z(I) 'ВЫВОД СКОРОСТИ ОХЛАЖДЕНИЯ Список2.AddI em (Ccur(W(I))) ex I E d SubPriva e Sub m uВключить Click() 'ВКЛЮЧЕНИЕ КАЛЬКУЛЯТОРА ‘OLE1.SourceDoc = “C:WI DOWSCALC.EXE” OLE1.Ac io = 7 E d SubPriva e Sub m uВыход Click() E d E d SubPriva e Sub m uОткрыть Click() Dim V(7) As Si gle, Q(7) As Si gle MSFlexGrid1. ex Ma rix(0, 0) = “№ Опыта” MSFlexGrid1. ex Ma rix(0, 1) = “ V(I) “ MSFlexGrid1. ex Ma rix(0, 2) = « Q(I) « MSFlexGrid1. ex Ma rix(0, 3) = “ V(I)расч.” MSFlexGrid1. ex Ma rix(0, 4) = «V(I), %» For I = 1 o 7 MSFlexGrid1. ex Ma rix(I, 0) = I ex I ‘АВТОМАТИЧЕСКИЙ ВВОД Ope “A:Данные. x ” For I pu As #1 For I = 1 o 7 I pu #1, V(I), Q(I) MSFlexGrid1. ex Ma rix(I, 1) = V(I) MSFlexGrid1. ex Ma rix(I, 2) = Q(I) ex I Close #1 E d SubPriva e Sub m uСкрыть Click() ‘СКРЫТЬ ВРЕМЯ Часы1.E
Согласно этому принципу, дополнительные затраты на более тщательную защиту от ошибок вполне могут себя оправдать - в зависимости от того, в какой из четырех вышеперечисленных категорий находится проект. Поломка на атомной станции гораздо серьезнее, чем, например, поломка в моей программке, которая отслеживает течение матча по боулингу. Следовательно, при создании программных продуктов для атомной станции можно позволить себе использовать более трудоемкую и дорогую методологию. В этом случае, методология будет содержать большее количество различных элементов, причем эти элементы будут иметь большую "плотность". Допустим, в обоих проектах используются варианты использования (use cases). Ребята из Лиги по боулингу вполне могут написать их в виде нескольких предложений на салфетке или на доске и считать это достаточным документом. Команда, которая строит атомную станцию, наверняка будет настаивать на том, чтобы все варианты использования были написаны с помощью специального инструментария, чтобы были заполнены все необходимые поля и т.д
1. Средства создания программных продуктов
2. Применение программного комплекса AnsysIcem к решению задач химической промышленности
4. Разработка программного обеспечения решения нелинейных уравнений
9. Решение задач линейной оптимизации симплекс – методом
10. Решение задач на построение сечений в многогранниках методом следов
13. Формулы для решения задач по экономике предприятия
14. Решение задач по прикладной математике
15. Решение задачи Дирихле для уравнения Лапласа методом сеток
16. Применение подобия к решению задач
17. Построения коллектива с акцентом на решение задач или на поддержание отношений в нем
18. Пример решения задачи по механике
20. Пути повышения эффективности обучения решению задач
21. Понятие программного продукта
26. Экономическое обоснование разработки программного продукта
27. Создание трансгенных продуктов
28. Применение спектральной сейсморазведки для решения задач инженерной геологии
29. Работа с готовыми программными продуктами
32. Линейное программирование: решение задач графическим способом
33. Обзор программных продуктов для расчета инвестиционных проектов
34. Общая схема решения задачи на персональном компьютере
36. Программные продукты для банковской деятельности
41. Алгоритмы численного решения задач
42. Информационная система о программных продуктах
44. Примеры решения задач по программированию
45. Разработка программного продукта "Отдел кадров ВПТ"
46. Разработка программного продукта на языке высокого уровня
47. Разработка программных продуктов
48. Реализация на ЭВМ решения задачи оптимальной политики замены оборудования
49. Решение задач линейного программирования
50. Решение задач линейного программирования симплекс методом
51. Решение задач моделирования и оптимизации с помощью программ Excel и Mathcad
52. Решение задач оптимизации бизнес-процессов с использованием прикладных программ
53. Решение задач с помощью современых компьютерных технологий
57. Решение задачи с помощью программ Mathcad и Matlab
58. Симплекс метод решения задачи линейного программирования
59. Экспертная система для решения задачи о коммивояжере
62. Использование моделирования в обучении решению задач в 5 классе
63. Решение задач по курсу статистики
64. Решение задачи линейного программирования симплексным методом
65. Методика обучения решению задач на построение сечений многогранников в 10-11 классах
66. Развитие логического мышления учащихся при решении задач на построение
67. Решение задач на уроках химии
68. Решение задач по теплотехнике
69. Решение задач по сопротивлению материалов
73. Примеры решения задач по статистике
74. Решение задач по статистике фирм
75. Формирование цен, ее состав и решенные задачи
76. Графический метод и симплекс-метод решения задач линейного программирования
77. Использование эвристических и экономико-математических методов при решении задач управления
78. Решение задач на переливание на бильярдном столе
79. Решение задач по эконометрике
80. Решение задач симплекс-методом
81. Решение задачи о коммивояжере
82. Решения задачи планирования производства симплекс методом
84. Разработка программных средств анализа графика функции и решение оптимизационных задач
89. Решение математических задач в среде Excel
90. Решение смешанной задачи для уравнения гиперболического типа методом сеток
91. Решение транспортной задачи методом потенциалов
92. Графы. решение практических задач с использованием графов (С++)
93. Задача по травматологии с решением
94. Решение обратных задач теплопроводности для элементов конструкций простой геометрической формы
95. Задачи (с решениями) по сопромату
96. Задачи с решениями по ценным бумагам