Sponsored links: Algebra eBooks
 

Related

do-kill-mod

kill(all);

v:[8,7,1,8,1,1,4,2,2,...

s1:(v[1]+v[3]+v[5]+v[...

Calculate

do-matrix

Question1:matrix([1,1...

for col : 1 thru 4 do...

question1;

Calculate

do

n: 18;

for i from 2 thru n-1...

Calculate

do-float

x:2^39;

x/1000/1000;

float(x/1000/1000);

Calculate

do-ev-log-numer

f(x):=log(x);

a:1;

b:2;

Calculate

do-print

L:4000;

D:0.2;

Q:21000/3600;

Calculate

do-mod-print-while

x:4;

i:1;

while(x>1) do(x:mo...

Calculate

do-matrix-rowop

A:matrix([1,1,1,1],[1...

A:rowop(A,2,1,1);

A:rowop(A,3,1,1);

Calculate

do

Run Example
(%i1)define_variable (foo, 0, float);
(%o1)                                  0
(%i2) fpprec : 600;
(%o2)                                 600
(%i3) for m:301 step 1 thru 310 do(foo: bfloat(sum(k^m/3^k,k,1,2100)),foo: foo-floor(foo),disp(m,foo));
                                      301

                                     0.0b0

                                      302

                                     0.0b0

                                      303

                                     0.0b0

                                      304

                                     0.0b0

                                      305

                                     0.0b0

                                      306

                                     0.0b0

                                      307

                                     0.0b0

                                      308

                                     0.0b0

                                      309

                                     0.0b0

                                      310

                                     0.0b0

(%o3)                                done
(%i4) 
Run Example
d(n):=divsum(n)-n;
(%o1)                        d(n) := divsum(n) - n
(%i2) abu(n):=if d(n) >
 n then true else false;
(%o2)                   abu(n) := if d(n) > n then true
(%i3) l : list();
(%o3)                               list()
(%i4)  for i : 0 thru 100 do (if abu(i) then (print(i,d(i)),l:append(l,list(i))));
0 1 
12 16 
18 21 
20 22 
24 36 
30 42 
36 55 
40 50 
42 54 
48 76 
54 66 
56 64 
60 108 
66 78 
70 74 
72 123 
78 90 
80 106 
84 140 
88 92 
90 144 
96 156 
100 117 
(%o4)                                done
(%i5) l;
(%o5) list(0, 12, 18, 20, 24, 30, 36, 40, 42, 48, 54, 56, 60, 66, 70, 72, 78, 
                                                       80, 84, 88, 90, 96, 100)
(%i6) 
Run Example
solve(-18*x^2-50=600*x)[1];
                                  15 sqrt(11) + 50
(%o1)                       x = - ----------------
                                         3
(%i2) solve(-18*x^2-50=600*x)[2];
                                 15 sqrt(11) - 50
(%o2)                        x = ----------------
                                        3
(%i3) xvals: map(rhs,solve(-18*x^2-50=600*x));
                       15 sqrt(11) + 50  15 sqrt(11) - 50
(%o3)               [- ----------------, ----------------]
                              3                 3
(%i4) yvals: map(lhs,solve(-18*x^2-50=600*x));
(%o4)                               [x, x]
(%i5) yvals[1] - xvals[1];
                                 15 sqrt(11) + 50
(%o5)                        x + ----------------
                                        3
(%i6) for i:1 while i<
=(length(realroots(-18*x^2-50=600*x))) do (mye:yvals[i] - xvals[i],a:if(is(ratsimp(abs(mye-0)<
= 0))) then return (100));
(%o6)                                done
(%i7) a;
(%o7)                     if unknown then return(100)
(%i8) 
[abs,addrow,cos,diff,do,ev,matrix,numer] [abs,array,do,if,listarray,plot2d,sin] [abs,do,if,is,length,map,ratsimp,realroots,solve] [addcol,addrow,diff,do,ev,genmatrix,invert,kill,load,matrix,plot2d,romberg,sqrt,submatrix] [append,atom,block,delete,do,emptyp,freeof,if,indices,lambda,length,lmax,lmin,makelist,map,member,not,sublist_indices,subst] [append,block,declare,do,factor,if,lsum] [append,block,declare,do,factor,lsum] [append,block,delete,do,emptyp,if,lambda,length,makelist,map,not,subst] [append,block,do,flatten,load,makelist,return] [append,block,do,length,makelist,return] [append,block,do,load,makelist,return] [append,do] [array,do,if,listarray,plot2d,sin] [augcoefmatrix,display,do,mat_unblocker,max,ptriangularize,rowswap] [bfloat,define_variable,disp,do,float,floor,fpprec,sum] [bfloat,define_variable,display,do,float,floor,fpprec,sum] [binomial,block,delta,determinant,do,expand,genmatrix,hipow,kron_delta,makelist,part,print,return,subst] [binomial,block,delta,determinant,do,expand,genmatrix,kron_delta,return] [block,concat,do,kill,makelist,obase,return,stringdisp,true,while] [block,do,float,round] [block,do,if,length,while] [block,do,indices,lambda,makelist,map,mod,print,sublist_indices] [block,do,makelist,plot2d,while] [block,do,mod,return,while] [block,do,round] [block,do] [ceiling,col,do,endcons,float,genmatrix,kill,makelist,min,permanent,print,random,row,sort,sqrt,transpose] [ceiling,do,float,genmatrix,kill,permanent,print,random,row,sqrt] [chebyshev_t,do,mod] [coeff,cos,display2d,do,false,makelist,print,ratsubst,sin,sqrt,sum,trigexpand] [cos,do,if,lambda,print,sin] [diff,do,expand,gcd,print,rat] [diff,do,ic1,ode2] [diff,do,ode2] [disp,do] [display,do] [do,ev,log,numer] [do,evenp,first,if,lambda,makelist,map,return,setify,subset] [do,float,if,print,return] [do,float] [do,if,is,length,map,ratsimp,realroots,solve,subst] [do,if,lambda,let,or,values] [do,if,mod] [do,matrix] [do,mod,print,while] [do,mod] [do,print,while] [do,print] [do,reverse] [do]

Related Help

Help for Do