maxima-online.org
Online Algebra Calculator
Many of users do not use powerful Maxima computer algebra system for systematic work, but for ad hoc algebraic calculations – equations, functions, matrixes, etc. only. To do this job, it is not useful to download the whole application from a web site.
Sponsored links:
Algebra eBooks 
Related
[fullmapl,infix,lambda,lreduce]
Run Example
(%i1)infix("|"); (%o1) | (%i2) "|"(p,[x]):=P(p)*lreduce("*",fullmapl(lambda([y],P(y,p)), x)); (%o2) p | [x] := P(p) lreduce("*", fullmapl(lambda([y], P(y, p)), x)) (%i3) p|[a,b,c,d,e]; (%o3) [P(a, p) P(p), P(b, p) P(p), P(c, p) P(p), P(d, p) P(p), P(e, p) P(p)] (%i4)
Run Example
infix("|"); (%o1) | (%i2) "|"(p,[x]):=P(p)*lreduce("*", lreduce("*",fullmapl(lambda([y],P(y,p)), x)))/(P(p)*lreduce("*", lreduce("*",fullmapl(lambda([y],P(y,p)), x)))+P(p)*lreduce("*", lreduce("*",fullmapl(lambda([y],P(y,not p)), x)))); (%o2) p | [x] := (P(p) lreduce("*", lreduce("*", fullmapl(lambda([y], P(y, p)), x))))/(P(p) lreduce("*", lreduce("*", fullmapl(lambda([y], P(y, p)), x))) + P(p) lreduce("*", lreduce("*", fullmapl(lambda([y], P(y, not p)), x)))) (%i3) p|[a]; P(a, p) P(p) (%o3) ------------------------------- P(a, not p) P(p) + P(a, p) P(p) (%i4)
Run Example
infix("|"); (%o1) | (%i2) "|"(p,[x]):=P(p)*lreduce("*", lreduce("*",fullmapl(lambda([y],P(y,p)), x)))/(P(p)*lreduce("*", lreduce("*",fullmapl(lambda([y],P(y,p)), x)))+P(not p)*lreduce("*", lreduce("*",fullmapl(lambda([y],P(y,not p)), x)))); (%o2) p | [x] := (P(p) lreduce("*", lreduce("*", fullmapl(lambda([y], P(y, p)), x))))/(P(p) lreduce("*", lreduce("*", fullmapl(lambda([y], P(y, p)), x))) + P(not p) lreduce("*", lreduce("*", fullmapl(lambda([y], P(y, not p)), x)))) (%i3) p|[a]; P(a, p) P(p) (%o3) ----------------------------------- P(a, not p) P(not p) + P(a, p) P(p) (%i4)
[addcol,coefmatrix,determinant,gamma,lambda,rank,transpose] [allroots,at,charpoly,float,lambda,matrix,solve] [and,cardinality,every,integer_partitions,integerp,lambda,primep,subset] [and,cardinality,every,integer_partitions,integerp,lambda,subset] [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,delete,do,emptyp,if,lambda,length,makelist,map,not,subst] [append,eval,false,if,labels,lambda,quotient,rest,reverse,sum,true] [apply,cons,lambda,let] [args,divisors,lreduce,matrix,subst] [atvalue,diff,ilt,lambda,laplace,map,solve] [bftorat,block,cons,delete,emptyp,false,first,float2bf,fpprec,if,integerp,kill,lambda,listp,map,mod,ratdenom,ratepsilon,ratprint,rest,return] [block,do,indices,lambda,makelist,map,mod,print,sublist_indices] [cardinality,every,integer_partitions,lambda,primep,subset] [coeff,create_list,do,ev,expand,gcd,lambda,lreduce,print] [coeff,create_list,do,ev,expand,lambda,lreduce,print] [cos,do,if,lambda,print,sin] [cos,draw,draw2d,explicit,lambda,load,sin,sqrt] [cos,lambda,plot2d,sin,sqrt] [diff,float,is,lambda,load,map,plot2d,rhs] [do,evenp,first,if,lambda,makelist,map,return,setify,subset] [do,if,lambda,let,or,string,values] [do,if,lambda,let,or,values] [eigenvalues,eigenvectors,lambda,matrix] [equal,equiv_classes,is,lambda,remainder] [eval,if,labels,lambda,rest,reverse,sum] [eval_string,flatten,full_listify,lambda,listify,lreduce,maplist,mod,permut,powerset,setify,sort,string] [eval_string,lambda,lreduce,map,permut,sort,string] [evenp,first,if,lambda,makelist,map,setify,subset] [evenp,if,lambda,makelist,map,setify,subset] [factor,is,lambda] [first,if,lambda,makelist,map,mod,setify,subset] [first,lambda,let] [fullmapl,infix,lambda,lreduce] [genmatrix,if,lambda] [genmatrix,lambda] [if,lambda,let,or,values] [if,lambda,let] [infix,lambda,lreduce,map] [infix] [integrate,lambda,linsolve,numer,rhs] [intersect,lambda,setdifference,sublist,subset,union] [jacobi,lambda,map] [lambda,length,let] [lambda,let] [lambda,log,numer,sqrt] [lambda,makelist,map,numer] [lambda,map] [lambda,numer] [lambda]
