function RC_obvod
R=200;
C=5e-6;
U0=100;
[t,uC]=ode45(@difRov,[0,0.01],0);
subplot(3,1,1)
plot(t,uC)
xlabel('t')
ylabel('u_C')
subplot(3,1,2)
uR=U0-uC;
plot(t,uR)
xlabel('t')
ylabel('u_R')
subplot(3,1,3)
p=(U0-uC)/R;
plot(t,p)
xlabel('t')
ylabel('i')
end

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

