### Related

##### carg

mnewton([carg(0.4*(%i...

Calculate

##### carg-imagpart-realpart-sqrt

a:realpart(((1-(%i)*s...

b:imagpart(((1-(%i)*s...

sqrt((a^2)+(b^2));

Calculate

##### carg-linsolve-plot2d-rhs

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

eq2: Iint=k*Iin;

eq3: Iin=Vin/30000 + ...

Calculate

##### carg-imagpart-realpart-sqrt

a:realpart(((1-(%i)*s...

b:imagpart(((1-(%i)*s...

sqrt((a^2)+(b^2));

Calculate

##### carg-linsolve-plot3d-rhs

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

eq2: Iint=k*Iin;

eq3: Iin=Vin/30000 + ...

Calculate

##### carg-plot3d

plot3d(carg((x+%i*y)^...

Calculate

##### carg-linsolve-plot2d-rhs

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

eq2: Iint=k*Iin;

eq3: Iin=Vin/30000 + ...

Calculate

##### carg-linsolve-plot2d-rhs

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

eq2: Iint=k*Iin;

eq3: Iin=Vin/30000 + ...

Calculate

##### carg-float-invert-matrix-polarform-ratsimp-rectform

a:matrix([9-%i*10,-5,...

b:matrix([0],[-10*%e^...

c:polarform(float(rec...

Calculate

##### carg-float-invert-matrix-polarform-ratsimp-rectform

a:matrix([9-%i*10,-5,...

b:matrix([0],[-10*%e^...

c:polarform(float(rec...

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]);
plot```
Run Example
```V_in:24;
(%o1)                                 24
(%i2) V_out:150;
(%o2)                                 150
(%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
(%o9)                               1500.0
(%i10) D_: 1-D ;
4
(%o10)                                --
25
(%o11)                              12000.0
(%i12) w_z1: 1/(C_out*ESR);
(%o12)                         212765.9574468085
(%o13)                         56470.58823529411
(%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(carg(T( %i * 2 * %pi * 10^x)) / %pi * 180 + 360 - 180 , [x,1,6]);
plot```
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) ```

Help for Carg