%%
clc;
clear;

configure_parameters;

global C_n f_n;
C_n = zeros(1, len);
f_n = zeros(1, len);

for t_idx = 1:len
    C_n(t_idx) = floor(rand * (M - 1));
    f_n(t_idx) = f_c + C_n(t_idx) * Delta_f;
end

T_x = zeros(1, len);
R_x = zeros(1, len);
R_d = zeros(1, len);

for i = 1:len
    t = range_t(i);
    T_x(i) = T_x_func(t);
    R_x(i) = R_x_func(t);
    R_d(i) = R_d_func(t);
end

%%
if true
    figure(5)
    plot(range_t, T_x, color="red");
    hold on;
    plot(range_t, R_d, color="blue");
    xlim([0, 10 * T_r])
end

[r, range_idx] = get_range(T_x, R_x);
doppler = get_doppler(T_x, R_d);