You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
3 lines
967 B
3 lines
967 B
W:=Matrix([[1,1,1,1],[1,1,1,1],[1,1,1,1],[1,1,1,1]]);
|
|
P1 := Matrix(4, 4, {(1, 1)=[-1.5, -1.5, 0], (1, 2)=[-1.5, -0.5, 0], (1, 3)=[-1.5, 0.5, 0], (1, 4)=[-1.5, 1.5, 0], (2, 1)=[-0.5, -1.5, 0], (2, 2)=[-0.5, -0.5, 1.33139], (2, 3)=[-0.5, 0.5, 1.33139], (2, 4)=[-0.5, 1.5, 0], (3, 1)=[0.5, -1.5, 0], (3, 2)=[0.5, -0.5, 1.33139], (3, 3)=[0.5, 0.5, 1.33139], (3, 4)=[0.5, 1.5, 0], (4, 1)=[1.5, -1.5, 0], (4, 2)=[1.5, -0.5, 0], (4, 3)=[1.5, 0.5, 0], (4, 4)=[1.5, 1.5, 0]});
|
|
P2 := Matrix(4, 4, {(1, 1)=[-1.5, -1.5, 1.69225], (1, 2)=[-1.5, -0.5, 1.69225], (1, 3)=[-1.5, 0.5, 1.69225], (1, 4)=[-1.5, 1.5, 1.69225], (2, 1)=[-0.5, -1.5, 1.69225], (2, 2)=[-0.5, -0.5, 0.01519555], (2, 3)=[-0.5, 0.5, 0.01519555], (2, 4)=[-0.5, 1.5, 1.69225], (3, 1)=[0.5, -1.5, 1.69225], (3, 2)=[0.5, -0.5, 0.01519555], (3, 3)=[0.5, 0.5, 0.01519555], (3, 4)=[0.5, 1.5, 1.69225], (4, 1)=[1.5, -1.5, 1.69225], (4, 2)=[1.5, -0.5, 1.69225], (4, 3)=[1.5, 0.5, 1.69225], (4, 4)=[1.5, 1.5, 1.69225]});
|