New in Wolfram Mathematica 7: Sequence Alignment & Analysis ◄ previous | next ►
Use Sequence Alignment Results in Arbitrary Computations
Show a string alignment with alignment points as nodes in a graph.
In[1]:=

Click for copyable input
GraphPlot[

 Table[{#1[[i]] -> #1[[1 + i]], i}, {i, 1, Length[#1] - 1}] &[

  SequenceAlignment[

   "GAGCGCTTTCGCGTCTACGTGCGAGATGTTGCCCGAATAAGACGTGTACCCGATAATTCTCAGTCT\

AGCTTCGGGATGCT", 

   "TCTCGATGCCTTTTTGTGGCGGGTCCCACAACCCCAACCTCCTTTAAACAAACAGTGTATGTCAGC\

TCAGAGTGAGTGTA"]]]
Out[1]=