د Simpson طريقه څه ده، او دا چې څرنګه دا په پاسکال ژبه پلي

د Simpson میتود - د بېلېدونکې ارزښت محاسبه، که څه هم تقريبي، هلته يوه ښه طريقه، په نوم د خپل خالق وروسته ده. هغه هم parabolas میتود په نامه، ځکه چې دا د یو parabola د جوړولو لپاره کاروي. دغه رقم دی په توګه دنده تر ژره نږدې پر بنسټ. په حقیقت کې، په لاره کې څنګه يو parabola، چې په ګوته سره د فعالیت د ټکي کټ مټ سمون جوړ کړي، چې دا ناشونې ده، او د بشپړوونکی دا دی approximated. د سره د A او B د خپلو پولو د فورمول د ځای د دې په څېر ښکاري: 1 / h * (y + 4y _{0 1} + ₂ + 2y 4y ₃ + ... + 4y _n-1 + y _N). دلته موږ یوازې باید له 0 تر N، چې N موږ ځانونه تعريف هر y محاسبه - د نور، د ښه، ځکه چې نور y-S، چې د زموږ د کار د نا ریښتینو په ارزښت د تقريبي نور. سره h درناوي، او بيا دا ګام محاسبه د لاندی فورمول له خوا شوی دی: (لیسانس) / (n-1).

په اصل کې، هر څه ډېر ساده ده، خو دا به ضروري وي چې په عمل کې د دې د ټولو پلي کړي. د ډېرو (programmers) ده چې د همدې ستونزې د حل، د Simpson میتود په توګه ښه لاره نه - پاسکال یا ددولفی. په دې چاپیریال کې، دا ډیر آسانه کار نه يوازې د بېلېدونکې ارزوي، خو هم ته دا د فعالیت یوه ګراف جوړ کړي، او آن د هغې trapeze جوړ شوی دی. نو، موږ په تاسو څنګه کولای شي ډېر ژر د Simpson يوه طريقه د پلي کولو په لټه او آن د تشریح، که غوښتل، دواړه دلته او دا چې ده تنظیم، د هغو ټولو مينه.

خو زما په ياد دي هغه څه چې د هغه په شان د مخه دې نه بېلېدونکې ښکاري. دغه رقم، چې د ده له خوا د مزو د 'X' محور، i.e. د A او B پيل bounded.

نو، د دې خپرونې د پیل تاسو باید د integrable دندو (د tautology عفوه)، چې په ساده ولیکي F لري کوی رامنځته: = او څه د کوم لپاره چې موږ به نه بېلېدونکې پيدا کړي. دلته، دا مهمه ده، چې په کې د پاسکال د يوه دنده د ننوتلو بېلارې نه. خو دا یو راز کيسه کوي. په پایله کوډ به د دې په شان څه وګورو:

دنده f (x: دریښتینو): دریښتینو؛

او د اساسي متن بڼې

پیل

F: = 25 * ln (x) + ګناه (10)؛ {دلته او تاسو ته اړتيا لري، ترڅو د خپلو دندو د یی ولیکي}

د پای؛

بيا يوه دنده وليکي چې د Simpson میتود پلي کړي. شروع به لکه څه وي:

دنده simpsonmetod (A، B: دریښتینو؛ N: integer): دریښتینو؛

بل، موږ د متحولو اعلان:

var

د: دریښتینو؛ {Subtotals (لا پوه)}

h: دریښتینو؛ {ګام}

زما د: integer؛ يوازې {ضد}

MNO د: integer؛ {} د بل د ضرورت

او اوس، په حقیقت کې، د دې پروګرام په خپله:

پیل

h: = (لیسانس) / (n-1)؛ {د معياري فورمول له مخې ګام په تمه. کله کله د ګام دا دی چې په کار لیکل شوي، په دې صورت کې، چې دا فورمول نه درخواست}

د: = f (ب) + F (الف)؛ {په پام سره لومړنۍ جګوالی ارزښت}

MNO د: = 4؛ {په یاد د فورمول - 1 / h * (y + 4y _{0 1 ...} چې دا 4 دلته او املا، دوهم عامل دی خو د 2، نور په دې وروسته}

اوس چې ورته اساسی فورمول:

زما د: = 1 څخه تر N-2 مه پیل شي

د: = s + MNO د * f (يوه + h * اتاترک)؛ په لڼډ ډول {اضافه بل عامل ضرب د 4 * y _n يا 2 * y _n}

که (MNO د = 4) بيا MNO د: = 2 بل MNO د: = 4؛ {دا عامل توپير لري او - که اوس 4 ده، د 2 او برعکس بدل دی}

د پای؛

simpsonmetod: = د * h / 3؛ بل ته د فورمول له مخې {د دوران په پایله جمع ده د H / 3 ضرب}

پای.

دا چې دا - د فورمول له مخې ټولې کړنې وکړي. که تاسو په شکل نه بهر ته په اصلي پروګرام طريقه څنګه درخواست Simpson د مثال په توګه له تاسو سره په دې کې مرسته وکړي.

نو د ټولو نوشتن دندو لیکلو وروسته

پيل

N: = 3؛ موږ جوړ {n}

پوښتنه: = simpsonmetod (A، B، N)؛ {راهیسې د Simpson طريقه دا ده چې د یو د بېلېدونکې محاسبه ته د B، هلته به څو محاسبه ګامونه، نو دوره انتظام}

تکرار

Q2: = q؛ {حفظ پخواني ګام}

N: = N + 2؛

پوښتنه: = simpsonmetod (A، B، N)؛ {او} ارزښت لري په لاندې ډول محاسبه

تر (ABS (س-Q2) <0.001)؛ {د جوړولو کره لیکل شوی، نو تر تاسو د اړتیا دقت ته ورسيږي، چې دا د ورته کړنې تکرار ضروري ده}

دلته یو هغه - Simpson طريقه. په حقیقت کې، هیڅ پېچلې، هر څه ډېر په چټکۍ سره لیکل! اوس ستاسو د کنوود پاسکال دابرخه او د پروګرام ليکلو پيل کړي.