Sponsored links: Algebra eBooks
 

Related

do-print

for i:1 thru 5 do ( p...

Calculate

do-invert-matrix

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

for k:1 thru 4 do ( A...

A;

Calculate

do-print

for i:1 thru 10 do (p...

Calculate

do-hilbert_matrix

n : 5 ;

T : zeromatrix(n,n) ;

H : hilbert_matrix(n) ;

Calculate

do-print

for h:5 thru 6 step 2...

Calculate

do-reverse

:lisp (defun interspe...

:lisp (defun pre2in-f...

:lisp (pre2in-flat '(...

Calculate

do-print

:lisp (do ((i 1 (1+ i...

:lisp (dotimes (i 10)...

:lisp (loop for i fro...

Calculate

do-evenp-first-if-lambda-makelist-map-setify-subset

expr:n;

makelist(''expr, n, 1...

set(a,b);

Calculate

do-print

7;

T:282;

L:5200;

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,apply,ctranspose,do,eigenvectors,false,load,matrix] [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,do,false,ifactors,length] [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] [binomial,do,makelist,sum] [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] [diff,do,ic1,ode2] [diff,do,ode2] [disp,do] [display,do,linsolve,mod] [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