analysis.ma

课程设计做的PLL

#restart; read(`c:/courses/Electronics4/colpitts/analysis.ma`);
#
interface(echo=2);
eq1:=(V[x]-V[i])/Z[s] + (V[x]-V[o])/Z[2] + V[x]/Z[3];
eq2:=V[o]/Z[L] + V[o]/Z[1] + (V[o]-V[x])/Z[2];
sol:=solve({eq1,eq2},{V[o],V[x]});
assign(sol);
tf:=simplify(V[o]/V[i]);
tf:=collect(tf,Z[s]);
tfsimple:=limit(tf, Z[L]=infinity);
tfsimpleatResonance:=simplify(subs(Z[1]=-(Z[2]+Z[3]),tfsimple));
tfatResonance:=simplify(subs(Z[L]=-Z[1]*(Z[2]+Z[3])/(Z[1]+Z[2]+Z[3]), tf));