2-bosqichda a1,p1noma'lum koeffisientlarning barcha qiymat-lari
topilgach (6.22) rekkurent formula yordamida qidirilayotgan yechim yt larni topish mumkin, bu yerda ham rekkurent formulaning ishlashi
uchun dastlabki qiymat sifatida yn ni aniqlash lozim. Bu ishni bajarish uchun x = b nuqtadagi chegaraviy shartdan hosil qilingan (6.21) sistemaning uchinchi tenglamasi
АпУп+ ВпУп-1 = Dn va (6.22) formulaning i = n -1 nuqtadagi ko‘rinishi уп_г=anyn + pn dan foydalanamiz, ya'ni ularni sistema deb qarab, bu sistemadan yn ni
• , • yCnbn - Dn aniqlaymiz. Уп= ——-—
В - C a Qidirilayotgan yn hisoblangach, yi = a+ ■ y1+1 + pi+1 rekkurent
formulasi yordamida (i = n -1,0) barcha qolgan yechimlar topiladi.
Bu jarayon i ga nisbatan teskari tartibda bo‘lgani uchun, uni haydashning teskari bosqichi deb ataymiz.
(6.21) sistemaga xaydash usulini qo‘llash uchun quyidagi turg’unlik shartlari bajarilishi kerak:
C
C
В i
>\A\ + \Ct\, i = 1,n-1,
^0
< 1,
n
B0
Bn
< 1
Ai ^ 0, Ci ^ 0,
Shunday qilib, oldimizga qo‘yilgan masalani, ya'ni o‘zgaruvchan koeffisientli, ikkinchi tartibli, oddiy differensial tenglamani chekli ayirmali formulalar yordamida sonli-taqribiy usulda yechish uchun ishchi algoritm hosil qildik.
Usulga mos algoritm blok-sxemasi quyidagicha ko‘rinishda bo‘ladi Algoritmning dastur matni program cheklia; uses crt; const n=10; A0,B0,C0,An,Bn,Cn,Ai,Bi,Ci,Di:real; i:integer; al, be:array[1..n] of real; y:array[0..n] of real; function p(x:real):real; begin p:=-2;end; function q(x:real):real; begin q: =x*x*x;end; function f(x:real) :real; begin f:=12*x*x-8*x*sqr(x)+exp(7*ln (x));end; begin write('m0,m1,m2,g0,g1,g2='); readln(m0,m1,m2,g0,g1,g2); write('a,b='); readln(a,b); h:=(b-a)/n; B0:=-h*m0+m1; A0:=m1; D0:=h*m2; Bn:=-h*g0-g1; Cn:=-g1; Cn:=h*g2; al[1]:=C0/B0; be[1]:=-D0/B0; for i:=1 to n-1 do begin x:=a+i*h; Ai:=1 + (h/2)*P(x);Bi:=2-h*h *q(x); Ci:=1-(h/2)*P(x);Di:=h*h*f(x); al[i+1]:=Ai/ (Bi-Ci*al[i]); be[i+1]:=(Ci*be[i]-Di)/(Bi-Ci*al[i]); end; y[n]:=(Dn-Cn*be[n])/(-Bn+Cn*al[n]); for i:=n-1 downto 1 do y[i]:=y[i+1]*al[i+1]+be[i+1]; for i:=0 to n do writeln(y[i]:2:8,' ',sqr(h*i)*sqr(h*i):2:8,' ', abs(y[i]- sqr(i*h)*sqr(i*h)):2:8); end. Ishlab chiqilgan algoritm va dastuming ishonchlilik daraja-sini tekshirish uchun quyidagi chegaraviy masalani yechishni tashkil qilib ko‘raylik:
y"(x) - 2 • y'(x) + x3 • y(x) = 12x2 - 8x3 + x7 differensial tenglamani y(0) = 0 , y (1) = 1
chegaraviy shartni qanoatlantiruvchi yechimini topish. Dasturdan olingan natijalar quyidagi jadvalda keltirilgan.
x
Taqribiy
Aniq
Xatolik
0.0
0.00000000
0.00000000
0.00000000
0.1
0.00006966
0.00010000
0.00016966
0.2
0.00108964
0.00160000
0.00051036
0.3
0.00712884
0.00810000
0.00097116
0.4
0.02411037
0.02560000
0.00148963
0.5
0.06051107
0.06250000
0.00198893
0.6
0.12722581
0.12960000
0.00237419
0.7
0.23757174
0.24010000
0.00252826
0.8
0.40729307
0.40960000
0.00230693
0.9
0.65456559
0.65610000
0.00153441
1.0
1.00000000
1.00000000
0.00000000
Natijalardan va xatolik miqdorini kam ekanligidan ishlab chiqilgan algoritmdan amaliy masalalarni yechishda keng foydalanish mumkin degan xulosa kelib chiqadi.
i
□ 1. 2. 3. 4. Nazorat savollari Chekli ayirmali formulalar qanday hosil qilinadi?
Chekli ayirmalar usulida hosil qilinadigan mahsus tenglamalar sistemasi qanday yechiladi?
Haydash usulidagi to‘g’ri va teskari bosqichlarning mohiyatini tushuntirib bering?
Haydash usulini qo‘llash uchun qanday turg’unlik shartlari bajarilishi kerak?
§. Galyorkin usuli
Tayanch so‘z va atamalar Galyorkin usuli, izlanayotgan funksiya, tafovut miqdor, bir jinsli bo‘lmagan chegaraviy shartlar, o'zaro bog’liq bo‘lmagan (ortogonal) bazis funksiyalar. Yuqorida ta'kidlab o‘tganimizdek. Galyorkin usuli taqribiy- analitik usullar guruhiga kiradi. Mazkur usullar guruhi tarkibiga kiruvchi barcha usullarda berilgan differensial tenglamaning yechimi taqribiy aniqlangan formulalar yordamida topiladi va albatta, yechim ham analitik ko‘rinishda ifodalanadi. Ayniqsa, ko‘pgina fizika va mexanika masalalarining yechimini analitik ko‘rinishda qidirish lozimligi, taqribiy analitik usullarni o‘rganishga katta ehtiyoj tug’diradi.
Deyarli barcha taqribiy-analitik usullarning algoritmlari bir-biriga o‘xshash bo‘lgani uchun quyida Galyorkin usulini o‘rganish bilan cheklanamiz.
Bizga yana avvalgi mavzudagi kabi, quyidagi chegaraviy masala berilgan bo‘lsin, ya'ni:
y"(x )+ p(x) ■ y'( x) + q( x) • y( x) = f (x) (6.24)
tenglama va
|m0y(a) + miУ(a) = m2 (62 _)
lg0y(b) + giy’(b) = g2 ( . ) chegaraviy shartni qanoatlantiruvchi yechimni topish kerak.
Ma'lumki, ixtiyoriy uzluksiz funksiyani cheksiz qator ko‘rinishida ifodalash mumkin:
y(x) = u0(x) + X Clul(x) i=1 Galyorkin usulida ushbu qatordagi “ n ” ta chekli xad bilan chegaralanib, chegaraviy masalaning yechimini quyidagi ko‘rinishda qidirish taklif etiladi:
У(x) = uo( x) + Z сгиг(x)
(6.26) i=1
Bu yerda shuni eslatib o‘tish lozimki, Galyorkin usulida yo‘l qo‘yilgan yagona va asosiy xatolik cheksiz hadli qatorni chekli hadli qatorga almashtirishdan iboratdir. Qatordagi hadlar sonini qancha ko‘p olsak, shunchalik olingan natijalar ishonchli va aniq yechimga yaqin bo‘ladi. Lekin, ikkinchi tomondan, qatordan ko‘proq had olishga intilish qo‘lda bajariladigan matematik almashtirishlar va amallar sonini keskin orttirib yuboradi. Bu esa yo‘l qo‘yilishi mumkin bo‘lgan xatoliklar ehtimolini keskin orttiradi.
Endi e'tiborimizni yana yechimni qidirishga qaratsak, (6.26) formuladagi c1,c2,..cn-lar qiymatlari noma'lum bo‘lgan o‘zgarmaslar hisoblanadi. и0(x),u1(x),...,un (x)lar esa tanlab olinadigan [a, b] kesmada ikki marta uzluksiz differensallanuvchi, chiziqli bog’liq bo‘lmagan funksiyalar hisoblanadi, ya'ni ular bazis sistemasini tashkil qilishi kerak.
Bazis funksiyalarni shunday tanlash lozimki, (6.26) formula bilan aniqlanuvchi masalaning yechimi c1,c2,...,cn o‘zgarmaslarning ixtiyoriy tanlangan qiymatlarida ham chegaraviy masalaning (6.25) chegaraviy shartlarini qanoatlantirsin. Buning uchun bazis funksiyalarni tanlash quyidagicha amalga oshiriladi.
Avval quyidagi operatorlarni muomalaga kiritaylik:
L[ y( x)] ° y"Cx)+p( x) y’( x)+q( x) y( x), La[У(x)] ° m0 У(x) + т1У(x) Lb[У(x)] ° goУ(x) + giy(x) u0(x) funksiya - berilgan (6.25) chegaraviy shartni qanoatlantiruvchi funksiya bo‘lishi lozim, ya'ni:
im0и0(a) + m1u '0(a) = m2^[uo(a)] = m2 1 g0u0(b) + giu\(b) = g2yo i iLb[u0(b)] = g2 .
u1(x),u2(x),...,un(x) funksiyalari esa berilgan (6.25) chegaraviy shartning bir jinsli holatini qanoatlantiruvchi funksiyalar bo‘lishi lozim, ya'ni:
m0ui (a) + mlui(a) = 0
La [Ui (a)] = 0 Lb[u(b)] =0 < . , i = i,n yoki
i g 0ui(b) + glU'(b) = 0 Bazis funksiyalarni tanlash yo‘llarini quyidagi misolda ko‘rib chiqaylik:
Chegaraviy masalaning chegaraviy shartlari quyidagicha berilgan bo‘lsin:
I y(0) = 1 I y(1) = 0
u0(x) ni shunday tanlaymizki, u0 (0) = 1, u0 (1) = 0, ya'ni berilgan chegaraviy shart qanoatlansin:
u0 (x) = 1 - x
Xuddi shunga o‘xshash, boshqa bazis funksiyalar uk(x) lar esa bir jinsli chegaraviy shartlarni qanoatlantirishi va chiziqli bog’liqsiz bo‘lishi kerak.