Sponsored links: Algebra eBooks
 

Related

concat-do-floor-if-makelist-plot2d-var
plot2d([[discrete,var]],[x,0,101],[style, [impulses,1]],[point_type,circle]);

data :[72,46,57,54,41...

maxzahl:100;

var:makelist([i,0],i,...

Calculate

substring

substring("qwer",4);

substring(%,4,6);

Calculate

append-eliminate-length-makelist-unique

eqlist: [wu-wt,2*wu-w...

eqlist: [wu-wt,4*wu-3...

neqlist: unique(eqlist);

Calculate

append-block-length-return

M:[A,C,T,T,A,C,T,A];

K:[T,A,C];

find(s, l):=block([an...

Calculate

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

expr:n;

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

set(a,b);

Calculate

if-labels-lambda-rest-reverse-sum

:lisp (defun enum-int...

:lisp (defun group (s...

:lisp (defun row-sum ...

Calculate

random-sqrt

a:1+random(3);

b:1+random(3);

n:1+random(3);

Calculate

if-let

:lisp (defvar *my-lis...

:lisp (defun levels (...

:lisp (levels *my-lis...

Calculate

append-block-floor-makelist-mod-reverse

umrechnung:[];

basis:8;

x[0]:167.04;

Calculate

block-first-ifactors-lambda-length-lmax-makelist-map-phi-product

phi(n) := block( [...

lmax( map(lambda([x],...

pfor([x,y],[makelist(...

Calculate

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

Run Example
(%i1)SEMICOL:ascii(59);
(%o1)                                  ;
(%i2) MAXEX:800;
(%o2)                                 800
(%i3) get_number_from_list(P):=(s:1,for i in P do s:s*first(i)^second(i),s);
(%o3) get_number_from_list(P) := (s : 1, 
                                                                  second(i)
                                      for i in P do s : s first(i)         , s)
(%i4) write_number_from_list(P):=(s:"1",for i in P do s:concat(s,"*",first(i),"^",second(i)),s);
(%o4) write_number_from_list(P) := (s : "1", 
                 for i in P do s : concat(s, "*", first(i), "^", second(i)), s)
(%i5) 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);
(%o5) 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)
(%i6) 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);
(%o6) 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)
(%i7) is_deffic(P):=block(n:get_number_from_list(P), if (divsum(n) <
 2*n) then return (1) else return (0));
(%o7) is_deffic(P) := block(n : get_number_from_list(P), 
                              if divsum(n) < 2 n then return(1) else return(0))
(%i8) nastav_povol(P):=(P2:[], j:1, for i in P do (P2:append(P2,[j]),j:j+1),P2);
(%o8) nastav_povol(P) := (P2 : [], j : 1, 
                           for i in P do (P2 : append(P2, [j]), j : j + 1), P2)
(%i9) najdi_index(P):=(random(length(Povol))+1);
(%o9)             najdi_index(P) := random(length(Povol)) + 1
(%i10) zvets(P,k):=(P2:P,P2[k][2]:MAXEX,P2);
(%o10)            zvets(P, k) := (P2 : P, (P2 )  : MAXEX, P2)
                                             k
                                               2
(%i11) zmen_povol(P,k):=(P2:P,delete(P2,k),P2);
(%o11)          zmen_povol(P, k) := (P2 : P, delete(P2, k), P2)
(%i12) L:[[2,1],[3,5]];
(%o12)                         [[2, 1], [3, 5]]
(%i13) Povol:nastav_povol(L);
(%o13)                              [1, 2]
(%i14) Povol;
(%o14)                              [1, 2]
(%i15) 
Run Example
SEMICOL:ascii(59);
(%o1)                                  ;
(%i2) MAXEX:800;
(%o2)                                 800
(%i3) get_number_from_list(P):=(s:1,for i in P do s:s*first(i)^second(i),s);
(%o3) get_number_from_list(P) := (s : 1, 
                                                                  second(i)
                                      for i in P do s : s first(i)         , s)
(%i4) write_number_from_list(P):=(s:"1",for i in P do s:concat(s,"*",first(i),"^",second(i)),s);
(%o4) write_number_from_list(P) := (s : "1", 
                 for i in P do s : concat(s, "*", first(i), "^", second(i)), s)
(%i5) 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);
(%o5) 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)
(%i6) 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);
(%o6) 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)
(%i7) is_deffic(P):=block(n:get_number_from_list(P), if (divsum(n) <
 2*n) then return (1) else return (0));
(%o7) is_deffic(P) := block(n : get_number_from_list(P), 
                              if divsum(n) < 2 n then return(1) else return(0))
(%i8) nastav_povol(P):=(P2:[], j:1, for i in P do (P2:append(P2,[j]),j:j+1),P2);
(%o8) nastav_povol(P) := (P2 : [], j : 1, 
                           for i in P do (P2 : append(P2, [j]), j : j + 1), P2)
(%i9) najdi_index(P):=(random(length(Povol))+1);
(%o9)             najdi_index(P) := random(length(Povol)) + 1
(%i10) zvets(P,k):=(P2:P,P2[k][2]:MAXEX,P2);
(%o10)            zvets(P, k) := (P2 : P, (P2 )  : MAXEX, P2)
                                             k
                                               2
(%i11) zmen_povol(P,k):=(P2:P,P2:delete(k,P2),P2);
(%o11)       zmen_povol(P, k) := (P2 : P, P2 : delete(k, P2), P2)
(%i12) L:[[2,1]];
(%o12)                             [[2, 1]]
(%i13) Povol:nastav_povol(L);
(%o13)                                [1]
(%i14)       k:najdi_index(L);
(%o14)                                 1
(%i15)       L2:zvets(L,k);
(%o15)                            [[2, 800]]
(%i16)       Povol2:zmen_povol(Povol,k);
(%o16)                                []
(%i17)       is_deffic(L2);
(%o17)                                 1
(%i18) 
Run Example
SEMICOL:ascii(59);
(%o1)                                  ;
(%i2) MAXEX:800;
(%o2)                                 800
(%i3) get_number_from_list(P):=(s:1,for i in P do s:s*first(i)^second(i),s);
(%o3) get_number_from_list(P) := (s : 1, 
                                                                  second(i)
                                      for i in P do s : s first(i)         , s)
(%i4) write_number_from_list(P):=(s:"1",for i in P do s:concat(s,"*",first(i),"^",second(i)),s);
(%o4) write_number_from_list(P) := (s : "1", 
                 for i in P do s : concat(s, "*", first(i), "^", second(i)), s)
(%i5) 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);
(%o5) 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)
(%i6) 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);
(%o6) 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)
(%i7) is_deffic(P):=block(n:get_number_from_list(P), if (divsum(n) <
 2*n) then return (1) else return (0));
(%o7) is_deffic(P) := block(n : get_number_from_list(P), 
                              if divsum(n) < 2 n then return(1) else return(0))
(%i8) nastav_povol(P):=(P2:[], for i in P do P2:append(P2,[first(i)]),P2);
(%o8) nastav_povol(P) := (P2 : [], for i in P do P2 : append(P2, [first(i)]), 
                                                                            P2)
(%i9) najdi_index(P):=(random(length(Povol))+1);
(%o9)             najdi_index(P) := random(length(Povol)) + 1
(%i10) zvets(P,k):=(P2:P,P2[k][2]:MAXEX,P2);
(%o10)            zvets(P, k) := (P2 : P, (P2 )  : MAXEX, P2)
                                             k
                                               2
(%i11) zmen_povol(P,k):=(P2:P,delete(P2,k),P2);
(%o11)          zmen_povol(P, k) := (P2 : P, delete(P2, k), P2)
(%i12) L:[[2,1]];
(%o12)                             [[2, 1]]
(%i13) Povol:nastav_povol(L);
(%o13)                                [2]
(%i14) Povol;
(%o14)                                [2]
(%i15) 
[abs,append,block,emptyp,errcatch,errormsg,find_root,first,flatten,floor,if,listp,makelist,not,numer,rest,second,sin] [addrow,append,block,copylist,copymatrix,delete,error,hipow,length,makelist,print,resultant,return,row,submatrix] [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] [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,first,flatten,floor,if,length,makelist,not,second] [append,block,declare,do,factor,if,lsum] [append,block,delete,do,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,block,if] [append,concat,first,second] [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,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,float2bf,if,integerp,mod,ratdenom,ratepsilon,ratprint] [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,emptyp,first,float,fpprec,if,integerp,mod,not,numer,ratepsilon,ratprint,return] [block,delete,emptyp,if,lambda,length,makelist,map,not,subst] [block,emptyp,errcatch,find_root,first,if,last,listp,makelist,rest,second,sin] [block,emptyp,first,if,listp,makelist,rest,second] [block,genmatrix,if,print,random,return,while] [block,genmatrix,if,random,return,while] [block,genmatrix,if,random,return]

Related Help

Help for Append

Help for Ascii

Help for Block

Help for Concat

Help for Delete

Help for Divsum

Help for First

Help for If

Help for Random

Help for Second

Help for Slength

Help for Substring