Chii Simpson nzira, uye sei kushandisa nayo mumutauro Pascal

Kuverenga kukosha chinhu chinokosha, kunyange anofungidzirwa, pane rakaisvonaka nzira, ainzi pashure wacho - ndiye nzira Simpson. Vaakadana parabolas nzira, nokuti anoshandisa pavakwe parábola. Nhamba iyi inobva sezvo pedyo sezvinobvira mashandiro. Chaizvoizvo, nzira sei kuvaka parábola, panotaura zvinopindirana kunyatsoenderana pfungwa mashandiro, hazvibviri, uye chinokosha iri approximated. Formula nzvimbo miganhu waro, uye, b anotarisa seizvi: 1 / h * (Y + 4y _{0 1} + 2y ₂ + 4y ₃ + ... + 4y _N-1 + and _n). Pano, tinofanira chete tinoda kuverenga rimwe and kubva 0 kusvika N, apo N tinorondedzera pachedu - vazhinji, nani, nokuti zvikuru and-s, zvikuru anofungidzirwa kuti kukosha basa redu zvechokwadi. Panyaya H, uye ipapo danho iri rinowanikwa kubudikidza mutoo: (ft) / (n-1).

Nemuromo, zvose zviri nyore, asi zvingava zvakafanira ezvidzidzo zvose izvi uchidzidzira. Nokuti programmers zhinji hapana nzira iri nani yokugadzirisa dambudziko iri, sezvo nzira Simpson - Pascal kana Delphi. In ezvinhu ichi, zviri nyore chaizvo kwete chete kuongorora chinokosha, asi kuti kuvaka girafu pakati mashandiro kwairi, uye kunyange vakavaka yake trapeze. Saka, tinotarisa kuti unogona kukurumidza kushandisa nzira Simpson uye kunyange kutsanangura, kana kutsvakwa, zvose pano uye kuti yakarongwa, vose vaifarira.

Asi ndinorangarira chii sokunge pamberi chinokosha ichi. Nhamba iyi, iyo iri rakatenderedzwa mitsetse kutanga 'X' akabatana, i.e. imwe uye b.

Saka, kutanga chirongwa unofanira pave mashandiro kuti integrable mabasa (yacho tautology), izvo kungorega kunyora add: = uye chinhu icho tinozowana chinokosha. Pano, zvinokosha kwete yakatsauka kupinda basa iri Pascal. Asi nyaya yakasiyana. The zvichiguma Bumbiro vachatarira chinhu chakadai:

basa d (x: chaihwo): chaicho;

Uye chikuru chinyorwa zvinhu

kutanga

F: = 25 * Dr (x) + chivi (10); {Pano uye unofanira kunyora zviri mabasa ayo}

agumise;

Zvadaro nyora Zvaiitwa kuti pave nzira Simpson. Start achava chinhu chakafanana:

basa simpsonmetod (a, b: chaicho; N: integer): chaicho;

Next, isu kuzivisa variables:

gat

s: chaicho; {Subtotals (mamwe kunzwisisa)}

h: chaicho; {Step}

wangu: integer; Just {kaunda}

mno: integer; {} Akatevera multipliers

Zvino, chokwadi, purogiramu pacharo:

kutanga

h: = (ft) / (n-1); {Tarisira danho maererano payakavakirwa. Dzimwe danho zvakanyorwa basa, muchiitiko ichi, nzira iyi hairevi}

s: = d (b) + F (a); {Tichifunga kwokutanga nenamo ukoshi}

mno: = 4; {Yeuka nzira - 1 / h * (Y + 4y _{0 1 ...} kuti 4 ichi pano nesipereti, chinhu chechipiri chiri 2, asi zvikuru iri pashure}

Zvino iroro inokosha payakavakirwa:

wangu: = 1 kusvika N-2 here kutanga

s: = S + mno * add (a H + * Mu); Aunganidze {wedzera mumwe chinhu kane 4 * ja _N kana 2 * and _N}

kana (mno = 4) Saka mno: = 2 zvikasadaro mno: = 4; {chinhu ichi zvinyamusi uye - kana zvino 4, ikaita 2 ndiEzekieri}

agumise;

simpsonmetod: = S * f / 3; Next {kutenderera zvichiguma pakuverengwa zvikawanda nokuda H / 3} maererano fomura

magumo.

Ndizvozvo - kuita zviito zvose maererano fomura. Kana iwe usina afunga sei kuti kushandisa huru chirongwa nzira muenzaniso Simpson kuti kukubatsira ichi.

Saka anyora zvose nyora mabasa

Tanga

N: = 3; Tinoisa {N}

Q: = simpsonmetod (a, b, n); {Sezvo Simpson nzira iri compute kuti chinokosha ane akundinamata, pachava akawanda kukarukureta matanho, saka rongai kutenderera}

dzokorora

q2: = Q; {Nemusoro yapfuura danho}

N: = N + 2;

Q: = simpsonmetod (a, b, n); {Uye} ukoshi rinowanikwa sezvinotevera

kusvikira (abs (Q-q2) <0.001); {Zvaizonakidza zvakarurama zvakanyorwa, saka kusvikira wasvika inodiwa zvakarurama, zvakakodzera kudzokorora zviito chete}

Heunoi iye - Simpson nzira. Kutaura zvazviri, hapana kuoma, zvose zvakanyorwa nokukurumidza! Zvino zarurai yenyu Turbo Pascal uye tanga kunyora chirongwa.