function graphv6k(k,v)
L01=v(1);
L02=v(2);
L03=v(3);
L12=v(4);
L13=v(5);
L23=v(6);
fprintf('subgraph G%02d {\n',k);
for j=1:3
 fprintf(' %02d0 -- %02d%1d [color=',k,k,j);
 if v(j) < 0
  fprintf('red,style=dotted,');
 else
  fprintf('blue,');
 end
 fprintf('len=1];\n');
end
for j=2:3
 fprintf(' %02d1 -- %02d%1d [color=',k,k,j);
 if v(2+j) < 0
  fprintf('red,style=dotted,');
 else
  fprintf('blue,');
 end
 fprintf('len=1];\n');
end
fprintf(' %02d2 -- %02d3 [color=',k,k);
if v(6) < 0
 fprintf('red,style=dotted,');
else
 fprintf('blue,');
end
fprintf('len=1];\n');
fprintf('}\n');
