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

I_load: 0.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:330;

C_c1:7.5*10^-6;

Calculate

cabs

express(cabs(((%i^8)-...

express(cabs(%i^-1));

Calculate

cabs-plot3d
plot3d(cabs(1+(-5*%i)*(x+%i*y)**2*(1+(x+%i*y))),[x,-5,5],[y,-5,5],[elevation,0],[azimuth,0]);

plot3d(cabs(1+(-5*%i)...

Calculate

cabs-carg-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(Hz2(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/10000+1)...

load("log10");

plot2d(20*log10(cabs(...

Calculate

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

load("log10");

H(s):= 1/(s/f_to_w(10...

H(z):= 0.1*z^-1 + 0.5...

Calculate