%% Transfer function of a RC-network
% This script will run automated measurements for you. Note that all frequencies 
% are given in Hertz.
%% Component Values
% Fill in the measured values in the following code box.
%%
R = 3.2942e3; %Ohm
C = 315.82e-9;%Farad
%% 
% Give the desired begin and end frequency as well as number of steps:

f_start = 10; %Hz
f_stop = 1e3; %Hz
%% 
% Do not edit the following code box.

f = 10.^linspace(log10(f_start),log10(f_stop),500);
%% Theoratical Curves
% Give the equations for the magnitude:
%%
A = -10*log10(1+(2*pi*f*R*C).^2);
%% 
% For the phase:

P = -atan(2*pi*f*R*C);
%% 
% For the cut-off frequency:

Fc = 1/(2*pi*R*C);
%% 
% And both asymptotes where $f >> f_c$ and $f << f_c$:

S_smaller = 0*f;                      %smaller than cut-off frequency
S_larger = -20*log10(2*pi*f*R*C);     %larger than cut-off frequency
%% Running the Measurement
%%
n_steps = 5;
amplitude = 10;
RC_TransferFunction_script;