5/25/2013 11:10:41 AM [->] op(2,dsolve({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},x(t)))
5/25/2013 11:10:41 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp450E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp450F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)),x(t))\
):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:10:41 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp450F.tmp:
_C1*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)+_C2*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t\
    /m)
5/25/2013 11:10:41 AM [<-] _C1*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)+_C2*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:10:41 AM [->] solve(smath_sys({((_C1*exp(-({(1/10-{({(1/10)}^2-4*1*4)}^{(1/2)})}*0)/(2*1))+_C2*exp(-((1/10+{({(1/10)}^2-4*1*4)}^{(1/2)})*0)/(2*1)))=1)},{(subs({(t=0)},smath_diff(_C1*exp(-({(1/10-{({(1/10)}^2-4*1*4)}^{(1/2)})}*t)/(2*1))+_C2*exp(-((1/10+{({(1/10)}^2-4*1*4)}^{(1/2)})*t)/(2*1)),t))=0)},2,1),smath_sys(_C1,_C2,2,1))
5/25/2013 11:10:41 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp457D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp457E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve(smath_sys((((_C1*exp(-(((1/10-((((1/10))^2-4*1*4))^((1/2))))*0)/\
(2*1))+_C2*exp(-((1/10+((((1/10))^2-4*1*4))^((1/2)))*0)/(2*1)))=1)),((\
subs(((t=0)),smath_diff(_C1*exp(-(((1/10-((((1/10))^2-4*1*4))^((1/2)))\
)*t)/(2*1))+_C2*exp(-((1/10+((((1/10))^2-4*1*4))^((1/2)))*t)/(2*1)),t)\
)=0)),2,1),smath_sys(_C1,_C2,2,1)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:10:41 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp457E.tmp:
mat(-1/3198*I*(-1+I*1599^(1/2))*1599^(1/2), -1/3198*I*1599^(1/2)+1/2,2,1)
5/25/2013 11:10:41 AM [<-] mat(-1/3198*i*(-1+i*1599^(1/2))*1599^(1/2),-1/3198*i*1599^(1/2)+1/2,2,1)

5/25/2013 11:11:38 AM [->] solve(smath_sys({(x(0)=1)},{(subs({(t=0)},smath_diff(x(t),t))=0)},2,1),smath_sys(_C1,_C2,2,1))
5/25/2013 11:11:38 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp21DB.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp21DC.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve(smath_sys(((x(0)=1)),((subs(((t=0)),smath_diff(x(t),t))=0)),2,1)\
,smath_sys(_C1,_C2,2,1)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:11:38 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp21DC.tmp:
Error, (in smath_sys) wrong number (or type) of parameters in function diff
                                      ans
5/25/2013 11:23:40 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},{(subst({(t=0)},convert(smath_diff(x(t),t),D))=0)},3,1),set),x(t)))
5/25/2013 11:23:40 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2828.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2829.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),((subst(((t=0)),convert(smath_diff(x(t),t),D))\
=0)),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:23:40 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2829.tmp:
2
5/25/2013 11:23:40 AM [<-] 2

5/25/2013 11:23:40 AM [->] solve(smath_sys({(2=1)},{(subs({(t=0)},smath_diff(2,t))=0)},2,1),smath_sys(_C1,_C2,2,1))
5/25/2013 11:23:40 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2878.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2879.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve(smath_sys(((2=1)),((subs(((t=0)),smath_diff(2,t))=0)),2,1),smath\
_sys(_C1,_C2,2,1)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:23:40 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2879.tmp:
mat(,0,1)
5/25/2013 11:23:40 AM [<-] mat(,0,1)

5/25/2013 11:24:12 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},{(subst({(t=0)},convert(smath_diff(x(t),t),D))=0)},3,1),set),x(t)))
5/25/2013 11:24:12 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA354.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA355.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),((subst(((t=0)),convert(smath_diff(x(t),t),D))\
=0)),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:24:12 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA355.tmp:
2
5/25/2013 11:24:12 AM [<-] 2

5/25/2013 11:24:12 AM [->] solve(smath_sys({(2=1)},{(subs({(t=0)},smath_diff(2,t))=0)},2,1),smath_sys(_C1,_C2,2,1))
5/25/2013 11:24:12 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpA394.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpA395.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve(smath_sys(((2=1)),((subs(((t=0)),smath_diff(2,t))=0)),2,1),smath\
_sys(_C1,_C2,2,1)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:24:12 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpA395.tmp:
mat(,0,1)
5/25/2013 11:24:12 AM [<-] mat(,0,1)

5/25/2013 11:24:51 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},{(subst({(t=0)},convert(smath_diff(x(t),t),D))=0)},3,1),set),x(t)))
5/25/2013 11:24:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3BCF.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3BD0.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),((subst(((t=0)),convert(smath_diff(x(t),t),\
D))=0)),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:24:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3BD0.tmp:
2
5/25/2013 11:24:51 AM [<-] 2

