Saturday, September 26, 2009

loveliness 273

FRIDAY:
Nothing much special about this day. Except Maple code that works. I like it when Maple behaves.
fourEdges2 := proc( ) local a, b, M, E, N, F, G, t, i,k, m, n,j;
t := [1,1]:
j := 0:
E := [seq([i,2], i=-2..2),seq([i,1], i=-2..2), [-2,0], [-1,0], [1,0], [2,0], seq([i,-1], i=-2..2),seq([i,-2], i=-2..2)];
#E := [[-1,2],[0,2],[1,2],[2,2],[0,1],[1,1],[2,1],[1,0],[2,0],[1,-1],[2,-1],[2,-2]]:
N:=nops(choose(E, 3)):
F:= choose(E, 3):
for i from 1 to N do
G := F[i]:
k := G[1]:
m:= G[2]:
n:= G[3]:
M := Matrix(<, , , >);
if Rank(M) <>
print(k,m,n,"has rank", Rank(M));
j := j+1;
fi; od;
print(j);
end proc:
fourEdges2();

[0, 2], [0, 1], [0, -1], "has rank", 3
[0, 2], [0, 1], [0, -2], "has rank", 3
[0, 2], [1, 2], [1, 0], "has rank", 3
[0, 2], [2, 2], [2, 0], "has rank", 3
[0, 2], [-1, 2], [-1, 0], "has rank", 3
[0, 2], [-2, 2], [-2, 0], "has rank", 3
[0, 2], [0, -1], [0, -2], "has rank", 3
[1, 1], [0, 1], [1, 0], "has rank", 3
[1, 1], [2, 2], [-1, -1], "has rank", 3
[1, 1], [2, 2], [-2, -2], "has rank", 3
[1, 1], [-2, 1], [-1, 0], "has rank", 3
[1, 1], [-1, -1], [-2, -2], "has rank", 3
[1, 1], [0, -1], [1, -2], "has rank", 3
[0, 1], [2, 1], [2, 0], "has rank", 3
[0, 1], [1, 2], [1, -1], "has rank", 3
[0, 1], [2, 2], [2, -1], "has rank", 3
[0, 1], [-1, 2], [-1, -1], "has rank", 3
[0, 1], [-2, 2], [-2, -1], "has rank", 3
[0, 1], [-2, 1], [-2, 0], "has rank", 3
[0, 1], [-1, 1], [-1, 0], "has rank", 3
[0, 1], [0, -1], [0, -2], "has rank", 3
[2, 1], [1, 0], [-1, 1], "has rank", 3
[2, 1], [2, -2], [0, -1], "has rank", 3
[1, 2], [-2, 2], [-1, 0], "has rank", 3
[2, 2], [1, 0], [-1, 2], "has rank", 3
[2, 2], [-1, -1], [-2, -2], "has rank", 3
[1, -1], [1, 0], [0, -1], "has rank", 3
[1, -1], [2, -2], [-2, 2], "has rank", 3
[1, -1], [2, -2], [-1, 1], "has rank", 3
[1, -1], [-2, 2], [-1, 1], "has rank", 3
[1, -1], [-2, -1], [-1, 0], "has rank", 3
[2, -1], [1, 0], [-1, -1], "has rank", 3
[2, -1], [2, 0], [0, -1], "has rank", 3
[1, 0], [2, 0], [-1, 0], "has rank", 3
[1, 0], [2, 0], [-2, 0], "has rank", 3
[1, 0], [2, -2], [-1, -2], "has rank", 3
[1, 0], [0, -2], [1, -2], "has rank", 3
[1, 0], [-1, 0], [-2, 0], "has rank", 3
[2, 0], [2, -2], [0, -2], "has rank", 3
[2, 0], [-1, 0], [-2, 0], "has rank", 3
[2, -2], [-2, 2], [-1, 1], "has rank", 3
[-2, 1], [0, -1], [-2, -2], "has rank", 3
[-1, 1], [0, -1], [-1, -2], "has rank", 3
[-2, -1], [0, -1], [-2, 0], "has rank", 3
[-1, -1], [0, -1], [-1, 0], "has rank", 3
[-2, -2], [0, -2], [-2, 0], "has rank", 3
[-2, -2], [1, -2], [-1, 0], "has rank", 3
[-1, -2], [0, -2], [-1, 0], "has rank", 3
48
Ta da!

No comments:

Post a Comment