Sponsored links: Algebra eBooks



Run Example
(%i1)block([sn],sn(x,p) := block([s,a,b,c],s: printf(false, eval_string(concat(ascii(34),ascii(126),ascii(101),ascii(34))), x),a: split(s,eval_string(concat(ascii(34),ascii(69),ascii(34)))),b: a[1],c: sremove(eval_string(concat(ascii(34),ascii(43),ascii(34))),a[2]),fpprintprec:p, return(concat(eval_string(b),eval_string(concat(ascii(34),ascii(69),ascii(34))),c)) ),is("10.76"= sn(10.7620000000,5)));
(%o1)                                false
Run Example
? sremove;

 -- Function: sremove (<seq>, <string>)
 -- Function: sremove (<seq>, <string>, <test>)
 -- Function: sremove (<seq>, <string>, <test>, <start>)
 -- Function: sremove (<seq>, <string>, <test>, <start>, <end>)
     Returns a string like <string> but without all substrings matching
     <seq>.  Default test function for matching is `sequal'.  If
     `sremove' should ignore case while searching for <seq>, use
     `sequalignore' as test.  Use <start> and <end> to limit searching.
     Note that the first character in <string> is in position 1.

          (%i1) sremove("n't","I don't like coffee.");
          (%o1)                   I do like coffee.
          (%i2) sremove ("DO ",%,'sequalignore);
          (%o2)                    I like coffee.

  There are also some inexact matches for `sremove'.
  Try `?? sremove' to see them.

(%o1)                                true
Run Example
sremove("\\,",ssubst("y ' ' ","Z",ssubst("y ' ","z",tex1(Z+{a1}*z+{a0}*y={b0}*cos({kreisfrqz}*x)))));
(%o1) y ' ' +\left \{{\it a_1} \right \}y ' +\left \{{\it a_0} \right \}y=\lef\
t \{{\it b_0} \right \}\cos \left(\left \{{\it kreisfrqy ' } \right \}x\right)

Related Help

Help for Sremove