5/25/2013 11:24:51 AM [->] solve(smath_sys({(2=1)},{(subs({(t=0)},smath_diff(2,t))=0)},2,1),smath_sys(_C1,_C2,2,1))
5/25/2013 11:24:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3C00.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3C01.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve(smath_sys(((2=1)),((subs(((t=0)),smath_diff(2,t))=0)),2,1),smath\
_sys(_C1,_C2,2,1)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:24:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3C01.tmp:
mat(,0,1)
5/25/2013 11:24:51 AM [<-] mat(,0,1)

5/25/2013 11:25:10 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},{(subst({(t=0)},convert(smath_diff(x(t),t),D))=0)},3,1),set),x(t)))
5/25/2013 11:25:10 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp87C1.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp87C2.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),((subst(((t=0)),convert(smath_diff(x(t),t),\
D))=0)),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:25:10 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp87C2.tmp:
2
5/25/2013 11:25:10 AM [<-] 2

5/25/2013 11:25:10 AM [->] solve(smath_sys({(2=1)},{(subs({(t=0)},smath_diff(2,t))=0)},2,1),smath_sys(_C1,_C2,2,1))
5/25/2013 11:25:10 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8811.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8812.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve(smath_sys(((2=1)),((subs(((t=0)),smath_diff(2,t))=0)),2,1),smath\
_sys(_C1,_C2,2,1)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:25:10 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8812.tmp:
mat(,0,1)
5/25/2013 11:25:10 AM [<-] mat(,0,1)

5/25/2013 11:25:53 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},{(subst({(t=0)},convert(smath_diff(x(t),t),D))=0)},3,1),set),x(t)))
5/25/2013 11:25:53 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3053.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3054.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),((subst(((t=0)),convert(smath_diff(x(t),t),\
D))=0)),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:25:53 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp3054.tmp:
2
5/25/2013 11:25:53 AM [<-] 2

5/25/2013 11:26:46 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},{(subst({(t=0)},convert(smath_diff(x(t),t),D))=0)},3,1),set),x(t)))
5/25/2013 11:26:46 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpFC89.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpFC8A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),((subst(((t=0)),convert(smath_diff(x(t),t),\
D))=0)),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:26:46 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpFC8A.tmp:
2
5/25/2013 11:26:46 AM [<-] 2

5/25/2013 11:26:55 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},{(subst({(t=0)},convert(smath_diff(x(t),t),D))=0)},3,1),set),x(t)))
5/25/2013 11:26:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp208F.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2090.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),((subst(((t=0)),convert(smath_diff(x(t),t),\
D))=0)),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:26:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2090.tmp:
2
5/25/2013 11:26:55 AM [<-] 2

5/25/2013 11:26:57 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},{(subst({(t=0)},convert(smath_diff(x(t),t),D))=0)},3,1),set),x(t)))
5/25/2013 11:26:57 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2AED.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2AFD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),((subst(((t=0)),convert(smath_diff(x(t),t),\
D))=0)),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:26:57 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2AFD.tmp:
2
5/25/2013 11:26:57 AM [<-] 2

5/25/2013 11:27:04 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},-1+x(0),{(subst({(t=0)},convert(smath_diff(x(t),t),D))=0)},3,1),set),x(t)))
5/25/2013 11:27:04 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp44C5.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp44C6.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),-1+x(0),((subst(((t=0)),convert(smath_diff(x(t),t),D))\
=0)),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:27:04 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp44C6.tmp:
2
5/25/2013 11:27:04 AM [<-] 2

5/25/2013 11:27:12 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},-1+x(0),subst({(t=0)},convert(diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:27:12 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp6236.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp6237.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),-1+x(0),subst(((t=0)),convert(diff(x(t),t),D)),3,1),se\
t),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:27:12 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp6237.tmp:
2
5/25/2013 11:27:12 AM [<-] 2

5/25/2013 11:27:19 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},-1+x(0),subst({(t=0)},convert(diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:27:19 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp80A0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp80A1.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),-1+x(0),subst(((t=0)),convert(diff(x(t),t),D)),3,1),se\
t),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:27:19 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp80A1.tmp:
2
5/25/2013 11:27:19 AM [<-] 2

5/25/2013 11:27:24 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},-1+x(0),subst({(t=0)},convert(diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:27:24 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9116.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9117.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),-1+x(0),subst(((t=0)),convert(diff(x(t),t),D)),3,1),set),\
x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:27:24 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9117.tmp:
2
5/25/2013 11:27:24 AM [<-] 2

