Sponsored links: Algebra eBooks
 

Related

carg-linsolve-plot2d-rhs

/* Op-amp integrator,...

/* SSM2164 gain cell ...

/* Input to the gain ...

Calculate

carg-linsolve-plot2d-rhs
plot2d(eq7,[f,1,1000],[logx]);

eq1: Vint=-Iint/(s*C);

eq2: Iint=k*Iin;

eq3: Iin=Vin/30000 + ...

Calculate

carg-pi-plot2d
plot2d(carg(0.4*(%i*w+10)/(%i*w*(%i*w+1)*(%i*w+4)))*(180/%pi),[w,0.1,100]);

plot2d(carg(0.4*(%i*w...

Calculate

carg-linsolve-plot2d-rhs-sin
plot2d([360/(2*%pi)*carg(eq7),sin(f)],[f,1,100000],[logx]);

eq1: Vint=-Iint/(s*C);

eq2: Iint=k*Iin;

eq3: Iin=Vin/30000 + ...

Calculate

carg

carg(1+%i);

Calculate

carg-linsolve-plot2d-rhs
plot2d(eq7,[f,1,1000]);

eq1: Vint=-Iint/(s*C);

eq2: Iint=k*Iin;

eq3: Iin=Vin/30000 + ...

Calculate

carg-linsolve-plot2d-rhs
plot2d(eq7,[f,1,1000],[logx]);

eq1: Vint=-Iint/(s*C);

eq2: Iint=k*Iin;

eq3: Iin=Vin/30000 + ...

Calculate

carg

carg( (w^2*C^2*R*U)/(...

Calculate

carg-float-solve

float(solve(carg(0.4*...

Calculate

carg-linsolve

eq1:U=x*R-z*%i/(w*C)-...

eq2:U=-z*%i/(w*C)+y*R;

eq3: z=x+y;

Calculate

carg

Run Example
(%i1)eq1: Vint=-Iint/(s*C);
                                          Iint
(%o1)                            Vint = - ----
                                          s C
(%i2) eq2: Iint=k*Iin;
(%o2)                            Iint = Iin k
(%i3) eq3: Iin=Vin/30000 + Vint/30000;
                                    Vint     Vin
(%o3)                         Iin = ----- + -----
                                    30000   30000
(%i4) eq4: Iout=Vint/15000+Vin/30000;
                                    Vint     Vin
(%o4)                        Iout = ----- + -----
                                    15000   30000
(%i5) eq5: linsolve([eq1,eq2,eq3,eq4],[Iin,Iout,Vint,Iint]);
                s Vin C             30000 s Vin C - k Vin
(%o5) [Iin = -------------, Iout = -----------------------, 
             30000 s C + k         900000000 s C + 30000 k
                                               k Vin               k s Vin C
                                  Vint = - -------------, Iint = -------------]
                                           30000 s C + k         30000 s C + k
(%i6) eq6: rhs(eq5[2]);
                             30000 s Vin C - k Vin
(%o6)                       -----------------------
                            900000000 s C + 30000 k
(%i7) eq7: 2*%pi*carg(eq6),C=220e-12,k=0.1,s=%i*2*%pi*f,Vin=1;
(%o7) 2 %pi (atan2(1.3199999999999999E-5 %pi f, - 0.1)
                                           - atan(1.3199999999999998E-4 %pi f))
(%i8) plot2d(eq7,[f,1,100000],[logx]);
plotplot2d(eq7,[f,1,100000],[logx]);
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]);
Run Example
tm: 0.030;
(%o1)                                0.03
(%i2)  ntmm: 1.4528;
(%o2)                               1.4528
(%i3)  em: -12.88+1.34*%i;
(%o3)                           1.34 %i - 12.88
(%i4)  wavelength: 0.66;
(%o4)                                0.66
(%i5) frequency: 3e8/0.66*1e6*2*%pi;
(%o5)                      9.09090909090909E+14 %pi
(%i6)   /* angular frequency */ns: 1.36;
(%o6)                                1.36
(%i7)  zs: 377/ns;
(%o7)                          277.2058823529412
(%i8) e0:8.854e-12;
(%o8)                       8.8539999999999992E-12
(%i9) egold: -12.88*e0;
(%o9)                           - 1.1403952E-10
(%i10) ugold: 1.256e-6;
(%o10)                       1.2559999999999999E-6
(%i11) cgold: 4.1e7;
(%o11)                              4.1E+7
(%i12)  zm1: %i*frequency*ugold;
(%o12)                   1.1418181818181815E+9 %i %pi
(%i13) zm2: %i*frequency*egold+cgold;
(%o13)                 4.1E+7 - 103672.2909090909 %i %pi
(%i14) zm: sqrt(zm1/zm2);
                                                       %i
(%o14) 33790.80025418429 sqrt(%pi) sqrt(---------------------------------)
                                        4.1E+7 - 103672.2909090909 %i %pi
