User:Nukeh

From Wikipedia, the free encyclopedia

John Mark Deutch
Nukeh

Image:Durer_Adam_and_Eve.jpg

Mathematical_elegance T-symmetry Amish Policy Nude Wave Power Energy_crisis John Calvin

Thomas_Jukes Paul_Davies John_Deutch Joshua_Jortner Kairos Scientific Versus Fish & Richardson

Image:Pascal1423.jpg

Image:Genetic_Code_Structure_FWY.JPG

Image:Genetic_Code_Structure.jpg

Image:Lancaster_County_Amish_03.jpg


Image:Pseudocolor_tuple.jpg




(* complete dictionary of words, one per row, number of rows is (alpha^word), using words of length "word" and an alphabet of "alpha" number of characters *)

alpha=4;word=3;dict=.;

dict=Partition[Flatten[Tuples[Reverse[IdentityMatrix[alpha]],word]],(alpha*word)]

PseudoInverse[dict]==((Transpose[dict])*((alpha)^-(word -1)))-((word - 1)/(alpha^word)/word)

True


(* There is nothing special for alpha=4;word=3 - The method works for all cases where word < alpha, but that is a more verbose loop, and the Mathematica PseudoInverse function takes too long to calculate for values of alpha and word that are large, whereas the transpose side of the equation is fast. The genetic code is structured as alpha=4;word=3 *)





Image:Deep_water_wave.gif