Cosa hè u mètudu Simpson, è cumu a azzione si in l 'lingua Pascal

Di calculari lu valuri di nu integral, per via apprussimata, ci hè un mètudu accillenti, chjamatu dopu à u so criaturi - u mètudu di Simpson. Si chjama dinù parabolas mètudu, perchè si usa la custruzzioni di una parabola. Sta figura hè basatu cum'è vicinu pussibuli à a funzione. Primurosu, lu modu comu si custruisce una parabola, chì signalisfuttenti cunfidirazzioni appuntu cu lu punti di la funzione, ùn hè impussibile, è u integrata hè approximated. stage Formula di u so fruntiere cù un è B friscalettu E comu sta: 1 / h * (Y + 4y _{0 1} + 2y ₂ + 4y ₃ + ... + 4y _Italiano-1 + canta _n). Quì, avemu basta à u calculate ogni Y da 0 à n, induve Traduction noi difinizzioni di noi stessi - u più, u megliu, perchè u più canta-s, i più apprussimata à i veri valori di u nostru travagliu. Cù u rispettu à h, e poi stu passu hè create da i seguenti fòrmula: (Ba) / (n-1).

In tiuria, tuttu hè abbastanza sèmplice, ma avissi a èssiri nicissariu a azzione tutti di sta in pràtica. Per parechji programmers c'è modu megghiu di scioglie stu prublema, cum'è un mètudu di Simpson - Pascal o di Delfi. In issu ambiente, hè assai facile micca solu à evaluate u integral, ma dinò à custruì una chat di a funzione à ella, è ancu custruitu u so trapezziu. Allura, avemu taliarlu quantu vi pò azzione subitu un mètudu di Simpson è ancu a spiegari, si chjamà, à tempu quì, è chì hè organizatu, tutti quelli chì interessa.

Ma mi ricordu chi lu friscalettu E comu prima di stu integrata. Sta figura, chì hè cumpresu da linii principiu incù culonna 'X', i.e. un è b.

Cusì, a principia u prugrammu vi tuccherà à creà una funzione di e funzioni integrable (pirdunari la tautology), chi hannu solu à scrive f francese: = è quarchi cosa di cui avemu da truvà u integrata. Quì, ci hè cruciale micca à anu in u custatu una funzione in Pascal. Ma hè un racontu differente. U codice favurèvuli vi circà calcosa like this:

funzione f (ex: veru): veri;

È i funziunalità i testi funnamintali

comincia

m: = 25 * ja (x) + u peccatu (10); {Here è vi tuccherà à creà u cuntenutu di u so funzioni}

fini;

Poi scrìviri una funzione à azzione lu mètudu di Simpson. Start sarà qualcosa cum'è:

funzione simpsonmetod (a, b: veri; Traduction: nteru): veri;

Next, avemu dichjarà la variàbbili:

Var

s: veri; {Subtotals (più capisce)}

h: veri; {Step}

mio: nteru; Just {tumblr}

mno: nteru; {} U prossimu multipliers

È avà, in fatti, u prugrammu stessu:

comincia

h: = (Ba) / (n-1); {Tieni passu sicondu a la fòrmula mudellu. Calchì volta u passu hè scritta in u travagliu, in stu casu, sta fòrmula ùn dumandà}

s: = f (b) + f (a); {Valori Afghanistan nizziali mumentu}

mno: = 4; {U Mulatteru a fòrmula - 1 / h * (Y + 4y _{0 1 ...} chi sta 4 quì è inglese, u sicondu fattore hè 2, ma di più nant'à stu dopu}

Avà chì stissa fòrmula funnamintali:

per me: = 1 a n-2 ùn cumincià

s: = 's + mno * f (un + H * Mu); À sums {aghjunghje un altru fattore multiplicate da 4 * Y _Traduction o 2 * Y _Traduction}

se (mno = 4) puis mno: = 2 altru mno: = 4; {Stu fattore varia è - s'ella avà hè 4, hè capace à 2 è viciversa}

fini;

simpsonmetod: = 's * h / 3; Next {favurèvuli summa routes hè multiplicatu da H / 3} secondu a fòrmula

fine.

Chì l'hè - fà tuttu azzione, secondu a la fòrmula. S'è vo ùn avete figura fora quantu à dumandà à u mètudu programma principali esempiu l'Simpson voi aiutari cu sta.

Cusì, dopu scrivennu tutti i funzioni scrivere

comincia

Traduction: = 3; Avemu crià {f}

Q: = simpsonmetod (a, b, n); {Dapoi lu mètudu Simpson hè a carcula lu integrata à a bœuf, ci hà da esse parechji passi, calculu, tantu acconcianu routes}

ripetiri

q2: = Q; {Memorized prima passu}

Traduction: = Traduction + 2;

Q: = simpsonmetod (a, b, n); {È} valore hè calculata comu seguita

finu à (B. (Q-q2) <0.001); {The accuratezza curcari hè scritta cusì finu à voi ghjunghje sin'à u accuratezza nicissarii, hè necessaria di ripetiri lu stissu azzione}

Quì hè un iddu - lu mètudu Simpson. In fattu, nunda di cumplessu, tuttu hè scrittu assai prestu! Avà apre u vostru Turbo Pascal è ritruvate u prugramma.