6/8/2013 11:54:29 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:54:29 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpEA3.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpEA4.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:54:30 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpEA4.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:54:30 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:54:30 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:54:30 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1079.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp108A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:54:30 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp108A.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:54:30 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:54:34 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:54:34 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1FA8.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1FA9.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:54:34 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1FA9.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:54:34 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:54:34 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:54:34 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2007.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2008.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:54:34 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2008.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:54:34 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:54:35 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:54:35 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2547.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2548.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:54:35 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2548.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:54:35 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:54:35 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:54:35 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp25B6.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp25B7.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:54:35 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp25B7.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:54:35 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:54:36 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:54:36 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2931.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2932.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:54:36 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2932.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:54:36 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:54:36 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:54:36 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2991.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2992.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:54:36 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2992.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:54:36 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:54:37 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:54:37 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2C41.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2C42.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:54:37 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2C42.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:54:37 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:54:37 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:54:37 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2CA1.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2CB1.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:54:37 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2CB1.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:54:37 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:54:38 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:54:38 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2F51.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2F52.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:54:38 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2F52.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:54:38 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:54:38 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:54:38 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2FC0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2FC1.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:54:38 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2FC1.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:54:38 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:54:38 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:54:38 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3271.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3272.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:54:39 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3272.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:54:39 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:54:39 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:54:39 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp32D0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp32D1.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:54:39 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp32D1.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:54:39 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:54:39 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:54:39 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp362C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp362D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:54:40 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp362D.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:54:40 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:54:40 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:54:40 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp368C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp368D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:54:40 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp368D.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:54:40 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:54:49 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=0)},{(y(1)=1)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:54:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp5C18.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp5C19.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=0)),((y(1)=1)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:54:49 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp5C19.tmp:
mat(0, 1,2,1)
6/8/2013 11:54:49 AM [<-] mat(0,1,2,1)

6/8/2013 11:54:49 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:54:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp5CD5.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp5CD6.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:54:49 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp5CD6.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:54:49 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:54:51 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=0)},{(y(1)=1)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:54:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp6188.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp6189.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=0)),((y(1)=1)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:54:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp6189.tmp:
mat(0, 1,2,1)
6/8/2013 11:54:51 AM [<-] mat(0,1,2,1)

6/8/2013 11:54:51 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:54:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp61E8.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp61E9.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:54:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp61E9.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:54:51 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:54:51 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=0)},{(y(1)=1)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:54:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp64F6.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp64F7.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=0)),((y(1)=1)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:54:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp64F7.tmp:
mat(1, 0,2,1)
6/8/2013 11:54:51 AM [<-] mat(1,0,2,1)

6/8/2013 11:54:52 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:54:52 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp65A3.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp65A4.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:54:52 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp65A4.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:54:52 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:01 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:01 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8B10.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8B11.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:01 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8B11.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:01 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:01 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:01 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8BAE.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8BAF.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:01 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8BAF.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:01 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:03 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:03 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp92E1.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp92E2.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:03 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp92E2.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:03 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:03 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:03 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9331.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9332.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:03 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9332.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:03 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:04 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:04 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp964E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp964F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:04 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp964F.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:04 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:04 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:04 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp96BD.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp96BE.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:04 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp96BE.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:04 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:05 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:05 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp99CB.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp99CC.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:05 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp99CC.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:05 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:05 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:05 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9A2B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9A2C.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:05 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9A2C.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:05 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:06 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:06 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9DB6.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9DB7.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:06 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9DB7.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:06 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:06 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:06 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9E15.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9E16.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:06 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9E16.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:06 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:07 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:07 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA078.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA079.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:07 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA079.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:07 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:07 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:07 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA0D7.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA0D8.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:07 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA0D8.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:07 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:07 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:07 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA32A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA32B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:07 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA32B.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:07 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:07 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:07 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA38A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA38B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:07 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA38B.tmp:
mat(-sin(t), cos(t),2,1)
6/8/2013 11:55:07 AM [<-] mat(-sin(t),cos(t),2,1)

6/8/2013 11:55:08 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:08 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA5DD.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA5DE.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:08 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA5DE.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:08 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:08 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:08 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA63C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA63D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:08 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA63D.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:08 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:09 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:09 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA969.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA96A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:09 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA96A.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:09 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:09 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:09 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA9C9.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA9CA.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:09 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA9CA.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:09 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:10 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:10 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpAC4B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpAC4C.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:10 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpAC4C.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:10 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:10 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:10 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpACAA.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpACAB.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:10 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpACAB.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:10 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:10 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:10 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpAF2C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpAF2D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:10 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpAF2D.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:10 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:10 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:10 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpAF7C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpAF7D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:11 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpAF7D.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:11 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:11 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:11 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB24B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB24C.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:11 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB24C.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:11 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:11 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:11 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB2BB.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB2BC.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:11 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB2BC.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:11 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:13 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:13 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBA0D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBA0E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:13 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpBA0E.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:13 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:13 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:13 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBA5D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBA5E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:13 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpBA5E.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:13 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:14 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:14 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBC33.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBC34.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:14 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpBC34.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:14 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:14 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:14 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBCA2.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBCA3.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:55:14 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpBCA3.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:55:14 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:55:43 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:43 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp302E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp302F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:43 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp302F.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:43 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:43 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{((-exp(-0)+exp(-1))=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:43 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp308D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp308E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),(((-exp(-0)+exp(-1))=0)),4,1),set),smath_sys(\
z(t),u(t),2,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:

6/8/2013 11:55:43 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp308E.tmp:
mat(,0,1)
6/8/2013 11:55:44 AM [<-] mat(,0,1)

6/8/2013 11:55:47 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:47 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3F10.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3F21.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:47 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3F21.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:47 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:47 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{((-exp(-0)+exp(-1))=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:47 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3F7F.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3F80.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),(((-exp(-0)+exp(-1))=0)),4,1),set),smath_sys(\
z(t),u(t),2,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:

6/8/2013 11:55:47 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3F80.tmp:
mat(,0,1)
6/8/2013 11:55:47 AM [<-] mat(,0,1)

6/8/2013 11:55:49 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:55:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp46B2.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp46B3.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:55:49 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp46B3.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:55:49 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:55:49 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{((-exp(-0)+exp(-1))=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:55:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp4712.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp4713.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),(((-exp(-0)+exp(-1))=0)),4,1),set),smath_sys(\
z(t),u(t),2,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:

6/8/2013 11:55:49 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp4713.tmp:
mat(,0,1)
6/8/2013 11:55:49 AM [<-] mat(,0,1)

6/8/2013 11:56:00 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:00 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp71AC.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp71AD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:00 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp71AD.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:00 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:00 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=0)},{((-exp(-0)+exp(-1))=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:00 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp720C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp720D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=0)),(((-exp(-0)+exp(-1))=1)),4,1),set),smath_sys(\
z(t),u(t),2,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:

6/8/2013 11:56:00 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp720D.tmp:
mat(,0,1)
6/8/2013 11:56:00 AM [<-] mat(,0,1)

6/8/2013 11:56:01 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:01 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp75C5.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp75C6.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:01 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp75C6.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:01 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:01 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=0)},{((-exp(-0)+exp(-1))=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:01 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7625.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7626.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=0)),(((-exp(-0)+exp(-1))=1)),4,1),set),smath_sys(\
z(t),u(t),2,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:

6/8/2013 11:56:01 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7626.tmp:
mat(,0,1)
6/8/2013 11:56:01 AM [<-] mat(,0,1)

6/8/2013 11:56:05 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:05 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp864D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp864E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:05 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp864E.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:05 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:06 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:06 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp86EB.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp86EC.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:06 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp86EC.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:06 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:11 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:11 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9AAB.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9AAC.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:11 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9AAC.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:11 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:11 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:11 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9B0B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9B0C.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:11 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9B0C.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:11 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:12 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:12 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9E57.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9E58.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:12 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9E58.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:12 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:12 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:12 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9EB7.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9EB8.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:12 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9EB8.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:12 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:28 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:28 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpE02C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpE02D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:28 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpE02D.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:28 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:29 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:29 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpE09B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpE09C.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:29 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpE09C.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:29 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:31 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:31 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpEA7C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpEA7D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:31 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpEA7D.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:31 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:31 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:31 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpEAEB.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpEAEC.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:31 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpEAEC.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:31 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:32 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:32 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpEE28.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpEE29.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:32 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpEE29.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:32 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:32 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:32 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpEE88.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpEE89.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:32 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpEE89.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:32 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:34 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:34 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpF712.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpF713.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:34 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpF713.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:34 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:34 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:34 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpF762.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpF763.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:34 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpF763.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:34 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:35 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:35 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpFA8F.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpFA90.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:35 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpFA90.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:35 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:35 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:35 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpFAEE.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpFAEF.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:35 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpFAEF.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:35 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:37 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:37 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp4D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp4E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:37 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp4E.tmp:
mat(-exp(-t)+exp(-1), exp(-t),2,1)
6/8/2013 11:56:37 AM [<-] mat(-exp(-t)+exp(-1),exp(-t),2,1)

6/8/2013 11:56:37 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:37 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpFB.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpFC.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:37 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpFC.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:37 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:38 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:38 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp4F3.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp4F4.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:38 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp4F4.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:38 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:38 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:38 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp5B0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp5B1.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:38 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp5B1.tmp:
mat(-sin(t), cos(t),2,1)
6/8/2013 11:56:38 AM [<-] mat(-sin(t),cos(t),2,1)

6/8/2013 11:56:40 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:40 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC08.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC09.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:40 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC09.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:40 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:40 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:40 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC68.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC69.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:40 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC69.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:40 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:41 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:41 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp10AE.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp10AF.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:41 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp10AF.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:41 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:41 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:41 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp111D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp111E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:41 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp111E.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:41 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:42 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:42 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp144A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp144B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:42 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp144B.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:42 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:42 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:42 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp14AA.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp14AB.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:42 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp14AB.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:42 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:43 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:43 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp17D7.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp17D8.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:43 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp17D8.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:43 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:43 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:43 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1846.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1847.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:43 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1847.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:43 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:43 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:43 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1B06.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1B07.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:43 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1B07.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:43 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:44 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:44 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1B66.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1B67.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:44 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1B67.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:44 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:44 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:44 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1E93.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1E94.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:44 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1E94.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:44 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:44 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:44 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1EF3.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1EF4.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:44 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1EF4.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:45 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:45 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:45 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2220.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2221.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:45 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2221.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:45 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:45 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:45 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2280.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2281.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:45 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2281.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:45 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:46 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:46 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp258E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp258F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:46 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp258F.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:46 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:46 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:46 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp25ED.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp25FE.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:46 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp25FE.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:46 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:47 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:47 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp28CC.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp28CD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:47 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp28CD.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:47 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:47 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:47 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp293C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp293D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:47 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp293D.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:47 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:48 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:48 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2BCD.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2BCE.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:48 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2BCE.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:48 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:48 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:48 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2C2C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2C2D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:48 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2C2D.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:48 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:49 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2F5A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2F5B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:49 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2F5B.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:49 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:49 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2FB9.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2FBA.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:49 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2FBA.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:49 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:49 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp32D7.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp32D8.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:50 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp32D8.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:50 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:50 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:50 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3337.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3338.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:50 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3338.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:50 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:50 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:50 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3606.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3607.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:50 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3607.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:50 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:50 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:50 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3666.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3667.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:50 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3667.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:50 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:51 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp38A9.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp38AA.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp38AA.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:51 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:51 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3908.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3909.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3909.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:51 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:52 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:52 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3C16.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3C17.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:52 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3C17.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:52 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:52 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:52 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3C76.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3C77.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:52 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3C77.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:52 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:54 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:54 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp42CE.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp42CF.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:54 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp42CF.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:54 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:54 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:54 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp433E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp433F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:54 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp433F.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:54 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:54 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:54 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp45FE.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp45FF.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:54 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp45FF.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:54 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:54 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:54 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp466D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp466E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp466E.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:55 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:55 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp493C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp493D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp493D.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:55 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:55 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp499C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp499D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp499D.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:55 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:56:56 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:56:56 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp4C5C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp4C5D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:56:56 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp4C5D.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:56:56 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:56:56 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:56:56 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp4CCB.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp4CCC.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:56:56 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp4CCC.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:56:56 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:57:17 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:57:17 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9E56.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9E57.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:57:17 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9E57.tmp:
mat(-exp(-t)+exp(-1), exp(-t),2,1)
6/8/2013 11:57:17 AM [<-] mat(-exp(-t)+exp(-1),exp(-t),2,1)

6/8/2013 11:57:17 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:57:17 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9F04.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9F05.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:57:17 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9F05.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:57:17 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:57:28 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:57:28 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC79C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC79D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:57:28 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC79D.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:57:28 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:57:28 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:57:28 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC859.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC85A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:57:28 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC85A.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:57:28 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:57:30 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:57:30 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpCF7C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpCF7D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:57:30 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpCF7D.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:57:30 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:57:30 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:57:30 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpCFDC.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpCFDD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:57:30 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpCFDD.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:57:30 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:57:30 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:57:30 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpD27C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpD27D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:57:30 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpD27D.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:57:30 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:57:30 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:57:30 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpD2DC.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpD2DD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:57:30 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpD2DD.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:57:30 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:57:31 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:57:31 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpD4E1.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpD4E2.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:57:31 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpD4E2.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:57:31 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:57:31 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(u(0)=0)},{(z(0)=1)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:57:31 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpD540.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpD541.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((u(0)=0)),((z(0)=1)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:57:31 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpD541.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:57:31 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:03 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:03 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp53E3.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp53E4.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:04 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp53E4.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:04 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:04 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:04 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp5453.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp5454.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:04 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp5454.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:04 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:05 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:05 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp5983.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp5984.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:05 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp5984.tmp:
mat(-exp(-t)+exp(-1), exp(-t),2,1)
6/8/2013 11:58:05 AM [<-] mat(-exp(-t)+exp(-1),exp(-t),2,1)

6/8/2013 11:58:05 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:05 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp5A30.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp5A31.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:05 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp5A31.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:05 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:13 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:13 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7AAD.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7AAE.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:13 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7AAE.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:13 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:14 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:14 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7B6A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7B6B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:14 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7B6B.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:14 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:16 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:16 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp83D5.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp83D6.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:16 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp83D6.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:16 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:16 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:16 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8435.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8436.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:16 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8436.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:16 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:41 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:41 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpE6FE.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpE6FF.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:41 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpE6FF.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:41 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:41 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:41 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpE75E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpE75F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:41 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpE75F.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:41 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:42 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:42 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpE9D0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpE9D2.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:42 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpE9D2.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:42 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:42 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:42 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpEA30.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpEA31.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:42 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpEA31.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:42 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:42 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:42 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpEC44.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpEC45.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:42 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpEC45.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:42 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:43 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:43 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpECA4.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpECA5.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:43 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpECA5.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:43 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:43 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:43 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpEED7.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpEED8.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:43 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpEED8.tmp:
mat(-exp(-t)+exp(-1), exp(-t),2,1)
6/8/2013 11:58:43 AM [<-] mat(-exp(-t)+exp(-1),exp(-t),2,1)

6/8/2013 11:58:43 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:43 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpEF85.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpEF86.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:43 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpEF86.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:43 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:45 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:45 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpF6A8.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpF6A9.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:45 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpF6A9.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:45 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:45 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:45 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpF756.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpF757.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:45 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpF757.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:45 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:48 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:48 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp211.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp212.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:48 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp212.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:48 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:48 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:48 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp271.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp272.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:48 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp272.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:48 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:49 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp437.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp438.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:49 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp438.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:49 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:49 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp497.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp498.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:49 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp498.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:49 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:49 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp5E0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp5E1.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:49 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp5E1.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:49 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:49 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp640.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp641.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:49 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp641.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:49 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:49 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7B8.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7B9.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:49 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7B9.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:49 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:49 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp808.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp809.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:50 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp809.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:50 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:50 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:50 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp914.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp915.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:50 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp915.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:50 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:50 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:50 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp973.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp974.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:50 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp974.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:50 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:50 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:50 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9F2.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9F3.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:50 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9F3.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:50 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:50 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:50 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA42.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA43.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:50 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA43.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:50 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:50 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:50 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpAF0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpAF1.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:50 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpAF1.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:50 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:50 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:50 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB4F.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB50.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:50 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB50.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:50 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:50 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:50 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBED.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBEE.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpBEE.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:51 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:51 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC4D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC4E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC4E.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:51 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:51 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpD29.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpD2A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpD2A.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:51 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:51 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpD89.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpD8A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpD8A.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:51 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:51 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpF30.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpF31.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpF31.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:51 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:51 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpF9F.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpFA0.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpFA0.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:51 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:52 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:52 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1211.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1212.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:52 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1212.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:52 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:52 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:52 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1280.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1281.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:52 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1281.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:52 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:53 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:53 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1495.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1496.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:53 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1496.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:53 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:53 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:53 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp14F4.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp14F5.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:53 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp14F5.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:53 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:53 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:53 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp15D1.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp15D2.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:53 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp15D2.tmp:
mat(-exp(-t)+exp(-1), exp(-t),2,1)
6/8/2013 11:58:53 AM [<-] mat(-exp(-t)+exp(-1),exp(-t),2,1)

6/8/2013 11:58:53 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:53 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp167E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp167F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:53 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp167F.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:53 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:53 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:53 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp16DE.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp16DF.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:53 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp16DF.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:53 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:53 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:53 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp177C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp177D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:53 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp177D.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:53 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:54 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:54 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp19CF.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp19D0.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:54 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp19D0.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:54 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:54 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:54 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1A3E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1A3F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:54 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1A3F.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:54 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:54 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:54 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1B68.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1B69.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:54 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1B69.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:54 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:55 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1BC8.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1BC9.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1BC9.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:55 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:55 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1CD3.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1CD4.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1CD4.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:55 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:55 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1D33.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1D34.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1D34.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:55 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:55 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1E6D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1E6E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1E6E.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:55 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:55 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1ECC.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1ECD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1ECD.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:55 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:56 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:56 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1FF7.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1FF8.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:56 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1FF8.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:56 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:56 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:56 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2066.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2067.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:56 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2067.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:56 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:56 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:56 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp220D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp220E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:56 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp220E.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:56 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:56 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:56 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp226D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp226E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:56 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp226E.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:56 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:57 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:57 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp23D6.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp23D7.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:57 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp23D7.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:57 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:57 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:57 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2435.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2436.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:57 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2436.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:57 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:57 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:57 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp259E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp259F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:57 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp259F.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:57 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:57 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:57 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp25FE.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp25FF.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:57 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp25FF.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:57 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:57 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:57 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2766.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2767.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:58 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2767.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:58 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:58 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:58 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp27C6.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp27C7.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:58 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp27C7.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:58 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:58 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:58 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp293E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp293F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:58 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp293F.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:58 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:58 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:58 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp299E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp299F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:58 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp299F.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:58 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:59 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:59 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2D0A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2D0B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:59 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2D0B.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:59 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:59 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:59 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2D69.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2D6A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:58:59 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2D6A.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:58:59 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:58:59 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:58:59 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2ED2.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2ED3.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:58:59 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2ED3.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:58:59 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:58:59 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:58:59 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2F32.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2F33.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:59:00 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2F33.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:59:00 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:59:00 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:59:00 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp303D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp304D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:59:00 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp304D.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 11:59:00 AM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 11:59:00 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:59:00 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp30AC.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp30AD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:59:00 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp30AD.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:59:00 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 11:59:00 AM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 11:59:00 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp314A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp314B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 11:59:00 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp314B.tmp:
mat(-exp(-t)+exp(-1), exp(-t),2,1)
6/8/2013 11:59:00 AM [<-] mat(-exp(-t)+exp(-1),exp(-t),2,1)

6/8/2013 11:59:00 AM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 11:59:00 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3207.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3208.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 11:59:00 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3208.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 11:59:00 AM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:00:41 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:00:41 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBD19.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBD1A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:00:41 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpBD1A.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:00:41 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:00:41 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:00:41 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBD88.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBD89.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:00:41 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpBD89.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:00:41 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:00:43 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:00:43 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC4BB.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC4BC.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:00:43 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC4BC.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:00:43 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:00:43 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:00:43 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC50B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC50C.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:00:43 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC50C.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:00:43 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:00:44 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:00:44 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC6D1.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC6E2.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:00:44 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC6E2.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:00:44 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:00:44 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:00:44 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC731.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC732.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:00:44 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC732.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:00:44 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:00:44 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:00:44 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC87A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC87B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:00:44 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC87B.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:00:44 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:00:44 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:00:44 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC8DA.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC8DB.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:00:44 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC8DB.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:00:44 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:30 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:30 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp673D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp673E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:30 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp673E.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:30 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:30 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:30 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp679C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp679D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:31 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp679D.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:31 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:31 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:31 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp6A3D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp6A3E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:31 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp6A3E.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:31 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:31 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:31 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp6A9D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp6AAD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:31 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp6AAD.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:31 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:32 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:32 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp6C73.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp6C74.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:32 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp6C74.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:32 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:32 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:32 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp6CE2.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp6CE3.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:32 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp6CE3.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:32 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:32 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:32 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp6F63.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp6F64.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:33 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp6F64.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:33 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:33 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:33 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp6FC3.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp6FC4.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:33 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp6FC4.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:33 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:33 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:33 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp71C8.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp71C9.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:33 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp71C9.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:33 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:33 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:33 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7227.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7228.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:33 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7228.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:33 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:34 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:34 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp73BF.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp73C0.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:34 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp73C0.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:34 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:34 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:34 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp742E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp742F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:34 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp742F.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:34 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:34 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:34 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp75C6.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp75C7.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:34 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp75C7.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:34 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:34 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:34 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7625.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7626.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:34 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7626.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:34 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:35 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:35 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp77CD.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp77CE.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:35 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp77CE.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:35 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:35 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:35 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp782C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp782D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:35 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp782D.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:35 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:35 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:35 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7B1B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7B1C.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:36 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7B1C.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:36 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:36 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:36 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7B7B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7B7C.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:36 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7B7C.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:36 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:36 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:36 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7D60.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7D61.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:36 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7D61.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:36 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:36 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:36 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7DC0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7DC1.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:36 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7DC1.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:36 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:36 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:36 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7F29.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7F2A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:37 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7F2A.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:37 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:37 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:37 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7F88.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7F89.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:37 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7F89.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:37 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:37 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:37 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8110.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8111.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:37 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8111.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:37 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:37 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:37 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8170.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8171.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:37 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8171.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:37 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:37 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:37 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp82F8.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp82F9.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:37 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp82F9.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:37 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:37 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:37 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8357.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8358.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:38 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8358.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:38 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:38 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:38 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp84FF.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8500.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:38 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8500.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:38 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:38 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:38 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp854F.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8550.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:38 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8550.tmp:
mat(-sin(t), cos(t),2,1)
6/8/2013 12:02:38 PM [<-] mat(-sin(t),cos(t),2,1)

6/8/2013 12:02:38 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:38 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp86C7.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp86C8.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:38 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp86C8.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:38 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:38 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:38 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8736.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8737.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:39 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8737.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:39 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:39 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:39 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp88BE.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp88BF.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:39 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp88BF.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:39 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:39 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:39 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp891E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp891F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:39 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp891F.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:39 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:39 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:39 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8AB6.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8AB7.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:39 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8AB7.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:39 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:39 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:39 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8B15.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8B16.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:40 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8B16.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:40 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:40 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:40 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8C8E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8C8F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:40 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8C8F.tmp:
mat(-exp(-t)+exp(-1), exp(-t),2,1)
6/8/2013 12:02:40 PM [<-] mat(-exp(-t)+exp(-1),exp(-t),2,1)

6/8/2013 12:02:40 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:40 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8D1C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8D1D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:40 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8D1D.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:40 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:45 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:45 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA060.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA061.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:45 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA061.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:45 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:45 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:45 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA0EE.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA0EF.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:45 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA0EF.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:45 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:46 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:46 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA360.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA361.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:46 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA361.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:46 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:46 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:46 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA3C0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA3C1.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:46 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA3C1.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:46 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:46 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:46 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA4EA.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA4EB.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:46 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA4EB.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:46 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:46 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:46 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA53A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA53B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:46 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA53B.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:46 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:47 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:47 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA7AC.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA7AD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:47 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA7AD.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:47 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:47 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:47 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA80C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA80D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:47 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA80D.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:47 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:47 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:47 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA9A3.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA9A4.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:47 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA9A4.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:47 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:47 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:47 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpAA03.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpAA04.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:47 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpAA04.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:47 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:48 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:48 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpAB4C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpAB4D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:48 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpAB4D.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:48 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:48 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:48 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpABAC.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpABAD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:48 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpABAD.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:48 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:48 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:48 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpACF6.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpAD06.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:48 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpAD06.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:48 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:48 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:48 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpAD55.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpAD56.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:48 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpAD56.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:48 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:49 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:49 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpAEDD.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpAEDE.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:49 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpAEDE.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:49 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:49 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:49 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpAF3D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpAF3E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:49 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpAF3E.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:49 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:49 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:49 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB0A6.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB0B6.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:49 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB0B6.tmp:
mat(exp(-t), -exp(-t)+exp(-1),2,1)
6/8/2013 12:02:49 PM [<-] mat(exp(-t),-exp(-t)+exp(-1),2,1)

6/8/2013 12:02:49 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:49 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB115.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB116.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:49 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB116.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:49 PM [<-] mat(cos(t),-sin(t),2,1)

6/8/2013 12:02:50 PM [->] dsolve(convert(smath_sys({(smath_diff(y(t),t)=x(t))},{(smath_diff(x(t),t)=(-x(t)))},{(x(0)=1)},{(y(1)=0)},4,1),set),smath_sys(x(t),y(t),2,1))
6/8/2013 12:02:50 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB339.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB33A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(y(t),t)=x(t))),((smath_diff(x(t)\
,t)=(-x(t)))),((x(0)=1)),((y(1)=0)),4,1),set),smath_sys(x(t),y(t),2,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:

6/8/2013 12:02:50 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB33A.tmp:
mat(-exp(-t)+exp(-1), exp(-t),2,1)
6/8/2013 12:02:50 PM [<-] mat(-exp(-t)+exp(-1),exp(-t),2,1)

6/8/2013 12:02:50 PM [->] dsolve(convert(smath_sys({(smath_diff(z(t),t)=u(t))},{(smath_diff(u(t),t)=(-z(t)))},{(z(0)=1)},{(u(0)=0)},4,1),set),smath_sys(z(t),u(t),2,1))
6/8/2013 12:02:50 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB3B8.tmp:
interface(quiet=true);
with(linalg):with(inttrans):with(plots):

writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB3B9.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_sum := proc() if nargs = 1 then sum( args[1] ); elif nargs = 2 then sum( args[1], args[2] ); elif nargs = 4 then sum( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_product:= proc() if nargs = 1 then product( args[1] ); elif nargs = 2 then product( args[1], args[2] ); elif nargs = 4 then product( args[1], args[2] = args[3] .. args[4] ); fi: 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 := \
dsolve(convert(smath_sys(((smath_diff(z(t),t)=u(t))),((smath_diff(u(t)\
,t)=(-z(t)))),((z(0)=1)),((u(0)=0)),4,1),set),smath_sys(z(t),u(t),2,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:

6/8/2013 12:02:50 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB3B9.tmp:
mat(cos(t), -sin(t),2,1)
6/8/2013 12:02:50 PM [<-] mat(cos(t),-sin(t),2,1)