Sponsored links: Algebra eBooks
 

Related

append-random_permutation

tans[6]: [[1, false, ...

tac: "risikoavers";

tans[6]: random_permu...

Calculate

if-is-substring

ANS3 : if (4>3) th...

\UANS3 : takanaan;

\UANS3 : "\UANS3";

Calculate

first-if-lambda-makelist-map-mod-setify-subset

expr:n;

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

set(a,b);

Calculate

first-solve

eq_v1: gc1*(v1-x) - i...

eq_y: gc2*(y-v1) - ic...

first(solve([eq_v1, e...

Calculate

divsum

divsum(12);

divsum(24);

divsum(12)-12;

Calculate

block-load

nod(a,b):= block(load...

Calculate

substring

substring("http://dat...

substring(%,4,6);

Calculate

if-integrate-plot2d-radcan
plot2d([f(x),f(-x)],[x,-9,9],[y,-10,10]);

integrate(-(-x+6),x,-...

radcan(%);

f(x):=if(x>=0 and ...

Calculate

if-plot2d
plot2d([j(x)],[x,-1,1],[y,-1,1]);

j(x):=if (x<=0.5) ...

plot2d([j(x)],[x,-1,1...

g(x):=if (x<=0.5) ...

Calculate

if

dif(a+b*x,x);

Calculate

[append,ascii,block,concat,divsum,first,if,second,slength,substring]

Run Example
(%i1)SEMICOL:ascii(59);
(%o1)                                  ;
(%i2) get_number_from_list(P):=(s:0,for i in P do s:s+first(i)^second(i),s);
(%o2) get_number_from_list(P) := (s : 0, 
                                                                  second(i)
                                    for i in P do s : s + first(i)         , s)
(%i3) write_number_from_list(P):=(s:"1",for i in P do s:concat(s,"*",first(i),"^",second(i)),s);
(%o3) write_number_from_list(P) := (s : "1", 
                 for i in P do s : concat(s, "*", first(i), "^", second(i)), s)
(%i4) create_number_from_list(P,name):=(s:concat(name,":[]",SEMICOL," "),for i in P do s:concat(s,name,":append(",name,",[[",first(i),",",second(i),"]])",SEMICOL," "),s);
(%o4) create_number_from_list(P, name) := 
(s : concat(name, ":[]", SEMICOL, " "), 
for i in P do s : concat(s, name, ":append(", name, ",[[", first(i), ",", 
second(i), "]])", SEMICOL, " "), s)
(%i5) create_number_from_list2(P,name):=(s:concat(name,":["),for i in P do s:concat(s,"[",first(i),",",second(i),"],"),s:substring(s,1,slength(s)),s:concat(s,"]",SEMICOL),s);
(%o5) create_number_from_list2(P, name) := 
(s : concat(name, ":["), for i in P do s : 
concat(s, "[", first(i), ",", second(i), "],"), 
s : substring(s, 1, slength(s)), s : concat(s, "]", SEMICOL), s)
(%i6) is_deffic(P):=block(n:get_number_from_list(P), if (divsum(n) <
 2*n) then return (1) else return (0));
(%o6) is_deffic(P) := block(n : get_number_from_list(P), 
                              if divsum(n) < 2 n then return(1) else return(0))
(%i7) is_deffic([[2,3],[3,1]]);
(%o7)                                  1
(%i8) 
Run Example
SEMICOL:ascii(59);
(%o1)                                  ;
(%i2) get_number_from_list(P):=(s:1,for i in P do s:s*first(i)^second(i),s);
(%o2) get_number_from_list(P) := (s : 1, 
                                                                  second(i)
                                      for i in P do s : s first(i)         , s)
(%i3) write_number_from_list(P):=(s:"1",for i in P do s:concat(s,"*",first(i),"^",second(i)),s);
(%o3) write_number_from_list(P) := (s : "1", 
                 for i in P do s : concat(s, "*", first(i), "^", second(i)), s)
(%i4) create_number_from_list(P,name):=(s:concat(name,":[]",SEMICOL," "),for i in P do s:concat(s,name,":append(",name,",[[",first(i),",",second(i),"]])",SEMICOL," "),s);
(%o4) create_number_from_list(P, name) := 
(s : concat(name, ":[]", SEMICOL, " "), 
for i in P do s : concat(s, name, ":append(", name, ",[[", first(i), ",", 
second(i), "]])", SEMICOL, " "), s)
(%i5) create_number_from_list2(P,name):=(s:concat(name,":["),for i in P do s:concat(s,"[",first(i),",",second(i),"],"),s:substring(s,1,slength(s)),s:concat(s,"]",SEMICOL),s);
(%o5) create_number_from_list2(P, name) := 
(s : concat(name, ":["), for i in P do s : 
concat(s, "[", first(i), ",", second(i), "],"), 
s : substring(s, 1, slength(s)), s : concat(s, "]", SEMICOL), s)
(%i6) is_deffic(P):=block(n:get_number_from_list(P), if (divsum(n) <
 2*n) then return (1) else return (0));
(%o6) is_deffic(P) := block(n : get_number_from_list(P), 
                              if divsum(n) < 2 n then return(1) else return(0))
(%i7) is_deffic([[2,2]]);
(%o7)                                  1
(%i8) 
Run Example
SEMICOL:ascii(59);
(%o1)                                  ;
(%i2) get_number_from_list(P):=(s:1,for i in P do s:s*first(i)^second(i),s);
(%o2) get_number_from_list(P) := (s : 1, 
                                                                  second(i)
                                      for i in P do s : s first(i)         , s)
(%i3) write_number_from_list(P):=(s:"1",for i in P do s:concat(s,"*",first(i),"^",second(i)),s);
(%o3) write_number_from_list(P) := (s : "1", 
                 for i in P do s : concat(s, "*", first(i), "^", second(i)), s)
(%i4) create_number_from_list(P,name):=(s:concat(name,":[]",SEMICOL," "),for i in P do s:concat(s,name,":append(",name,",[[",first(i),",",second(i),"]])",SEMICOL," "),s);
(%o4) create_number_from_list(P, name) := 
(s : concat(name, ":[]", SEMICOL, " "), 
for i in P do s : concat(s, name, ":append(", name, ",[[", first(i), ",", 
second(i), "]])", SEMICOL, " "), s)
(%i5) create_number_from_list2(P,name):=(s:concat(name,":["),for i in P do s:concat(s,"[",first(i),",",second(i),"],"),s:substring(s,1,slength(s)),s:concat(s,"]",SEMICOL),s);
(%o5) create_number_from_list2(P, name) := 
(s : concat(name, ":["), for i in P do s : 
concat(s, "[", first(i), ",", second(i), "],"), 
s : substring(s, 1, slength(s)), s : concat(s, "]", SEMICOL), s)
(%i6) is_deffic(P):=block(n:get_number_from_list(P), if (divsum(n) <
 2*n) then return (1) else return (0));
(%o6) is_deffic(P) := block(n : get_number_from_list(P), 
                              if divsum(n) < 2 n then return(1) else return(0))
(%i7) is_deffic([[2,2],[3,1]]);
(%o7)                                  0
(%i8) 
[abs,append,block,emptyp,errcatch,errormsg,find_root,first,flatten,floor,if,listp,makelist,not,numer,rest,second,sin] [addrow,block,concat,display,false,if,log,matrix,numer,print,return,round,true,while] [addrow,block,concat,false,if,log,matrix,numer,print,return,round,true,while] [append,ascii,block,concat,copylist,delete,divsum,first,if,make_random_state,next_prime,second,set_random_state,slength,substring,true] [append,ascii,block,concat,delete,divsum,first,if,make_random_state,next_prime,second,set_random_state,slength,substring,true] [append,ascii,block,concat,delete,divsum,first,if,random,second,slength,substring] [append,ascii,block,concat,divsum,first,if,return,second,slength,substring] [append,ascii,block,concat,divsum,first,if,second,slength,substring] [append,ascii,block,copylist,delete,divsum,first,if,make_random_state,next_prime,print,sconcat,second,set_random_state,slength,substring,true] [append,ascii,block,copylist,delete,divsum,first,if,make_random_state,next_prime,print,sconcat,second,set_random_state,slength,substring] [append,ascii,block,delete,divsum,first,if,make_random_state,next_prime,sconcat,second,set_random_state,slength,substring,true] [append,ascii,block,delete,first,if,make_random_state,next_prime,sconcat,second,set_random_state,slength,substring,true] [append,ascii,concat,first,second,slength,substring] [append,ascii,concat,first,second] [append,atom,block,delete,do,emptyp,freeof,if,indices,lambda,length,lmax,lmin,makelist,map,member,not,sublist_indices,subst] [append,atom,block,delete,flatten,if,lambda,load,map,return] [append,block,buildq,emptyp,ev,find_root,first,flatten,floor,kill,last,listp,makelist,not,rest,second,sin] [append,block,buildq,emptyp,find_root,first,flatten,floor,kill,last,listp,makelist,not,rest,second,sin] [append,block,buildq,first,return,show,simp] [append,block,ceiling,emptyp,ev,first,flatten,floor,if,length,makelist,not,second] [append,block,ceiling,emptyp,ev,first,flatten,if,length,makelist,not,second] [append,block,ceiling,emptyp,first,flatten,floor,if,length,makelist,not,second] [append,block,col,do,genmatrix,if,matrixmap,mod,quotient,transpose] [append,block,declare,do,factor,if,lsum] [append,block,delete,do,emptyp,if,lambda,length,makelist,map,not,subst] [append,block,do,emptyp,errcatch,errormsg,false,find_root,first,flatten,floor,if,listp,makelist,not,rest,second,sin] [append,block,emptyp,errcatch,errormsg,false,find_root,first,flatten,floor,if,listp,makelist,not,rest,second,sin] [append,block,emptyp,errcatch,errormsg,find_root,first,flatten,floor,if,listp,makelist,not,numer,rest,second,sin] [append,block,emptyp,errcatch,errormsg,find_root,first,flatten,floor,if,listp,makelist,not,rest,second,sin] [append,block,emptyp,errcatch,errormsg,first,flatten,floor,if,listp,makelist,not,rest,second,sin] [append,block,emptyp,errcatch,find_root,first,flatten,floor,if,last,listp,makelist,not,rest,second,sin] [append,block,emptyp,errcatch,find_root,first,flatten,floor,kill,last,listp,makelist,not,rest,second,sin] [append,block,emptyp,find_root,first,flatten,floor,kill,last,length,listp,makelist,not,rest,second,sin] [append,block,emptyp,find_root,first,flatten,floor,kill,last,listp,makelist,not,print,rest,second,sin] [append,block,emptyp,find_root,first,flatten,floor,kill,last,listp,makelist,not,rest,second,sin] [append,block,emptyp,first,flatten,floor,kill,lambda,last,listp,makelist,map,not,rest,second] [append,block,if] [append,block,listify,makelist,primep,return,setify] [append,concat,first,second] [append,disjoin,first,if,lambda,listify,makelist,map,mod,setify,subset] [append,do,first,lambda,second,sublist] [bfloat,bftorat,block,emptyp,equal,first,fpprec,if,is,mod,not,numer,ratepsilon,ratprint,return,round] [bfloat,bftorat,block,emptyp,first,fpprec,if,mod,not,numer,ratepsilon,ratprint,return] [bftorat,block,cons,delete,do,emptyp,first,float2bf,fpprec,lambda,last,listp,map,maplist,mod,ratepsilon,ratprint,rest,return,second] [bftorat,block,cons,delete,emptyp,false,first,float2bf,fpprec,if,integerp,kill,lambda,listp,map,mod,ratdenom,ratepsilon,ratprint,rest,return] [bftorat,block,emptyp,equal,first,float,fpprec,if,is,mod,not,numer,ratepsilon,ratprint,return,round] [bftorat,block,emptyp,first,float,fpprec,if,integerp,mod,not,numer,ratepsilon,ratprint,return] [block,emptyp,errcatch,find_root,first,if,last,listp,makelist,rest,second,sin] [block,emptyp,first,if,listp,makelist,rest,second] [concat,first,second]

Related Help

Help for Append

Help for Ascii

Help for Block

Help for Concat

Help for Divsum

Help for First

Help for If

Help for Second

Help for Slength

Help for Substring