Directory[]
L:\NewScience\Programs
SetDirectory["I:"]
I:\Science\Programs\Universe-96
ReadList["rulelist.m"]
allrules=%;
Length[allrules]
1
allrules=First[allrules];
Length[allrules]
140
Last[allrules]
{x0_x20_,x21_,x6_,x1_x22_,x23_,x7_,x2_x26_,x27_,x9_,x3_x28_,x29_,x9_,x4_x24_,x25_,x8_,x5_x6_,x7_,x8_,x6_x0_,x5_,x7_,x7_x1_,x5_,x6_,x8_x4_,x5_,x9_,x9_x2_,x3_,x8_x0x20,x21,x6,x1x22,x23,x7,x2x26,x27,x8,x3x28,x29,x8,x4x24,x25,x9,x5x6,x7,x8,x6x0,x5,x9,x7x1,x5,x9,x8x2,x3,x5,x9x4,x6,x7,x0_x20_,x21_,x6_,x1_x22_,x23_,x7_,x2_x28_,x29_,x9_,x3_x24_,x25_,x8_,x4_x26_,x27_,x8_,x5_x6_,x7_,x8_,x6_x0_,x5_,x9_,x7_x1_,x5_,x9_,x8_x3_,x4_,x5_,x9_x2_,x6_,x7_x0x20,x21,x6,x1x22,x23,x7,x2x28,x29,x8,x3x24,x25,x9,x4x26,x27,x9,x5x6,x7,x8,x6x0,x5,x7,x7x1,x5,x6,x8x2,x5,x9,x9x3,x4,x8,x0_x20_,x21_,x5_,x1_x28_,x29_,x9_,x2_x26_,x27_,x8_,x3_x22_,x23_,x6_,x4_x24_,x25_,x7_,x5_x0_,x6_,x7_,x6_x3_,x5_,x8_,x7_x4_,x5_,x9_,x8_x2_,x6_,x9_,x9_x1_,x7_,x8_x0x20,x21,x5,x1x28,x29,x6,x2x26,x27,x7,x3x22,x23,x8,x4x24,x25,x9,x5x0,x6,x7,x6x1,x5,x8,x7x2,x5,x9,x8x3,x6,x9,x9x4,x7,x8}
Length[%]
3
UStep[%84,tetra]
12,3,4,21,3,4,31,2,4,41,2,3
UStep[%84,asym]
$Aborted
First[allrules]
{x0_x10_,x11_,x3_,x1_x12_,x13_,x3_,x2_x14_,x15_,x3_,x3_x0_,x1_,x2_x0x10,x11,x3,x1x12,x13,x4,x2x14,x15,x5,x3x0,x4,x5,x4x1,x3,x5,x5x2,x3,x4}
UStep[%,asym]
12,7,8,21,x4,x5,34,11,x4,43,5,12,54,6,12,65,7,9,71,6,8,81,7,9,96,8,10,109,11,12,113,10,x5,124,5,10,x42,3,x5,x52,11,x4
Length[%]
14
allrules[[40]]
{x0_x20_,x21_,x6_,x1_x22_,x23_,x7_,x2_x28_,x29_,x9_,x3_x30_,x31_,x9_,x4_x24_,x25_,x8_,x5_x26_,x27_,x8_,x6_x0_,x7_,x8_,x7_x1_,x6_,x9_,x8_x4_,x5_,x6_,x9_x2_,x3_,x7_x0x20,x21,x6,x1x22,x23,x7,x2x28,x29,x8,x3x30,x31,x8,x4x24,x25,x9,x5x26,x27,x9,x6x0,x7,x8,x7x1,x6,x9,x8x2,x3,x6,x9x4,x5,x7,x0_x24_,x25_,x8_,x1_x26_,x27_,x8_,x2_x20_,x21_,x6_,x3_x22_,x23_,x7_,x4_x28_,x29_,x9_,x5_x6_,x7_,x8_,x6_x2_,x5_,x9_,x7_x3_,x5_,x9_,x8_x0_,x1_,x5_,x9_x4_,x6_,x7_x0x24,x25,x6,x1x26,x27,x7,x2x20,x21,x8,x3x22,x23,x8,x4x28,x29,x9,x5x6,x7,x8,x6x0,x5,x9,x7x1,x5,x9,x8x2,x3,x5,x9x4,x6,x7}
UStep[%,tetra]
12,3,4,21,3,4,31,2,4,41,2,3
UStep[allrules[[40]],asym]
$Aborted
asym/.allrules[[40,1]]
$Aborted
RewriteRules[%92]
{α_δ_,ϵ_,σ_,β_ζ_,η_,τ_,γ_μ_,ν_,ϕ_,ξ_π_,ο_,ϕ_,ρ_θ_,ι_,υ_,σ_α_,τ_,υ_,ς_κ_,λ_,υ_,τ_β_,σ_,ϕ_,υ_ρ_,σ_,ς_,ϕ_γ_,ξ_,τ_αδ,ϵ,σ,βζ,η,τ,γμ,ν,υ,ξπ,ο,υ,ρθ,ι,ϕ,σα,τ,υ,ςκ,λ,ϕ,τβ,σ,ϕ,υγ,ξ,σ,ϕρ,ς,τ,α_θ_,ι_,υ_,β_κ_,λ_,υ_,γ_δ_,ϵ_,σ_,ξ_ζ_,η_,τ_,ρ_μ_,ν_,ϕ_,σ_γ_,ς_,ϕ_,ς_σ_,τ_,υ_,τ_ξ_,ς_,ϕ_,υ_α_,β_,ς_,ϕ_ρ_,σ_,τ_αθ,ι,σ,βκ,λ,τ,γδ,ϵ,υ,ξζ,η,υ,ρμ,ν,ϕ,σα,ς,ϕ,ςσ,τ,υ,τβ,ς,ϕ,υγ,ξ,ς,ϕρ,σ,τ}
allrules[[3]]
{x0_x10_,x11_,x3_,x1_x12_,x13_,x4_,x2_x14_,x15_,x5_,x3_x0_,x4_,x5_,x4_x1_,x3_,x5_,x5_x2_,x3_,x4_x0x10,x11,x3,x1x12,x13,x3,x2x14,x15,x3,x3x0,x1,x2}
UStep[%100,asym]//Timing
{158.74Second,12,7,8,21,4,10,42,5,12,54,6,12,65,7,9,71,6,8,81,7,9,96,8,10,102,9,12,124,5,10}
Show[GraphicsColumn[NeighborsPicture/@{asym,Last[%103]}]];
asym
12,7,8,21,3,11,32,4,11,43,5,12,54,6,12,65,7,9,71,6,8,81,7,9,96,8,10,109,11,12,112,3,10,124,5,10
UStep[allrules[[1]],asym]
12,7,8,21,x4,x5,34,11,x4,43,5,12,54,6,12,65,7,9,71,6,8,81,7,9,96,8,10,109,11,12,113,10,x5,124,5,10,x42,3,x5,x52,11,x4