User:Btempz/sandbox

L =  2.5000e-005; C =  5.0000e-008; Vi = 40; Io=1; n=[Io]; d=[L*C 0 1 0]; n1=[Vi*C]; d1=[C*L 0 1]; [r,p,k] = residue(n,d); [r2,p2,k2]=residue(n1,d1); T= 2*pi*sqrt(L*C); t=[0:0.0001:2].*T; y1=real(r.'*exp(p*t)); y2=real(r2.'*exp(p2*t)); Y=y1+y2; plot(t,Y);

h=5e-3; l=235e-9; c=189e-12; c1=50e-15; c2=100e-15; j=sqrt(-1); w=2*pi*1e9; s=j*w; theta=sqrt((s*l)*(s*c)); Zo=sqrt(l/c); T1=[cosh((theta)*h) Zo*sinh(theta*h);(sinh(theta*h)/Zo) cosh(theta*h)]; C2=[1 0;c2*s 1]; C1=[1 (1/c1*s);0 1]; Total=T1*C2*C1*C2*T1*C2; Zin=Total(1,1)/Total(2,1) Cap=abs(Zin) CapacitorTotal=1/(Cap*s)

E1: ((Ve1-K*Vo)*(G+alpha))+(((Ve1-Vi)*(beta))/62); soln:solve(E1,Ve1); Ve1:rhs(soln[1]); Ib1: (Vi-Ve1)/62; Ib2:(beta*Ib1*0.778); Ib3:(delta*beta*Ib2)/(((beta+1)/(1+G))+kappa); V1:(((beta+1)/(1+G))*Ib3); kill(Vo); E3:Vo-V1; solve(E3,Vo); TF:ratsimp(rhs(%o15[1])/Vi); TF1:subst([beta=200,delta=6.8,kappa=7.7],TF); TF2:subst([alpha=0.024,K=G/(G+0.024)],TF1); ratsimp(TF2);