Nə Simpson metodu və dil Paskal onu həyata necə

Simpson metodu - ayrılmaz dəyəri hesablamaq üçün, təxmini də olsa, onun yaradıcısı adına əla üsul var. bir parabola tikintisi istifadə edir, çünki O, həmçinin metodu Parabolas çağırıb. Bu rəqəm funksiyası kimi yaxın mümkün əsaslanır. Əslində, funksiyası xalla tam üst-üstə düşür ki, bir parabola, yaratmaq üçün necə yol, bu mümkün deyil, və ayrılmaz təxminən olunur. bir və b ilə sərhədlərinin Formula yeri bu kimi görünür: 1 / h * (y + 4y _{0 1} + 2y ₂ + 4y ₃ + ... + 4y _n-1 + y _n). Burada biz yalnız n biz özümüz müəyyən n, 0-dan hər y hesablamaq lazımdır -, daha yaxşı daha y-s, bizim iş əsl dəyəri daha təxmini çünki. (Ba) / (n-1): saat ilə bağlı, və sonra bu addım aşağıdakı düsturla hesablanır.

Nəzəri olaraq, hər şey olduqca sadə, lakin praktikada bu bütün həyata keçirilməsi üçün zəruri olacaq. Pascal və ya Delphi - bir çox proqramçılar üçün Simpson metodu kimi, bu problemi həll etmək üçün daha yaxşı bir yol deyil. Bu mühitdə, bu tərkib qiymətləndirmək, həm də bu funksiyası bir grafik yaratmaq üçün yalnız çox asandır, və hətta onun trapesiya tikilib. Belə ki, biz tez Simpson metodu həyata keçirə bilər necə baxmaq və istədiyiniz, həm də burada ki, bütün bu maraqlı təşkil hətta izah.

Amma bu tərkib əvvəl kimi görünür nə xatırlayıram. 'X' ox, yəni bir və b ilə başlayan xətləri ilə həmsərhəddir Bu rəqəm.

biz ayrılmaz tapa olan = və bir şey: Belə ki, proqram başlamaq üçün inteqral sadəcə f yazmaq lazımdır funksiyaları (tavtalogiya əfv) üçün bir funksiyası yaratmaq lazımdır. Burada, bu Pascal bir funksiyası daxil səhv düşmək deyil vacibdir. Amma fərqli bir hekayə var. nəticəsində code bu kimi bir şey görünür:

funksiyası f (x: real): real;

Və əsas mətn xüsusiyyətləri

başlamaq

f = 25 * ln (x) + günah (10); {Burada və onun funksiyaları məzmunu yazmaq lazımdır}

son;

Sonra Simpson metodu həyata keçirilməsi üçün bir funksiyası yazmaq. Start kimi bir şey olacaq:

funksiyası simpsonmetod (a, b: real; n: tam): real;

Sonra, biz dəyişənlərin elan:

var

s: real; {Axtar toplamlar (bundan sonra anlamaq)}

h: real; {Step}

my: tam; Just {counter}

mno: tam; {} Növbəti çarpan

İndi, əslində, proqram özü:

başlamaq

h: = (ba) / (n-1); {Standart formula görə addım gözləyirik. Bəzən addım} iş yazılı, bu halda, bu formula tətbiq edilmir

s: = f (b) + f (a); {Nəzərə alaraq ilkin meydança dəyəri}

mno: = 4; {- ikinci amil bu sonra daha 2, lakin burada 4 və yazıldığına ki _... 1 / h * (y + 4y _{0 1} formula saxla}

Eyni əsas formula Now:

= 1 n-2 başlayacaq yoxdur: mənim üçün

s: = s + mno * f (a + h * Mu); yekunlaşdırmaq üçün {4 * y _n və ya 2 * y _n vurulur başqa amil _əlavə}

əgər (mno = 4) sonra mno: Başqa mno = 2 = 4; {Bu amil dəyişir və - indi 4, əgər 2 və əksinə dəyişib}

son;

simpsonmetod: = s * h / 3; Next formula görə {dövrü nəticəsində məbləğ / 3 saat vurulur}

son.

Vəssalam - formula görə bütün tədbirlər yoxdur. Siz əsas proqram metodu tətbiq etmək necə fiqurlu yoxdur Simpson nümunəsi bu sizə kömək edir.

Belə ki, bütün yazma funksiyaları yazdıqdan sonra

başlamaq

n: = 3; Biz müəyyən {n}

q: = simpsonmetod (a, b, n); {Simpson metodu b bir tərkib hesablamaq üçün olduğundan, bir neçə hesablanması addımlar olacaq, belə ki dövrü təşkil edəcək}

təkrarlamaq

Q2: = q; {Xatirəsi əvvəlki addım}

n = n + 2;

q: = simpsonmetod (a, b, n); aşağıdakı {And} dəyəri hesablanır

qədər (abs (q-Q2) <0.001) {tələb dəqiqliyi çatana qədər, eyni hərəkətləri təkrar etmək lazımdır, belə ki, qəbulu dəqiqlik, yazılı}

Simpson metodu - Burada bir o. Əslində, heç bir şey mürəkkəb, hər şey çox tez yazılmışdır! İndi Turbo Pascal açmaq və proqram yazmağa başlayın.