1. Trang chủ
  2. » Luận Văn - Báo Cáo

Nghiên cứu thành phần mẻ liệu thuốc bọc để chế tạo que hàn thép cacbon tương đương mác que hàn E6013 theo tiêu chuẩn AWS A51 bằng vật liệu trong nước

128 51 1

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 128
Dung lượng 1,91 MB

Nội dung

Nghiên cứu thành phần mẻ liệu thuốc bọc để chế tạo que hàn thép cacbon tương đương mác que hàn E6013 theo tiêu chuẩn AWS A51 bằng vật liệu trong nước Nghiên cứu thành phần mẻ liệu thuốc bọc để chế tạo que hàn thép cacbon tương đương mác que hàn E6013 theo tiêu chuẩn AWS A51 bằng vật liệu trong nước luận văn tốt nghiệp thạc sĩ

Trần xuân dũng giáo dục đào tạo trường đại học bách khoa hà nội - luận văn thạc sĩ khoa học Thiết bị công nghệ hàn ngành : thiết bị công nghệ hàn nghiên cứu thành phần mẻ liệu thuốc bọc để chế tạo que hàn thép cácbon tương đương mác que hàn e6013 theo tiêu chuẩn aws a5.1 vật liệu Trần xuân dũng 2007 - 2009 Hµ Néi 2009 Hµ Néi 2009 MỤC LỤC LỜI NÓI ĐẦU CHƯƠNG 1: GIỚI THIỆU QUE HÀN THÉP CACBON 1.1 Cấu tạo que hàn……………………………………………………… 1.1.1 Lõi que hàn…………… ………………………………………… 1.1.2 Vỏ bọc que hàn ………………………………………………… 1.1.2.1 Nhóm vật liệu tạo khí…… ……………………………… 10 1.1.2.2 Nhóm vật liệu tạo xỉ……………………… ……………… 10 1.1.2.3 Nhóm vật liệu chất khử, hợp kim hố biến tính kim loại…………………………………………………………………… … 11 1.1.2.4 Nhóm vật liệu ổn định hồ quang…………………………… 11 1.1.2.5 Nhóm chất dính kết………………………………………… 12 1.1.2.6 Nhóm chất tạo hình………………………………………… 12 1.2 Yêu cầu que hàn thép cacbon………………………………… 12 1.2.1 Yêu cầu chung…………………………………………………… 12 1.2.2 Yêu cầu đặc tính cơng nghệ que hàn thép cacbon…………………………………………………………………… 13 1.2.3 Yêu cầu kỹ thuật chung chế tạo que hàn ……………… 13 1.3 Phân loại que hàn………………… ………………………………… 16 1.3.1 Theo tính chất thuốc bọc que hàn…………………………… 16 1.3.2 Theo công dụng chung…………………………………………… 17 1.3.3 Theo chiều dày lớp vỏ bọc……………………………………… 17 1.3.4 Theo mức độ hợp kim hoá đối tượng để hàn………………… 17 1.4 Kí hiệu que hàn………………………………… ……… 17 1.4.1 Que hàn thép cacbon thấp…………… ………………………… 17 1.4.2 Que hàn thép hợp kim thấp……………………………………… 19 1.4.3 Que hàn thép không gỉ… ……………………………………… 19 1.5 Giới thiệu que hàn thép cacbon E6013………….………………… 19 1.5.1 Theo tiêu chuẩn AWS A5.1-1981……… ……………………… 19 1.5.2 Kí hiệu que hàn thép cacbon thấp E6013…………………… 20 CHƯƠNG 2: KHẢO SÁT SƠ LƯỢC DÂY CHUYỀN SẢN XUẤT QUE HÀN 2.1 Sơ đồ sản xuất que hàn……….……………………………… …… 22 2.2.Các phận cơng đoạn q trình sản xuất que hàn … 23 2.2.1.Bộ phận làm sạch………………………………………………… 23 2.2.2.Bộ phận kéo rút…………………………………………………… 24 2.2.2.1 Phương pháp kết cấu khuôn kéo rút………………… … 24 2.2.2.2 Tính tốn kéo rút lõi thép………………………………… 30 2.2.3 Bộ phận nắn cắt que………………………………………… 32 2.2.3.1 Sơ đồ nắn cắt………… ……………………………… 33 2.2.3.2 Các phương pháp cắt…… ………………………………… 33 2.2.4 Bộ phận cấp lõi que……………………………………………… 35 2.2.5 Nghiền nguyên liệu……………………………………………… 36 2.2.5.1 Mục đích………………………… …….… 36 2.2.5.2 Kích thước hạt nguyên liệu………………………………… 36 2.2.5.3 Thiết bị nghiền……………………….…………………… 36 2.2.6 Xử lý nguyên liệu……………………… ……………………… 37 2.2.7 Bộ phận ép que hàn………………………… ………………… 37 2.2.7.1 Đặc điểm chung……………… …… … 37 2.2.7.2 Sơ đồ máy ép que hàn có vỏ bọc………………………… 38 2.2.7.3 Các loại máy ép đặc điểm ……….…………………… 39 2.2.8 Bộ phận đỡ phóng que………………………………………… 41 2.2.9 Bộ phận vê hai đầu………………… ………………………… 43 2.2.10 Bộ phận in ký hiệu que…………………………………… 44 2.2.11 Bộ phận sấy que……………………… …………………… 44 2.2.12 Bộ phận đóng gói…… ………………………… 46 2.2.13 Kiểm tra chất lượng…………………… …………………… 46 2.2.13.1 Đo lường kiểm tra chất lượng khâu.………………… 46 2.2.13.2 Kiểm nghiệm thành phẩm que hàn……………………… 47 CHƯƠNG 3: TÍNH TỐN THÀNH PHẦN MẺ LIỆU THUỐC BỌC QUE HÀN THÉP CACBON E6013 3.1 Giới thiệu sơ lược xỉ hàn đặc điểm xỉ hàn…………… 49 3.1.1 Khái niệm xỉ hàn…… ……………………………………… 49 3.1.2 Đặc tính xỉ hàn…… ……………………………… … 49 3.1.2.1 Tính axit (bazơ) xỉ hàn……………………………… 49 3.1.2.2 Hoạt tính hố học xỉ hàn………… ………………… 50 3.1.2.3 Độ nhớt…………………………………… …………… 51 3.1.3 Một số đặc tính khác xỉ hàn…… ……………………………… 53 3.1.3.1 Sức căng bề mặt phân pha kim loại - xỉ hàn……………… 53 3.1.3.2 Độ thẩm thấu khí xỉ hàn…………………… ……… 54 3.1.4 Phân loại xỉ hàn…… …………………………………………… 54 3.1.4.1 Phân theo tính axit hay bazơ …………………………… 54 3.1.4.2 Phân loại theo độ hoạt tính………… ………… ……… 54 3.1.4.3 Phân loại theo thay đổi độ nhớt……… …… ……… 55 3.2 Cở sở tạo xỉ cho mẻ liệu thuốc bọc que hàn………….………… 55 3.2.1 Yêu cầu tạo xỉ…………………………………… 55 3.2.2 Nền tạo xỉ bazơ…… … ……………………………………… 55 3.2.3 Nền tạo xỉ rutil…………………………… …………………… 56 3.2.4 Chọn tạo xỉ phù hợp que hàn thép cacbon E6013…………… 56 3.3 Lựa chọn nguyên liệu cho mẻ liệu thuốc bọc que hàn………….…… 56 3.3.1 Sơ lược nguồn nguyên liệu khoáng chất nước ………… 56 3.3.2 Lựa chọn sơ thành phần mẻ liệu bọc que hàn E6013…… 59 3.4 Tính tốn thành phần mẻ liệu thuốc bọc que hàn E6013………….… 60 3.4.1 Giới thiệu thành phần tính vật liệu làm lõi que H – 08A 60 3.4.2 Tính tốn lượng O2 sinh ra……………………………………… 61 3.4.3 Tính tốn lượng chất khử cần dùng…………….………………… 62 3.4.4 Tính tốn hàm lượng chất hợp kim hố……………………… 63 3.4.5 Tính tốn chất xỉ hàn………………………… ……… 64 3.4.5.1 Từ Rutil ………………………………………………… 64 3.4.5.2 Từ Đá vôi………… ………………………… ……… 65 3.4.5.3 Từ quặng Bôxit…… …… …………………………… 65 3.4.5.4 Từ Imenhit hoàn nguyên……………… …… ……… 65 3.4.5.5 Từ Cao lanh………… ……………… ……… ……… 66 3.4.5.6 Từ Fero - Si…… ……………………………….……… 66 3.4.5.7 Từ Fero - Mn…… ………………………….… ……… 67 3.4.5.8 Từ Trường thạch………………………… …… ……… 67 3.4.5.9 Từ Huỳnh thạch…… ………………….……… ……… 67 3.4.5.10 Từ Nước thuỷ tinh…… ……………………….……… 67 CHƯƠNG 4: XÂY DỰNG MỐI QUAN HỆ GIỮA CÁC THÀNH PHẦN CỦA MẺ LIỆU VỚI CÁC CHỈ TIÊU CÔNG NGHỆ CỦA QUE HÀN 4.1 Sơ đồ nghiên cứu que hàn thép cacbon……………………………… 69 4.1.1 Sơ đồ tổng quát………………………………………………… 69 4.1.2 Sơ đồ nghiên cứu đề tài…………………………………… 70 4.2 Xây dựng hàm mục tiêu……………………………………………… 70 4.2.1 Hình dạng mơ hình……………………………………………… 70 4.2.2 Giới thiệu phương pháp xác định hệ số mơ hình…………… 71 4.3 Xác định hàm mục tiêu……………………………………………… 74 4.3.1 Lựa chọn biến số…………………………………………… 75 4.3.2 Chọn tần số xác định khoảng biến thiên…… 77 4.3.3 Tiến hành thí nghiệm xác định tiêu tính cơng nghệ que hàn……………………… …………………………………………… 77 4.3.3.1 Thí nghiệm đo chiều dài hồ quang tới hạn………………… 78 4.3.3.2 Thí nghiệm đo cơng bong xỉ……………………………… 78 4.3.3.3 Thí nghiệm đo hình dạng mối hàn………………………… 79 4.3.4 Sơ đồ khối phần mềm lập trình mơ hình tốn học……… 80 4.3.4.1 Sơ đồ khối mơ hình…………………………………… 80 4.3.4.2 Phần mềm lập trình………………………………………… 82 4.3.5 Kết quả…………………………………………………………… 82 CHƯƠNG 5: TỐI ƯU HOÁ THÀNH PHẦN MẺ LIỆU THUỐC BỌC QUE HÀN 5.1 Giới thiệu phương án tối ưu hoá toán quy hoạch………………… 84 5.2 Hạch toán kinh tế…………………………………………………… 88 5.3 Xác định hàm giá thành mẻ liệu theo đơn thuốc……………………… 89 5.4 Thực quy hoạch toán học cho thành phần mẻ liệu thuốc bọc que hàn thép cacbon E6013…………………………………………………… 91 5.4.1 Hệ Rutil – Đá vôi – Bôxit……………………………………… 91 5.4.2 Phương pháp xác định thành phần mẻ liệu tối ưu……………… 91 5.4.3 Kết quả…………………………………………………………… 92 5.5 Giá thành que hàn thép cacbon E6013 sau sản xuất ………… 94 5.6 Sự phụ thuộc yếu tố công nghệ vào hàm lượng thành phần chất Rutil, Đá vôi, Bôxit……………………………………………… 95 5.6.1 Sự phụ thuộc chiều dài hồ quang vào hàm lượng thành phần chất Rutil, Đá vôi, Bôxit ……………………………………………… 95 5.6.2 Sự phụ thuộc hệ số bong xỉ vào hàm lượng thành phần chất Rutil, Đá vôi, Bôxit ………………………………………………… 96 5.6.3 Sự phụ thuộc hệ số bong xỉ vào hàm lượng thành phần chất Rutil, Đá vôi, Bôxit ………………………………………………… 97 5.7 Sự phụ thuộc giá thành vào hàm lượng thành phần chất Rutil, Đá vôi, Bôxit ……………………………………………………………… 98 CHƯƠNG 6: QUY TRÌNH CHẾ TẠO QUE HÀN THÉP CACBON E6013 VÀ CÁC PHƯƠNG ÁN ĐỀ XUẤT 6.1 Sơ đồ chế tạo que hàn thép cacbon E6013…………………………… 100 6.2 Chuẩn bị lõi que……………………………………………………… 101 6.2.1 Kéo rút lõi que…………………………………………………… 101 6.2.2 Nắn cắt lõi que…………………………………………………… 103 6.3 Chuẩn bị thành phần nguyên liệu…………………………………… 103 6.3.1 Chuẩn bị sẵn loại quặng chọn…………………………… 103 6.3.2 Nghiền nguyên liệu……………………………………………… 104 6.3.3 Xử lý nguyên liệu………………………………………………… 106 6.3.4 Trộn nguyên liệu………………………………………………… 107 6.3.4.1 Trộn khô…………………………………………………… 107 6.3.4.2 Trộn ướt…………………………………………………… 107 6.3.5 Ép bánh…………………………………………………………… 108 6.3.6 Ép que…………………………………………………………… 109 6.3.7 Đón, đỡ que……………………………………………………… 109 6.3.8 Sấy que hàn……………………………………………………… 111 6.3.9 Thành phẩm……………………………………………………… 111 TÀI LIỆU THAM KHẢO………………………………………………… 115 PHỤ LỤC………………………………………………………………… 116 CHƯƠNG GIỚI THIỆU QUE HÀN THÉP CACBON 1.1/ Cấu tạo que hàn Cấu tạo que hàn hồ quang tay có vỏ bọc gồm phần hình 1.1 với thành phần sau đây: + Phần 1: Lõi que hàn; + Phần 2: Vỏ thuốc bọc Hình 1.1 Hình dạng kích thước que hàn có thuốc bọc - Lõi que; - Thuốc bọc; d - Đường kính lõi que; D - Đường kính ngồi que hàn; L - Chiều dài que hàn; l - Chiều dài đuôi que hàn; α - Góc phải đầu que hàn 1.1.1/ Lõi que hàn Phần lõi que đoạn dây kim loại có kích thước sau đây: Chiều dài que L = 250 – 500 mm; Đường kính lõi que d = 1,6 – mm cỡ que hàn gọi theo đường kính lõi que; Một đầu để trần không bọc thuốc dùng để kẹp que hàn dài từ 20 – 30 mm, đầu lại vê vát thuốc bọc có độ hở – mm; Chiều dày lớp thuốc bọc khoảng = mm Các kích thước que hàn theo TCVN 3223 : 2000 Đường kính lõi que Chiều dài que hàn Chiều dài đuôi que (d) ( L) cho phÐp ± hµn ( l ) 2,0 250 - 300 2,5 300 - 350 3,0 3,20 4,0 5,0 6,0 15 - 20 350 - 400 400 - 450 450 - 500 20 - 30 1.1.2/ Vỏ bọc que hàn Trong trình hàn, thuốc bọc que hàn đóng vai trị quan trọng ảnh hưởng nhiều tới chất lượng mối hàn Thuốc bọc que hàn bao gồm nhiều hợp chất hoá học khác ( chất khoáng CaCO3, MgCO3, CaF2…), quặng (quặng Mangan)…, Các chất hữu cơ: Xenlulôzơ, fero hợp kim: Fe – Cr, Fe – Si, Fe- Ni,…, đóng vai trị khác thành phần mẻ liệu thuốc bọc que hàn Mỗi thay đổi hợp chất ảnh hưởng tới chất lượng mối hàn Để đơn giản việc đánh giá vai trò hợp chất ta phân nhóm theo tác dụng q trình hàn 113 KẾT LUẬN CHUNG Việc nghiên cứu sản xuất que hàn loại E6013 vật liệu nước để đáp ứng nhu cầu thị trường Việt Nam vấn đề cấp bách, có ý nghĩa to lớn kinh tế xã hội Nội dung luận văn sâu khảo sát, phân tích cơng đoạn quan trọng dây chuyền sản xuất que hàn, đề xuất giải pháp cần thiết khâu Về phần nghiên cứu thành phần mẻ liệu thuốc bọc đạt kết quan trọng, làm tiền đề cho việc nghiên cứu hồn thiện cơng nghệ chế tạo que hàn E6013 vật liệu nước Kết chủ yếu đề tài gồm nội dung sau đây: - Đề tài nêu bật vai trò công đoạn quan trọng dây chuyền sản xuất, có ảnh hưởng đến suất chất lượng que hàn Qua đề giải pháp ý cụ thể công đoạn, đặc biệt phận sau đây: + Bộ phận kéo rút dây: phân tích lựa chọn kết cấu, tính tốn số lần kéo mức độ hạ bậc sau mà kéo (khuôn kéo) cách hợp lý đảm bảo suất, chất lượng bề mặt, hạn chế biến cứng dây kéo + Bộ phận ép que: Phận tích, lựa chọn kết cấu máy ép phù hợp với loại thuốc bọc que hàn (rutil, bazơ, ) để nâng cao suất ép que đảm bảo chất lượng bề mặt vỏ bọc que hàn + Bộ phận đón que hàn: khảo sát, phân tích nhiều kết cấu phận đón đỡ que hàn từ khuôn ép, giới thiệu phận đón que hàn với kết cấu tổng hợp hồn chỉnh - Về phần phân tích tính tốn thành phần đơn thuốc đề cập cách có hệ thống từ khâu phân tích lựa chọn tạo xỉ, sơ đồ tính tốn mẻ liệu thuốc bọc điển hình xây dựng mối quan hệ toán học chất nguyên liệu 114 đầu vào hàm mục tiêu – tiêu công nghệ hàn Qua phương trình hồi qui phản ánh đặc tính ảnh hưởng cấu tử đến tiêu công nghệ hàn Đồng thời chọn thành phần tối ưu đơn thuốc sở hàm giá thành thoả mãn điều kiện cần thiết tiêu công nghệ hàn - Trong công đoạn chuẩn bị vật liệu trộn thuốc: phân tích sâu phần trộn ướt vai trị số chất để đảm bảo nhận thuốc bọc có độ dẻo, tính đàn hồi, độ trơn thuốc ướt phù hợp với loại thuốc bọc, củng giới thiệu cách điều chỉnh bổ sung nước thuỷ tinh kiểm tra chất lượng Những giải pháp đề cho phép khắc phục khuyết tật thường xảy ép que hàn như: tượng “thắt chuột”, “ đốt tre”, tróc lột, để nâng cao suất đảm bảo chất lượng que hàn Đề tài nghiên cứu tiến hành góc độ lý thuyết thực nghiệm, hạn chế thời gian điều kiện sở vật chất, nên số tiêu thành phần hoá học, tính, hàm lượng hiđrơ, kim loại mối hàn chưa nghiên cứu đầy đủ Do để kết nghiên cứu triển khai ứng dụng vào thực tiễn, cần nghiên cứu bổ sung hoàn thiện tiến hành chế tạo thử, rút kinh nghiệm 115 TÀI LIỆU THAM KHẢO ********* [1] - Bảng thành phần số nguyên vật liệu Việt Nam [2] - Các phương pháp tính tốn tối ưu hóa T1, T2 – Bùi Minh Trí, 1980 [3] - Các tài liệu số liệu TS Vũ Huy Lân cung cấp [4] - Công nghệ kim loại hợp kim thông dụng – Đỗ Hữu Nhơn, Phan Văn Hạ [5] - Cơng nghệ hàn điện nóng chảy (Tập 1&2) – TS Ngơ Lê Thơng [6] - Giáo trình vật liệu hàn – TS Vũ Huy Lân, TS Bùi Văn Hạnh [7] - Giáo trình pascal, Quách Tuần Ngọc, ĐHBK Hà Nội, 1996 [8] - Hỏi đáp dập cán kéo kim loại – Đỗ Hữu Nhơn [9] - Handbook – TOBECO [10] - Quy hoạch thực nghiệm – TS Nguyễn Doãn Ý [11] - Sổ tay tra cứu thép gang thông dụng – Nghiêm Hùng, NXB ĐHBK, 1997 [12] - Thiết kế chế tạo máy cán thép & thiết bị nhà máy cán thép – Đỗ Hữu Nhơn 116 PHỤ LỤC Phần mềm xác địch hệ số hệ phương trình bậc PROGRAM Tuong-wan; uses crt; type matran = array[1 25,1 25] of real; var mt:matran; a:matran; b:matran; X: matran; Y: matran; cv1:matran; d:matran; d1:matran; d2:matran; yi:matran; ytb:matran; c,max:real; t:boolean; ck:char; m,n,i,j,k,q,l,a1,b1,k1: integer; f:file of matran; procedure matranX_Y;{ lap ma tran Y va X_ma tran thong tin } begin writeln(' Ma tran Y '); writeln; for i:=1 to m begin Y[i,1]:=mt[i,n]; write(Y[i,1]:8:2);writeln; end; writeln; Writeln(' Ma tran thong tin X'); writeln; 117 for i:=1 to m d[i,1]:=1; for i:=1 to m for j:=1 to n d[i,j+1]:=mt[i,j]; for i:=1 to m begin for j:=1 to n write(d[i,j]:8:2); writeln; end; end; (*******************************************************) Procedure matran_chuyenvi;{thanh lap ma tran chuyen vi X' } begin for i:=1 to n for j:=1 to m cv1[i,j]:=d[j,i]; writeln(' Ma tran chuyen vi '); writeln; for i:=1 to n begin for j:=1 to m write(cv1[i,j]:8:2); writeln; end; end; (*******************************************************) procedure tinh_tich_hai_ma_tran(a1,b1,b2:matran; var d1,d2:matran); { nhan ma tran A=X'.X va B=X'.Y } begin for i:=1 to n for k:=1 to begin d1[i,j]:=0; for j:=1 to m d1[i,k]:=d1[i,k]+a1[i,j]*b1[j,k]; end; writeln; Writeln(' Ma tran B '); writeln; 118 for i:=1 to n begin for k:=1 to write(d1[i,k]:8:4); writeln; end; writeln; for i:=1 to n for k:=1 to n begin d2[i,j]:=0; for j:=1 to m d2[i,k]:=d2[i,k]+a1[i,j]*b2[j,k]; end; writeln; writeln(' Ma tran A '); writeln; for i:=1 to n begin for k:=1 to n write(d2[i,k]:10:4); writeln; end; writeln; end; (******************************************************) procedure Gauss(a,b:matran;var x:matran);{ giai pt chinh tac =pp Gauss } begin t:=true; i:=1; while t begin if a[i,i]=0 then begin max:=0; m:=i ; for k:=i+1 to n if max< abs(a[k,i]) then begin m:=k; 119 max:=abs(a[k,i]); end; if mi then begin for j:=i to n for l:=1 to begin c:=a[i,j]; a[i,j]:=a[m,j]; a[m,j]:=c; end; c:=b[i,l]; b[i,l]:=b[m,l]; b[m,l]:=c; end; if m=i then begin t:=false; writeln(' Ma tran A suy bien '); exit; end; end; if a[i,i]0 then begin c:=1/a[i,i]; for j:=i+1 to n for l:=1 to a[i,j]:=a[i,j]*c; b[i,l]:=b[i,l]*c; for k:=i+1 to n begin for j:=i+1 to n for l:=1 to a[k,j]:=a[k,j]-a[i,j]*a[k,i]; 120 b[k,l]:=b[k,l]-b[i,l]*a[k,i]; end; writeln; i:=i+1; if i=n+1 then t:=false; end; if i=n+1 then begin for i:=n-1 downto for j:=i+1 to n for l:= to b[i,l]:=b[i,l]-a[i,j]*b[j,l]; writeln(' Ma tran nghiem X '); writeln; for i:=1 to n for l:=1 to begin x[i,l]:=b[i,l]; writeln(x[i,l]:8:4);writeln; end; end; end; end; (**********************************************************) procedure tinh_tich_ma_tran(ai,bi:matran; var yi:matran); {tinh gia tri cua ham so theo cong thuc thuc nghiem } begin for i:=1 to m for k:=1 to n begin yi[i,j]:=0; for j:=1 to n yi[i,k]:=yi[i,k]+ai[i,j]*bi[j,k]; end; writeln; Writeln(' Gia tri cua ham so theo cong thuc thuc nghiem '); 121 writeln; for i:=1 to m begin for k:=1 to writeln(yi[i,k]:8:4); writeln end; writeln; end; procedure he_so_tuong_quan_R; var R1,s1,s2,s3:real; begin s1:=0; for i:=1 to m for j:=1 to s1:=s1+Y[i,j]; ytb[i,j]:=s1/m; writeln( 'Ytb=',ytb[i,j]:8:4); writeln; s2:=0; s3:=0; for i:=1 to m for j:=1 to begin s2:= s2+ sqr(yi[i,j]- ytb[i,j]); s3:= s3+ sqr(Y[i,j]-ytb[i,j]); R1:=sqrt(s2/s3); end; Writeln('R=',R1:8:4); writeln; if (R1>=0) and(1>=R1) then Writeln('==> Thoa man ') else Writeln ( '==> Khong thoa man '); end; Begin {Chuong trinh chinh} clrscr; assign(f,'matran.dat'); rewrite(f); Write('Cho so hang cua bang so lieu:');readln(m); 122 t:=true; while t begin Write('Cho bac k cua da thuc:'); readln(k1); if k1=1 then begin n:=4 ; write(' So cot cua bang so lieu:',n); t:=false; end; if k1=2 then begin n:=10; write('So cot cua bang so lieu:',n); t:=false; end; if k1=3 then begin n:=20; write('So cot cua bang so lieu:',n); t:=false; end; if (k11) and(k12) and(k13) then begin t:=false; Write('So cot cua bang so lieu :');readln(n); end; end; writeln; for i:=1 to m for j:=1 to n begin write('a[',i,',',j,']='); readln(mt[i,j]); end; repeat begin 123 writeln('Ban co muon sua bang so lieu vua nhap ko?'); writeln; Writeln('Co thi nhan y or Y, Ko thi nhan phim bat ki'); readln(ck); if ((ck='y')or(ck='Y')) then begin write(' Can sua hang:');readln(a1); write(' Can sua cot:' );readln(b1); write('a[',a1,',',b1,']='); readln(mt[a1,b1]); end; end; until (ck'y')and(ck'Y'); write(f,mt); close(f); assign(f,'matran.dat'); reset (f); read(f,mt); writeln('*********** Bang so lieu ************'); writeln; for i:=1 to m begin for j:=1 to n write(mt[i,j]:8:2); writeln; end; writeln; matranX_Y;readln; writeln; matran_chuyenvi; readln; writeln; tinh_tich_hai_ma_tran(cv1,Y,d,d1,d2);readln; writeln; Gauss(d2,d1,x);readln; writeln; tinh_tich_ma_tran(d,x,yi);readln; writeln; he_so_tuong_quan_R; 124 close(f); readln; end Phần mềm tối ưu hoá program toiuu1; var i,j,k:integer; minT,x1,x2,x3,hq,bx,mh,x1kq,x2kq,x3kq:real; tk,tkkq,hqkq,bxkq,mhkq:real; begin minT:=700000; for i:=1 to 100 for j:=1 to 100 for k:=1 to 100 begin x1:=20+0.1*i; if x1>=20 and x1=14 and x1=6 and mh

Ngày đăng: 11/02/2021, 10:26

TỪ KHÓA LIÊN QUAN

TÀI LIỆU CÙNG NGƯỜI DÙNG

TÀI LIỆU LIÊN QUAN

w