Hi, I am trying to build a RLC low pass filter that atenuates the frequency below 4500 Hz. However, I have encountered some problem when choosing the correct R to work with. Here is the original sound.

Here is my code
Here is the Bode Diagram

So you can see I used the inductance of 1*10^-3, and capacitance around 1.26*10^-6. I try to use the resistance of 0.0001, but it does not work. And the system of equation eventually becomes not solvable. Please let me know what value of R I should choose.

Here is my code
Code:
function Vout = myFilterCircuit(Vin,h)
n_V = length(Vin);
f_7 = 4500;; % Undesired frequency
h_7 = h; % delta time
% These are for the constant and initialization of the variables
t_7 = 0:h_7:(n_V-1)*h_7; % This is the independent variable
LC_2 = 1/((f_7*2*pi)^2);% This is for L C
R_7 = 0.0001; % This is R
L_7 = 1*10^-3; % This is L
C_7 = LC_2/L_7; % This is C
%
A_2 = [1,h_7/C_7;-h_7/L_7,1-h_7*R_7/L_7]; % This is the A matrix
B_2 = [0;h_7/L_7]; % This is the B matrix
C_2 = [1,0]; % This is the C matrix
D_2 = [0]; % This is the D matrix
%
sys_8 = ss(A_2,B_2,C_2,D_2,h_6); % This is the system
[y_8,tout_8,x_8] = lsim(sys_8, V_inter, t_7); % Simulate the system response
%
Vout = y_8(:,1); % This is the V_c output.
figure;
bode(sys_7, sys_8);
legend('60Hz LPF', '4470Hz LPF');
end;

So you can see I used the inductance of 1*10^-3, and capacitance around 1.26*10^-6. I try to use the resistance of 0.0001, but it does not work. And the system of equation eventually becomes not solvable. Please let me know what value of R I should choose.