etheory
Well-known member
Low/High pass of the TG12414:
Clear["Global`*"];
(*LPF*)
(*5.6*^-9*)
c1a=c1;
c1b=c1;
c1c=c1;
(*HPF*)
(*1*^-6*)
c2a=c2;
c2b=c2;
c2c=c2;
r28=6.2*^3;
r29=6.9821*^3;
r32=3.3*^3;
r33=12*^3;
r35=1.3*^3;
r36=30*^3;
ic1a=s*c1a*(v4-v2);
ic1b=s*c1b*(v6-v4);
ic1c=s*c1c*(0-v6);
ic2a=s*c2a*(x-v1);
ic2b=s*c2b*(v2-v3);
ic2c=s*c2c*(v4-v5);
ir36=(v4-v1)/r36;
ir35=(v1-v2)/r35;
ir33=(v6-v3)/r33;
ir32=(v3-v4)/r32;
ir29=(0-v5)/r29;
ir28=(v5-v6)/r28;
eqv1=-ic2a-ir36+ir35==0;
eqv2=-ir35-ic1a==0;
eqv3=-ic2b-ir33+ir32==0;
eqv4=-ir32-ic1b==0;
eqv5=-ic2c-ir29+ir28==0;
eqv6=-ir28-ic1c==0;
(*System*)
r1[c1_,c2_]=Solve[{eqv1,eqv2,eqv3,eqv4,eqv5,eqv6},{v6,v5,v4,v3,v2,v1}][[1]][[1,2]]/x//FullSimplify
BodePlot[TransferFunctionModel[{r1[5.6*^-9,1*^-6],r1[4.7*^-9,330*^-9],r1[3.9*^-9,220*^-9],r1[2.7*^-9,150*^-9],r1[2.2*^-9,100*^-9],r1[1*^-9,100*^-9]},s]]
Clear["Global`*"];
(*LPF*)
(*5.6*^-9*)
c1a=c1;
c1b=c1;
c1c=c1;
(*HPF*)
(*1*^-6*)
c2a=c2;
c2b=c2;
c2c=c2;
r28=6.2*^3;
r29=6.9821*^3;
r32=3.3*^3;
r33=12*^3;
r35=1.3*^3;
r36=30*^3;
ic1a=s*c1a*(v4-v2);
ic1b=s*c1b*(v6-v4);
ic1c=s*c1c*(0-v6);
ic2a=s*c2a*(x-v1);
ic2b=s*c2b*(v2-v3);
ic2c=s*c2c*(v4-v5);
ir36=(v4-v1)/r36;
ir35=(v1-v2)/r35;
ir33=(v6-v3)/r33;
ir32=(v3-v4)/r32;
ir29=(0-v5)/r29;
ir28=(v5-v6)/r28;
eqv1=-ic2a-ir36+ir35==0;
eqv2=-ir35-ic1a==0;
eqv3=-ic2b-ir33+ir32==0;
eqv4=-ir32-ic1b==0;
eqv5=-ic2c-ir29+ir28==0;
eqv6=-ir28-ic1c==0;
(*System*)
r1[c1_,c2_]=Solve[{eqv1,eqv2,eqv3,eqv4,eqv5,eqv6},{v6,v5,v4,v3,v2,v1}][[1]][[1,2]]/x//FullSimplify
BodePlot[TransferFunctionModel[{r1[5.6*^-9,1*^-6],r1[4.7*^-9,330*^-9],r1[3.9*^-9,220*^-9],r1[2.7*^-9,150*^-9],r1[2.2*^-9,100*^-9],r1[1*^-9,100*^-9]},s]]