function?f?=?defogging（g）;
n?=?2;
g1?=?padarray（g[2*n?+?12*n?+?1]‘symmetric‘）;
for?i?=?1?:?size（g1）
????for?j?=?1?:?size（g2）
????????mm?=?g1（i:i?+?2?*?nj:j?+?2?*?n）;
????????m?=?mean2（mm）;
????????var?=?std2（mm）?*?std2（mm）;
????????k?=?100?/?var;
????????L?=?min（min（mm））;
????????H?=?max（max（mm））;
????????L1?=?m?-?k?*?（m?-?L）;
????????H1?=?m?+?k?*?（H?-?m）;
????????if?mm（nn）?<=?m
????????????f（ij）?=?（m?*?（L1?-?L）?+?mm（nn）?*?（m?-?L1））?/?（m?-?L）;
????????else
????????????f（ij）?=?（m?*?（H1?-?H）?+?mm（nn）?*?（H1?-?m））?/?（H?-?m）;
????????end
????end
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2013-06-30?22:22??本科畢設(shè)\
?????文件?????????584??2013-05-23?19:34??本科畢設(shè)\defogging.m
?????文件?????????707??2013-05-14?21:34??本科畢設(shè)\eliminate.asv
?????文件?????????707??2013-05-14?21:35??本科畢設(shè)\eliminate.m
?????文件????????1337??2013-05-14?20:09??本科畢設(shè)\main.asv
?????文件????????1694??2013-05-14?21:51??本科畢設(shè)\main.m
?????文件?????????491??2013-06-06?16:05??本科畢設(shè)\Otsu.m
?????文件????????1852??2013-05-14?21:39??本科畢設(shè)\peizhun.m
?????文件?????????181??2013-05-23?18:57??本科畢設(shè)\quwu.asv
?????文件?????????384??2013-05-23?19:20??本科畢設(shè)\quwu.m
?????文件???????93756??2013-05-23?17:21??本科畢設(shè)\tulips.bmp.jpg
?????文件???????36062??2013-05-14?18:18??本科畢設(shè)\無缺陷瓶口原始圖像.png
?????文件???????62180??2013-05-14?18:18??本科畢設(shè)\缺陷原始圖像.png
?????文件???????63788??2013-05-14?18:18??本科畢設(shè)\缺陷原始圖像2.png
?????文件???????63392??2013-05-14?18:18??本科畢設(shè)\缺陷原始圖像3.png