|
|
|
|
W:=Matrix([[1,1,1,1],[1,1,1,1],[1,1,1,1],[1,1,1,1]]);
|
|
|
|
|
P1 := Matrix(4, 4, {(1, 1) = [0, 0, 0], (1, 2) = [0, .33, .25], (1, 3) = [0, .66, 0], (1, 4) = [0, 1, -.25], (2, 1) = [.6, 0, .67], (2, 2) = [.6, .33, .67], (2, 3) = [.6, .66, .67], (2, 4) = [.6, 1, .67], (3, 1) = [.3, 0, .67], (3, 2) = [.3, .33, .67], (3, 3) = [.3, .66, .67], (3, 4) = [.3, 1, .67], (4, 1) = [1, 0, .31], (4, 2) = [1, .33, 0], (4, 3) = [1, .66, .31], (4, 4) = [1, 1, 0]});
|
|
|
|
|
P2 := Matrix(4, 4, {(1, 1) = [0, 0, 1], (1, 2) = [0, .33, 1.25], (1, 3) = [0, .66, 1], (1, 4) = [0, 1, .75], (2, 1) = [.6, 0, .33], (2, 2) = [.6, .33, .33], (2, 3) = [.6, .66, .33], (2, 4) = [.6, 1, .33], (3, 1) = [.3, 0, .33], (3, 2) = [.3, .33, .33], (3, 3) = [.3, .66, .33], (3, 4) = [.3, 1, .33], (4, 1) = [1, 0, 1.31], (4, 2) = [1, .33, 1], (4, 3) = [1, .66, 1.31], (4, 4) = [1, 1, 1]});
|
