%モノクロ画像（解像度256x256,画素値0-255)に
%ショットノイズをのせる
clear all;

%ノイズレベルを決定。
nlevel=0.1;

%画像を読み出してdouble型に変換
IMG=imread('D:\image\bmp\mono\test\LENNA.bmp');
IMG=double(IMG);

%画像のサイズを取得
[c r]=size(IMG);

%ノイズ付加
for i = 1:r
 for j = 1:c
  IMG(i,j)=1/nlevel*poissrnd(nlevel*IMG(i,j),1,1);
 endfor
endfor

%uint8型に変換して書き込み
IMG=uint8(IMG);
imwrite(IMG,'D:\image\bmp\mono\noise\LENNAshot0.1.bmp');