máy bơm nước hỏa tiễn công ty in ấn https://duan-knparadise.com/ Bơm nước hỏa tiễn bóp da nam Túi nilon PP cong ty in bieu mau
Phuong Phap Phan Tu Hư Han (finite - Element Method) - Page 7 - Diễn đàn của các kỹ sư kết cấu Việt Nam










































































Features
Go Back   Diễn đàn của các kỹ sư kết cấu Việt Nam > ỨNG DỤNG TIN HỌC TRONG THIẾT KẾ XÂY DỰNG > Phương pháp tính
Tên thành viên
Mật mã
Tin HOT Thông tin BQT diễn đàn

Result  Reload Thống Kê - Diễn đàn của các kỹ sư kết cấu Việt Nam
All Forums | Thông báo | Văn Bản Pháp Luật | Văn Hóa Văn Nghệ Giao Lưu
Please wait...
Please wait...
Loading...
Trả lời
 
Ðiều Chỉnh Xếp Bài
Old 02-01-2008   #121
David Giang
Thành viên rất tích cực
 
David Giang's Avatar
 
Tham gia ngày: Dec 2007
Nơi Cư Ngụ: Gò Vấp TPHCM
Bài gởi: 232
Thanks: 4
Thanked 49 Times in 33 Posts
Default Ðề: Phuong Phap Phan Tu Hư Han (finite - Element Method)

Trích:
Nguyên văn bởi henycuong
TRÊN DIỄN ĐÀN HÌNH NHƯ ÍT THẠC SĨ ĐÓNG GÓP NHỈ (TOẰN LÒI SĨ KO) VUI NHÉ. MẤY BẠN TÌM ĐỌC THÊM CUỐN PHƯƠNG PHÁP SỐ NÂNG CAO CỦA THẦY TS LÊ ĐÌNH HỒNG (ĐH BK TPHCM) - VÀO TRƯỜNG BK ĐẶT PHOTO
Chán thiệt em đọc chẳng hiểu được nhiêu trong cuốn này cả mấy lần vô đọc chỉ xem qua rùi chuồn đi thôi. tại vì lần đầu nghe đứa bạn giới thịêu em đọc bực cả mình nên quyết định học thêm môn Lập trình Pascal để giải mấy bài tập.Bác xem thử bản đầu tay của em rùi ho em ý kiến nhé :
Khung nhà một tầng
program KHUNG NHA;
const r=6;n=3;u=1;phay=',';
var K,B,Z:array [1..n,1..n] of real;
Mo:array [1..r,1...n] of real;
Mq,Mp,Mcv,M:array [1..r,1...u] of real;
Y:array [1...n,1...u] of real;
i,j,s,t:integr;
C:real
begin writeln ('tinh khung nha mot nhip');
For i:=1 to n do
For j=1 to n do
begin Write ('K[',i,phay,j,']=');
readln(K[i,j]);
End;
For i:=1 to n do
For j=1 to n do
Begin Write ('B[',i,phay,j,']=');
Readln(B[i,j]);
End;
For i:=1 to r do
For j=1 to n do
Begin Write ('Mo[',i,phay,j,']=');
Readln(Mo[i,j]);
End;
For i:=1 to r do
For j=1 to u do
Begin Write ('Mq[',i,phay,j,']=');
Readln(Mq[i,j]);
End;
For i:=1 to r do
For j=1 to u do
Begin Write ('Mp[',i,phay,j,']=');
Readln(Mp[i,j]);
End;
Begin
For i:=1 to n do
For j:=i+1 to n do
Begin c=K[j,i]/K[i,i];
For s:=1 to do
K[j,s]:=K[j,s]-c*K[i,s];
For t:=1 to n do
B[j,t]:=bb[j,t]-c*B[i,t];
End;
For j:=1 to n do
Begi Z[n,j]:=B[n,j]/K[n,n];
End;
For j:=1 to n do
For i:=n-1 downto 1 do
Begin c:=0;
For s:=n downto i+1 do
c:=c+K[i,s]*Z[s,j];
Z[i,j]:=(B[i,j]-c)/K[i,i];
End;
Writeln ('Chuyen vi cua he bang =');
For i: =1 to n do
for j: =1 to n do
Begin writeln ('Z[',i,phay,j,']=','1200/EL*',Z[i,j]);
End;
Begin i:= 1;j:=1;Y[i,j]:=Z[1,1]+Z[1,2]+Z[1,3];end;
Begin i:= 2;j:=1;Y[i,j]:=Z[2,1]+Z[2,2]+Z[2,3];end;
Begin i:= 3;j:=1;Y[i,j]:=Z[3,1]+Z[3,2]+Z[3,3];end;
writeln ('tong chuyen vi cua he so bang=');
For i:= 1 to n do
For j:= 1 to u do
begi writeln ('Y[',i,phay,j,']=1200/EL*',Y[i,j]);
End;
For i:=1 to n do
For j:=1 to u do
Begin Mcv [i,j]:=0;
For s:=1 to n do
Mcv[i,j]:=Mcv[i,j]+Mo[i,s]*Y[s,j];
End;
For i:= 1 to r do
For j:=1 to u do
Begin M[i,j]=Mq[i,j]+Mp[i,j]+Mcv[i,j];
End;
Writeln ('Momen tai cac nut bang =');
For i:=1 to r do
For j:=1 to u do
Writeln ('M[',i,phay,j,']=,M[i,j]);
Readln;
End;
End;
Không biết mấy anh có cách viết nào hay hơn không nói em biết vơi? '''Ngựa non tập chạy ''''
David Giang vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Loading...
Trả lời

Ðiều Chỉnh
Xếp Bài

Quyền sử dụng ở Diễn Ðàn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Mở

Chuyển đến



Múi giờ GMT. Hiện tại là 02:26 AM.


DIỄN ĐÀN http://ketcau.com/forum NƠI HỘI TỤ CỦA CÁC KỸ SƯ KẾT CÂU VIỆT NAM
WWW.KETCAU.COM - CẦU NỐI CỦA CÁC KỸ SƯ KẾT CẤU CÔNG TRÌNH, ĐỊA KỸ THUẬT VIỆT NAM. DIỄN ĐÀN ĐƯỢC MUA BẢN QUYỀN CỦA JELSOFT ENTERPRISES Ltd. Thiết kế website