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))))-(signum(realpart(z))/2-.5)*%pi;
float(myCArg(gloop(%i*2*%pi*10^3.8))/%pi*180);
float(myCArg(gloop(%i*2*%pi*10^4))/%pi*180);
float(myCArg(gloop(%i*2*%pi*10^5.8))/%pi*180);
float(myCArg(gloop(%i*2*%pi*10^6))/%pi*180);
plot2d(20*log(cabs(gloop(%i*2*%pi*10^f)))/log(10), [f,-1,6]);
plot2d(float(myCArg(expand(gloop(%i*2*%pi*10^f)))/%pi*180), [f,-1,6]);

(%o1)                                true
(%i2) 

Related Examples

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-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:6.8*10^-6;

Calculate

cabs-carg-cos-fpprintprec-load-makelist-plot2d-sin
plot2d([discrete, makelist(2*i*%pi/sample, i, 0, sample - 1), S]);

load (fft) ;

sample : 64;

fpprintprec : 4 ;

Calculate

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

load("log10");

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

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

Calculate

cabs-carg-exp-imagpart-polarform-realpart-sqrt

z:1+%i*sqrt(3);

polarform(z);

a:realpart(z);

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-exp-float-load-plot2d-solve
plot2d([sdomain(H(f_to_w(%i*f))),sdomain(Hz2(exp(f_to_w(%i*f)/48000))),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-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

zl : rl+%i*xl;

zs : rs+%i*xs;

cabs(zl/(zl+zs));

Calculate