Subversion Repositories Electronics.Rangefider

function ireverse = vishay_temd5080x01(wavelength_nm, wcm2)
% TEMD5080X01 photodiode crude model
% Source phase noise is not modelled
% Active area is : 7.7mm²

%datasheet info
ira_1mwcm2 = 60e-6;
current_gain = ira_1mwcm2/1e-3; %A/(W*cm^-2)

%approximate photodiode bandwidth, use of linear interpolation
rsr = [0.3 0.4 0.6 0.8 0.9 1 0.6 0.4 0.18];
lambda_nm = [400 450 550 720 800 940 1030 1050 1100];
%wvli = 400:1:1100;
%figure(1)
%plot(wvli, interp1(lambda_nm, rsr, wvli));

attenuation = interp1(lambda_nm, rsr, wavelength_nm);
fprintf("photodiode attenuation : %f\n", attenuation);

ireverse = current_gain*wcm2*attenuation;

end