Intensity IntensityTier_to_Intensity (IntensityTier me, double dt) {
try {
long nt = (long) floor ((my xmax - my xmin) / dt);
double t1 = 0.5 * dt;
autoIntensity thee = Intensity_create (my xmin, my xmax, nt, dt, t1);
for (long i = 1; i <= nt; i++) {
double time = t1 + (i - 1) * dt;
thy z[1][i] = RealTier_getValueAtTime (me, time);
}
return thee.transfer();
} catch (MelderError) {
Melder_throw (me, U" no Intensity created.");
}
}
Intensity BandFilterSpectrogram_to_Intensity (BandFilterSpectrogram me) {
try {
autoIntensity thee = Intensity_create (my xmin, my xmax, my nx, my dx, my x1);
for (long j = 1; j <= my nx; j++) {
double p = 0;
for (long i = 1; i <= my ny; i++) {
p += my z[i][j]; // we add power
}
thy z[1][j] = BandFilterSpectrogram_DBFAC * log10 (p / BandFilterSpectrogram_DBREF);
}
return thee.transfer();
} catch (MelderError) {
Melder_throw (me, U": Intensity not created.");
}
}
Intensity FilterBank_to_Intensity (I) {
iam (Matrix);
try {
autoIntensity thee = Intensity_create (my xmin, my xmax, my nx, my dx, my x1);
double db_ref = 10 * log10 (FilterBank_DBREF);
for (long j = 1; j <= my nx; j++) {
double p = 0;
for (long i = 1; i <= my ny; i++) {
p += FilterBank_DBREF * exp (NUMln10 * my z[i][j] / 10);
}
thy z[1][j] = 10 * log10 (p) - db_ref;
}
return thee.transfer();
} catch (MelderError) {
Melder_throw (me, U": Intensity not created.");
}
}
static autoIntensity Sound_to_Intensity_ (Sound me, double minimumPitch, double timeStep, int subtractMeanPressure) {
try {
/*
* Preconditions.
*/
if (! NUMdefined (minimumPitch)) Melder_throw (U"(Sound-to-Intensity:) Minimum pitch undefined.");
if (! NUMdefined (timeStep)) Melder_throw (U"(Sound-to-Intensity:) Time step undefined.");
if (timeStep < 0.0) Melder_throw (U"(Sound-to-Intensity:) Time step should be zero or positive instead of ", timeStep, U".");
if (my dx <= 0.0) Melder_throw (U"(Sound-to-Intensity:) The Sound's time step should be positive.");
if (minimumPitch <= 0.0) Melder_throw (U"(Sound-to-Intensity:) Minimum pitch should be positive.");
/*
* Defaults.
*/
if (timeStep == 0.0) timeStep = 0.8 / minimumPitch; // default: four times oversampling Hanning-wise
double windowDuration = 6.4 / minimumPitch;
Melder_assert (windowDuration > 0.0);
double halfWindowDuration = 0.5 * windowDuration;
long halfWindowSamples = (long) floor (halfWindowDuration / my dx);
autoNUMvector <double> amplitude (- halfWindowSamples, halfWindowSamples);
autoNUMvector <double> window (- halfWindowSamples, halfWindowSamples);
for (long i = - halfWindowSamples; i <= halfWindowSamples; i ++) {
double x = i * my dx / halfWindowDuration, root = 1 - x * x;
window [i] = root <= 0.0 ? 0.0 : NUMbessel_i0_f ((2 * NUMpi * NUMpi + 0.5) * sqrt (root));
}
long numberOfFrames;
double thyFirstTime;
try {
Sampled_shortTermAnalysis (me, windowDuration, timeStep, & numberOfFrames, & thyFirstTime);
} catch (MelderError) {
Melder_throw (U"The duration of the sound in an intensity analysis should be at least 6.4 divided by the minimum pitch (", minimumPitch, U" Hz), "
U"i.e. at least ", 6.4 / minimumPitch, U" s, instead of ", my xmax - my xmin, U" s.");
}
autoIntensity thee = Intensity_create (my xmin, my xmax, numberOfFrames, timeStep, thyFirstTime);
for (long iframe = 1; iframe <= numberOfFrames; iframe ++) {
double midTime = Sampled_indexToX (thee.peek(), iframe);
long midSample = Sampled_xToNearestIndex (me, midTime);
long leftSample = midSample - halfWindowSamples, rightSample = midSample + halfWindowSamples;
double sumxw = 0.0, sumw = 0.0, intensity;
if (leftSample < 1) leftSample = 1;
if (rightSample > my nx) rightSample = my nx;
for (long channel = 1; channel <= my ny; channel ++) {
for (long i = leftSample; i <= rightSample; i ++) {
amplitude [i - midSample] = my z [channel] [i];
}
if (subtractMeanPressure) {
double sum = 0.0;
for (long i = leftSample; i <= rightSample; i ++) {
sum += amplitude [i - midSample];
}
double mean = sum / (rightSample - leftSample + 1);
for (long i = leftSample; i <= rightSample; i ++) {
amplitude [i - midSample] -= mean;
}
}
for (long i = leftSample; i <= rightSample; i ++) {
sumxw += amplitude [i - midSample] * amplitude [i - midSample] * window [i - midSample];
sumw += window [i - midSample];
}
}
intensity = sumxw / sumw;
intensity /= 4e-10;
thy z [1] [iframe] = intensity < 1e-30 ? -300 : 10 * log10 (intensity);
}
return thee;
} catch (MelderError) {
Melder_throw (me, U": intensity analysis not performed.");
}
}
