6 changed files with 16 additions and 7 deletions
			
			
		@ -0,0 +1,3 @@ | 
				
			|||||
 | 
					W:= Matrix([[1,1,1,1],[1,1,1,1],[1,1,1,1],[1,1,1,1],[1,1,1,1]]); | 
				
			||||
 | 
					P1 := Matrix(4, 4, {(1, 1) = [-2.5, -1.5, 0.0], (1, 2) = [-2.5, -0.5, 0.0], (1, 3) = [-2.5, 0.5, 0.0], (1, 4) = [-2.5, 1.5, 0.0],(2, 1) = [-1.5, -1.5, 0.0], (2, 2) = [-1.5, -0.5, 1.0], (2, 3) = [-1.5, 0.5, 1.0], (2, 4) = [-1.5, 1.5, 0.0],(3, 1) = [1.5, -1.5, 0.0], (3, 2) = [1.5, -0.5, 1.0], (3, 3) = [1.5, 0.5, 1.0], (3, 4) = [1.5, 1.5, 0.0], (4, 1) = [2.5, -1.5, 0.0], (4, 2) = [2.5, -0.5, 0.0], (4, 3) = [2.5, 0.5, 0.0], (4, 4) = [2.5, 1.5, 0.0]}); | 
				
			||||
 | 
					P2 := Matrix(4, 4, {(1, 1) = [-1.5, -1.5, 0.0], (1, 2) = [-1.5, -0.5, 0.0], (1, 3) = [-1.5, 0.5, 0.0], (1, 4) = [-1.5, 1.5, 0.0],(2, 1) = [-0.5, -1.5, 0.0], (2, 2) = [-0.5, -0.5, 1.0], (2, 3) = [-0.5, 0.5, 1.0], (2, 4) = [-0.5, 1.5, 0.0],(3, 1) = [0.5, -1.5, 0.0], (3, 2) = [0.5, -0.5, 1.0], (3, 3) = [0.5, 0.5, 1.0], (3, 4) = [0.5, 1.5, 0.0], (4, 1) = [1.5, -1.5, 0.0], (4, 2) = [1.5, -0.5, 0.0], (4, 3) = [1.5, 0.5, 0.0], (4, 4) = [1.5, 1.5, 0.0]}); | 
				
			||||
					Loading…
					
					
				
		Reference in new issue