-
Notifications
You must be signed in to change notification settings - Fork 5
/
Modal_Sensor_new2.m
104 lines (101 loc) · 3.6 KB
/
Modal_Sensor_new2.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
%-------------------------------------------------------------------------------------
% Copyright 2018 Weisong Zhao "Accurate aberration correction in confocal
% microscopy based on modal sensorless method"Rev. Sci. Instrum.
% 90, 053703 (2019); https://doi.org/10.1063/1.5088102
%
% This program is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program. If not, see <http://www.gnu.org/licenses/>.
%-------------------------------------------------------------------------------------
clc
clear all
close all
%% Parameters
bias=0.7;
lamda=532*10^-9;
sin1=0.4;
pixel=65*10^-6/20;
Iimage=imread('1.jpg');
image1=double(Iimage(:,:,1));
[a00,b00]=size(image1);
noise=randn(a00,b00)*40000000;
a_parameter=[0.125682544377515,0.905791937075619,-0.126986816293506,-0.913375856139019,0.632359246225410,-0.097540404999410,0.278498218867048,-3.246881519204984,...
0.957506835434298,-0.964888535199277,-0.157613081677548,-0.970592781760616,0.357166948242946,0.485375648722841,-0.800280468888800,0.141886338627215,0.421761282626275,...
-0.915735525189067,4.292207329559554]./3;
load('AO\4N+1-noise\Result.mat')
first=Result(4,:);
a_parameter=a_parameter+first;
%% No aberration£¬chushi: image M_clear: var
a=zeros(1,19);
IP1=PSF_with_Aberration2(pixel,lamda,NA,8,a);
chushi=conv2(image1,IP1,'same');
chushi=abs(chushi.^2);
chushi=chushi+noise;
chushi=255*chushi./max(max(chushi));
M_clear1=aberration(chushi);
M_clear2=aberration2(chushi);
M_clear3=aberration3(chushi);
M_clear4=aberration4(chushi);
imwrite(chushi/max(max(chushi)),'AO\4N+1-noise\NoAberration+noise.bmp')
%% Circle%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
for pp=1:1:19
a=a_parameter;
pp
if mod(pp,2)==0
noise=randn(a00,b00)*40000000;
end
%% With initial aberration, ZONG0, M0
a=a_parameter;
IP1=PSF_with_Aberration2(pixel,lamda,NA,8,a);
ZONG0=conv2(image1,IP1,'same');
ZONG0=abs(ZONG0.^2);
ZONG0=ZONG0+noise;
[a01,b01]=size(ZONG0);
ZONG0=255*ZONG0./max(max(ZONG0));
ii=int2str(pp+3);
imwrite(ZONG0/max(max(ZONG0)),['AO\4N+1-noise\',ii,'WithAberration.bmp'])
M01_sum(pp)=aberration(ZONG0);
%% b
a=a_parameter;
a(pp)=a(pp)+bias;
IP1=PSF_with_Aberration2(pixel,lamda,NA,8,a);
ZONG=conv2(image1,IP1,'same');
ZONG=abs(ZONG.^2);
ZONG=ZONG+noise;
ZONG=255*ZONG./max(max(ZONG));
imwrite(ZONG/max(max(ZONG)),['AO\4N+1-noise\',ii,'orderPositive.bmp']);
M21=aberration(ZONG);
M21_sum(pp)=M21;
%% -b
a=a_parameter;
a(pp)=a(pp)-bias;
IP1=PSF_with_Aberration2(pixel,lamda,NA,8,a);
ZONG1=conv2(image1,IP1,'same');
ZONG1=abs(ZONG1.^2);
ZONG1=ZONG1+noise;
ZONG1=255*ZONG1./max(max(ZONG1));
imwrite(ZONG1/max(max(ZONG1)),['AO\4N+1-noise\',ii,'orderNegative.bmp']);
M11=aberration(ZONG1);
M11_sum(pp)=M11;
if M11>=M21&&M11>=M01_sum(pp)
M(pp)=-0.7;
elseif M21>=M11&&M21>=M01_sum(pp)
M(pp)=0.7;
else
M(pp)=0;
end
end
Result(1,:)=M11_sum;
Result(2,:)=M01_sum;
Result(3,:)=M21_sum;
Result(4,:)=M;
save AO\4N+1-noise\Result.mat Result*