1 ## Copyright (C) 2016 Loriane Weber
3 ## This program is free software; you can redistribute it and/or modify
4 ## it under the terms of the GNU General Public License as published by
5 ## the Free Software Foundation; either version 3 of the License, or
6 ## (at your option) any later version.
8 ## This program is distributed in the hope that it will be useful,
9 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
10 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 ## GNU General Public License for more details.
13 ## You should have received a copy of the GNU General Public License
14 ## along with Octave; see the file COPYING. If not, see
15 ## <http://www.gnu.org/licenses/>.
17 ## SimuPBI_unknown_1D: fonction that launches the phase-contrast simulation of a custom object.
19 ## Author: Loriane Weber <lweber@gpid16a-1802>
20 ## Created: 2016-04-07
23 ## SimuPBI_unknown_1D('star', 2, [0 0.1 0.5], 26, 2.7, 300, 180, 1, 1, '/users/lweber/Matlab/SimulationsPBI/mu_star.edf', '/users/lweber/Matlab/SimulationsPBI/delta_star.edf', '', 'gaussian', 35)
25 ## Please note that dir_out, noise_type, noise_amount are optional arguments.
27 function [ ret ] = SimuPBI_unknown_1D_func(basename_output, oversamp, dist, energy, ps, nbProj, range_angle, model_ctf, model_Fresnel, attenuation_file, phase_file, dir_out, noise_type, noise_amount)
28 addpath('utilities_ESRF')
29 addpath('utilities_LW')
30 addpath('octave_packages/image-1.0.15')
31 addpath('octave_packages/signal-1.1.3')
33 ################################################
34 ############### INPUT parameters ###############
35 ################################################
38 ################################
39 ######### Parameter related to the computation - and names of the result
40 ################################
41 ## vers does not exist anymore; the projections are calculated using the Radon transform
43 ## Oversampling of the projections : use 2 or 4
46 ## Basename of the result file. Is a string.
47 %basename_output='Test-1D';
49 ################################
50 ######### Parameter related to the physics
51 ################################
53 ## Distances of propagation (in m)
56 ## Energy of the incoming X-ray beam (in keV)
59 ## Pixel size of the detector (in um)
62 # Number of projections
65 ## Range of the tomography : 180 or 360 degrees
68 ## Which model do you want to use for the propagation? use 1 or 0
72 ################################
73 ############# Parameters related to the object
74 ################################
76 ## attenuation map (in cm^-1)
77 %attenuation_file='mu_star.edf'
79 ## Refrcative index decrement map (delta)
80 %phase_file='delta_star.edf'
82 ################################
83 ############# OPTIONAL Parameters
84 ################################
87 % dir_out='/mntdirect/_users/lweber/Matlab/SimulationsPBI/Results_CustomObject'
88 % default value if '', i.e. the working directory
91 ## Noise addition to the simulated data?
92 ## Use noise='gaussian' (addition of gaussian noise) or noise='poisson' ( generation of Poisson noise) or '' (no noise is added).
94 %noise_type='gaussian'
95 % default value is '' (no noise)
98 ## If 'gaussian' (additive noise), please specify the Peak-to-peak Signe-to-noise ratio (PPSNR, in dB)
100 %default value is 35 dB
101 ## if 'poisson', please specify the amount of noise
103 % default value is 5%.
105 %noise=0; % O (no noise) or 1 (noise)
106 %PPSNR=24; % noise, in dB
109 #######################################################
110 ############### End of INPUT parameters ###############
111 #######################################################
113 #################################################
114 ############### OUTPUT parameters ###############
115 #################################################
117 ## None, files are directly save
119 ########################################################
120 ############### End of OUTPUT parameters ###############
121 ########################################################
123 ############################# check varargin - optional arguments ###########################
125 error("Some arguments are missing.\n");
132 if strcmp(noise_type, 'gaussian')
134 else strcmp(noise_type, 'poisson')
140 ############################# Unchanged parameters ###########################
141 basename_output=strcat(basename_output, '_');
143 z1=145; % source to sample distance, in meter.
146 angles=[0:1:nbProj-1];
147 delta_angle=range_angle/nbProj;
148 angles=angles*delta_angle;
150 lambda=12.4*10^-10/energy; % in meter
151 ps=ps*10^-6; % put the pixel size in meter
153 D = (z1*dist)./(z1+dist);
154 betash = lambda*D; % in meter^2
157 if !strcmp(dir_out, '')
158 dir_out= strcat(dir_out, '/'); % add underscore at the end
162 % absorption and phase maps
163 mu=edfread(attenuation_file); % in cm-1
164 mu=mu*100; % convert into m-1
166 delta=edfread(phase_file);
170 if(strcmp(noise_type, 'gaussian'))
172 noise_str=strcat(noise_type, num2str(PPSNR), 'dB_');
173 elseif(strcmp(noise_type, 'poisson'))
174 scale_fact=noise_amount;
175 noise_str=strcat(noise_type, num2str(scale_fact), '_');
176 elseif(strcmp(noise_type, ''))
179 error("Unknown type of noise")
182 ############################# END OF Unchanged parameters ###########################
184 ############################# Beginning of SIMULATIONS ###################################
187 %%Create the sinograms
188 sino_abs=radon(mu, angles)*ps*oversamp; % to get rif of oversamp in the pixelsize
189 sino_delta=radon(delta, angles)*ps*oversamp;
191 %% creation of projections, mu et B, taking into account the oversampling
192 disp('create projections');
193 abs_proj=cell(1, nbProj);
194 B_proj=cell(1, nbProj);
195 Phi_proj=cell(1, nbProj);
198 abs_proj{j}=interp(sino_abs(:,j), oversamp);
199 B_proj{j}=(1/2)*abs_proj{j};
200 Phi_proj{j}=(-2*pi/lambda)*interp(sino_delta(:,j), oversamp);
206 [mp np]=size(Phi_proj{j});
207 [ftot]=FrequencySpace1(2*mp, ps);
209 ###################### CTF model ################
212 IdCTF=cell(length(D), nbProj);
213 sino_IdCTF=cell(length(D),1);
218 sino_IdCTF{k}(:,j)=CTFPropagation_1D(Phi_proj{j}, B_proj{j}, D(k), lambda, oversamp, ftot);
221 if(strcmp(noise_type, 'gaussian'))
222 ampsignal=max(max(sino_IdCTF{k}))-min(min(sino_IdCTF{k})); %add the amount of noise wrt the amplitude at the first dist
223 bruit=randn(size(sino_IdCTF{k})); % gaussian white noise
224 bruit=bruit/max(max(bruit));
225 bruit=bruit*ampsignal*10^(-PPSNR/20); %/2;
226 sino_IdCTF{k}=sino_IdCTF{k}+bruit;
227 elseif(strcmp(noise_type, 'poisson'))
228 noisy=scale_fact*poissrnd(sino_IdCTF{k}/scale_fact);
232 name_ctf=strcat(basename_output, 'CTF_oversamp', num2str(oversamp), '_', noise_str, num2str(nbProj), 'proj_', num2str(k), '_.edf')
233 edfwrite(strcat(dir_out, name_ctf), sino_IdCTF{k}, 'float32');
235 end % end of model CTF
238 ###################### Fresnel model ################
241 disp('Fresnel model')
243 IdFresnel=cell(length(D), nbProj);
244 sino_IdFresnel=cell(length(D),1);
249 tmp=FresnelTransform_1D(Phi_proj{j}, B_proj{j}, D(k), lambda, oversamp, ftot);
252 sino_IdFresnel{k}(:,j)=tmp;
255 if(strcmp(noise_type, 'gaussian'))
256 ampsignal=max(max(sino_IdFresnel{k}))-min(min(sino_IdFresnel{k})); %add the amount of noise wrt the amplitude at the first dist
257 bruit=randn(size(sino_IdFresnel{k})); % gaussian white noise
258 bruit=bruit/max(max(bruit));
259 bruit=bruit*ampsignal*10^(-PPSNR/20); %/2;
260 sino_IdFresnel{k}=sino_IdFresnel{k}+bruit;
261 elseif(strcmp(noise_type, 'poisson'))
262 noisy=scale_fact*poissrnd(sino_IdFresnel{k}/scale_fact);
263 sino_IdFresnel{k}=noisy;
266 name_fre=strcat(basename_output, 'Fresnel_oversamp', num2str(oversamp), '_', noise_str, num2str(nbProj), 'proj_', num2str(k), '_.edf')
267 edfwrite(name_fre, sino_IdFresnel{k}, 'float32');
269 end % end of Fresnel model