Zentral makefile include for chapters of script

This commit is contained in:
2015-11-28 12:16:53 +01:00
parent 7719cb3385
commit 3e0f8c10a1
28 changed files with 236 additions and 333 deletions

View File

@@ -0,0 +1,32 @@
function sines = calculateSines(times, amplitudes, frequencies)
% Function calculates sinewaves with all combinations of
% given amplitudes and frequencies.
%
% sines = calculateSines(times, amplitudes, frequencies)
%
% Arguments:
% times : vector of times as which the sines should be computed.
% amplitudes : vector with amplitudes.
% frequencies: vector with frequencies.
%
% Returns:
% a 3-D Matrix of sinewaves, 2nd dimension represents
% the amplitudes, 3rd the frequencies.
sines = zeros(length(times), length(amplitudes), length(frequencies));
for i = 1:length(amplitudes)
sines(:,i,:) = sinesWithFrequencies(times, amplitudes(i), frequencies);
end
end
function sines = sinesWithFrequencies(times, amplitude, frequencies)
sines = zeros(length(times), length(frequencies));
for i = 1:length(frequencies)
sines(:,i) = sineWave(times, amplitude, frequencies(i));
end
end
function sine = sineWave(times, amplitude, frequency)
sine = sin(2.0*pi.*times*frequency) .* amplitude;
end

View File

@@ -1,30 +0,0 @@
function sines = calculate_sines(x, amplitudes, frequencies)
% Function calculates sinewaves with all combinations of
% given amplitudes and frequencies.
% Arguments: x, a vector of radiants for which the sine should be
% computed.
% amplitudes, a vector of amplitudes.
% frequencies, a vector of frequencies.
%
% Returns: a 3-D Matrix of sinewaves, 2nd dimension represents
% the amplitudes, 3rd the frequencies.
sines = zeros(length(x), length(amplitudes), length(frequencies));
for i = 1:length(amplitudes)
sines(:,i,:) = sines_with_frequencies(x, amplitudes(i), frequencies);
end
end
function sines = sines_with_frequencies(x, amplitude, frequencies)
sines = zeros(length(x), length(frequencies));
for i = 1:length(frequencies)
sines(:,i) = sinewave(x, amplitude, frequencies(i));
end
end
function sine = sinewave(x, amplitude, frequency)
sine = sin(2 .* pi .* x *frequency) .* amplitude;
end