/usr/share/psychtoolbox-3/PsychRadiometric/PsychISO2007MPE/ISO2007MPEGetWeighings.m is in psychtoolbox-3-common 3.0.11.20140816.dfsg1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | function [wls,weightingR,weightingA,weightingS,wls_R,rawWeightingR,wls_A,rawWeightingA,wls_S,rawWeightingS] = ISO2007MPEGetWeighings(S)
% [wls,weightingR,weightingA,weightingS,wls_R,rawWeigtingR,wls_A,rawWeightingA,wls_S,rawWeightingS] = ISO2007MPEGetWeighings(S)
%
% Read the text files and get the three weighting functions needed for the
% standard's calculations.
%
% These are splined to the evenly spaced wavelengths specified by S, and
% padded with 0 outside the wavelength range over which each function is
% specified in the standard. This simplifies calculations.
%
% ****************************************************************************
% IMPORTANT: Before using the ISO2007MPE routines, please see the notes on usage
% and responsibility in PsychISO2007MPE/Contents.m (type "help PsychISO2007MPE"
% at the Matlab prompt.
% ****************************************************************************
%
% 6/25/13 dhb Wrote it.
wls = SToWls(S);
tableA1 = dlmread('ISO2007MPETableA1.txt','\t',1,0);
wls_R = tableA1(:,1);
wls_A = tableA1(:,1);
rawWeightingR = tableA1(:,2);
rawWeightingA = tableA1(:,3);
weightingR = interp1(wls_R,rawWeightingR,wls,'linear',0);
weightingA = interp1(wls_A,rawWeightingA,wls,'linear',0);
tableA2 = dlmread('ISO2007MPETableA2.txt','\t',1,0);
wls_S = tableA2(:,1);
rawWeightingS = tableA2(:,2);
weightingS = interp1(wls_S,rawWeightingS,wls,'linear',0);
|