Sponsored links: Algebra eBooks
 

Related

cabs-carg-ev-load-log-numer-plot2d
plot2d(20 * log(cabs(T( %i * 2 * %pi * 10^x))) / log(10), [x,1,6]);

V_in:24;

V_out:150;

I_load: 0.1;

Calculate

cabs-carg-imagpart-numer-pi-ratsimp

pi:3.1415926535897932...

U1:35*%e^(%i*59.2*pi/...

U2:23*%e^(%i*61.3*pi/...

Calculate

cabs-carg-ev-load-log-numer-plot2d
plot2d(20 * log(cabs(T( %i * 2 * %pi * 10^x))) / log(10), [x,1,6]);

V_in:24;

R_c1:330;

C_c1:7*10^-6;

Calculate

cabs-carg-ev-load-log-numer-plot2d
plot2d(20 * log(cabs(T( %i * 2 * %pi * 10^x))) / log(10), [x,1,6]);

V_in:24;

R_c1:330;

C_c1:7.5*10^-6;

Calculate

cabs-realpart-sqrt

x: (((-2)+%i*(-2)*(sq...

y: 2^36;

z: x/y;

Calculate

cabs-float

z1: 3+4*%i;

z2: 2-%i;

float(cabs(z1+z2));

Calculate

cabs-carg-ev-load-log-numer-plot2d
plot2d(20 * log(cabs(T( %i * 2 * %pi * 10^x))) / log(10), [x,1,6]);

V_in:24;

R_c1:750;

C_c1:10*10^-6;

Calculate

cabs

zl : rl+%i*xl;

zs : rs+%i*xs;

cabs(zl/(zl+zs))^2/rl;

Calculate

cabs-kill-load-plot2d
plot2d([20*log10(cabs(H1(%i*f))),20*log10(cabs(H2(%i*f))),20*log10(cabs(H3(%i*f))),20*log10(cabs(H4(%i*f)))], [f, 10, 20000], [logx]);

kill(all);

load("log10");

H1(s):= 1/((s/1000+1)...

Calculate

cabs-solve

Fr: (10 / (%i*w*(%i*w...

solve(cabs(Fr)=1,w);

Calculate

cabs

Run Example
(%i1)kill(all);
(%o0)                                done
(%i1) load("log10");
(%o1)          /usr/share/maxima/5.21.1/share/contrib/log10.mac
(%i2) H1(s):= 1/((s/1000+1)^2);
                                           1
(%o2)                        H1(s) := -----------
                                        s       2
                                      (---- + 1)
                                       1000
(%i3) H2(s):= (s/1000)/((s/1000+1)^2);
                                          s
                                         ----
                                         1000
(%o3)                        H2(s) := -----------
                                        s       2
                                      (---- + 1)
                                       1000
(%i4) H3(s):= ((s/1000)^2)/((s/1000+1)^2);
                                          s   2
                                        (----)
                                         1000
(%o4)                        H3(s) := -----------
                                        s       2
                                      (---- + 1)
                                       1000
(%i5) H4(s):= H1(s)+H3(s);
(%o5)                       H4(s) := H1(s) + H3(s)
(%i6) plot2d([20*log10(cabs(H1(%i*f))),20*log10(cabs(H2(%i*f))),20*log10(cabs(H3(%i*f))),20*log10(cabs(H4(%i*f)))], [f, 10, 20000], [logx]);
plotplot2d([20*log10(cabs(H1(%i*f))),20*log10(cabs(H2(%i*f))),20*log10(cabs(H3(%i*f))),20*log10(cabs(H4(%i*f)))], [f, 10, 20000], [logx]);
Run Example
load("log10");
(%o1)          /usr/share/maxima/5.21.1/share/contrib/log10.mac
(%i2) dB(x):= 20*log10(x);
(%o2)                        dB(x) := 20 log10(x)
(%i3) f_to_w(x):= 2*%pi*x;
(%o3)                        f_to_w(x) := 2 %pi x
(%i4) allroots(x^2 -1.99004745483398*x + 0.99007225036621);
(%o4) [x = 1.79564500253386E-4 %i + 0.99502372741699, 
                                 x = 0.99502372741699 - 1.79564500253386E-4 %i]
(%i5) allroots(x^2 -1.69065929318241*x + 0.73248077421585);
(%o5) [x = 0.13378551046297 %i + 0.84532964659121, 
                                    x = 0.84532964659121 - 0.13378551046297 %i]
(%i6) float(solve(exp(-x/48000) = 0.99502372741699,x)/(2*%pi));

rat: replaced -0.995023727417 by -8598/8641 = -0.995023724106
(%o6)               [0.1591549430919 x = 38.11085142032302]
(%i7) float(solve(exp(-x/48000) = 0.84532964659121,x)/(2*%pi));

rat: replaced -0.8453296465912 by -9783/11573 = -0.8453296465912
(%o7)               [0.1591549430919 x = 1283.644051295943]
(%i8) float(solve(exp(-x/48000) = 0.13378551046297,x)/(2*%pi));

rat: replaced -0.133785510463 by -1361/10173 = -0.1337855106655
(%o8)               [0.1591549430919 x = 15366.86120660835]
(%i9) H(s):= ((s^2)/(f_to_w(38.11085142032302)^2))/((s^2)/(f_to_w(38.11085142032302)^2) + s/(0.5*f_to_w(38.11085142032302)) + 1);
                                             2
                                            s
                                --------------------------
                                      2
                                f_to_w (38.11085142032302)
(%o9) H(s) := --------------------------------------------------------------
                           2
                          s                              s
              -------------------------- + ----------------------------- + 1
                    2                      0.5 f_to_w(38.11085142032302)
              f_to_w (38.11085142032302)
(%i10) H2(s):= (1.52*(s^2)/(f_to_w(1283.644051295943)^2) + s/(0.13378551046297*f_to_w(1283.644051295943)) + 1)/((s^2)/(f_to_w(1283.644051295943)^2) + s/(0.5*f_to_w(1283.644051295943)) + 1);
(%o10) H2(s) := 
                   2
             1.52 s                                  s
    -------------------------- + ------------------------------------------ + 1
          2                      0.13378551046297 f_to_w(1283.644051295943)
    f_to_w (1283.644051295943)
    ---------------------------------------------------------------------------
                       2
                      s                              s
          -------------------------- + ----------------------------- + 1
                2                      0.5 f_to_w(1283.644051295943)
          f_to_w (1283.644051295943)
(%i11) plot2d([dB(cabs(H(%i*f_to_w(f)))),dB(cabs(H2(%i*f_to_w(f))))],[f,10,24000],[logx,true]);
plotplot2d([dB(cabs(H(%i*f_to_w(f)))),dB(cabs(H2(%i*f_to_w(f))))],[f,10,24000],[logx,true]);
Run Example
V_in:24;
(%o1)                                 24
(%i2) V_out:150;
(%o2)                                 150
(%i3) I_load: 0.1;
(%o3)                                 0.1
(%i4) f_schalt: 100000;
(%o4)                               100000
(%i5) L_out:680*10^-6;
                                      17
(%o5)                                -----
                                     25000
(%i6) C_out: 94*10^-6;
                                      47
(%o6)                               ------
                                    500000
(%i7) ESR: 0.05;
(%o7)                                0.05
(%i8) D:(V_out-V_in)/V_out;
                                      21
(%o8)                                 --
                                      25
(%i9) R_load:(V_out/I_load);
(%o9)                               1500.0
(%i10) D_: 1-D ;
                                      4
(%o10)                                --
                                      25
(%i11) A_cm:(D_*R_load)/(2*0.01);
(%o11)                              12000.0
(%i12) w_z1: 1/(C_out*ESR);
(%o12)                         212765.9574468085
(%i13) w_z2: (R_load*(V_in/V_out)^2)/L_out;
(%o13)                         56470.58823529411
(%i14) w_p1: 1/(C_out*R_load);
(%o14)                         7.092198581560284
(%i15) Q: 1/(%pi*(D_*(3.320/1.515)+0.5-D));
                               94.09937888198716
(%o15)                         -----------------
                                      %pi
(%i16) A_EA:38;
(%o16)                                38
(%i17) A_FB:1.26/V_out;
(%o17)                              0.0084
(%i18) A_DC_1: A_cm*A_EA*A_FB;
(%o18)                              3830.4
(%i19) A_DC_2: log(A_DC_1) / log(10);
                               8.250724515363654
(%o19)                         -----------------
                                    log(10)
(%i20) A_DC_3: 20*A_DC_2;
                               165.0144903072731
(%o20)                         -----------------
                                    log(10)
(%i21) ev(A_DC_3, numer);
(%o21)                         71.66488257452633
(%i22) w_z3: 1/(0.5*10^-6*1000);
(%o22)                              2000.0
(%i23) w_p2: 1/(0.5*10^-6*50000);
(%o23)                               40.0
(%i24) w_s: f_schalt*2*%pi;
(%o24)                            200000 %pi
(%i25) T(s):= (A_DC_1*((1+(s/w_z1))*(1-(s/w_z2))*(1+(s/w_z3)))/((1+(s/w_p1))*(1+(s/w_p2))*(1+(s/(Q*(w_s/2)))+(s^2/(w_s/2)^2))));
                                    s          s          s
                      A_DC_1 ((1 + ----) (1 - ----) (1 + ----))
                                   w_z1       w_z2       w_z3
(%o25)       T(s) := --------------------------------------------
                                                             2
                           s          s            s        s
                     (1 + ----) (1 + ----) (1 + ------- + ------)
                          w_p1       w_p2          w_s     w_s 2
                                                Q (---)   (---)
                                                    2       2
(%i26) T(1);
                              3276.770780998678
(%o26)               ------------------------------------
                            1
                     ---------------- + 1.000000106270627
                                    2
                     10000000000 %pi
(%i27) plot2d(20 * log(cabs(T( %i * 2 * %pi * 10^x))) / log(10), [x,1,6]);
plotplot2d(20 * log(cabs(T( %i * 2 * %pi * 10^x))) / log(10), [x,1,6]);plot2d(carg(T( %i * 2 * %pi * 10^x)) / %pi * 180 + 360 - 180 , [x,1,6]);
plotplot2d(carg(T( %i * 2 * %pi * 10^x)) / %pi * 180 + 360 - 180 , [x,1,6]);
[abs,cabs,sqrt] [abs,cabs] [allroots,cabs,exp,float,load,plot2d,solve] [allroots,cabs,exp,float,plot2d,solve] [atan,cabs,carg,expand,float,imagpart,log,plot2d,polarform,realpart,rectform,signum,sqrt] [atan,cabs,carg,float,imagpart,log,plot2d,polarform,realpart,rectform,signum,sqrt] [atan,cabs,carg,float,imagpart,log,plot2d,polarform,realpart,rectform,sqrt] [block,cabs,carg,endcons,exp,return,sqrt] [cabs,carg,conjugate,do,print] [cabs,carg,conjugate] [cabs,carg,cos,fpprintprec,load,makelist,plot2d,sin] [cabs,carg,ev,load,log,numer,plot2d] [cabs,carg,exp,imagpart,polarform,realpart,sqrt] [cabs,carg,exp,imagpart,realpart] [cabs,carg,exp,kill,plot2d] [cabs,carg,float,log,plot2d,rectform,sqrt] [cabs,carg,float,log,plot2d,sqrt] [cabs,carg,float,subst] [cabs,carg,fpprintprec,load,makelist,plot2d,sin] [cabs,carg,imagpart,numer,pi,ratsimp] [cabs,carg,imagpart,polarform,realpart,sqrt] [cabs,carg,imagpart,realpart,sqrt] [cabs,carg,load,log,plot2d] [cabs,carg,numer,pi,ratsimp] [cabs,carg] [cabs,cos,ratsimp,sin,subst] [cabs,ev,log,plot2d] [cabs,exp,float,load,plot2d,solve] [cabs,exp,load,plot2d] [cabs,exp,plot2d,ratsimp] [cabs,exp,ratsimp] [cabs,false,first,keepfloat,kill,load,plot2d,ratprint,second,solve,true] [cabs,first,float,kill,load,plot2d,ratsimp,second,solve] [cabs,first,float,kill,load,plot2d,second,solve] [cabs,first,kill,load,plot2d,solve] [cabs,float,imagpart,plot2d,realpart,sin] [cabs,fortran,fullratsimp,subst] [cabs,fullratsimp,subst] [cabs,imagpart,numer,pi,ratsimp] [cabs,imagpart,plot2d,realpart,sin] [cabs,kill,load,plot2d] [cabs,load,plot2d] [cabs,max,plot3d] [cabs,numer,pi,ratsimp,realpart,sin] [cabs,numer,pi,ratsimp,realpart] [cabs,pickapart,solve] [cabs,plot3d] [cabs,solve] [cabs,sqrt] [cabs]

Related Help

Help for Cabs