function RCobvod
[t,uC]=ode45(@difrov,[0,0.01],0);
plot(t,uC)
xlabel('t')
ylabel('u_C, u_R')
hold on
U0=100;
uR=U0-uC;
plot(t,uR,'r')
legend('u_C','u_R')
R=200;
C=5e-6;
tau=R*C;
plot([0,tau],[0,100],'g') % tecna
hold off
end

function duC=difrov(t,uC)
R=200;
C=5e-6;
U0=100;
duC=(U0-uC)/(R*C);
end


