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.
(%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)
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)
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)