(%i15) zt1: 2*%pi*sqrt(egold-ntmm*ntmm)*tm/wavelength;
(%o15)                      0.1320727272763 %i %pi
(%i16) zt2: tan(zt1);
(%o16)                   %i tanh(0.1320727272763 %pi)
(%i17) zt3: zs+%i*zm*zt2;
(%o17) 277.2058823529412 - 33790.80025418429 sqrt(%pi)
                                  %i
              sqrt(---------------------------------) tanh(0.1320727272763 %pi)
                   4.1E+7 - 103672.2909090909 %i %pi
(%i18) zt4: 1+%i*zs*zt2/zm;
                   0.0082035903342838 tanh(0.1320727272763 %pi)
(%o18)       1 - -------------------------------------------------
                                               %i
                 sqrt(%pi) sqrt(---------------------------------)
                                4.1E+7 - 103672.2909090909 %i %pi
(%i19) zt:zt3/zt4;
(%o19) (277.2058823529412 - 33790.80025418429 sqrt(%pi)
                     %i
 sqrt(---------------------------------) tanh(0.1320727272763 %pi))
      4.1E+7 - 103672.2909090909 %i %pi
        0.0082035903342838 tanh(0.1320727272763 %pi)
/(1 - -------------------------------------------------)
                                    %i
      sqrt(%pi) sqrt(---------------------------------)
                     4.1E+7 - 103672.2909090909 %i %pi
(%i20) nwg: 1.467;
(%o20)                               1.467
(%i21) zwg: 377/nwg;
(%o21)                         256.9870483980913
(%i22) r: (zt-zwg)/(zt+zwg);
(%o22) ((277.2058823529412 - 33790.80025418429 sqrt(%pi)
                     %i
 sqrt(---------------------------------) tanh(0.1320727272763 %pi))
      4.1E+7 - 103672.2909090909 %i %pi
        0.0082035903342838 tanh(0.1320727272763 %pi)
/(1 - -------------------------------------------------) - 256.9870483980913)
                                    %i
      sqrt(%pi) sqrt(---------------------------------)
                     4.1E+7 - 103672.2909090909 %i %pi
/((277.2058823529412 - 33790.80025418429 sqrt(%pi)
                     %i
 sqrt(---------------------------------) tanh(0.1320727272763 %pi))
      4.1E+7 - 103672.2909090909 %i %pi
        0.0082035903342838 tanh(0.1320727272763 %pi)
/(1 - -------------------------------------------------) + 256.9870483980913)
                                    %i
      sqrt(%pi) sqrt(---------------------------------)
                     4.1E+7 - 103672.2909090909 %i %pi
(%i23) r: float(abs(r)*abs(r));
(%o23)                         1.294394438655391
(%i24)  fspw: carg(r);
(%o24)                                 0
(%i25) twg: 125;
(%o25)                                125
(%i26) ntmm1: 38*%pi-fspw;
(%o26)                              38 %pi
(%i27) ntmm2: 2*%pi*twg/wavelength;
(%o27)                       378.7878787878788 %pi
(%i28) ntmm3: ntmm1/ntmm2;
(%o28)                              0.10032
(%i29) ntmm: sqrt(nwg*nwg-ntmm3*ntmm3);
(%o29)                         1.463565815944059
(%i30)  reflectivity;
(%o30)                           reflectivity
(%i31) float(r);
(%o31)                         1.294394438655391
(%i32) calculated_ntmm;
(%o32)                          calculated_ntmm
(%i33) float(ntmm);
(%o33)                         1.463565815944059
(%i34) float(fspw);
(%o34)                                0.0
(%i35) 
[abs,atan,carg,realpart] [abs,carg,expand,float,imagpart,realpart] [abs,carg,float,invert,matrix,pi,polarform,ratsimp,rectform] [abs,carg,float,invert,matrix,polarform,ratsimp,rectform] [abs,carg,linsolve,log,plot2d,rhs] [algebraic,carg,ev,expand,float,linsolve,numer,pi,polarform,rat,rhs,simp,true] [algebraic,carg,ev,expand,float,linsolve,numer,pi,rat,rhs,simp,true] [algebraic,carg,float,linsolve,pi,rat,rhs,simp,true] [algebraic,carg,float,linsolve,pi,rat,rhs,true] [algebraic,carg,linsolve,rat,rhs,true] [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] [atan,carg,diff,ev,plot2d] [atan,carg,diff,ev] [block,cabs,carg,endcons,exp,return,sqrt] [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] [carg,float,invert,matrix,polarform,ratsimp,rectform] [carg,float] [carg,imagpart,radcan,realpart,sqrt] [carg,imagpart,realpart,sqrt] [carg,linsolve,plot2d,rhs] [carg,linsolve,plot3d,rhs] [carg,pi,plot2d] [carg,plot3d] [carg,polarform] [carg,sqrt] [carg]

Related Help

Help for Carg