% Linear Algebra: Theory and Applications
% Ward Cheney & David Kincaid
% JBPub.com (c) 2008 
% File: exp832.map
% Example 8.3.2

with(LinearAlgebra):
B := Matrix([0.0,0.15,0.1],[0.15,0.0,0.05],[0.1,0.05,0.0]);
c := Vector(3.5, 2.5, 1.5);
x := Vector(0.0, 0.0, 0.0);
for k from 1 to 25 do
  x := B.x + c;
do

x1 := 0.0; x2 := 0.0; x3 := 0.0;
for k from 1 to 25 do
   y1 := 0.15.x2 + 0.1.x3 + 3.5;
   y2 := 0.15.x1 + 0.05.x3 + 2.5;
   y3 := 0.1.x1 - 0.05.x2 + 1.5;
   x1 := y1; x2 := y2; x3 := y3;
do