Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
Obando`CAGenetics`
RuleGenes  |
|
| | ||||
|
| | ||||
|
| | ||||
Details and Options
Examples
(1)
Basic Examples
(1)
In[1]:=
Needs["Obando`CAGenetics`"]
In[2]:=
 | RuleGenes |
Out[2]=
{6,3}
In[3]:=
| RuleGenes |
Out[3]=
{10,7}
In[4]:=
| RuleGenes |
Out[4]=
{6,6}
In[5]:=
| RuleGenes |
Out[5]=
{6,5}
In[6]:=
| RuleGenes |
Out[6]=
{23,19,4}
▪
RuleGenes
In[7]:=
| RuleGenes |
Out[7]=
{{6,3},{10,7},{12,7},{6,5}}
▪
Find all the symmetric rules in the ECA and list the genes that make them.
In[8]:=
symmetricRules=Select[Range[0,255],SymmetryIndex[#,2,1]1&]symmetricGenes=Union[#]&/@Transpose
[symmetricRules,2,1]
 | RuleGenes |
Out[8]=
{0,1,4,5,18,19,22,23,32,33,36,37,50,51,54,55,72,73,76,77,90,91,94,95,104,105,108,109,122,123,126,127,128,129,132,133,146,147,150,151,160,161,164,165,178,179,182,183,200,201,204,205,218,219,222,223,232,233,236,237,250,251,254,255}
Out[8]=
{{0,1,6,7,8,9,14,15},{0,1,6,7,8,9,14,15}}
▪
Find all the fully asymmetric rules in the ECA and list the genes that make them.
In[9]:=
asymmetricRules=Select[Range[0,255],SymmetryIndex[#,2,1]0&]asymmetricGenes=Union[#]&/@Transpose
[asymmetricRules,2,1]
| RuleGenes |
Out[9]=
{10,11,14,15,24,25,28,29,42,43,46,47,56,57,60,61,66,67,70,71,80,81,84,85,98,99,102,103,112,113,116,117,138,139,142,143,152,153,156,157,170,171,174,175,184,185,188,189,194,195,198,199,208,209,212,213,226,227,230,231,240,241,244,245}
Out[9]=
{{2,3,4,5,10,11,12,13},{2,3,4,5,10,11,12,13}}
▪
Build the symmetric rules from the symmetric genes.
In[10]:=
Outer
[{#1,#2}]&,symmetricGenes1,symmetricGenes2//MatrixForm
 | FromGenes |
Out[10]//MatrixForm=
0 | 4 | 72 | 76 | 128 | 132 | 200 | 204 |
1 | 5 | 73 | 77 | 129 | 133 | 201 | 205 |
18 | 22 | 90 | 94 | 146 | 150 | 218 | 222 |
19 | 23 | 91 | 95 | 147 | 151 | 219 | 223 |
32 | 36 | 104 | 108 | 160 | 164 | 232 | 236 |
33 | 37 | 105 | 109 | 161 | 165 | 233 | 237 |
50 | 54 | 122 | 126 | 178 | 182 | 250 | 254 |
51 | 55 | 123 | 127 | 179 | 183 | 251 | 255 |
▪
Build the asymmetric rules from the asymmetric genes.
In[11]:=
Outer
[{#1,#2}]&,asymmetricGenes1,asymmetricGenes2//MatrixForm
| FromGenes |
Out[11]//MatrixForm=
10 | 14 | 66 | 70 | 138 | 142 | 194 | 198 |
11 | 15 | 67 | 71 | 139 | 143 | 195 | 199 |
24 | 28 | 80 | 84 | 152 | 156 | 208 | 212 |
25 | 29 | 81 | 85 | 153 | 157 | 209 | 213 |
42 | 46 | 98 | 102 | 170 | 174 | 226 | 230 |
43 | 47 | 99 | 103 | 171 | 175 | 227 | 231 |
56 | 60 | 112 | 116 | 184 | 188 | 240 | 244 |
57 | 61 | 113 | 117 | 185 | 189 | 241 | 245 |
▪
Get the gene equation for the symmetric genes.
In[12]:=
PrintableEquation[GeneEquation[#,2,1]]&/@symmetricGenes〚1〛//MatrixForm
Out[12]//MatrixForm=
0 |
a -1 a 1 |
a 1 a -1 a -1 a 1 |
a -1 a 1 |
a -1 a 1 |
a -1 a 1 a -1 a 1 |
a -1 a 1 |
1 |
▪
Get the gene equation for the asymmetric genes.
In[13]:=
PrintableEquation[GeneEquation[#,2,1]]&/@asymmetricGenes〚1〛//MatrixForm
Out[13]//MatrixForm=
a -1 a 1 |
a -1 |
a 1 a -1 |
a 1 |
a 1 |
a -1 a 1 |
a -1 |
a 1 a -1 |
|
""