Sponsored links: Algebra eBooks
 

Related

carg-plot2d-sin
plot2d([5.958762397937049*sin(wt+carg(I2))], [wt,0,2*%pi],[y,-6,6]);

plot2d([5.95876239793...

Calculate

carg-linsolve-plot3d-rhs
plot3d(   360/(2*%pi)*carg(eq7),   [f,1,100000],[k,0.01,0.1],   [logx],[nticks,1000]);

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

eq2: Iint=k*Iin;

eq3: Iin=Vin/30000 + ...

Calculate

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

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

eq2: Iint=k*Iin;

eq3: Iin=Vin/30000 + ...

Calculate

carg-plot3d
plot3d(carg(x+%i*y), [x,-2,2],[y,-2,2]);

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

Calculate

carg-sqrt

carg(sqrt(3)+%i);

Calculate

carg-declare-float-pi-solve-sqrt

T1:3;

a:solve(T1^2*a^2-a-10...

declare([T1,a], real);

Calculate

carg-numer-rectform

L: 3.1847e-2;

C: 3.1847e-7;

R: 10;

Calculate

carg-declare-float-pi-solve-sqrt

T1:3;

a:solve(T1^2*a^2-a-10...

declare([T1,a], real);

Calculate

carg-linsolve-plot3d-rhs
plot3d(   360/(2*%pi)*carg(eq7),   [f,1,100000],[k,0.01,0.1]);

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

eq2: Iint=k*Iin;

eq3: Iin=Vin/30000 + ...

Calculate

carg-rectform

z : (1+%i)^2/(1-2*%i);

rectform(z);

+carg(z);

Calculate

carg

Run Example
(%i1)H(z):=(z+1/3)*(z-3/2)*(z-2)/z^3;
                                     1       3
                                (z + -) (z - -) (z - 2)
                                     3       2
(%o1)                   H(z) := -----------------------
                                           3
                                          z
(%i2) Ha1(z):=(z-3/2)*(z-2)/((z-2/3)*(z-1/2));
                                          3
                                     (z - -) (z - 2)
                                          2
(%o2)                      Ha1(z) := ---------------
                                          2       1
                                     (z - -) (z - -)
                                          3       2
(%i3) Hm1(z):=(z+1/3)*(z-1/2)*(z-2/3)/z^3;
                                      1       1       2
                                 (z + -) (z - -) (z - -)
                                      3       2       3
(%o3)                  Hm1(z) := -----------------------
                                            3
                                           z
(%i4) Ha2(z):=(z+1/3)*(z-3/2)*(z-2)/((z+3)*(z-2/3)*(z-1/2));
                                      1       3
                                 (z + -) (z - -) (z - 2)
                                      3       2
(%o4)                  Ha2(z) := -----------------------
                                              2       1
                                 (z + 3) (z - -) (z - -)
                                              3       2
(%i5) Hm2(z):=(z+3)*(z-2/3)*(z-1/2)/(z^3);
                                              2       1
                                 (z + 3) (z - -) (z - -)
                                              3       2
(%o5)                  Hm2(z) := -----------------------
                                            3
                                           z
(%i6) l:solve(ratnumer(H(z)),z);
                                   1      3
(%o6)                       [z = - -, z = -, z = 2]
                                   3      2
(%i7) nullst:[];
(%o7)                                 []
(%i8) re(x):=abs(x)*cos(carg(x));
(%o8)                    re(x) := abs(x) cos(carg(x))
(%i9) im(x):=abs(x)*sin(carg(x));
(%o9)                    im(x) := abs(x) sin(carg(x))
(%i10) for i:1 thru length(l) step 1 do(    a:rhs(l[i]),    nullst:append(nullst,[[re(a),im(a)]]));
(%o10)                               done
(%i11) l:solve(denom(H(z)),z);
(%o11)                              [z = 0]
(%i12) pole:[];
(%o12)                                []
(%i13) for i:1 thru length(l) step 1 do(    a:rhs(l[i]),    pole:append(pole,[[re(a),im(a)]]));
(%o13)                               done
(%i14) concat("usprüngliche Funktion H(z)");
(%o14)                    uspr?ngliche Funktion H(z)
(%i15) plot2d([sqrt(1-x^2),-sqrt(1-x^2),[discrete,nullst],[discrete,pole]],[x,-3,3],[y,-3,3],[style,[lines,0.4],[lines,0.4],[points],[points]],[point_type, circle, circle,circle,times],[color,black,black,red,blue],[legend,false],[gnuplot_preamble, "set size ratio -1"],[adapt_depth,10]);
plotplot2d([sqrt(1-x^2),-sqrt(1-x^2),[discrete,nullst],[discrete,pole]],[x,-3,3],[y,-3,3],[style,[lines,0.4],[lines,0.4],[points],[points]],[point_type, circle, circle,circle,times],[color,black,black,red,blue],[legend,false],[gnuplot_preamble, "set size ratio -1"],[adapt_depth,10]);
Run Example
T1:1;
(%o1)                                  1
(%i2) declare([T1,w], real);
(%o2)                                done
(%i3) assume(T1>
0,w>
0);
(%o3)                         [redundant, w > 0]
(%i4) w:solve(T1^2*w^4-w^2-100=0,w);
             sqrt(sqrt(401) + 1)      sqrt(sqrt(401) + 1)
(%o4) [w = - -------------------, w = -------------------, 
                   sqrt(2)                  sqrt(2)
                            sqrt(sqrt(401) - 1) %i      sqrt(sqrt(401) - 1) %i
                      w = - ----------------------, w = ----------------------]
                                   sqrt(2)                     sqrt(2)
(%i5) w:w[2];
                                sqrt(sqrt(401) + 1)
(%o5)                       w = -------------------
                                      sqrt(2)
(%i6) carg(10/(%i*w*(1+%i*w*T1)));
                          %pi          sqrt(sqrt(401) + 1)    %pi
(%o6)         - atan(w) - --- = - atan(-------------------) - ---
                           2                 sqrt(2)           2
(%i7) 
Run Example
w: 3*%pi/25;
                                     3 %pi
(%o1)                                -----
                                      25
(%i2) z3: 2*w*%i;
                                   6 %i %pi
(%o2)                              --------
                                      25
(%i3) v3: 170;
(%o3)                                 170
(%i4) I3: v3/z3;
                                     2125 %i
(%o4)                              - -------
                                      3 %pi
(%i5) float(cabs(I3));
(%o5)                          225.4695027135184
(%i6) float(carg(I3));
(%o6)                         - 1.570796326794897
(%i7) 
[abs,append,carg,concat,cos,denom,do,plot2d,ratnumer,rhs,sin,solve,sqrt] [abs,append,carg,cos,denom,do,plot2d,ratnumer,rhs,sin,solve,sqrt] [abs,atan,carg,realpart] [abs,carg,conjugate,declare,imagpart,polarform,realpart] [abs,carg,conjugate,declare,imagpart,realpart] [abs,carg,conjugate,demoivre,imagpart,realpart] [abs,carg,conjugate,imagpart,polarform,realpart,sqrt] [abs,carg,conjugate,imagpart,polarform,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] [abs,carg,sqrt] [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] [assume,carg,declare,float,solve] [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,float,log,plot2d,sqrt] [cabs,carg,float] [cabs,carg,fpprintprec,load,makelist,plot2d,sin] [cabs,carg,imagpart,realpart,sqrt] [cabs,carg,invert,matrix,plot2d] [cabs,carg,invert,matrix] [cabs,carg,load,log,plot2d] [cabs,carg,numer,pi,ratsimp] [cabs,carg,rectform] [cabs,carg] [carg,cos,sin] [carg,exp,phi] [carg,float,invert,matrix,polarform,ratsimp,rectform] [carg,imagpart,realpart,sqrt] [carg,linsolve,plot2d,rhs] [carg,linsolve,plot3d,rhs] [carg,linsolve] [carg,plot3d] [carg,realpart,solve,sqrt] [carg,sqrt] [carg]

Related Help

Help for Carg