This file is indexed.

/usr/share/psychtoolbox-3/PsychRadiometric/PsychISO2007MPE/ISO2007MPEGetWeighings.m is in psychtoolbox-3-common 3.0.11.20131230.dfsg1-1build1.

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);