Tham khảo tài liệu 'tính kết cấu theo phương pháp động lực học part 10', kỹ thuật - công nghệ, kiến trúc - xây dựng phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Chương trình PGR 16 Tính giá trị riêng lớn nhất và véc tơ riêng tương ứng của kết câu Phục vụ cho việc tính giá trị riêng lớn nhất và véc tơ tương ứng của một kết cấu bất kỳ. Số liệu cần nhập 1. Số bậc tự do n 2. Các phần tử của ma trận độ cứng 3. Các phần tử của ma trận khối lượng 4 sk Ỷ Mc Ỷ Program 16 Tinh_GTRLN_va_vec_to_rieng_tuong_ung cua ket_cau Uses crt Type mtl array 1 .10 1 .10 of real mt2 array of real Var ij k p sn st sbt dl d2 d3 d4 array of integer cl c2 bl el d cd dt e y vtr l mm xl x2 yl y2 mt2 s m a Li b x mtl tt gtrln c z real Procedure NDMT var a u mtl n integer Var ij p integer c real begin p 0 REPEAT p p l if a p p oO then c l a p p for j l to n do begin a pj a pj c U pj U pj c end for i to n do if iOp then begin c. a i p for j l to n do begin a ij a ij -a pj c U ij U ij -U pj c end end UNTiL p n end 218 Procedure TGTRLN a x mtl n integer begin k -0 REPEAT k k 1 for i l to n do begin B i k 0 for p l to n do B i k B i k A i p X p k end if X l k oO then Y k B l k X 1 k for i l to n do begin if Y k oO then X i k 1 B i k Y k end z Y k -Y k-i Y k UNTIL abs z -l E-12 for i l to sbt do VTR i X i k l GTRLN Y k end Begin clrscr Nguoi lap trinh Vo nhu Cau writelnfnhap so BTD readhi sbt writelnfma tran do cung for i l to sbt do for j i to sbt do readln s i j writelnfma tran khoi luong for i l to sbt do for j i to sbt do readln m ij for i I to sbt do forj l to i-1 do begin s ij sU i mfi end Goi chuông trinh con de ngich dao MT m for i l to sbt do for j l to sbt do begin 219 if i j then u ij l if ioj then u i j 0 end NDMT m u sbt Xac dinh ma tran a de tinh lap for i l to sbt do for j l to sbt do begin a ij 0 for k 1 to sbt do a i j a ij u i k s k jj end Goi chuông trinh con de tinh gia tri rièng lon nhat for i to sbt do x i l l TGTRLN a x sbt Doc ket qua writeInfvecto rieng for i l to sbt do writeln VTR i writelnfGia tri rieng Ion nhaf writeln GTRLN readln end. Chương trình PGR 17 Tính giá trị riêng và véc tơ riêng cho ma trận cấp 2 Phục