5/25/2013 11:27:39 AM [->] op(2,dsolve(convert(smath_sys(m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t),-1+x(0),subst({(t=0)},convert(diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:27:39 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpCB89.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpCB8A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys(m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*\
x(t),-1+x(0),subst(((t=0)),convert(diff(x(t),t),D)),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:27:39 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpCB8A.tmp:
2
5/25/2013 11:27:39 AM [<-] 2

5/25/2013 11:27:55 AM [->] op(2,dsolve(convert(smath_sys(m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t),-1+x(0),subs({(t=0)},convert(diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:27:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpABC.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpABD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys(m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*\
x(t),-1+x(0),subs(((t=0)),convert(diff(x(t),t),D)),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:27:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpABD.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:27:55 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:28:54 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},-1+x(0),subs({(t=0)},convert(diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:28:54 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpF339.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpF33A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),-1+x(0),subs(((t=0)),convert(diff(x(t),t),D)),3,1),set),x\
(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:28:54 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpF33A.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:28:54 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:29:09 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:29:09 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2DAD.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2DAE.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(diff(x(t),t),D)),3,1),set\
),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:29:09 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2DAE.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:29:09 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:29:34 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:29:34 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8F5E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8F5F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:29:34 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8F5F.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:29:34 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:29:57 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:29:57 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpEA3C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpEA3D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:29:58 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpEA3D.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:29:58 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:30:02 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:30:02 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpFA45.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpFA46.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:30:02 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpFA46.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:30:02 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:30:02 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:30:02 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpFAB4.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpFAB5.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:30:02 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpFAB5.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:30:02 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:30:11 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:30:11 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1DFE.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1DFF.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:30:11 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1DFF.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:30:11 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:30:11 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:30:11 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1E7D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1E7E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:30:11 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1E7E.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:30:11 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:30:49 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},{(smath_diff(x(0),t)=0)}),3,1),set),x(t)))
5/25/2013 11:30:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB4B5.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB4B6.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),((smath_diff(x(0),t)=0))),3,1),se\
t),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:30:49 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB4B6.tmp:
2
5/25/2013 11:30:49 AM [<-] 2

5/25/2013 11:31:06 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},smath_diff(x(0),t)),3,1),set),x(t)))
5/25/2013 11:31:06 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpF668.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpF669.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),smath_diff(x(0),t)),3,1),set),x(t\
))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:31:06 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpF669.tmp:
2
5/25/2013 11:31:06 AM [<-] 2

5/25/2013 11:31:19 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},subs({(t=0)},convert(smath_diff(x(t),t),D))),3,1),set),x(t)))
5/25/2013 11:31:19 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp271B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp271C.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),subs(((t=0)),convert(smath_diff(x\
(t),t),D))),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:31:19 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp271C.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:31:19 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:31:19 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},subs({(t=0)},convert(smath_diff(x(t),t),D))),3,1),set),x(t)))
5/25/2013 11:31:19 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2799.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp279A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),subs(((t=0)),convert(smath_dif\
f(x(t),t),D))),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:31:19 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp279A.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:31:19 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:31:33 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},subs({(t=0)},convert(smath_diff(x(t),t),D))),3,1),set),x(t)))
5/25/2013 11:31:33 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp5E16.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp5E17.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),subs(((t=0)),convert(smath_diff(x\
(t),t),D))),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:31:33 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp5E17.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:31:33 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:31:33 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},subs({(t=0)},convert(smath_diff(x(t),t),D))),3,1),set),x(t)))
5/25/2013 11:31:33 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp5EA4.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp5EA5.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),subs(((t=0)),convert(smath_dif\
f(x(t),t),D))),3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:31:33 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp5EA5.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:31:33 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:31:57 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:31:57 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBE81.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBE82.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:31:57 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpBE82.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:31:57 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:31:57 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:31:57 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBF1F.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBF20.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:31:58 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpBF20.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:31:58 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:31:59 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:31:59 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC643.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC644.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:31:59 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC644.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:31:59 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:31:59 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:31:59 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC6A2.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC6B3.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:31:59 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC6B3.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:31:59 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:32:20 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:32:20 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1907.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1908.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:32:21 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1908.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:32:21 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:32:21 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:32:21 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1967.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1968.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:32:21 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1968.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:32:21 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:32:21 AM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 11:32:21 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp19C7.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp19C8.gif", plotoptions=`height=230,width=210`);
plot3d( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), x=-5..5, y=-5..5, scaling=constrained, style=patch, orientation=[40,50], grid=[50,50], color=gray, axes=frame, lightmodel=`light4`, projection=`normal`, shading=zgrayscale );
quit:

5/25/2013 11:32:29 AM [->] op(2,dsolve(convert(smath_sys({(smath_diff(y(x),x)=(x-y(x)))},{(y(0)=1)},2,1),set),y(x)))
5/25/2013 11:32:29 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp39D6.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp39D7.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys(((smath_diff(y(x),x)=(x-y(x)))),((y(0)=1\
)),2,1),set),y(x))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:32:29 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp39D7.tmp:
x-1+2*exp(-x)
5/25/2013 11:32:29 AM [<-] x-1+2*exp(-x)

5/25/2013 11:32:42 AM [->] x-1+2*exp(-x)
5/25/2013 11:32:42 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp6E40.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp6E41.gif", plotoptions=`height=230,width=210`);
plot3d( x-1+2*exp(-x), x=-5..5, y=-5..5, scaling=constrained, style=patch, orientation=[40,50], grid=[50,50], color=gray, axes=frame, lightmodel=`light4`, projection=`normal`, shading=zgrayscale );
quit:

