Simpson арга гэж юу вэ, хэл Pascal үүнийг хэрэгжүүлэх талаар

Симпсон арга - салшгүй үнэ цэнийг тооцохын тулд ойролцоо боловч, тэнд маш сайн арга, түүний бүтээгч нэрээр нэрлэгдсэн юм. Тэрээр мөн энэ нь гиперболын барих ашигладаг, учир нь арга parabolas гэж нэрлэдэг. Энэ тоо функцийн аль болох ойр байдлаар тулгуурласан байдаг. Үнэндээ Парабол, үйл ажиллагаа оноо яг давхцаж харуулж барих хэрхэн арга зам, энэ нь боломжгүй юм, салшгүй ойролцоо байна. А ба В өөрийн хил хязгаарыг Формула байршил иймэрхүү харагдах болно: 1 / ц * (у + 4y _{0 1} + 2y ₂ + 4y ₃ + ... + 4y _N-1 + у _н). Энд бид N, N бид өөрсдийгөө тодорхойлох нь 0-ээс у бүр тооцох хэрэгтэй - илүү, илүү сайн илүү у с, бидний ажлын үнэн үнэ цэнийг илүү ойролцоо юм. (BA) / (N-1): H хувьд, дараа нь энэ алхам нь дараах томъёогоор тооцно.

Онолын хувьд, бүх зүйл нь маш энгийн байдаг, гэхдээ энэ нь практикт энэ бүх хэрэгжүүлэхэд шаардлагатай байж болох юм. Паскалийн эсвэл Delphi - Олон програм нь Simpson нэг арга гэж энэ асуудлыг шийдэхийн тулд, ямар ч илүү сайн арга зам юм. Энэ нь байгаль орчин, энэ нь салшгүй үнэлэх цорын ганц биш, бас түүнд функцийн графикийг байгуулах нь маш амархан байдаг, тэр ч байтугай түүний трапец барьсан. Тиймээс бид яаж хурдан Симпсон аргыг хэрэгжүүлэх боломжтой хараад, энд хүссэн бол аль аль нь, энэ бүх хүмүүсийн сонирхсон зохион байгуулж байгаа ч, тайлбарлах.

Гэхдээ би энэ салшгүй өмнө нь иймэрхүү харагдах юу санаж байна. Энэ зураг, 'X' тэнхлэг, өөрөөр хэлбэл А, Б эхлэн шугамаар хүрээлэгдсэн байна.

= болон ямар нэгэн зүйл нь бид салшгүй олох болно: Тэгэхээр Програмыг эхлүүлэхийн тулд та integrable үйл ажиллагаа (tautology уучлах), зүгээр л е бичих байх нь үйл ажиллагааг бий болгох хэрэгтэй байна. Энд, энэ Паскалийн нь үйл ажиллагаа орж байгаа алдаа гаргадаг байх нь чухал юм. Гэхдээ энэ бол өөр түүх л дээ. үр дүнд код нь иймэрхүү харагдах болно:

функц F (X: Бодит): Бодит;

Тэгээд үндсэн текст онцлог

эхлэх

е: = 25 * LN (X) + нүгэл (10); {Энд та өөрийн чиг үүргийн агуулгыг бичих хэрэгтэй}

эцсийн;

Дараа нь Симпсон аргыг хэрэгжүүлэх үйл ажиллагааг бичиж байна. Start иймэрхүү байж болно:

үйл ажиллагаа simpsonmetod (а, б: Бодит; N: бүхэл): Бодит;

Дараа нь бид хувьсагчийг зарлах:

VAR

S: Бодит; {Дэд дүнгүүдийг (цаашид ойлгох)}

ж: Бодит; {Алхам}

Миний: бүхэл тоо; Зүгээр л {эсрэг}

MnO: бүхэл тоо; {} Дараагийн рж

Мөн эдүгээ, үнэндээ, хөтөлбөр нь өөрөө:

эхлэх

цаг: = (Ба) / (N-1); {Стандарт томъёогоор алхам хүлээгдэж. Заримдаа алхам нь хэвлэгдэх гэж буй бичсэн энэ тохиолдолд энэ томъёо хэрэглэнэ биш юм байна}

S: = F (б) + F (а); {Харгалзан эхний давирхай утга}

MnO: = 4; {Томъёо санаж байна - 1 / H * (Y + 4y _{0 1,} хоёр дахь хүчин зүйл нь энэ нь дараа нь 2 юм, гэхдээ илүү энд энэ 4, тавьсан гэж _...}

Одоо тэр үндсэн томъёог:

= 1 N-2 нь эхлэх вэ: Миний хувьд

S: = S + MnO * F (а + H * Му); Дүгнэн хэлэхэд {4 * у _н буюу 2 * у _N үржүүлж өөр нэг хүчин зүйл _нэмж}

бол (MnO = 4) Дараа нь MnO: = өөр MnO 2: = 4; {Энэ хүчин зүйл нь өөр өөр байдаг бөгөөд - одоо 4 бол 2 болон эсрэгээр өөрчлөгдсөн байна}

эцсийн;

simpsonmetod: = S * H / 3; Дараах томъёогоор {мөчлөг үр дүнд сум / 3 цаг үржүүлж байна}

төгсгөл.

Энэ нь түүнийг юм - томъёоны дагуу бүх үйл ажиллагааг хийж байна. Та үндсэн хөтөлбөр нь арга хэрэглэх хэрхэн үзэхэд амжаагүй байгаа бол Simpson жишээ энэ танд тусална.

Ингээд бүх бичих үүргийг бичих дараа

эхлэх

N: = 3; Бид тогтоосон {N}

А: = simpsonmetod (A, B, N); {Simpson В арга нь салшгүй тооцоолох явдал юм оноос хойш хэд хэдэн тооцоо алхам байх, тийм болохоор циклийг зохион байгуулж болно}

давтан

2-р улирал: = Q; {Цээжилсэн өмнөх алхам}

N: = N + 2;

А: = simpsonmetod (A, B, N); {Тэгээд} утга нь дараах байдлаар тооцно

хүртэл (ABS (п-Q2) <0.001); {тохиргоо нарийвчлал та шаардлагатай үнэн зөв хүртэл, энэ нь яг адил үйлдэл давтах шаардлагатай байдаг учраас бичигдсэн байдаг}

Simpson арга - Энд тэр юм. Ер нь, ямар ч хүндрэлтэй, бүх зүйл маш хурдан бичигдсэн байдаг! Одоо таны Turbo Pascal нээж, хөтөлбөрийг бичиж эхэлнэ.