Sponsored links: Algebra eBooks
 

Related

not-or-part-reveal

(reveal(part(( not( n...

Calculate

block-makelist

f[1]:1;

f[2]:1;

f[n]:=block([a:f[1],b...

Calculate

map-ratsimp

e:x/(x^2+x)+(y^2+y)/y;

e, ratsimp;

map(ratsimp,e);

Calculate

makelist-random

A:makelist(random(n)+...

Calculate

makelist-plot2d-rk
plot2d([discrete, makelist([p[1],p[3]],p,sol)],[xlabel,"t"],[ylabel,"v"]);

sol: rk([v,2*u*(t^4 -...

plot2d([discrete, mak...

Calculate

subst

subst(f,sqrt,sqrt(a+b));

Calculate

if-plot2d-plot3d
plot2d([f(x)],[x,-1,3],[y,-4,5]);

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

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

g(x):=f(x)/(f(x)+f(1-...

Calculate

not

W:not(Spr and Sum and...

Sp:not(Sum and Fall a...

Su:not(Fall and Win a...

Calculate

makelist

makelist(0.8^(2*i)/i,...

Calculate

[alphacharp,ascii,block,delete,emptyp,if,length,makelist,map,not,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))), if(not(emptyp(p))) then return(delete("_", ans)) else 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 = "_"], -------------------------------------------), 
                        makelist(n, n, 1, length(l))
if not emptyp(p) then return(delete("_", ans)) else 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, ind: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(ind, makelist(n, n, 1, length(l)))/makelist(n, n,1,length(l))), if(not(emptyp(p))) then return(delete("_", ans)) else return(ans));
(%o1) elimn(l, [index]) := block([ans, 
ind : 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(ind, makelist(n, n, 1, length(l)))
subst([0 = "_"], ------------------------------------------), 
                        makelist(n, n, 1, length(l))
if not emptyp(p) then return(delete("_", ans)) else return(ans))
(%i2) 
[abs,append,block,emptyp,errcatch,errormsg,find_root,first,flatten,floor,if,listp,makelist,not,numer,rest,second,sin] [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,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,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,delete,do,emptyp,if,lambda,length,makelist,map,not,subst] [append,block,delete,emptyp,if,lambda,length,makelist,map,not,subst] [append,block,delete,flatten,lambda,length,makelist,map,return] [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,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,rest,second,sin] [append,delete,eliminate,length,makelist,solve,subst,unique] [apply,block,coeff,copylist,do,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] [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,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,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,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,declare,diff,emptyp,evfun,false,get,if,length,makelist,map,not,part,sqrt] [block,declare,dim,emptyp,evfun,false,get,if,length,not,sqrt,subst] [block,declare,dim,emptyp,evfun,false,get,if,length,not,sqrt] [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,emptyp,errcatch,find_root,first,if,last,listp,makelist,rest,second,sin] [block,emptyp,first,if,listp,makelist,rest,second] [do,if,is,length,map,ratsimp,realroots,solve,subst]

Related Help

Help for Alphacharp

Help for Ascii

Help for Block

Help for Delete

Help for Emptyp

Help for If

Help for Length

Help for Makelist

Help for Map

Help for Not

Help for String

Help for Subst