5/25/2013 11:32:46 AM [->] x-1+2*exp(-x)
5/25/2013 11:32:46 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7B6C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7B6D.gif", plotoptions=`height=337,width=409`);
plot3d( x-1+2*exp(-x), x=-5..5, y=-5..5, scaling=constrained, style=patch, orientation=[40,50], grid=[50,50], color=gray, axes=frame, lightmodel=`light4`, projection=`normal`, shading=zgrayscale );
quit:

5/25/2013 11:33:31 AM [->] op(2,dsolve(convert(smath_sys({(smath_diff(y(x),x)=(x-y(x)))},{(y(0)=1)},2,1),set),y(x)))
5/25/2013 11:33:31 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2DAC.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2DAD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys(((smath_diff(y(x),x)=(x-y(x)))),((y(0)=1\
)),2,1),set),y(x))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:33:31 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2DAD.tmp:
x-1+2*exp(-x)
5/25/2013 11:33:31 AM [<-] x-1+2*exp(-x)

5/25/2013 11:33:31 AM [->] x-1+2*exp(-x)
5/25/2013 11:33:31 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2E0C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2E0D.gif", plotoptions=`height=337,width=409`);
plot( x-1+2*exp(-x), x=-5..5, y=0..5, scaling=unconstrained, style=line);
quit:

5/25/2013 11:33:49 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp73E4.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp73E5.gif", plotoptions=`height=337,width=409`);
plot( x-1+2*exp(-x), x=-5..5, y=0..5, scaling=unconstrained, style=line);
quit:

5/25/2013 11:34:56 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:34:56 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7897.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7898.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:34:56 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7898.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:34:56 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:34:56 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:34:56 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7906.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7907.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:34:56 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7907.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:34:56 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:35:01 AM [->] op(2,dsolve({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},x(t)))
5/25/2013 11:35:01 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8C4A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8C4B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)),x(t))\
):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:35:01 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8C4B.tmp:
_C1*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)+_C2*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t\
    /m)
5/25/2013 11:35:01 AM [<-] _C1*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)+_C2*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:35:01 AM [->] solve(smath_sys({((_C1*exp(-({(1/10-{({(1/10)}^2-4*1*4)}^{(1/2)})}*0)/(2*1))+_C2*exp(-((1/10+{({(1/10)}^2-4*1*4)}^{(1/2)})*0)/(2*1)))=1)},{(subs({(t=0)},smath_diff(_C1*exp(-({(1/10-{({(1/10)}^2-4*1*4)}^{(1/2)})}*t)/(2*1))+_C2*exp(-((1/10+{({(1/10)}^2-4*1*4)}^{(1/2)})*t)/(2*1)),t))=0)},2,1),smath_sys(_C1,_C2,2,1))
5/25/2013 11:35:01 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8CA9.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8CAA.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
solve(smath_sys((((_C1*exp(-(((1/10-((((1/10))^2-4*1*4))^((1/2))))*0)/\
(2*1))+_C2*exp(-((1/10+((((1/10))^2-4*1*4))^((1/2)))*0)/(2*1)))=1)),((\
subs(((t=0)),smath_diff(_C1*exp(-(((1/10-((((1/10))^2-4*1*4))^((1/2)))\
)*t)/(2*1))+_C2*exp(-((1/10+((((1/10))^2-4*1*4))^((1/2)))*t)/(2*1)),t)\
)=0)),2,1),smath_sys(_C1,_C2,2,1)):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:35:01 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8CAA.tmp:
mat(-1/3198*I*(-1+I*1599^(1/2))*1599^(1/2), -1/3198*I*1599^(1/2)+1/2,2,1)
5/25/2013 11:35:01 AM [<-] mat(-1/3198*i*(-1+i*1599^(1/2))*1599^(1/2),-1/3198*i*1599^(1/2)+1/2,2,1)

5/25/2013 11:35:17 AM [->] op(2,dsolve(convert(smath_sys({(smath_diff(y(x),x)=(x-y(x)))},{(y(0)=1)},2,1),set),y(x)))
5/25/2013 11:35:17 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpCB31.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpCB32.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys(((smath_diff(y(x),x)=(x-y(x)))),((y(0)=1\
)),2,1),set),y(x))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:35:17 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpCB32.tmp:
x-1+2*exp(-x)
5/25/2013 11:35:17 AM [<-] x-1+2*exp(-x)

5/25/2013 11:35:40 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:35:40 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2351.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2352.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:35:40 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2352.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:35:40 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:35:40 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:35:40 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp23C0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp23C1.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:35:40 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp23C1.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:35:40 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:35:40 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:35:40 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2410.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2411.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:35:40 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2411.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:35:40 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:35:40 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:35:40 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2470.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2471.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:35:40 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2471.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:35:40 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:35:40 AM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 11:35:40 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp24C0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp24C1.gif", plotoptions=`height=230,width=210`);
plot3d( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), x=-5..5, y=-5..5, scaling=constrained, style=patch, orientation=[40,50], grid=[50,50], color=gray, axes=frame, lightmodel=`light4`, projection=`normal`, shading=zgrayscale );
quit:

