### Related

##### block-cot-equal-errormsg-false-if-is-limit-plot2d-ratprint-solvetrigwarn

solvetrigwarn:false;

ratprint:false;

errormsg:false;

Calculate

##### 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

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

plot2d([discrete, mak...

Calculate

##### subst

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

Calculate

##### if-plot2d-plot3d

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) ```