LoadPackage("HAP");
R:=ReadCSV("galwaytides.csv");;
R:=List(R,r->EvalString(r.("-0.733")));;

T1:=100+[1..10*24*14];; #two weeks of 6-minute intervals
T2:=200*10*24*14+[1..10*24*14];; #another two weeks of 6-minute intervals
T:=Concatenation(T1,T2);;

S:=[];;
while Length(S)<250 do
t:=Random(T);
Add(S, [R[t],R[t-20],R[t-40]]);
od;
S:=SortedList(S);;

D:=VectorsToSymmetricMatrix(S,EuclideanApproximatedMetric);;

for m in [0..14] do
G:=SymmetricMatrixToGraph(D,m/7);;Display(G);
od;





