КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Крок 1. Підключити модулі з керуючими структурами і функціями інтегрування
Крок 0. Початок Метод Ньютона-Котеса. Мал. 4 X
Метод Ньютона-Котеса заснований на інтерполяції f(x) у n проміжках поліномом Логранжа. У загальному випадку f(x) повинна задаватися (n+1) ординатами. Формули інтегрування точні, якщо f(x) - багаточлен n-ої степеня. При n = 1 отримуємо метод трапецій. Опис алгоритму програми 1. Головна програма. Розглянемо алгоритм головної програми. Тому що в головній програмі в основному описуються екземпляри керуючих класів і організований головний цикл звертання до цих структур, а також через відсутність складних розгалужень представимо даний алгоритм на псевдокоді. Вхідні дані: Функція, задана в аналітичному вигляді, межі інтегрування, кількість кроків інтегрування. Вихідні дані: значення інтегралу, обчислене методами · Ньютона-Котеса · Прямокутників · Трапецій · Парабол (Симпсона) Усереднене значення інтеграла по всіх методах #include <conio.h> #include <stdio.h> #include <iostream.h> #include "integral.cpp" #include "E:/modul/graph.cpp" #include "E:/modul/mouse.cpp" #include "E:/modul/abstr.cpp" #include "E:/modul/baseinp.cpp" #include "E:/modul/check.cpp" #include "E:/modul/button.cpp" #include "E:/modul/numedit.cpp" #include "E:/modul/label.cpp" #include "E:/modul/edit.cpp" void main(){ clrscr(); Крок 2. Ініціалізувати графику і зафарбувати фон кольором №8 graphinit(8); Крок 3.Ініціалізувати мишку InitMouse(); Крок 4. Висвітити покажчик мишки ShowMouse(); Крок 5. Оголосити об'єкти для відображення функції, яку інтегруємо //Мітка для відображення виду функції ClLabel funk(230,57,"Інтеграл функції f(x)=",15); //Поле для введення самої функції ClEdit FuncOfText(230,50,150,20,"x"); Крок 6. Оголосити об'єкти для введення меж інтегрування //Поле введення початку проміжку інтегрування
ClLabel from(230,100,"Межі інтегрування: від ",11); ClNumEdit a(230,100,70,20,0); //Поле введення кінця проміжку інтегрування ClLabel to(330,100,"до ",11); ClNumEdit b(330,100,70,20,5); Крок 7. Оголосити об'єкти для введення кількості кроків інтегрування //Поле введення кількості кроків інтегрування ClLabel shagi(270,150,"Кількість кроків інтегрування ",11); ClNumEdit sh(280,150,100,25,100); Крок 8. Оголосити об'єкти для виводу результатів інтегрування //Поля виводу результатів ClLabel rez(380,216,"Результат інтегрування: ",14); ClLabel oldInt(500,220,"Попередні обчислення: ",10,1,1); ClLabel sredn(400,10,"Середнє значення по всіх методах ",10); ClNumEdit Sredn(400,10,200,25,0); Крок 8.1. Оголосити об'єкти для виводу результатів методом Ньютона-Котеса ClLabel kotesa(170,300,"Метод Ньютона-Котеса ",10); ClNumEdit Kotesa(170,290,200,25,0); ClNumEdit oldKotesa(400,290,200,25,0); ClCheck sKotesa(380,295,0); Крок 8.2. Оголосити об'єкти для виводу результатів методом прямокутників ClLabel pryam(176,330,"Метод прямокутників ",10); ClNumEdit Pryam(170,320,200,25,0); ClNumEdit oldPryam(400,320,200,25,0); ClCheck sPryam(380,325,0); Крок 8.3. Оголосити об'єкти для виводу результатів методом трапецій ClLabel trap(176,360,"Метод трапецій ",10); ClNumEdit Trap(170,350,200,25,0); ClNumEdit oldTrap(400,350,200,25,0); ClCheck sTrap(380,355,0); Крок 8.4. Оголосити об'єкти для виводу результатів методом Сімпсона ClLabel parabol(176,390,"Метод парабол ",10); ClNumEdit Parabol(170,380,200,25,0); ClNumEdit oldParabol(400,380,200,25,0); ClCheck sParabol(380,385,0); Крок 9. Оголосити кнопку для визначення моменту необхідності обчислення інтеграла //Кнопки для визначення інтеграла різними методами ClButton start(400,150,100,25,"Порахувати"); Крок 10. Оголосити кнопку для виходу з програми ClButton exit(10,10,50,20,"<--"); Крок 11. Визначити нескінченний цикл для забезпечення постійного запросу до всіх керуючих об'єктів програми for(;;){ if (exit.zapros()) break; Крок 11.2. Якщо натиснута кнопка «Порахувати інтеграл», то обчислити інтеграл всіма методами і записати результати у відповідні поля виводу значень
if (start.zapros()){ } Крок 11.2. Якщо скинутий прапорець напроти поля виводу значення інтегралу методом Ньютона-Котеса, то зберегти попереднє значення інтегралу й обчислити його нове значення по цьому методу if (sKotesa. GetState()==0){ oldKotesa.SetNum(Kotesa.Num); Kotesa.SetNum(metod_Nyutona_Kotesa(FuncOfText.text, } Крок 11.3. Якщо скинутий прапорець напроти поля виводу значення інтеграла методом прямокутників, то зберегти попереднє значення інтегралу й обчислити його нове значення цим методом. if (sPryam.GetState()==0){ oldPryam.SetNum(Pryam.Num); Pryam.SetNum(metod_Pryam (FuncOfText.text, a.Num, b.Num, sh.Num)); } Крок 11.4. Якщо скинутий прапорець напроти поля виводу значення інтеграла за методом трапецій, то зберегти попереднє значення інтеграла й обчислити його нове значення цим методом. if (sTrap.GetState()==0){ oldTrap.SetNum(Trap.Num); Trap.SetNum (metod_Trap(FuncOfText.text, a.Num, b.Num, sh.Num)); } Крок 11.5. Якщо скинутий прапорець навпроти поля виводу значення інтеграла за методом парабол, то зберегти попереднє значення інтеграла й обчислити його нове значення цим методом. if (sParabol.GetState()==0){ oldParabol.SetNum(Parabol.Num); Parabol.SetNum(metod_Parabol(FuncOfText.text, a.Num, b.Num, sh.Num)); Крок 11.6. Обчислити усереднене значення інтеграла //Обчислення усередненого значення Sredn.SetNum((Parabol.Num + Trap.Num + Uedlya.Num + Bode.Num + Kotesa.Num + Chebisheva.Num + Gaussa.Num)/7); }; Крок 11.7. Зробити запит на зміну стану об’єктів уведення границь інтегрування і кількості кроків. a.zapros(); b.zapros(); sh.zapros(); Крок 11.8. Зробити запит на зміни стану прапорців допустимості обчислення інтеграла. sBode.zapros(); sUedlya.zapros(); sKotesa.zapros(); sPryam.zapros(); sTrap.zapros(); sParabol.zapros(); sKotesa.zapros(); } Крок 11.9. Якщо натиснута клавіша Esc вийти з програми. if (kbhit()) if (getch()==27) break; } Крок 12. Закрити графічний режим. closegraph(); Крок 13. Кінець. }
Дата добавления: 2014-01-07; Просмотров: 335; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |