I think i asked before, but i am not sure. is there a way to get rid of redundant lines? I don't think there is but i figure i should throw it out there.
Thread[First[#]®Last[#]]&/@Partition[Range[6100],5,1,1];
NestList[Round[Last[#]/10]->First[#]*10&/@#&,%,4];
GraphPlot[Flatten[%]]
Refering to script above:
second question would be about how i would connect different parts of a tupple set(i.e. {1,2,3,4}) at different points instead of just first to last. such as First#->Last#->Third#.
i still haven't figured that part out.
thanks,
Jean Pierre