5/25/2013 11:39:54 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:39:54 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp669.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp66A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:39:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp66A.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:39:55 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:39:55 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:39:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp6E9.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp6EA.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:39:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp6EA.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:39:55 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:39:55 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:39:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp766.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp767.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:39:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp767.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:39:55 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:39:55 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:39:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7B6.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7B7.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:39:55 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp7B7.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:39:55 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:39:55 AM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 11:39:55 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp806.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp807.gif", plotoptions=`height=230,width=210`);
plot( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), x=-5..5, y=-5..5 );
quit:

5/25/2013 11:39:59 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:39:59 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp18DA.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp18DB.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:39:59 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp18DB.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:39:59 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:39:59 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:39:59 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1959.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp195A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:39:59 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp195A.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:39:59 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:39:59 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:39:59 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp19A9.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp19AA.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:39:59 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp19AA.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:39:59 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:39:59 AM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 11:39:59 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp1A08.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1A09.gif", plotoptions=`height=230,width=210`);
plot( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), x=-5..5, y=-5..5 );
quit:

5/25/2013 11:40:03 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:03 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp27C0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp27C1.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:03 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp27C1.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:03 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:03 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:03 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2830.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2831.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:03 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2831.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:03 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:03 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:03 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp289F.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp28A0.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:03 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp28A0.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:03 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:03 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:03 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp28EF.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp28F0.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:03 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp28F0.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:03 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:03 AM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 11:40:03 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp294E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp294F.gif", plotoptions=`height=230,width=210`);
plot( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), x=-5..5, y=-5..5 );
quit:

5/25/2013 11:40:07 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:07 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp364B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp364C.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:07 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp364C.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:40:07 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:40:07 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:07 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp36AB.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp36AC.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:07 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp36AC.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:07 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:07 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:07 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp370A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp371B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:07 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp371B.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:07 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:07 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:07 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3789.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp378A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:07 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp378A.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:07 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:07 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:07 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp37E9.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp37EA.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:07 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp37EA.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:07 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:07 AM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 11:40:07 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3858.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3859.gif", plotoptions=`height=230,width=210`);
plot( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), x=-5..5, y=-5..5 );
quit:

5/25/2013 11:40:31 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:31 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9519.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp951A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:31 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp951A.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:31 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:39 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:39 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB529.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB52A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:39 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB52A.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:39 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:39 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:39 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB589.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB58A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:39 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB58A.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:39 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:43 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:43 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC331.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC332.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:43 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC332.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:43 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:45 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:45 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpCE1C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpCE1D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:46 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpCE1D.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:46 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:40:51 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:40:51 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmpE22A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpE22B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:40:51 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpE22B.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:40:51 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:41:31 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8138.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8139.gif", plotoptions=`height=230,width=210`);
plot3d( , x=0..20, y=-5..5, scaling=unconstrained);
quit:

5/25/2013 11:45:30 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:45:30 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp264F.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2650.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:45:30 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2650.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:45:30 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:45:30 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:45:30 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp26AF.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp26B0.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:45:30 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp26B0.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:45:30 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:45:30 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:45:30 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp26FF.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2700.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:45:30 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2700.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:45:30 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:45:30 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:45:30 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp275E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp275F.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:45:31 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp275F.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:45:31 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:45:31 AM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 11:45:31 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp27AE.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp27AF.gif", plotoptions=`height=230,width=210`);
plot3d( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), x=0..20, y=-5..5, scaling=unconstrained);
quit:

5/25/2013 11:45:32 AM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:45:32 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2CFD.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2CFE.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:45:32 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2CFE.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 11:45:32 AM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 11:45:32 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:45:32 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2D7C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2D7D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:45:32 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2D7D.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:45:32 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:45:32 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:45:32 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2DDC.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2DDD.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:45:32 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2DDD.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:45:32 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:45:32 AM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 11:45:32 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2E2C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2E2D.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 11:45:32 AM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp2E2D.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 11:45:32 AM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 11:45:32 AM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 11:45:32 AM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2E7C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2E7D.gif", plotoptions=`height=230,width=210`);
plot3d( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), x=0..20, y=-5..5, scaling=unconstrained);
quit:

5/25/2013 1:39:33 PM [->] op(2,dsolve(convert(smath_sys({(smath_diff(y(x),x)=(x-y(x)))},{(y(0)=1)},2,1),set),y(x)))
5/25/2013 1:39:33 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8F69.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8F6A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys(((smath_diff(y(x),x)=(x-y(x)))),((y(0)=1\
)),2,1),set),y(x))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:39:33 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8F6A.tmp:
x-1+2*exp(-x)
5/25/2013 1:39:33 PM [<-] x-1+2*exp(-x)

5/25/2013 1:39:44 PM [->] x-1+2*exp(-x)
5/25/2013 1:39:44 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB86E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB86F.gif", plotoptions=`height=230,width=210`);
plot3d( x-1+2*exp(-x), x=-5..5, y=-5..5, scaling=constrained, style=patch, orientation=[40,50], grid=[50,50], color=gray, axes=frame, lightmodel=`light4`, projection=`normal`, shading=zgrayscale );
quit:

