Sponsored links: Algebra eBooks
 

Related

simplode-sqrt

(simplode(((1+v/c)/sq...

Calculate

simplode-sqrt-string

string(simplode(((1+v...

Calculate

simplode

test:[1,2];

t:simplode (test, ",");

Calculate

simplode

test:[1,2];

t:simplode (test);

Calculate

simplode

test:[1,2];

simplode (test);

Calculate

simplode

test:[1,2];

t:simplode (test);

Calculate

simplode-sin

x:simplode(sin(2));

Calculate

simplode

test:[1,2];

simplode (test);

Calculate

simplode-sin

x:simplode(sin(2));

Calculate

simplode

Run Example
(%i1)A:matrix([-1, -1,1,0,0],[-1,-2,1,0,0],[-1,-3,0,1,0],[0,-1,0,-1,1],[0,-2,-1,0,1],[0,-1,-1,1,0]);
                           [ - 1  - 1   1    0   0 ]
                           [                       ]
                           [ - 1  - 2   1    0   0 ]
                           [                       ]
                           [ - 1  - 3   0    1   0 ]
(%o1)                      [                       ]
                           [  0   - 1   0   - 1  1 ]
                           [                       ]
                           [  0   - 2  - 1   0   1 ]
                           [                       ]
                           [  0   - 1  - 1   1   0 ]
(%i2) n:rank(A);
(%o2)                                  4
(%i3) test:[1,2];
(%o3)                               [1, 2]
(%i4) sexplode(simplode (test),"|");
(%o4)                           sexplode(12, |)
(%i5) init:setify(makelist((i),i,1,5));
(%o5)                           {1, 2, 3, 4, 5}
(%i6) comb:powerset (init, n);
(%o6) {{1, 2, 3, 4}, {1, 2, 3, 5}, {1, 2, 4, 5}, {1, 3, 4, 5}, {2, 3, 4, 5}}
(%i7) i:1;
(%o7)                                  1
(%i8) for sub in comb do (print (remove_j[i]:listify(setdifference(init,sub))), i:i+1);
[5] 
[4] 
[3] 
[2] 
[1] 
(%o8)                                done
(%i9) 
Run Example
? simplode;

 -- Function: simplode (<list>)
 -- Function: simplode (<list>, <delim>)
     `simplode' takes a list of expressions and concatenates them into
     a string.  If no delimiter <delim> is specified, `simplode' uses
     no delimiter.  <delim> can be any string.

          (%i1) simplode(["xx[",3,"]:",expand((x+y)^3)]);
          (%o1)             xx[3]:y^3+3*x*y^2+3*x^2*y+x^3
          (%i2) simplode( sexplode("stars")," * " );
          (%o2)                   s * t * a * r * s
          (%i3) simplode( ["One","more","coffee."]," " );
          (%o3)                   One more coffee.


(%o1)                                true
(%i2) 
Run Example
convertSolutionValues(expr):=block([sol],sol:[], for x in solve(expr) do sol:append(sol, [rhs(x)]), return(sol));
(%o1) convertSolutionValues(expr) := block([sol], sol : [], 
              for x in solve(expr) do sol : append(sol, [rhs(x)]), return(sol))
(%i2) canBePeriodic(x):=block(x:simplode(x+1),return(not is(ssearch("sin",x)=false) or  not is(ssearch("cos",x)=false) or not is(ssearch("tan",x)=false) or not is(ssearch("csc", x)=false) or not is( ssearch("sec", x)=false) or not is(ssearch("atrigl", x)=false) or not is(ssearch("cot", x)=false)));
(%o2) canBePeriodic(x) := block(x : simplode(x + 1), 
return((not is(ssearch("sin", x) = false))
 or (not is(ssearch("cos", x) = false)) or (not is(ssearch("tan", x) = false))
 or (not is(ssearch("csc", x) = false)) or (not is(ssearch("sec", x) = false))
 or (not is(ssearch("atrigl", x) = false))
 or (not is(ssearch("cot", x) = false))))
(%i3) args(sin(x));
(%o3)                                 [x]
(%i4) canBePeriodic(sin(44));
(%o4)                                true
(%i5) convertSolutionValues(x^2=1);
(%o5)                              [- 1, 1]
(%i6) 

Related Help

Help for Simplode