path: root/62/CH7/EX7.43/ex_7_43.sce

clc;
A=[-2 1;1 -2];
syms t
//we know %e^(at)=b0*I+b1*A;
e=spec(A);//eigen values
b0=e(1)*%e^(e(2)*t)-e(2)*%e^(e(1)*t);
b1=%e^(e(1)*t)-%e^(e(2)*t);
eAt=b0*eye(A)+b1*A;
disp(eAt,"e^(At)")