5/25/2013 1:40:08 PM [->] op(2,dsolve(convert(smath_sys({(smath_diff(y(x),x)=(x-y(x)))},{(y(0)=1)},2,1),set),y(x)))
5/25/2013 1:40:08 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp178F.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp1790.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys(((smath_diff(y(x),x)=(x-y(x)))),((y(0)=1\
)),2,1),set),y(x))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:40:08 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp1790.tmp:
x-1+2*exp(-x)
5/25/2013 1:40:08 PM [<-] x-1+2*exp(-x)

5/25/2013 1:40:08 PM [->] x-1+2*exp(-x)
5/25/2013 1:40:08 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp17EF.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp17F0.gif", plotoptions=`height=230,width=210`);
plot( x-1+2*exp(-x), x=-5..5, y=-5..5, projection=`normal`, shading=zgrayscale );
quit:

5/25/2013 1:40:28 PM [->] op(2,dsolve(convert(smath_sys({(smath_diff(y(x),x)=(x-y(x)))},{(y(0)=1)},2,1),set),y(x)))
5/25/2013 1:40:28 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp6796.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp6797.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys(((smath_diff(y(x),x)=(x-y(x)))),((y(0)=1\
)),2,1),set),y(x))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:40:28 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp6797.tmp:
x-1+2*exp(-x)
5/25/2013 1:40:28 PM [<-] x-1+2*exp(-x)

5/25/2013 1:40:28 PM [->] x-1+2*exp(-x)
5/25/2013 1:40:28 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp6806.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp6807.gif", plotoptions=`height=230,width=210`);
plot( x-1+2*exp(-x), x=-5..5, y=-5..5);
quit:

5/25/2013 1:40:31 PM [->] x-1+2*exp(-x)
5/25/2013 1:40:31 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp734E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp734F.gif", plotoptions=`height=230,width=468`);
plot( x-1+2*exp(-x), x=-5..5, y=-5..5);
quit:

5/25/2013 1:40:33 PM [->] x-1+2*exp(-x)
5/25/2013 1:40:33 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7A23.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7A24.gif", plotoptions=`height=377,width=468`);
plot( x-1+2*exp(-x), x=-5..5, y=-5..5);
quit:

5/25/2013 1:40:41 PM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:40:41 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp97B3.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp97B4.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:40:41 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp97B4.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 1:40:41 PM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 1:40:41 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:40:41 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9822.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9823.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:40:41 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9823.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:40:41 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:40:41 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:40:41 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp9872.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp9873.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:40:41 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp9873.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:40:41 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:40:51 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:40:51 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBF84.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBF85.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:40:51 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpBF85.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:40:51 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:41:30 PM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:41:30 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp5852.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp5853.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:41:30 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp5853.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 1:41:30 PM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 1:41:30 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:41:30 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp58C2.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp58C3.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:41:30 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp58C3.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:41:30 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:41:30 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:41:30 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp5912.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp5913.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:41:30 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp5913.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:41:30 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:41:37 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:41:37 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp755A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp755B.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:41:38 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp755B.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:41:38 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:41:55 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:41:55 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBB12.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBB13.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:41:55 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpBB13.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:41:55 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:41:55 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:41:55 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBB82.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBB83.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:41:55 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpBB83.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:41:55 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:41:55 PM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 1:41:55 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpBBE1.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpBBE2.gif", plotoptions=`height=230,width=210`);
plot3d( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), x=-5..5, y=-5..5, scaling=constrained, style=patch, orientation=[40,50], grid=[50,50], color=gray, axes=frame, lightmodel=`light4`, projection=`normal`, shading=zgrayscale );
quit:

5/25/2013 1:42:48 PM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:42:48 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp87AA.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp87AB.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:42:48 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp87AB.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 1:42:48 PM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 1:42:48 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:42:48 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8829.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp882A.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:42:48 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp882A.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:42:48 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:42:48 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:42:48 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8888.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8889.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:42:48 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp8889.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:42:48 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:42:48 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:42:48 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp88D8.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp88D9.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:42:48 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmp88D9.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:42:48 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:42:48 PM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 1:42:48 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp8938.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp8939.gif", plotoptions=`height=230,width=210`);
a := plot( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), t=0..20, x=-1.5..1.5, scaling=unconstrained, style=line, 
color=blue, axes=box, labels=["t","x(t) "]):

b := coordplot(rectangular, [0..20, -1.5..1.5], linestyle=[7,7], 
color=[gray,gray]):

display([a,b]);
quit:

