﻿07.10.2012 11:32:12 [->] sqrt(-1)
07.10.2012 11:32:12 [->] D:\tmp\tmp808F.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8090.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
sqrt(-1):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:12 [<-] D:\tmp\tmp8090.tmp:
I
07.10.2012 11:32:12 [<-] i

07.10.2012 11:32:12 [->] asin(1)
07.10.2012 11:32:12 [->] D:\tmp\tmp8208.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8209.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
asin(1):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:12 [<-] D:\tmp\tmp8209.tmp:
asin(1)
07.10.2012 11:32:12 [<-] asin(1)

07.10.2012 11:32:12 [->] sin((Pi/2))
07.10.2012 11:32:12 [->] D:\tmp\tmp8267.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8268.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
sin((Pi/2)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:12 [<-] D:\tmp\tmp8268.tmp:
1
07.10.2012 11:32:12 [<-] 1

07.10.2012 11:32:12 [->] simplify(exp(1)^{I*Pi})
07.10.2012 11:32:12 [->] D:\tmp\tmp82A8.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp82A9.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
simplify(exp(1)^(I*Pi)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:12 [<-] D:\tmp\tmp82A9.tmp:
-1
07.10.2012 11:32:12 [<-] -1

07.10.2012 11:32:12 [->] numer((x/y))
07.10.2012 11:32:12 [->] D:\tmp\tmp8317.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8318.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
numer((x/y)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:12 [<-] D:\tmp\tmp8318.tmp:
x
07.10.2012 11:32:12 [<-] x

07.10.2012 11:32:12 [->] denom((x/y))
07.10.2012 11:32:12 [->] D:\tmp\tmp8367.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8368.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
denom((x/y)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:12 [<-] D:\tmp\tmp8368.tmp:
y
07.10.2012 11:32:12 [<-] y

07.10.2012 11:32:12 [->] limit(sin(x)^2;(x=Pi/2))
07.10.2012 11:32:12 [->] D:\tmp\tmp83A7.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp83A8.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
limit(sin(x)^2;(x=Pi/2)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:12 [<-] D:\tmp\tmp83A8.tmp:
on line 19, syntax error, `;` unexpected:
limit(sin(x)^2;(x=Pi/2)):
              ^
07.10.2012 11:32:12 [->] limit((sin(x)/x);(x=0))
07.10.2012 11:32:12 [->] D:\tmp\tmp83E8.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp83F8.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
limit((sin(x)/x);(x=0)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:12 [<-] D:\tmp\tmp83F8.tmp:
on line 19, syntax error, `;` unexpected:
limit((sin(x)/x);(x=0)):
                ^
07.10.2012 11:32:12 [->] limit(exp(x);(x=infinity))
07.10.2012 11:32:12 [->] D:\tmp\tmp8428.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8429.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
limit(exp(x);(x=infinity)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:12 [<-] D:\tmp\tmp8429.tmp:
on line 19, syntax error, `;` unexpected:
limit(exp(x);(x=infinity)):
            ^
07.10.2012 11:32:12 [->] limit((1/x);(x=0);real)
07.10.2012 11:32:12 [->] D:\tmp\tmp8478.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8479.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
limit((1/x);(x=0);real):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:12 [<-] D:\tmp\tmp8479.tmp:
on line 19, syntax error, `;` unexpected:
limit((1/x);(x=0);real):
           ^
07.10.2012 11:32:12 [->] series(sinh(x);x)
07.10.2012 11:32:12 [->] D:\tmp\tmp84B9.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp84BA.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
series(sinh(x);x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:12 [<-] D:\tmp\tmp84BA.tmp:
on line 19, syntax error, `;` unexpected:
series(sinh(x);x):
              ^
07.10.2012 11:32:12 [->] convert(series((sin(x)/x);x,8);polynom)
07.10.2012 11:32:12 [->] D:\tmp\tmp8509.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp850A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
convert(series((sin(x)/x);x,8);polynom):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp850A.tmp:
on line 19, syntax error, `;` unexpected:
convert(series((sin(x)/x);x,8);polynom):
                         ^
07.10.2012 11:32:13 [->] solve((x^{(3/2)}=3);x)
07.10.2012 11:32:13 [->] D:\tmp\tmp8549.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp854A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve((x^((3/2))=3);x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp854A.tmp:
on line 19, syntax error, `;` unexpected:
solve((x^((3/2))=3);x):
                   ^
07.10.2012 11:32:13 [->] solve((sqrt(ln(x))=2);x)
07.10.2012 11:32:13 [->] D:\tmp\tmp8589.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp858A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve((sqrt(ln(x))=2);x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp858A.tmp:
on line 19, syntax error, `;` unexpected:
solve((sqrt(ln(x))=2);x):
                     ^
07.10.2012 11:32:13 [->] evalf(solve((sqrt(ln(x))=2);x))
07.10.2012 11:32:13 [->] D:\tmp\tmp85BA.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp85BB.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
evalf(solve((sqrt(ln(x))=2);x)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp85BB.tmp:
on line 19, syntax error, `;` unexpected:
evalf(solve((sqrt(ln(x))=2);x)):
                           ^
07.10.2012 11:32:13 [->] smath_diff(x^3,x)
07.10.2012 11:32:13 [->] D:\tmp\tmp85FB.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp85FC.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
smath_diff(x^3,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp85FC.tmp:
3*x^2
07.10.2012 11:32:13 [<-] 3*x^2

07.10.2012 11:32:13 [->] parse("1";statement)
07.10.2012 11:32:13 [->] D:\tmp\tmp863B.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp863C.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
parse("1";statement):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp863C.tmp:
on line 19, syntax error, `;` unexpected:
parse("1";statement):
         ^
07.10.2012 11:32:13 [->] parse("sin(x)";statement)
07.10.2012 11:32:13 [->] D:\tmp\tmp866C.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp866D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
parse("sin(x)";statement):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp866D.tmp:
on line 19, syntax error, `;` unexpected:
parse("sin(x)";statement):
              ^
07.10.2012 11:32:13 [->] parse("int(x^2,x)";statement)
07.10.2012 11:32:13 [->] D:\tmp\tmp86AC.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp86AD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
parse("int(x^2,x)";statement):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp86AD.tmp:
on line 19, syntax error, `;` unexpected:
parse("int(x^2,x)";statement):
                  ^
07.10.2012 11:32:13 [->] smath_int(x^2,x)
07.10.2012 11:32:13 [->] D:\tmp\tmp86ED.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp86EE.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
smath_int(x^2,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp86EE.tmp:
1/3*x^3
07.10.2012 11:32:13 [<-] 1/3*x^3

07.10.2012 11:32:13 [->] smath_int(ln(x)^3,x)
07.10.2012 11:32:13 [->] D:\tmp\tmp871D.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp871E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
smath_int(ln(x)^3,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp871E.tmp:
ln(x)^3*x-3*x*ln(x)^2+6*x*ln(x)-6*x
07.10.2012 11:32:13 [<-] ln(x)^3*x-3*x*ln(x)^2+6*x*ln(x)-6*x

07.10.2012 11:32:13 [->] factor(a^2-2*a*b+b^2)
07.10.2012 11:32:13 [->] D:\tmp\tmp875E.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp875F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
factor(a^2-2*a*b+b^2):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp875F.tmp:
(b-a)^2
07.10.2012 11:32:13 [<-] (b-a)^2

07.10.2012 11:32:13 [->] (-1+x)*(-2+x)*(-3+x)
07.10.2012 11:32:13 [->] D:\tmp\tmp879E.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp879F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
(-1+x)*(-2+x)*(-3+x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp879F.tmp:
(-1+x)*(-2+x)*(-3+x)
07.10.2012 11:32:13 [<-] (-1+x)*(-2+x)*(-3+x)

07.10.2012 11:32:13 [->] sum(-exp(-k);k)
07.10.2012 11:32:13 [->] D:\tmp\tmp887B.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp887C.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
sum(-exp(-k);k):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp887C.tmp:
on line 19, syntax error, `;` unexpected:
sum(-exp(-k);k):
            ^
07.10.2012 11:32:13 [->] sum(k^2,k)
07.10.2012 11:32:13 [->] D:\tmp\tmp88AB.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp88AC.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
sum(k^2,k):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp88AC.tmp:
1/3*k^3-1/2*k^2+1/6*k
07.10.2012 11:32:13 [<-] 1/3*k^3-1/2*k^2+1/6*k

07.10.2012 11:32:13 [->] smath_int((x^4/((1-x^2))^{(5/2)});x)
07.10.2012 11:32:13 [->] D:\tmp\tmp88EC.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp88ED.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
smath_int((x^4/((1-x^2))^((5/2)));x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:13 [<-] D:\tmp\tmp88ED.tmp:
on line 19, syntax error, `;` unexpected:
smath_int((x^4/((1-x^2))^((5/2)));x):
                                 ^
07.10.2012 11:32:13 [->] limit((sin(x)/x);(x=0))
07.10.2012 11:32:14 [->] D:\tmp\tmp891D.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp891E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
limit((sin(x)/x);(x=0)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp891E.tmp:
on line 19, syntax error, `;` unexpected:
limit((sin(x)/x);(x=0)):
                ^
07.10.2012 11:32:14 [->] smath_diff((sin(x)^2/x);x)
07.10.2012 11:32:14 [->] D:\tmp\tmp895D.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp895E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
smath_diff((sin(x)^2/x);x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp895E.tmp:
on line 19, syntax error, `;` unexpected:
smath_diff((sin(x)^2/x);x):
                       ^
07.10.2012 11:32:14 [->] limit(tan(x)^2;(x=Pi/3))
07.10.2012 11:32:14 [->] D:\tmp\tmp898E.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp898F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
limit(tan(x)^2;(x=Pi/3)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp898F.tmp:
on line 19, syntax error, `;` unexpected:
limit(tan(x)^2;(x=Pi/3)):
              ^
07.10.2012 11:32:14 [->] solve((f=m*a);a)
07.10.2012 11:32:14 [->] D:\tmp\tmp89CE.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp89CF.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve((f=m*a);a):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp89CF.tmp:
on line 19, syntax error, `;` unexpected:
solve((f=m*a);a):
             ^
07.10.2012 11:32:14 [->] solve((a*x^2=4);x)
07.10.2012 11:32:14 [->] D:\tmp\tmp8A0F.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8A10.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve((a*x^2=4);x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp8A10.tmp:
on line 19, syntax error, `;` unexpected:
solve((a*x^2=4);x):
               ^
07.10.2012 11:32:14 [->] solve(((3*x^2-7*x+4)=0);x)
07.10.2012 11:32:14 [->] D:\tmp\tmp8A3F.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8A40.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve(((3*x^2-7*x+4)=0);x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp8A40.tmp:
on line 19, syntax error, `;` unexpected:
solve(((3*x^2-7*x+4)=0);x):
                       ^
07.10.2012 11:32:14 [->] solve((5^{x+3/2}=7^{2*x});x)
07.10.2012 11:32:14 [->] D:\tmp\tmp8A70.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8A71.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve((5^(x+3/2)=7^(2*x));x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp8A71.tmp:
on line 19, syntax error, `;` unexpected:
solve((5^(x+3/2)=7^(2*x));x):
                         ^
07.10.2012 11:32:14 [->] solve((((3*x^3+13*x^2)-10*x)=0);x)
07.10.2012 11:32:14 [->] D:\tmp\tmp8AB1.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8AB2.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve((((3*x^3+13*x^2)-10*x)=0);x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp8AB2.tmp:
on line 19, syntax error, `;` unexpected:
solve((((3*x^3+13*x^2)-10*x)=0);x):
                               ^
07.10.2012 11:32:14 [->] whattype(op(1,sin(x)*sin(y)))
07.10.2012 11:32:14 [->] D:\tmp\tmp8AF1.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8AF2.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
whattype(op(1,sin(x)*sin(y))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp8AF2.tmp:
function
07.10.2012 11:32:14 [<-] function

07.10.2012 11:32:14 [->] op(1,sin(x)*sin(y))
07.10.2012 11:32:14 [->] D:\tmp\tmp8B31.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8B32.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(1,sin(x)*sin(y)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp8B32.tmp:
sin(x)
07.10.2012 11:32:14 [<-] sin(x)

07.10.2012 11:32:14 [->] op(2,sin(x)*sin(y))
07.10.2012 11:32:14 [->] D:\tmp\tmp8B62.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8B63.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,sin(x)*sin(y)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp8B63.tmp:
sin(y)
07.10.2012 11:32:14 [<-] sin(y)

07.10.2012 11:32:14 [->] map("+";x;y;z)
07.10.2012 11:32:14 [->] D:\tmp\tmp8BA3.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8BA4.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
map("+";x;y;z):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp8BA4.tmp:
on line 19, syntax error, `;` unexpected:
map("+";x;y;z):
       ^
07.10.2012 11:32:14 [->] map("*";x;y;z)
07.10.2012 11:32:14 [->] D:\tmp\tmp8BD3.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8BD4.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
map("*";x;y;z):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp8BD4.tmp:
on line 19, syntax error, `;` unexpected:
map("*";x;y;z):
       ^
07.10.2012 11:32:14 [->] implicitdiff(x^2+3*y*x+y^3,y,x)
07.10.2012 11:32:14 [->] D:\tmp\tmp8C14.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8C15.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
implicitdiff(x^2+3*y*x+y^3,y,x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp8C15.tmp:
-1/3*(2*x+3*y)/(x+y^2)
07.10.2012 11:32:14 [<-] -1/3*(2*x+3*y)/(x+y^2)

07.10.2012 11:32:14 [->] smath_int((1/(1+x^4));x)
07.10.2012 11:32:14 [->] D:\tmp\tmp8C54.tmp:
interface(quiet=true);
with(linalg):
writeto("D:\\tmp\\tmp8C55.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
smath_int((1/(1+x^4));x):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

07.10.2012 11:32:14 [<-] D:\tmp\tmp8C55.tmp:
on line 19, syntax error, `;` unexpected:
smath_int((1/(1+x^4));x):
                     ^
