clc;
//e.g 31.2
n=0.62;
R=5*10**3;
C=0.05*10**-6;
T=2.3*R*C*log10(1/(1-n))
disp('msec',T*10**3,"T=");
f=1/T;
disp('HZ',f*1,"f=");
f1=50;
T1=1/f1;
R=T1/(2.3*C*log10(1/(1-n)));
disp('kohm',R*10**-3,"R=");
C=0.5*10**-6;
R=T1/(2.3*C*log10(1/(1-n)));
disp('kohm',R*10**-3,"R=");