5/25/2013 1:45:09 PM [->] op(2,dsolve(convert(smath_sys({((m*diff(diff(x(t),t),t)+c*diff(x(t),t)+k*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:45:09 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB124.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB125.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((m*diff(diff(x(t),t),t)+c*diff(x(t),t)\
+k*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D)),3,\
1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:45:09 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB125.tmp:
1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t\
    /m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^\
    (1/2))*t/m)
5/25/2013 1:45:09 PM [<-] 1/2*(c+(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c-(c^2-4*m*k)^(1/2))*t/m)-1/2*(c-(c^2-4*m*k)^(1/2))/(c^2-4*m*k)^(1/2)*exp(-1/2*(c+(c^2-4*m*k)^(1/2))*t/m)

5/25/2013 1:45:09 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:45:09 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB193.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB194.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:45:09 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB194.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:45:10 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:45:10 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:45:10 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB1F3.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB1F4.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:45:10 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB1F4.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:45:10 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:45:10 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:45:10 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB243.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB244.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:45:10 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpB244.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:45:10 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:45:10 PM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 1:45:10 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpB2A3.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpB2A4.gif", plotoptions=`height=230,width=210`);
plot( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), t=0..20, x=-1.5..1.5);
quit:

5/25/2013 1:45:14 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:45:14 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC376.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC377.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:45:14 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC377.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:45:14 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:45:14 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:45:14 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC3D6.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC3D7.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:45:14 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpC3D7.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:45:14 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:45:14 PM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 1:45:14 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpC435.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpC436.gif", plotoptions=`height=230,width=564`);
plot( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), t=0..20, x=-1.5..1.5);
quit:

5/25/2013 1:45:16 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:45:16 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpCD1D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpCD1E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:45:17 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpCD1E.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:45:17 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:45:17 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:45:17 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpCD7D.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpCD7E.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:45:17 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpCD7E.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:45:17 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:45:17 PM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 1:45:17 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpCDDC.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpCDDD.gif", plotoptions=`height=361,width=564`);
plot( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), t=0..20, x=-1.5..1.5);
quit:

5/25/2013 1:46:25 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:46:25 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpD991.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpD992.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:46:25 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpD992.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:46:25 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:46:25 PM [->] op(2,dsolve(convert(smath_sys({((1*diff(diff(x(t),t),t)+1/10*diff(x(t),t)+4*x(t))=0)},{(x(0)=1)},subs({(t=0)},convert(smath_diff(x(t),t),D)),3,1),set),x(t)))
5/25/2013 1:46:25 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpDA01.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
writeto("C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpDA02.tmp"):
smath_line := proc() local i: for i from 1 to nargs - 2 do args[i]; od: end:
smath_int := proc() if nargs = 2 then int( args[1], args[2] ); elif nargs = 4 then int( args[1], args[2] = args[3] .. args[4] ); fi: end:
smath_diff := proc() if nargs = 2 then diff( args[1], args[2] ); elif nargs = 3 then diff( args[1], args[2] $ args[3] ); fi: end:
smath_sys := proc() { args[i] $ i = 1 .. nargs - 2 }; end:
smath_el := proc() args[1][ args[2] ]; end:
smath_mat := proc() 
local i, j, out: 
out := [ args[j] $ j = 1 .. args[ nargs ] ]: 
for i from 2 to args[ nargs - 1 ] do 
out := out, [ args[j] $ j = ( i - 1 ) * args[ nargs ] + 1 .. ( i - 1 ) * args[ nargs ] + args[ nargs ] ]: 
od: 
 convert( [ out ], array ); 
end:
smath_submatrix := proc() submatrix( args[1], args[2] .. args[3], args[4] .. args[5] ); end:
ans := \
op(2,dsolve(convert(smath_sys((((1*diff(diff(x(t),t),t)+1/10*diff(x(t)\
,t)+4*x(t))=0)),((x(0)=1)),subs(((t=0)),convert(smath_diff(x(t),t),D))\
,3,1),set),x(t))):
if ( whattype( ans ) = `exprseq` ) then 
    convert( convert( cat( `mat(`, substring( convert( [ans], string ), 2..-2 ), `,`, nops( [ans] ), `,1)` ), string ), symbol );
elif ( whattype( ans ) = `set` ) then 
    convert( convert( cat(`mat(`,substring(convert(map2(op,2,[ans[i]$i=1..nops(ans)]),string),2..-2),`,`,nops(ans),`,1)`), string ), symbol );
elif ( whattype( ans ) = `symbol` ) then 
    convert( convert( eval( ans ), string ), symbol ); 
elif ( whattype( ans ) = `series` ) then 
    convert( convert( ans, polynom) , symbol ); 
elif ( whattype( ans ) = `string` ) then 
    convert( ans, symbol ); 
else 
    convert( convert( ans, string ), symbol ); fi;
quit:

5/25/2013 1:46:25 PM [<-] C:\Users\omorjan\AppData\Local\Temp\tmpDA02.tmp:
exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*\
    1599^(1/2)*t)
5/25/2013 1:46:25 PM [<-] exp(-1/20*t)*cos(1/20*1599^(1/2)*t)+1/1599*1599^(1/2)*exp(-1/20*t)*sin(1/20*1599^(1/2)*t)

5/25/2013 1:46:25 PM [->] exp(-1/20*t)*cos(1/20*1599^{(1/2)}*t)+1/1599*1599^{(1/2)}*exp(-1/20*t)*sin(1/20*1599^{(1/2)}*t)
5/25/2013 1:46:25 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmpDA51.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmpDA52.gif", plotoptions=`height=262,width=583`);
plot( exp(-1/20*t)*cos(1/20*1599^((1/2))*t)+1/1599*1599^((1/2))*exp(-1/20*t)*sin(1/20*1599^((1/2))*t), t=0..20, x=-1.5..1.5);
quit:

5/25/2013 1:47:50 PM [->] (1+(x+y)*(x*{(x-y)}+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)
5/25/2013 1:47:50 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2556.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2557.gif", plotoptions=`height=230,width=210`);
plot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2), x=-5..5, y=-5..5, scaling=constrained, style=patch, orientation=[40,50], grid=[50,50], color=gray, axes=frame, lightmodel=`light4`, projection=`normal`, shading=zgrayscale );
quit:

