11551

Составить программу вычисления интеграла методом Симпсона

Лабораторная работа

Информатика, кибернетика и программирование

Задание Составить программу вычисления интеграла методом Симпсона и по заданной преподавателем погрешности интегрирования определить на ЭВМ необходимое число интервалов обеспечивающее заданную точность. Оценку точности проводить по правилу Рунге. Ис...

Русский

2013-04-08

45.5 KB

1 чел.

  1.  Задание

Составить программу вычисления интеграла методом Симпсона и по заданной преподавателем погрешности интегрирования определить на ЭВМ необходимое число интервалов, обеспечивающее заданную точность. Оценку точности проводить по правилу Рунге.

  1.  Исходные данные

Подинтегральная функция:

Первообразная: x2·e-x

Пределы: 0 ÷ 1

 

  1.  Ход работы

а) Составим программу для вычисления интеграла методом Симпсона:

program laba_CMOS_5;

uses crt;

var x,y,dx,intg,a,b: real;

      N,i,j: integer;

      F,dF,ddF,dddF,ddddF: array[1..1000] of real;

begin

N:=3;

a:=0;

b:=1;

dx:=(b-a)/(N-1);

x:=a;

for i:=1 to 2*N do

 begin

  y:=2*x*exp(-x)-x*x*exp(-x);

  F[i]:=y;

  x:=x+dx/2;

 end;

for i:=1 to 2*N do

 begin

  dF[i]:=(F[i+1]-F[i])/(dx/2);

 end;

for i:=1 to 2*N do

 begin

  ddF[i]:=(dF[i+1]-dF[i])/(dx/2);

 end;

for  i:=1 to 2*N do

 begin

  dddF[i]:=(ddF[i+1]-ddF[i])/(dx/2);

 end;

for i:=1 to 2*N do

 begin

  ddddF[i]:=(dddF[i+1]-dddF[i])/(dx/2);

 end;

j:=1;

intg:=0;

for i:=1 to N-1 do

 begin

  j:=j+2;

  intg:=intg+(dx/6)*(F[j-2]+4*F[j-1]+F[j])+(dx/180)*(dx*dx*dx*dx*ddddF[i]);

 end;

writeln ('N=',N,'  intg=',intg:3:5);

end.

б) Оценим точность вычисления по правилу Рунге:

N = 2  F(N) = 0.33954

N = 3  F(N) = 0.36492

N = 4  F(N) = 0.36718

ε = 0.001

, интегрирование прекращается и за приближенное значение интеграла принимается величина

в) Найдем значение первообразной в заданном интервале аналитическим путем:

F = 12·е-1 = 0.36788

Вывод: Значение, полученное методом Симпсона, практически полностью совпадает с аналитическим значением. Количество интервалов существенно меньше, чем в других методах.


 

А также другие работы, которые могут Вас заинтересовать

31619. ЕКСТРЕМАЛЬНІ СТАНИ 132.5 KB
  Велика кількість крові скопичується в розширених венозних і артеріальних судинах черевної порожнини легень підшкірної клітковини що значно зменшує ОЦК і АТ і отже приплив крові до серця. Обумовлене цим зниження серцевого викиду крові приводить до ще більшого зменшення ОЦК і АТ що ускладнює стан пацієнта. У результаті зазначених змін розвивається комплекс закономірних стереотипних взаємозалежних змін в організмі до яких відносять тріаду характерних порушень: 1 Розлади і недостатність функцій органів і фізіологічних систем:...
31620. ЗАПАЛЕННЯ. Фагоцитоз 78 KB
  Потім в ділянку запалення виходять мононуклеарні фагоцити моноцити які фагоцитують не тільки мікроорганізми а і зруйновані клітини. Головне завдання лейкоцитів в зоні запалення фагоцитоз мікроорганізмів і продуктів розпаду пошкоджених клітин. □ Рецептороопосередковані механізми обумовлюються існуванням на поверхні фагоцитів спеціальних рецепторів для молекул які входять до складу мікробної стінки наприклад для вуглеводню зімозану або для молекул які з‘являються на поверхні власних нежиттєздатних клітин зони запалення.
