RC-цепь. Уравнения, графики.

Меняя "к" 0,1 - 1 - 20 получим укорачивающую, расширяющую и разделительную цепи

> Restart:

> with(plots):

> k:=.3:#отношение RC/tau

> tau:=2:t0:=tau/2:tk:=(tau+t0)*2:#tau-длит.вх.имп.,
#t0-началн.момент.времени, tk- конец всех процессов

> q:=tau*k:l:=0..tk+.001:#q=RC, l-интервал постр.гафика

> y:=Heaviside(x-t0)*Heaviside(tau+t0-x):#Входн.импульс

> z:=Heaviside(x-tau-t0)*Heaviside(tk-x):#РазрЯд С

> a:=plot(y,x=l):#Входной импульс

> r:=y*exp(-(x-t0)/q)-z*(1-exp(-tau/q))*exp(-(x-tau-t0)/q):#Напр.на резисторе

> c:=y*(1-exp(-(x-t0)/q))+z*(1-exp(-tau/q))*
(exp(-(x-tau-t0)/q)):#Напр. на конденсаторе

> b:=plot(r-1.1,x=l,color=green):

> d:=plot(c-3.2,x=l,color=blue):

> t1:=textplot([t0/2,.5,`Uвх`]):
t2:=textplot([t0/2,-.5,`Ur`]):
t3:=textplot([t0/2,-2.5,`Uc`]):
display([a,b,d,t1,t2,t3]);

>

>

>