5/25/2013 1:52:12 PM [->] (1+(x+y)*(x*{(x-y)}+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)
5/25/2013 1:52:12 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp248E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp248F.gif", plotoptions=`height=230,width=210`);
implicitplot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)=0, x=-2..2, y=-2..2, z=-2..2,  grid=[50,50,50], orientation=[20,60], axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid );
quit:

5/25/2013 1:53:23 PM [->] (1+(x+y)*(x*{(x-y)}+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)
5/25/2013 1:53:23 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp37F0.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp37F1.gif", plotoptions=`height=230,width=210`);
implicitplot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)=0, x=-2..2, y=-2..2, z=-2..2,  grid=[50,50,50], orientation=[20,60], axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid);
quit:

5/25/2013 1:53:23 PM [->] (1+(x+y)*(x*{(x-y)}+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)
5/25/2013 1:53:23 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3B8B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3B8C.gif", plotoptions=`height=230,width=210`);
implicitplot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)=0, x=-2..2, y=-2..2, z=-2..2,  grid=[50,50,50], orientation=[20,60], axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid);
quit:

5/25/2013 1:53:24 PM [->] (1+(x+y)*(x*{(x-y)}+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)
5/25/2013 1:53:24 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3E7A.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3E7B.gif", plotoptions=`height=230,width=210`);
implicitplot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)=0, x=-2..2, y=-2..2, z=-2..2,  grid=[50,50,50], orientation=[20,60], axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid);
quit:

5/25/2013 1:53:25 PM [->] (1+(x+y)*(x*{(x-y)}+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)
5/25/2013 1:53:25 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp40CD.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp40CE.gif", plotoptions=`height=230,width=210`);
implicitplot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)=0, x=-2..2, y=-2..2, z=-2..2,  grid=[50,50,50], orientation=[20,60], axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid);
quit:

5/25/2013 1:53:28 PM [->] (1+(x+y)*(x*{(x-y)}+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)
5/25/2013 1:53:28 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp4CA1.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp4CA2.gif", plotoptions=`height=230,width=210`);
implicitplot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)=0, x=-2..2, y=-2..2, z=-2..2,  grid=[50,50,50], orientation=[20,60], axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid);
quit:

5/25/2013 1:54:26 PM [->] (1+(x+y)*(x*{(x-y)}+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)
5/25/2013 1:54:26 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp2F53.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp2F54.gif", plotoptions=`height=230,width=210`);
implicitplot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)=0, x=-2..2, y=-2..2, z=-2..2,  grid=[50,50,50], orientation=[20,60], axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid);
quit:

5/25/2013 1:54:30 PM [->] (1+(x+y)*(x*{(x-y)}+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)
5/25/2013 1:54:30 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp3E15.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp3E16.gif", plotoptions=`height=230,width=210`);
implicitplot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)=0, x=-2..2, y=-2..2, z=-2..2,  grid=[50,50,50], orientation=[20,60], axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid);
quit:

5/25/2013 1:54:44 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp773F.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7740.gif", plotoptions=`height=230,width=210`);
implicitplot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)=0, x=-2..2, y=-2..2, z=-2..2,  grid=[50,50,50], orientation=[20,60], axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid);
quit:

5/25/2013 1:54:45 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp7A7C.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp7A7D.gif", plotoptions=`height=230,width=210`);
implicitplot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)=0, x=-2..2, y=-2..2, z=-2..2,  grid=[50,50,50], orientation=[20,60], axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid);
quit:

5/25/2013 1:54:48 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp871B.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp871C.gif", plotoptions=`height=230,width=210`);
implicitplot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)=0, x=-2..2, y=-2..2, z=-2..2,  grid=[50,50,50], orientation=[20,60], axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid);
quit:

5/25/2013 1:54:49 PM [->] C:\Users\omorjan\AppData\Local\Temp\tmp897E.tmp:
interface(quiet=true);
with(linalg):with(inttrans):
plotsetup(gif, plotoutput="C:\\Users\\omorjan\\AppData\\Local\\Temp\\tmp897F.gif", plotoptions=`height=230,width=210`);
implicitplot3d( (1+(x+y)*(x*((x-y))+y^2))-(1+x+y)*(z*(1+x+y+2*z)+(1+x+y+z)^2)=0, x=-2..2, y=-2..2, z=-2..2,  grid=[50,50,50], orientation=[20,60], axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid);
quit: