Sponsored links: Algebra eBooks
 

Related

subst-sum

su: sum(a[2*ii]*(s-1/...

subst([N=2],su);

Calculate

makelist-mod

f(x) := mod(2^x, 101);

l: makelist ( mod((f(...

Calculate

block-load-mod-power_mod-primep-totient

p:1111111111111111111;

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

primep(p);

Calculate

length-load-var

load(descriptive);

load(numericalio);

s:[ 2,7,10,7,7,8,4,7,...

Calculate

if-plot2d
plot2d ([f(x)],[x,-3,3],[y,-3,3]);

f(x):=if (x<=-2) ...

plot2d ([f(x)],[x,-3,...

Calculate

makelist-print

qlist:makelist(x^3,x,...

for i:1 thru 200 do f...

Calculate

map-mod

f1(x):=mod(x^145387,2...

map(f1,[175536,179954...

ascii_posdec([70698, ...

Calculate

length-load-var

load(descriptive);

load(numericalio);

s:[1,4,5,6,6,3,5,4,55...

Calculate

map-mod

Inversa:f1(x):=mod(x^...

map(f,[113191,94404,1...

ascii_posdec(70698384...

Calculate

makelist-sum

makelist(sum(i*Fibona...

Calculate

[alphacharp,ascii,block,delete,if,length,makelist,map,return,string,subst]

Run Example
(%i1)elimn(l,[index]):=block([ans, indi:map("=", delete([], makelist(if(alphacharp(ascii(i))) then parse_string(ascii(i)) else [], i, 96, 96+length(index))), makelist(0, n, 1, length(index)))], ans:subst([0="_"], l*subst(indi, makelist(n, n, 1, length(l)))/makelist(n, n,1,length(l))), return(ans));
(%o1) elimn(l, [index]) := block([ans, 
indi : map("=", delete([], makelist(if alphacharp(ascii(i))
 then parse_string(ascii(i)) else [], i, 96, 96 + length(index))), 
makelist(0, n, 1, length(index)))], ans : 
                 l subst(indi, makelist(n, n, 1, length(l)))
subst([0 = "_"], -------------------------------------------), return(ans))
                        makelist(n, n, 1, length(l))
(%i2) M:[A,T,G,C,A,T,C];
(%o2)                        [A, T, G, C, A, T, C]
(%i3) elimn(M, 1, 3, 7);
(%o3)                        [A, T, G, C, A, T, C]
(%i4) 
Run Example
elimn(l,[index]):=block([ans, indi:map("=", delete([], makelist(if(alphacharp(ascii(i))) then parse_string(ascii(i)) else [], i, 96, 96+length(index))), index)], ans:subst([0="_"], l*subst(indi, makelist(n, n, 1, length(l)))/makelist(n, n,1,length(l))), return(ans));
(%o1) elimn(l, [index]) := block([ans, 
indi : map("=", delete([], makelist(if alphacharp(ascii(i))
 then parse_string(ascii(i)) else [], i, 96, 96 + length(index))), index)], 
                       l subst(indi, makelist(n, n, 1, length(l)))
ans : subst([0 = "_"], -------------------------------------------), 
                              makelist(n, n, 1, length(l))
return(ans))
(%i2) M:[A,T,G,C,A,T,C];
(%o2)                        [A, T, G, C, A, T, C]
(%i3) elimn(M, 1, 3, 7);
(%o3)                        [A, T, G, C, A, T, C]
(%i4) 
Run Example
elimn(l,[index]):=block([ans, indi:map("=", delete([], makelist(if(alphacharp(ascii(i))) then parse_string(ascii(i)) else [], i, 96, 96+length(index))), makelist(0, n, 1, length(index)))], ans:subst([0="_"], l*subst([indi], makelist(n, n, 1, length(l)))/makelist(n, n,1,length(l))), return(ans));
(%o1) elimn(l, [index]) := block([ans, 
indi : map("=", delete([], makelist(if alphacharp(ascii(i))
 then parse_string(ascii(i)) else [], i, 96, 96 + length(index))), 
makelist(0, n, 1, length(index)))], ans : 
                 l subst([indi], makelist(n, n, 1, length(l)))
subst([0 = "_"], ---------------------------------------------), return(ans))
                         makelist(n, n, 1, length(l))
(%i2) M:[A,T,G,C,A,T,C];
(%o2)                        [A, T, G, C, A, T, C]
(%i3) elimn(M, 1, 3, 7);
(%o3)                        [A, T, G, C, A, T, C]
(%i4) 
[abs,do,if,is,length,map,ratsimp,realroots,solve] [addrow,append,block,copylist,copymatrix,delete,error,hipow,length,makelist,print,resultant,return,row,submatrix] [alphacharp,ascii,block,delete,if,length,makelist,map,return,string,subst] [alphacharp,ascii,delete,if,length,makelist,map,string] [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,copylist,delete,divsum,first,if,make_random_state,next_prime,print,sconcat,second,set_random_state,slength,substring,true] [append,atom,block,delete,do,emptyp,freeof,if,indices,lambda,length,lmax,lmin,makelist,map,member,not,parse_string,sdowncase,simplode,ssearch,string,sublist_indices,subst] [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,ceiling,emptyp,ev,first,flatten,floor,if,length,makelist,not,second] [append,block,ceiling,emptyp,first,flatten,floor,if,length,makelist,not,second] [append,block,delete,do,emptyp,if,lambda,length,makelist,map,not,subst] [append,block,delete,flatten,lambda,length,makelist,map,return] [append,block,do,expand,hipow,length,makelist,part,print,product,rat,return,sqrt,unique] [append,block,do,length,makelist,return] [append,block,length,makelist,return] [append,block,listify,makelist,primep,return,setify] [append,delete,eliminate,length,makelist,solve,subst,unique] [apply,block,coeff,copylist,do,expand,length,makelist,print,rat,return,subst,sum] [apply,block,coeff,copylist,expand,length,makelist,print,rat,return,subst,sum] [args,asin,atan2,block,cos,flatten,float,ident,length,make_random_state,makelist,matrix,set_random_state,sin,sqrt,subst,transpose] [bern,bfloat,block,fpprec,makelist,numer,return,sum] [bfloat,bftorat,block,ev,float2bf,makelist,mod,ratepsilon,ratprint,return] [bfloat,bftorat,block,float2bf,makelist,mod,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,do,emptyp,first,float2bf,fpprec,lambda,last,listp,map,mod,ratepsilon,ratprint,rest,return] [bftorat,block,cons,delete,emptyp,false,first,float2bf,fpprec,if,integerp,kill,lambda,listp,map,mod,ratdenom,ratepsilon,ratprint,rest,return] [bftorat,block,delete,ev,false,float,if,integerp,mod,ratdenom,ratepsilon,ratprint] [bftorat,block,delete,float,if,integerp,mod,rat,ratdenom,ratepsilon,ratprint] [bftorat,block,false,float2bf,fpprec,if,integerp,kill,mod,ratdenom,ratepsilon,ratprint,return] [binomial,block,delta,determinant,do,expand,genmatrix,hipow,kron_delta,makelist,part,print,return,subst] [block,concat,do,kill,makelist,obase,return,stringdisp,true,while] [block,cos,cot,csc,declare,evfun,if,kill,lambda,length,map,sec,sin,subst,tan] [block,cos,flatten,if,li,load,makelist,map,numer,outermap,plot2d,sin,sort,unique] [block,delete,emptyp,if,lambda,last,length,makelist,map,not,subst] [block,delete,emptyp,if,lambda,length,makelist,map,not,subst] [block,delete,if,last,length,makelist,map,subst,true] [block,delete,if,last,length,makelist,map,subst] [block,do,if,length,makelist,while] [block,do,indices,lambda,makelist,map,mod,print,sublist_indices] [block,genmatrix,if,print,random,return,while] [block,genmatrix,if,random,return] [block,length,map,matrix,print,return] [do,evenp,first,if,lambda,makelist,map,return,setify,subset] [do,if,is,length,map,ratsimp,realroots,solve,subst] [evenp,first,if,lambda,makelist,map,setify,subset] [factor,kill,length,makelist,map,plot2d,rhs,solve,sum] [first,if,lambda,makelist,map,mod,setify,subset] [kill,length,makelist,map,solve,sum]

Related Help

Help for Alphacharp

Help for Ascii

Help for Block

Help for Delete

Help for If

Help for Length

Help for Makelist

Help for Map

Help for Return

Help for String

Help for Subst