31621. Запалення. Етіологія запалення 99.5 KB
  Крім того запалення є важливою захиснопристосувальною реакцією яка сформувалася в процесі еволюції як засіб збереження цілого організму за рахунок втрати його якоїсь певної частини. Запалення ушкоджує цілу структурнофункціональну одиницю тканини або органа яка носить назву гістіон і включає в себе: 1 специфічні для даної тканини чи органа клітини паренхіматозні клітини; 2 елементи сполучної тканини: а клітини фіброцити фібробласти моноцити гранулоцити тканині базофіли б сполучнотканинні волокна колагенові еластичні...
31622. ЗАХВОРЮВАННЯ НИРОК 85.5 KB
  Гломерулонефрит двохстороннє дифузне захворювання нирок алергійної природи. Гострий гломерулонефрит ГГН найбільш розповсюджене захворювання нирок особливо у молодому віці 2040 років має тривалий сезонний перебіг загострюється з жовтня по березень і є причиною розвитку ХНН. гіпертензивний синдром виникає у звязку із гіпоксією юкстагломерулярного апарату нирок що веде до активації ренінангіотензинальдостеронвазопресинної системи і супроводжується виникненням реноваскулярної гіпертензії.
31623. ІНФЕКЦІЙНИЙ ПРОЦЕС 81.5 KB
  Розвиток і перебіг інфекційного процесу викликаного різними патогенними мікроорганізмами характеризуються в цілому однотипністю але разом з тим існують визначені відмінні риси цього процесу обумовлені насамперед характером інфекційного фактора а також реактивністю макроорганізму і впливом на нього умов навколишнього середовища. Усі збудники інфекційних хвороб відбулися від вільно живучих мікроорганізмів сапрофітів що набули в ході еволюції здатність до паразитизму існуванню за рахунок живильних речовин організму хазяїна. Надходження...
31624. ПАТОГЕННА ДІЯ ФАКТОРІВ ЗОВНІШНЬОГО СЕРЕДОВИЩА 77.5 KB
  Крашсиндром це патологічний процес який розвивається в потерпілих у результаті тривалого 48 г і більше роздавлювання мяких тканин кінцівок уламками зруйнованих будинків споруджень брилами ґрунту при обвалах у шахтах і ін. Головною ознакою стадії декомпенсації є зниження температури ядра тіла що закономірно приводить: а до зменшення швидкості всіх біохімічних реакцій в організмі у тому числі і процесів біологічного окислювання; б при цьому різко зменшується споживання кисню й утворення АТФ у клітинах; в дефіцит...
31625. ПАТОЛОГІЧНА ФІЗІОЛОГІЯ НИРОК 85 KB
  Ниркову недостатність класифікують наступним чином: 1 У залежності від причин розвитку недостатність нирок може бути: а преренальною порушення кровопостачання нирок б ренальною порушення функції клубочків клубочкової фільтрації і ниркових канальців канальцевої реабсорбції і секреції в постренальною порушення що виникають на шляху відтоку сечі і г аренальною порушення обумовлені відсутністю нирок. Причиною цього є перешкоди відтоку фільтрату чи сечі при ушкодженні канальців закупорка канальців некротчними...
31626. ПАТОЛОГІЯ ВІНЦЕВОГО КРОВООБІГУ 77 KB
  Перш ніж розглянути коронарну недостатність слід зупинитися на особливостях вінцевого кровообігу який характеризується: 1 Високим рівнем екстракції кисню в капілярах серця 7075 у головному мозку 25 у скелетних мязах і печінці 20 що пояснюється значною довжиною капілярного русла серця і у звязку з цим тривалим часом контакту крові із стінкою капілярів. Тому при збільшенні потреби серця в О2 вона не може бути забезпечена шляхом збільшення екстракції О2 як у скелетних мязах оскільки остання і так є максимально можливою в...
31627. ПАТОЛОГІЯ ВОДНО-ЕЛЕКТРОЛІТНОГО ОБМІНУ 86.5 KB
  Внутрішній обмін води залежить від збалансованості між поступленням рідини в організм і її виділенням за один і той же час. N K C Mg ВКС 100 1600 10 130 МКС 1480 45 20 10 ВСС 1420 40 25 15 Із таблиці бачимо що основним електролітом плазми і міжклітинної рідини є N а внутрішньоклітинної рідини K і Mg2 що забезпечує осмотичний тиск всередині клітин. Дегідратація зменшення обєму позаклітинної рідини в організмі коли втрата води переважає над поступленням і виникає негативний водний баланс. Ізоосмолярна дегідратація ...