есептеу Үшін маңызы бар интеграл, бірақ болжамды бар тамаша әдісі есімімен аталған, оның негізін қалаушы, « Симпсон әдісі. Ол сондай-ақ деп аталады тәсілімен парабол, өйткені онда пайдаланылады құру үш еселі интегралдар. Бұл сұлба құрылады барынша шамамен қосымша функциялары. Тегінде, себебі салу параболу, нүктесіне дәл сәйкес келетін нүктелер функцияларды, мүмкін емес, интеграл және шамамен. Формуласы орналасқан, оның шекаралары a және b осы сияқты көрінеді: 1/h*(y0+4y1+2y2+4y3+…+4yN-1+yN). Мұнда бізге оңай есептеуге әр 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*(y0+4y1…, міне бұл 4 мұнда және жазылады, екінші көбейткіш 2, бірақ бұл туралы оқу }
Енді сол, ең негізгі формуласы:
For my:=1 to n-2 do begin
S:=s+mno*f(a+h*му); { сомасына қосамыз кезекті көбейткіш екіге көбейтілген 4*yN 2* yN }
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);{ тапсырмада жазылады дәлдігі, сондықтан әзірге достигнется қажетті дәлдігі, қайталауға әрекеттер }
Міне осындай, ол – Симпсон әдісі. Шын мәнінде, күрделі ештеңе жазылады, барлық өте тез! Ал енді ашыңыз өз Турбо Паскаль бастаңыз жазу бағдарламасын.
Article in other languages:
Alin Trodden - мақала авторы, редактор
"Сәлем, Мен Алин Тродденмін. Мен мәтіндер жазып, кітаптар оқып, әсер іздеймін. Мен сізге бұл туралы айтуды жақсы білемін. Мен әрқашан қызықты жобаларға қатысқаныма қуаныштымын."
Жаңалықтар
Ойын Portal: өтуін екінші бөлігінің
басында ойын Portal меніңше абзал. Бірінші әсер болып өте размыто. Алдымен оглядеться және тыңдауға айтуынша, жасанды интеллект, басқарушы жүйе. Оқу режимінде жүріп өтеміз " тоқсары сақина қабырғаға. Бұл портал, енді не оқып, олар...
Ойын cheats "тылда жау 2: Штурм"
көптеген стратегиялары бар мүмкіндігін енгізуге читы, бұл айтарлықтай жеңілдетеді ойын процесі. Олар өте әртүрлі және ұсынуға қажет түрлі мүмкіндігі туралы, онда сіз бұрын тек армандай бастап кішігірім салмақ ресурстарға алу үшін ...
Жылдамдығы компьютер жұмысының көлеміне байланысты өңделетін ақпарат
Компьютер үшін көптеген ажырамас бөлігіне айналды күнделікті өмір. Кейбір көреді құралы ойын-сауық үшін де, басқалар оның көмегімен табыс табады. Бірінші және екінші өте маңызды көрсеткіш өнімділік. Компьютердің жұмыс істеу жылдам...
Қалай скрафтить зельеварку "Майнкрафте": нұсқаулық
ең маңызды аспектілерін "Майнкрафта" құру болып табылады зелий. Ойын әлдеқашан болды табыну ғаламның, бұл тудырды көптеген клондарын, пайдаланушылар не, шығармашылықпен айналысуға, не өтуге сюжеттік картасы. Бірақ егер ойыншы, дег...
Қалай буклет " Publisher? Құру және сипаттамасы
басып Шығару буклет — бұл тиімді ақпаратты ұсыну тәсілі туралы сіздің өнім, фирма немесе қызметтер. Оларды жасау үшін жақсы қолайлы бағдарлама Microsoft Publisher. Игеруді қиын емес. Бұдан әрі-бапта боламыз нұсқаулығы, қалай...
Қандай криптовалюту қазір тиімді майнить компьютерде?
Қазір әлемде байқалады осы криптовалютный бум. Кейін ресей мен қытай рекордын жаңартты құны әлемдік биржада барлық күрт арттырды, оның майнить. Алайда, бұл оңай емес. Себебі, дәл осы криптовалютой заинтересовались әлем корпорацияс...
Комментарий (0)
Бұл мақала емес, түсіндірмелер, бірінші болыңыз!