Yossi_Students / Mbed 2 deprecated TAU_ZOOLOG_Chirp_Generator

Chirp Signal Generator

Dependencies:   mbed

Fork of TAU_ZOOLOG_Playback_Rev1_1 by Yossi_Students

Matlab_Script/AmplCalc.txt@24:88c0f532b436, 2019-06-20 (annotated)

Committer:
Arkadi
Date:
Thu Jun 20 12:21:57 2019 +0000
Revision:
24:88c0f532b436
Parent:
15:155cd378c3d1 
Experiments

Who changed what in which revision?

UserRevisionLine numberNew contents of line
Arkadi 15:155cd378c3d1 1 function [Amp, Diff] = AmplCalc(L) % L - length of vector
Arkadi 15:155cd378c3d1 2 %Value of Playback and Avisoft should be taken from calibration
Arkadi 15:155cd378c3d1 3
Arkadi 15:155cd378c3d1 4 % Frequency Vector - KHz
Arkadi 15:155cd378c3d1 5 % [30 35 40 45 50 55 60 65 70 75 80 85 90 95 100 105 110 115 120 125 130 Fd12/2];
Arkadi 15:155cd378c3d1 6 % Playback (dB)
Arkadi 15:155cd378c3d1 7 Plb = [-23.12 -19.87 -20.77 -26.72 -25 -30.42 -24 -23.25 -22.57 -21.31 -24.32 -24.71 -27.67 -30.61 -33.26 -33.05 -31.94 -35 -37.5 -41.78 -49.73];
Arkadi 15:155cd378c3d1 8 %Recorded by Avisoft
Arkadi 15:155cd378c3d1 9 Avs = [-35.7 -33.9 -33.7 -35.35 -32.84 -35.11 -32.56 -33.19 -34.7 -30.73 -32.43 -32 -30.7 -32.6 -30.45 -29.24 -29.9 -29.28 -29.27 -32.77 -32.7];
Arkadi 15:155cd378c3d1 10
Arkadi 15:155cd378c3d1 11 % dB = 10*log10(Amp^2)
Arkadi 15:155cd378c3d1 12 % Amp = sqrt(10^(dB/10))
Arkadi 15:155cd378c3d1 13
Arkadi 15:155cd378c3d1 14 D1 = Plb(length(Plb));
Arkadi 15:155cd378c3d1 15 Plb(length(Plb)+1 : length(Avs)) = D1;
Arkadi 15:155cd378c3d1 16
Arkadi 15:155cd378c3d1 17 Diff = Avs - Plb;
Arkadi 15:155cd378c3d1 18 % Shift to average value
Arkadi 15:155cd378c3d1 19 Diff = Diff - mean(Diff);
Arkadi 15:155cd378c3d1 20 % Complete for high path filter
Arkadi 15:155cd378c3d1 21 % 0 5 10 15 20 25 30 ... KHz
Arkadi 15:155cd378c3d1 22 Amp = [0 0 0 0 0 0.1 sqrt(10.^(Diff/10))];
Arkadi 15:155cd378c3d1 23 A1 = Amp(length(Amp));
Arkadi 15:155cd378c3d1 24 Amp(length(Amp)+1 : L) = A1;
Arkadi 15:155cd378c3d1 25