Tiesinių lygčių sistemų sprendimas iteraciniais metodais

 Vilniaus Gedimino Technikos Universitetas Matematinio modeliavimo katedra Skaitiniai metodai ir algoritmai Laboratorinis darbas Nr. 2 Tiesiniu lygиiu sistemu sprendimas iteraciniais metodais Atliko: II-04/4 gr. stud. Aleksandr Volkov Tikrino: O. Štikonienė Vilnius,2005 Tiesinių lygčių sprendimas Jakobio ir didžiausio nuolydžio metodais Pagal duotus 25 varianto duomenis sudarau matrica: 1.592 0.202 -0.599 0.432 1.941 A: 0.202 1.592 0.202 -0.599 -0.230 -0.599 0.202 1.592 0.202 -1.941 0.432 -0.599 0.202 1.592 0.230 Programos kodas Jakobio metodas: Program jakobis real*8,allocatable,dimension(:,:)::A,b(:),xk(:),xk1(:),tiks(:) real*8 e,v,p,sum,maxt,tarp integer k open(1,file='Amatr.txt') open(2,file='rezult.txt') read(1,*)n allocate(A(n,n), b(n),xk(100),xk1(100),tiks(n),stat=klaida) if (klaida/=0) then print*,'Atminties paskirti nepavyko!' stop end if read(1,*) ((A(i,j),i=1,n),j=1,n) read(1,*) (b(i),i=1,n) write(*,10) A write(*,11)b !Tikrinu, ar patenkinta konvergavimo salyga do i=1,n do j=1,n sum=0. if (i/=j)then sum=sum + dabs(A(i,j)) end if end do if(dabs(A(i,i))

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!