Sponsored links: Algebra eBooks
 

Help Index

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

The Maxima on-line user's manual

Algebra Calculator

Search:

Cabs

Function: cabs (<expr>) Returns the complex absolute value (the complex modulus) of <expr>.

R1:4990;
R2:680;
R3:200;
R4:2000;
C3:3.3e-9;
C4:22e-9;
C5:220e-12;
ESR:0.0009;
Rout:5/3;
Cout:22e-6;
L:18e-6;
fz1: 1/(2*%pi*C3*(R1+R3));
fz2: 1/(2*%pi*R4*C4);
fp0: 0;
fp1: 1/(2*%pi*R3*C3);
fp2: 1/(2*%pi*R4*C4*C5/(C4+C5));
Q : sqrt(Rout*L*Cout*(Rout+ESR))/(L+Cout*Rout*ESR);
fLC : 1/(2*%pi*sqrt(L*Cout)*sqrt(1+ESR/Rout));
glc(s):= (1+s/(2*%pi/(2*%pi*ESR*Cout)))/(1+s/(2*%pi*Q*fLC)+(s/(2*%pi*fLC))^2);
float(Q);
float(sqrt(1));
float(glc(5));
gtypeIII(s) := 10^(150/20)*(s-fz1*2*%pi)*(s-fz2*2*%pi)/( (s-fp0*2*%pi) * (s-fp1*2*%pi) * (s-fp2*2*%pi) );
gloop(s):= 18 * glc(s) * gtypeIII(s);
float(rectform(gloop(%i*2*%pi*10^3.8)));
float(polarform(gloop(%i*2*%pi*10^3.8)));
float(carg(gloop(%i*2*%pi*10^3.8)));
atan(float(imagpart(gloop(%i*2*%pi*10^3.8)))/float(realpart(gloop(%i*2*%pi*10^3.8))))/%pi*180;
myCArg(z) := float(atan(float(imagpart(z))/float(realpart(z))));
myCArg(gloop(%i*2*%pi*10^3.8));
plot2d(20*log(cabs(gloop(%i*2*%pi*10^f)))/log(10), [f,-1,6]);
plot2d(myCArg(gloop(%i*2*%pi*10^f))/%pi*180, [f,-1,6]);

(%o1)                                true
(%i2) 

Related Examples

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-exp-load-plot2d
plot2d([sdomain(H(f_to_w(%i*f))),sdomain(Hz(exp(f_to_w(%i*f)/48000)))], [f,10,24000], [logx, true]);

load("log10");

f_to_w(f):= 2*%pi*f;

sdomain(s):= 20*log10...

Calculate

cabs-solve

eq1: 10 = cabs(%i*w*(...

solve(eq1,w);

Calculate

cabs-solve

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

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

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:1000;

C_c1:2*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:1000;

C_c1:1*10^-6;

Calculate

cabs-exp-load-plot2d
plot2d([sdomain(H(f_to_w(%i*f))),sdomain(Hz(exp(f_to_w(%i*f)/48000)))], [f,10,24000], [logx, true]);

load("log10");

f_to_w(f):= 2*%pi*f;

sdomain(s):= 20*log10...

Calculate

cabs-load-plot2d
plot2d(20*log10(cabs(H(%i*f))), [f, 10, 20000]);

H(s):= 1/((s/1000+1)^2);

load("log10");

plot2d(20*log10(cabs(...

Calculate