Ôn Thi Xử Lý Ảnh

Code:


Procedure Zoomimage(S:mảng2D; var Img: mảng2D);
Var S1: mảng2D;      
     m1, n1, m2, n2, i, j, temp: integer;
Begin
   (* Co hoặc giãn theo chiều rộng trước*)
   n1 = S.sodong;  {cho biết số hàng của ma trận S }
   m1= Round(S.socot * z); { lấy số cột của ma trận S nhân với tỷ lệ co giãn}
   For i:=1 to m1 do
      For j:=1 to n1 do
         Begin
         temp := Round(i / z);
         S1[i,j] := S[temp, j]; (* luôn thỏa mãn vì ta có i/z <= S.Socot *)
         End;   
(* Co hoặc giãn theo chiều cao của ảnh *)
   n1 =Round(S1.sodong*z); { lấy số dòng của ma trận S nhân với tỷ lệ co giãn}
   m1= S1.socot ;     {cho biết số hàng của ma trận Img }
    For i:=1 to m1 do
   For j:=1 to n1 do
    Begin
      temp := Round(j / z);
      Img[i,j] := S1[i, temp]; (* luôn thỏa mãn vì ta có j/z <= S.Socot *)
   End;   
End;

MrBinh đã viết:Bài viết hay, nhưng cu em nè, còn nhớ đề thầy ra kiểm tra hôm báo cáo XLa không, tao ghi rồi mà ném đâu mất ấy...

Code:


if (anh em ta qua hết kỳ này) then
    begin
        Phải ăn nhậu cho bỏ ghét;
        Mấy thằng hô thi lại phải đi khao
    end;


Cuongpt đã viết:Thấy cả nhà thảo luận vui quá tớ góp bài:
Chương trình zoom ảnh với tỷ lệ z bất kỳ:
Giả sử ta có ảnh S là một mảng 2 chiều có kích thước m x n.
Tỷ lệ zoom là z bất kỳ (x: real);
(* Thuật toán được viết bằng mã giả pascal như sau*)
Procedure Zoomimage(S:mảng2D; var Img: mảng2D);
Var S1: mảng2D;
m1, n1, m2, n2, i, j, temp: integer;
Begin
(* Co hoặc giãn theo chiều rộng trước*)
n1 = S.sodong; {cho biết số hàng của ma trận S }
m1= Round(S.socot * z); { lấy số cột của ma trận S nhân với tỷ lệ co giãn}
For i:=1 to m1 do
For j:=1 to n1 do
Begin
temp := Round(i / z);
Img[i,j] := S[temp, j]; (* luôn thỏa mãn vì ta có i/z <= S.Socot *)
End;
(* Co hoặc giãn theo chiều cao của ảnh *)
n1 =Round(S.sodong*z); { lấy số dòng của ma trận S nhân với tỷ lệ co giãn}
m1= Img.socot ; {cho biết số hàng của ma trận Img }
For i:=1 to m1 do
For j:=1 to n1 do
Begin
temp := Round(j / z);
Img[i,j] := S[i, temp]; (* luôn thỏa mãn vì ta có j/z <= S.Socot *)
End;
End; (* kết thúc thủ tục này chùng ta thu được ma trận Img có kích thức tính theo hệ số z  ảnh được co hoặc giãn với tỷ lệ là z*).

MrBinh đã viết:anh em post mã chương trình muốn nó giữ nguyên định dạng thì đặt trong thẻ là được: vd như

Code:


if (anh em ta qua hết kỳ này) then
    begin
        Phải ăn nhậu cho bỏ ghét;
        Mấy thằng hô thi lại phải đi khao
    end;


Code:


/************************************/
public void ZoomImage(float z,PictureBox Pic)
{         
  Color[,] F = new Color[(int)(BmpW*z), BmpH];           
  BmpColor = new Color[BmpW, BmpH];
  Bitmap b1 = new Bitmap(Bmp,new Size((int)(BmpW*z),(int)BmpH));
  Bitmap b2 = new Bitmap(b1,new Size(b1.Width,(int)(b1.Height*z)));
 GetArrColor();// chuyển ảnh thành ma trận màu return Ma trận F
  try
    {
        for (int i = 0; i < b1.Width; i++)
            for (int j = 0; j < b1.Height; j++)
            {
              byte r = (byte)BmpColor[(int)(i / z), j].R;
              byte g = (byte)BmpColor[(int)(i / z), j].G;
              byte b = (byte)BmpColor[(int)(i / z), j].B;
              b1.SetPixel(i, j, Color.FromArgb(r, g, b));
              F[i, j] = b1.GetPixel(i, j);
            }
        for (int i = 0; i < b2.Width; i++)
          for (int j = 0; j < b2.Height; j++)
          {
              byte rr = (byte)F[i, (int)(j / z)].R;
              byte gg = (byte)F[i, (int)(j / z)].G;
              byte bb = (byte)F[i, (int)(j / z)].B;
              b2.SetPixel(i, j, Color.FromArgb(rr, gg, bb));
            }             
      }
      catch (Exception err)
      {
          MessageBox.Show(err.ToString());
        }
      Bmp = (Bitmap)b2.Clone();
      Pic.Image = Bmp;
        }

Cuongpt đã viết:Đính chính tí anh em nhầm tí. mà tôi nói là có chỗ sai mọi người sửa dùm
ông Thúc hỏi tí ko hiểu vẽ cái histogram ý ông là sao. ông vẽ vào giấy rồi lấy DĐ chụp post cho anh em coi tí nào

Cuongpt đã viết:Đính chính tí anh em nhầm tí. mà tôi nói là có chỗ sai mọi người sửa dùm
ông Thúc hỏi tí ko hiểu vẽ cái histogram ý ông là sao. ông vẽ vào giấy rồi lấy DĐ chụp post cho anh em coi tí nào

thuanpq đã viết:Các bạn chú ý: Thúc giải bài 1 sai rồi thì phải:
Kết quả của V(m,n) là:
1 2 0
5 7 -2
7 7 -4

Các bạn kiểm tra lai cách làm nha:

Thúc nhầm chỗ chồng H mũ lên S(m,n) thì phải.

Mình giải thế này:

Gọi G(m,n)= H1(m,n)+H2(m,n).

G(m,n)=
1 0
2 -1
1 0
=> V(m,n)= S(m,n) * G(m,n);
Xoay G(m,n) 180 độ thành

G~(m,n)=
0 1
-1 2
0 1

Chồng G~(m,n) lên S(m,n) ta được kết quả trên.
Các bạn coi lại cách tính nhân chập của thầy nha.

Code:

Procedure NhanChap3x3(Var S:Mang2D; H:Mang2D);
var i, j:integer ;
begin
   for i:= 1 to caoAnh-1 do
      for j:=1 to rongAnh-1 do
         begin
            S[i,j]:=S[i,j] = H11*S[i+1,j+1] + H12*S[i+1,j] +    H13*S[i+1,j-1] + H21*S[i,j+1] + H22*S[i,j] + H23*S[i,j-1] +H31*S[i-1,j+1] + H32*S[i-1,j] + H33*S[i-1,j-1];
         end;
end;