關於半色調技術的誤差擴散法(Error Diffusion) |
|
尚未結案
|
|
Rubytsay
一般會員   發表：4 回覆：2 積分：1 註冊：2004-12-30 發送簡訊給我 |
我照著文章上的方法下去做半色調處理
(將灰階的圖用誤差擴散法改成二值化) 演算法如下： For i: 1 to m do
For j: 1 to n do if A[i,j] < 127 then B[i,j]:=0 else B[i,j]:= 255;
err:= A[i,j] - B[i,j];
A[i,j+1] := A[i,j+1] + 7/16 * err ;
A[i+1,j-1] := A[i+1,j-1] + 3/16 * err ;
A[i+1,j] := A[i+1,j] + 5/16 * err ;
A[i+1,j+1] := A[i+1,j+1] +1/16 * err ;
End 半色調處理應該要做出來的結果是：
|
|
Rubytsay
一般會員 發表：4 回覆：2 積分：1 註冊：2004-12-30 發送簡訊給我 |
我終於找到問題所在了>"< 要把程式改成
For i: 1 to m do
For j: 1 to n do if A[i,j] < 127 then B[i,j]:=0 else B[i,j]:= 255;
err:= A[i,j] - B[i,j];
A[i,j 1] := A[i,j 1] 7 * err /16 ;
A[i 1,j-1] := A[i 1,j-1] 3 * err / 16 ;
A[i 1,j] := A[i 1,j] 5 * err / 16 ;
A[i 1,j 1] := A[i 1,j 1] 1 * err / 16 ;
End 這樣就可以了~~
|
發表時間：2005-02-13 21:48:17
IP:211.76.xxx.xxx 未訂閱
系統時間：2024-05-19 9:17:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |