Неде әдісі Симпсон және оны Паскаль

есептеу Үшін маңызы бар интеграл, бірақ болжамды бар тамаша әдісі есімімен аталған, оның негізін қалаушы, « Симпсон әдісі. Ол сондай-ақ деп аталады тәсілімен парабол, өйткені онда пайдаланылады құру үш еселі интегралдар. Бұл сұлба құрылады барынша шамамен қосымша функциялары. Тегінде, себебі салу параболу, нүктесіне дәл сәйкес келетін нүктелер функцияларды, мүмкін емес, интеграл және шамамен. Формуласы орналасқан, оның шекаралары a және b осы сияқты көрінеді: 1/h*(y₀+4y₁+2y₂+4y₃+…+4y_N-1+y_N). Мұнда бізге оңай есептеуге әр y 0-ден n, мұндағы n біз анықтаймыз өздері де « көп, жақсы, себебі көп болады y-ов, оның үстіне мейлінше жақын нағыз бізде мәні шықпайды. Бұл h болса, онда бұл қадам бойынша есептеледі мұндай формула: (b-a)/(n-1).

теориясы барлық өте қарапайым, бірақ керек еді, іске асыру, бұл іс жүзінде. Көптеген бағдарламашылар бірде-бір жақсы жолы осындай мәселені шешу үшін міндеттері, әдісі Симпсон « Паскаль немесе Делфи. Осы ортада болады өте оңай ғана емес, вычислить интеграл, және салу, оған функциясының графигі және тіпті выстроенную оған трапецию. Сонымен, анықтаймыз, қалай тез іске асыру әдісі Симпсон және қалаған жағдайда, тіпті өзі түсіндіруге қалай бұл жерде және бұл өзгерістердің ескертеміз.

Бірақ оның алдында еске алайық ретінде көрінеді интеграл. Бұл сұлба, сызықтармен шектелген, начинающимися осіне иксов, яғни а және b.

Сонымен, бағдарлама жасау қажет мүмкіндікті интегрируемой функциялары (кешіріңіз үшін тавтологию), онда жай ғана жазу керек f:=, онда не үшін біз табу интеграл. Мұнда өте маңызды nb беру функциясы Паскаль. Бірақ бұл бөлек әңгіменің тақырыбы. Алынған код көрінеді шамамен де:

Көп:

Lenovo v580c: егжей-тегжейлі шолу

Бүгін біз жазу Lenovo ноутбугы v580c. Шолу егжей-тегжейлі, өйткені бұл портативті ДК сериясы IdeaPad кеңінен танымал, бірақ көпшілігі біледі, бұл тартады бұл құрылғы сатып алушылар. Моделі болып табылады жылдам және қамтиды көптеген оң қасиеттерді, с...

Таңдаймыз арналған модем ноутбука. Бірнеше ұсынымдар жаңа бастаған пайдаланушылар үшін

 Қазіргі заманғы технологиялар бір орында тұрмайды, үнемі дамып келеді. Бірінші кезекте, бұл байланысты, бұл жыл сайын қажеттілігін ДК пайдаланушылардың үнемі өсіп, өндірушілер әр түрлі құрылғыларды барынша қанағаттандыруға тырысады бұл қажеттіл...

Ксеро-көшірме қағазы: қолдану және сипаттамалары

Қағаз болып саналады үлкен сұранысқа ие. Ол стандартты өлшемдері сәйкес келетін белгілеген форматтарға. Мысалы, парақтар А4 жүргізіледі параметрлерімен 297 210 мм. қалыңдығы құрайды, 0,02 - 0,03 мм. ксеро-көшірме қағазы кез келген басқа сияқты, ие, н...

Function f(x:real):real;

негізгі мәтін функциялары.

Begin

F:=25*ln(x)+sin(10); {міне, осы жерде жазу керек мазмұнын өз функцияларын}

End;

Оқу напишем функциясын іске асыру үшін әдісі Симпсон. Начало болады шамамен осындай:

Function simpsonmetod(a,b:real;n:integer):real;

Бұдан әрі жария етеміз айнымалылар:

Var

, s:real; { Аралық сомалар (оқу түсінесіз) }

H:real; { Қадам }

My:integer; { Тек санауыш }

Mno:integer; { Кезекті көбейткіштер }

Ал енді, тегінде, өзі бағдарлама:

Begin

H:=(b-a)/(n-1); { Есептейміз қадам стандартты формула. Кейде тапсырма жазылады қадам, мұндай жағдайда бұл формула қолданылмайды }

S:= f(b)+ f(a); { Қойылады, бастапқы мән қадам }

Mno:=4; { Есте формула - 1/h*(y₀+4y_1…, міне бұл 4 мұнда және жазылады, екінші көбейткіш 2, бірақ бұл туралы оқу }

Енді сол, ең негізгі формуласы:

For my:=1 to n-2 do begin

S:=s+mno*f(a+h*му); { сомасына қосамыз кезекті көбейткіш екіге көбейтілген 4*y_N 2* y_N }

If (mno=4) then mno:=2 else mno:=4;{ Мұнда өзгереді көбейткіш - егер қазір тең 4 болса, онда өзгеріп 2 және керісінше}

End;

Simpsonmetod:=s*h/3; { Бұдан әрі нәтижесінде алынған циклінің сомасы множим " h/3 формулаға сәйкес}

End.

Ал « жасаймыз барлық іс-формулаға сәйкес. Егер сіз әлі түсінген ретінде қолдануға негізгі бағдарлама әдісі Симпсон, мысалы сізге көмектеседі.

Сонымен кейін жазудың барлық функцияларын жазамыз.

Begin

N:=3; { Задаем n }

Q:=simpsonmetod(a,b,n); { Себебі Симпсон әдісі болып табылады есептеуге интеграл a дан b, бірнеше қадам есептеулер, сондықтан ұйымдастырып, цикл }

Repeat

Q2:=q; { Есте алдыңғы қадам }

N:=n+2;

Q:=simpsonmetod(a,b,n); { есептеледі Және келесі мәні }

Until (abs(q-q2)<0.001);{ тапсырмада жазылады дәлдігі, сондықтан әзірге достигнется қажетті дәлдігі, қайталауға әрекеттер }

Міне осындай, ол – Симпсон әдісі. Шын мәнінде, күрделі ештеңе жазылады, барлық өте тез! Ал енді ашыңыз өз Турбо Паскаль бастаңыз жазу бағдарламасын.