[ Pobierz całość w formacie PDF ]
.0d0c do 60 w=1,nc 60 d=d*a(w,w)c det=dif(d.ne.and.r.gt.0)thendo 90 k=n+1,n+ra(n,k)=a(n,k)/a(n,n)do 80 w=n-1,1,-1m=0d0do 70 p=n,w+1,-170 m=m+a(w,p)*a(p,k)a(w,k)=(a(w,k)-m)/a(w,w)80 continue90 continueendifreturnendPrzy wykorzystaniu programu 5.5 aproksymowano funkcje (4.148) ¸ (4.151)okreœlone na dyskretnym zbiorze argumentów, rozmieszczonych na p³aszczyŸnie wwêz³ach prostok¹tnej siatki o rozmiarach Jako wêz³y aproksymuj¹cej funkcjisklejanej (5.110) przyjêto wêz³y równomiernej prostok¹tnej siatki dla Powyznaczeniu wspó³czynników funkcji (5.100) obliczono jej wartoœci na liniachwyjœciowej kraty Otrzymane wyniki by³y wczytywane przez program zamieszczony wpodrêczniku [15] i w ten sposób uzyskano obrazy aproksymowanych funkcji,pokazane na rysunkach 5.32 ¸ 5.35.Oprócz tego aproksymowano dyskretne zbiorywartoœci funkcji (4.148) ¸ (4.151) zaburzone funkcj¹ losow¹ o sta³ejamplitudzie - wynosz¹cej 0.05 (rys.5.36 ¸ 5.39) oraz dyskretne zbiory wartoœcifunkcji, bêd¹ce iloczynami wartoœci funkcji zadanych (4.148) i (4.149) ifunkcji losowej o amplitudzie 0.15 (rys.5.40 - 5.41).Rys.5.32Rys.5.33Rys.5.34Rys.5.35Rys.5.36Rys.5.37Rys.5.38Rys.5.39Rys.5.40Rys.5.41
[ Pobierz całość w formacie PDF ]