When genetics bring more !
category: residue [glöplog]
DNA can be modelised with collisions of balls !
First page of genetic talk :
http://www.pouet.net/topic.php?which=8296&page=1&x=29&y=11
http://www.pouet.net/topic.php?which=8296&page=1&x=29&y=11
CAABAAB
ABCAAAAAAABAAAAAAB
| AABACB
| ABBBAABDAAAAAB
| ||| CABAB
| || DAAAAAAAAB
| ||CAAAABAAAAB
| || BBAAA
| || |BBA
| || | A
| || |BA
| || A
| || CAAABAAB
| || BBA
| || A
| | DAAAAAAAAAAAAAAAB
| |CAAAAAAABAAAAAAAB
| | ACABB
| | ACAAAAAAABAAAAAAAB
| | BA
| A
| ACAAAAAABAAAAAAB
| CAAABAAB
| CAAABAAB
| BBCAAAABAAAAB
| | A
| |CAAAAAAABAAAAAAB
| A
| BCABAB
| A
| CBB
A
BABBCABB
| || BACABAB
| || | BBCABB
| || | | DAAAAB
| || | |ABDB
| || | DAAAB
| || | CAAAABAAAAB
| || | BDAAAAAAAAB
| || | BAA
| || | BA
| || A
| || ABABBCAAAAAAABAAAAAAB
| || | || BA
| || | | A
| || | |BDAAAAAAAAAAAAAB
| || | AA
| || AADAAAAAAAAAAAAAAAB
| || ACAAABAAB
| || ABCAAABAAB
| || A
| || CAAAAAAABAAAAAAB
| | A
| |AABCAABAAB
| | | ABACAAAABAAAB
| | | DAAAAAAAAAAAAAAB
| | | BDAAAAAAAAAAAAB
| | | ACAAAAAAABAAAAAAB
| | A
| | CAAABAAAB
| | AACBB
| | CAAAAABAAAAB
| | CBB
| A
| CAAAAABAAAAB
| ABABACAAAAAABAAAAAB
| | ADAAAAAAAAAAB
| | CBB
| | BAAAA
| | BCAAAAABAAAAB
| | AA
| DB
| BCAAAAAAABAAAAAAB
| | AACAABAB
| | BCAABAB
| | A
| DAAAAAAAAAAAAAB
| CABAB
| CAAAABAAAB
| BABAA
| | BA
| A
| BACBB
| A
| ACBB
A
CAAABAAB
BCAAAAAAABAAAAAAB
| BAABBCAAAAABAAAAB
| | || CABAB
| | || ABA
| | | A
| | |CAAAAABAAAAB
| | | BCAAAAAABAAAAAAB
| | | | BA
| | | A
| | | ACABB
| | A
| | BAAACB
| | ACAAAABAAAB
| | CABB
| DAAAAAAAB
| BCAAABAAB
| | ACABB
| | ACAAAAAABAAAAAB
| DAAAAAAAAB
| ACAABAAB
| BBBADAAAAAB
| ||BBA
| || A
| ||CAAAABAAAB
| | A
| |CAAAAABAAAAAB
| AAA
| BCB
| ABCABAB
| A
AA
BCAAAAAAABAAAAAAAB
| ABCB
| BBCBB
| || CAAAAABAAAAAB
| || ABA
| | A
| |CAAAAAAABAAAAAAAB
| | BDAAAAAAAB
| | BCAABAAB
| | A
| | BA
| A
AAAADAAAAAAAAAAAAAAAB
ACBB
BBABCBB
|| | CAAAAABAAAAB
|| AA
| CB
|ABBBDAAAAAAAAAAAAB
| | AA
| |BCBB
| | A
| |CAAAABAAAAB
| A
| BACAAAAAABAAAAAAB
| A
| CAABAAB
DAAAAAAAAAAAAB
CBB
ABABAA
| CABB
A
BDAAAAAAAAAB
DAAAAAAAAAAB
ABCAAAAAAABAAAAAAB
| AABACB
| ABBBAABDAAAAAB
| ||| CABAB
| || DAAAAAAAAB
| ||CAAAABAAAAB
| || BBAAA
| || |BBA
| || | A
| || |BA
| || A
| || CAAABAAB
| || BBA
| || A
| | DAAAAAAAAAAAAAAAB
| |CAAAAAAABAAAAAAAB
| | ACABB
| | ACAAAAAAABAAAAAAAB
| | BA
| A
| ACAAAAAABAAAAAAB
| CAAABAAB
| CAAABAAB
| BBCAAAABAAAAB
| | A
| |CAAAAAAABAAAAAAB
| A
| BCABAB
| A
| CBB
A
BABBCABB
| || BACABAB
| || | BBCABB
| || | | DAAAAB
| || | |ABDB
| || | DAAAB
| || | CAAAABAAAAB
| || | BDAAAAAAAAB
| || | BAA
| || | BA
| || A
| || ABABBCAAAAAAABAAAAAAB
| || | || BA
| || | | A
| || | |BDAAAAAAAAAAAAAB
| || | AA
| || AADAAAAAAAAAAAAAAAB
| || ACAAABAAB
| || ABCAAABAAB
| || A
| || CAAAAAAABAAAAAAB
| | A
| |AABCAABAAB
| | | ABACAAAABAAAB
| | | DAAAAAAAAAAAAAAB
| | | BDAAAAAAAAAAAAB
| | | ACAAAAAAABAAAAAAB
| | A
| | CAAABAAAB
| | AACBB
| | CAAAAABAAAAB
| | CBB
| A
| CAAAAABAAAAB
| ABABACAAAAAABAAAAAB
| | ADAAAAAAAAAAB
| | CBB
| | BAAAA
| | BCAAAAABAAAAB
| | AA
| DB
| BCAAAAAAABAAAAAAB
| | AACAABAB
| | BCAABAB
| | A
| DAAAAAAAAAAAAAB
| CABAB
| CAAAABAAAB
| BABAA
| | BA
| A
| BACBB
| A
| ACBB
A
CAAABAAB
BCAAAAAAABAAAAAAB
| BAABBCAAAAABAAAAB
| | || CABAB
| | || ABA
| | | A
| | |CAAAAABAAAAB
| | | BCAAAAAABAAAAAAB
| | | | BA
| | | A
| | | ACABB
| | A
| | BAAACB
| | ACAAAABAAAB
| | CABB
| DAAAAAAAB
| BCAAABAAB
| | ACABB
| | ACAAAAAABAAAAAB
| DAAAAAAAAB
| ACAABAAB
| BBBADAAAAAB
| ||BBA
| || A
| ||CAAAABAAAB
| | A
| |CAAAAABAAAAAB
| AAA
| BCB
| ABCABAB
| A
AA
BCAAAAAAABAAAAAAAB
| ABCB
| BBCBB
| || CAAAAABAAAAAB
| || ABA
| | A
| |CAAAAAAABAAAAAAAB
| | BDAAAAAAAB
| | BCAABAAB
| | A
| | BA
| A
AAAADAAAAAAAAAAAAAAAB
ACBB
BBABCBB
|| | CAAAAABAAAAB
|| AA
| CB
|ABBBDAAAAAAAAAAAAB
| | AA
| |BCBB
| | A
| |CAAAABAAAAB
| A
| BACAAAAAABAAAAAAB
| A
| CAABAAB
DAAAAAAAAAAAAB
CBB
ABABAA
| CABB
A
BDAAAAAAAAAB
DAAAAAAAAAAB
CAABAAB ABCAAAAAAABAAAAAAB | AABACB | ABBBAABDAAAAAB | ||| CABAB | || DAAAAAAAAB | ||CAAAABAAAAB | || BBAAA | || |BBA | || | A | || |BA | || A | || CAAABAAB | || BBA | || A | | DAAAAAAAAAAAAAAAB | |CAAAAAAABAAAAAAAB | | ACABB | | ACAAAAAAABAAAAAAAB | | BA | A | ACAAAAAABAAAAAAB | CAAABAAB | CAAABAAB | BBCAAAABAAAAB | | A | |CAAAAAAABAAAAAAB | A | BCABAB | A | CBB A BABBCABB | || BACABAB | || | BBCABB | || | | DAAAAB | || | |ABDB | || | DAAAB | || | CAAAABAAAAB | || | BDAAAAAAAAB | || | BAA | || | BA | || A | || ABABBCAAAAAAABAAAAAAB | || | || BA | || | | A | || | |BDAAAAAAAAAAAAAB | || | AA | || AADAAAAAAAAAAAAAAAB | || ACAAABAAB | || ABCAAABAAB | || A | || CAAAAAAABAAAAAAB | | A | |AABCAABAAB | | | ABACAAAABAAAB | | | DAAAAAAAAAAAAAAB | | | BDAAAAAAAAAAAAB | | | ACAAAAAAABAAAAAAB | | A | | CAAABAAAB | | AACBB | | CAAAAABAAAAB | | CBB | A | CAAAAABAAAAB | ABABACAAAAAABAAAAAB | | ADAAAAAAAAAAB | | CBB | | BAAAA | | BCAAAAABAAAAB | | AA | DB | BCAAAAAAABAAAAAAB | | AACAABAB | | BCAABAB | | A | DAAAAAAAAAAAAAB | CABAB | CAAAABAAAB | BABAA | | BA | A | BACBB | A | ACBB A CAAABAAB BCAAAAAAABAAAAAAB | BAABBCAAAAABAAAAB | | || CABAB | | || ABA | | | A | | |CAAAAABAAAAB | | | BCAAAAAABAAAAAAB | | | | BA | | | A | | | ACABB | | A | | BAAACB | | ACAAAABAAAB | | CABB | DAAAAAAAB | BCAAABAAB | | ACABB | | ACAAAAAABAAAAAB | DAAAAAAAAB | ACAABAAB | BBBADAAAAAB | ||BBA | || A | ||CAAAABAAAB | | A | |CAAAAABAAAAAB | AAA | BCB | ABCABAB | A AA BCAAAAAAABAAAAAAAB | ABCB | BBCBB | || CAAAAABAAAAAB | || ABA | | A | |CAAAAAAABAAAAAAAB | | BDAAAAAAAB | | BCAABAAB | | A | | BA | A AAAADAAAAAAAAAAAAAAAB ACBB BBABCBB || | CAAAAABAAAAB || AA | CB |ABBBDAAAAAAAAAAAAB | | AA | |BCBB | | A | |CAAAABAAAAB | A | BACAAAAAABAAAAAAB | A | CAABAAB DAAAAAAAAAAAAB CBB ABABAA | CABB A BDAAAAAAAAAB DAAAAAAAAAAB
here, i have a sequence for you:
B-A-N
B-A-N
my topic is essential for demoscene. it's just examples. I've finnished. Why the fuck ?
in your example you say:
CAAAAABAAAAB
is this mispelled? I get an error. I wrote a small program in perl to do error correction on your sequences and it should be CAAA*B*ABAAAAB. This works much better!
CAAAAABAAAAB
is this mispelled? I get an error. I wrote a small program in perl to do error correction on your sequences and it should be CAAA*B*ABAAAAB. This works much better!
Here is my Perl code in case you need it:
undef $/;open(_,$0);
/ \dx([\dA-F]*)/while(<_>);@&=split(//,$1);@/=@&;
$".=chr(hex(join("",splice(@&,0,2))))
while(@&); eval$”;
($C,$_,@\)=(($a=$/[1]*4)*5+1, q| |x(0x20).q|\||.chr(32)x(0x10).q$*$.
chr(0x20)x(0x10).(pack("CC",124,10)),
sub{s/.\|(\s*?)(\S)./\|$1 $2/},
sub{s/\|(\s*?).(\S)/ \|$1$2 /},
sub{$2.$1.$3},sub{$tt=(3*$tt+7)%$C},
sub{$1.$3.$2});
while ($_) {
select $/, undef, $/, $C/1E3;
(sysread(STDIN, $k, 1),s/(.)(\*)(.)/(&{$\[(ord($k)-44&2)+2]})/e)
if (select($a=chr(1),$/,$/,0));
print 0xABCD
;
($p?(/.{70}\|$/):(/^\|/))||(&{$\[3]}<$/[0])?($p=!$p):&{$\[$p]}||die("$d");
(&{$\[3]}<$/[1])&&(s/ \|$/\|/);
(/\|.*\*.*\|$/)||die("$d");
}
you just enter the sequence and it will do error correction for you in a jiffy!
undef $/;open(_,$0);
/ \dx([\dA-F]*)/while(<_>);@&=split(//,$1);@/=@&;
$".=chr(hex(join("",splice(@&,0,2))))
while(@&); eval$”;
($C,$_,@\)=(($a=$/[1]*4)*5+1, q| |x(0x20).q|\||.chr(32)x(0x10).q$*$.
chr(0x20)x(0x10).(pack("CC",124,10)),
sub{s/.\|(\s*?)(\S)./\|$1 $2/},
sub{s/\|(\s*?).(\S)/ \|$1$2 /},
sub{$2.$1.$3},sub{$tt=(3*$tt+7)%$C},
sub{$1.$3.$2});
while ($_) {
select $/, undef, $/, $C/1E3;
(sysread(STDIN, $k, 1),s/(.)(\*)(.)/(&{$\[(ord($k)-44&2)+2]})/e)
if (select($a=chr(1),$/,$/,0));
print 0xABCD
;
($p?(/.{70}\|$/):(/^\|/))||(&{$\[3]}<$/[0])?($p=!$p):&{$\[$p]}||die("$d");
(&{$\[3]}<$/[1])&&(s/ \|$/\|/);
(/\|.*\*.*\|$/)||die("$d");
}
you just enter the sequence and it will do error correction for you in a jiffy!
Whether Perl or nucleid sequences is the least readable is yet to be determined.
well, did you read my document about "orbes" and dna ?
I have a view about dna sequencies, and it's demoish.
I have a view about dna sequencies, and it's demoish.
well that's what I'm doing now. Read the perl script it is good decision making through genetic algorithms; I'm porting this to opengl visualization, it's gonna rock!!!
and don't you forget that
Why are you setting your base pair as sub-hex and not octal?
Hex is the language of computers. By the way I have a new version:
undef $/;open(_,$0);/ \dx([\dA-F]*)/while(<_>);@&=split(//,$1);@/=@&;
$".=chr(hex(join("",splice(@&,0,2))))while(@&); eval$";
;
open$^D^$D;
seek(0,-51,2);$a=<0>;@a=map unpack(c,$_),split'',substr$a,
$a,index$a,N;for($a--,7..9)
{splice(@a,$a+=11,0,"#")}$_=join'',@a;
=sub cut {($u,$c,$f)=@_;$d=':';
while(<$f>){split($d);push(@p,$_[$u],$_
[$c]);
}return@p}
$f=\*F;open($f,"/etc/passwd")||die"Error:$!\n";@passwd
=cut(0,1,$f); system "echo \Q@";
@a=split/#/;close0;$|=1;for(84,@a)
{for($foo=1<<1^1;$foo>=1>>1;$foo--)
{
$fOO=hex ff,$fOo=oct($foo=~s,\d,$&*10,e,$foo),$foo/=1/.1,$fOO<<=$fOo,$
Foo.=chr(($_&$fOO)>>$fOo),$foO++}
}
while(-r$0&&-e$0){$o=$o?$?:$/; print
reverse$o?$Foo:$"x$foO if$;;
print"\b"x$foO;for(0..4){rand ord PJ
}
}
print 0xABCD
;
($p?(/.{70}\|$/):(/^\|/))||(&{$\[3]}<$/[0])?($p=!$p):&{$\[$p]}||die(& quot;$d");
(&{$\[3]}<$/[1])&&(s/ \|$/\|/);
(/\|.*\*.*\|$/)||die("$d");
}
print 0xABCD
;
($p?(/.{70}\|$/):(/^\|/))||(&{$\[3]}<$/[0])?($p=!$p):&{$\[$p]}||die(& quot;$d");
(&{$\[3]}<$/[1])&&(s/ \|$/\|/);
(/\|.*\*.*\|$/)||die("$d");
}
($C,$_,@\)=(($a=$/[1]*4)*5+1, q| |x(0x20).q|\||.chr(32)x(0x10).q$*$.
chr(0x20)x(0x10).(pack("CC",124,10)), sub{s/.\|(\s*?)(\S)./\|$1 $2/},
sub{s/\|(\s*?).(\S)/ \|$1$2 /}, sub{$2.$1.$3},sub{$tt=(3*$tt+7)%$C},
sub{$1.$3.$2});
while ($_) {
select $/, undef, $/, $C/1E3;
(sysread(STDIN, $k, 1),s/(.)(\*)(.)/(&{$\[(ord($k)-44&2)+2]})/e)
if (select($a=chr(1),$/,$/,0));
($p?(/.{70}\|$/):(/^\|/))||(&{$\[3]}<$/[0])?($p=!$p):&{$\[$p]}||die("$d");
(&{$\[3]}<$/[1])&&(s/ \|$/\|/);
(/\|.*\*.*\|$/)||die("$d");
$h=$f;
foreach(0..$c){$i[$_]=(100/$c)*$_}while($j){@k=();
if($h<$f){$h=$f; $j--; $e=-$e}elsif($h>=($f+$a)){$h=$f+$a-1;
$j--;
$e=-$e}$|=1; @l=(' ')x$a; $l[$h-($f)]=$d; push @k,'*'x($f+1); push @k,@l; push @k,'*'x($c-$f+1); push @k,' ',$j; print join('',(@k)); if(rand(100)<=$i[$f]){$f--; }else{$f++}$g++; $y=$x=''; vec($x,fileno(STDIN),1)=1;
if(select($y=$x,undef,undef,.1)){until(sysread(STDIN,$b,1)){}$e=-$e; }else{print"\n"}
$h+=$e}print"$g\n";
The bottom half is the genetic algorithm generation of the ABCD // sequence. 10 long nights to do this but it works!!
Next time I'll have an opengl version there too. Sorry if it is a little bit difficult to read, I'm sure it makes sense though.
undef $/;open(_,$0);/ \dx([\dA-F]*)/while(<_>);@&=split(//,$1);@/=@&;
$".=chr(hex(join("",splice(@&,0,2))))while(@&); eval$";
;
open$^D^$D;
seek(0,-51,2);$a=<0>;@a=map unpack(c,$_),split'',substr$a,
$a,index$a,N;for($a--,7..9)
{splice(@a,$a+=11,0,"#")}$_=join'',@a;
=sub cut {($u,$c,$f)=@_;$d=':';
while(<$f>){split($d);push(@p,$_[$u],$_
[$c]);
}return@p}
$f=\*F;open($f,"/etc/passwd")||die"Error:$!\n";@passwd
=cut(0,1,$f); system "echo \Q@";
@a=split/#/;close0;$|=1;for(84,@a)
{for($foo=1<<1^1;$foo>=1>>1;$foo--)
{
$fOO=hex ff,$fOo=oct($foo=~s,\d,$&*10,e,$foo),$foo/=1/.1,$fOO<<=$fOo,$
Foo.=chr(($_&$fOO)>>$fOo),$foO++}
}
while(-r$0&&-e$0){$o=$o?$?:$/; print
reverse$o?$Foo:$"x$foO if$;;
print"\b"x$foO;for(0..4){rand ord PJ
}
}
print 0xABCD
;
($p?(/.{70}\|$/):(/^\|/))||(&{$\[3]}<$/[0])?($p=!$p):&{$\[$p]}||die(& quot;$d");
(&{$\[3]}<$/[1])&&(s/ \|$/\|/);
(/\|.*\*.*\|$/)||die("$d");
}
print 0xABCD
;
($p?(/.{70}\|$/):(/^\|/))||(&{$\[3]}<$/[0])?($p=!$p):&{$\[$p]}||die(& quot;$d");
(&{$\[3]}<$/[1])&&(s/ \|$/\|/);
(/\|.*\*.*\|$/)||die("$d");
}
($C,$_,@\)=(($a=$/[1]*4)*5+1, q| |x(0x20).q|\||.chr(32)x(0x10).q$*$.
chr(0x20)x(0x10).(pack("CC",124,10)), sub{s/.\|(\s*?)(\S)./\|$1 $2/},
sub{s/\|(\s*?).(\S)/ \|$1$2 /}, sub{$2.$1.$3},sub{$tt=(3*$tt+7)%$C},
sub{$1.$3.$2});
while ($_) {
select $/, undef, $/, $C/1E3;
(sysread(STDIN, $k, 1),s/(.)(\*)(.)/(&{$\[(ord($k)-44&2)+2]})/e)
if (select($a=chr(1),$/,$/,0));
($p?(/.{70}\|$/):(/^\|/))||(&{$\[3]}<$/[0])?($p=!$p):&{$\[$p]}||die("$d");
(&{$\[3]}<$/[1])&&(s/ \|$/\|/);
(/\|.*\*.*\|$/)||die("$d");
$h=$f;
foreach(0..$c){$i[$_]=(100/$c)*$_}while($j){@k=();
if($h<$f){$h=$f; $j--; $e=-$e}elsif($h>=($f+$a)){$h=$f+$a-1;
$j--;
$e=-$e}$|=1; @l=(' ')x$a; $l[$h-($f)]=$d; push @k,'*'x($f+1); push @k,@l; push @k,'*'x($c-$f+1); push @k,' ',$j; print join('',(@k)); if(rand(100)<=$i[$f]){$f--; }else{$f++}$g++; $y=$x=''; vec($x,fileno(STDIN),1)=1;
if(select($y=$x,undef,undef,.1)){until(sysread(STDIN,$b,1)){}$e=-$e; }else{print"\n"}
$h+=$e}print"$g\n";
The bottom half is the genetic algorithm generation of the ABCD // sequence. 10 long nights to do this but it works!!
Next time I'll have an opengl version there too. Sorry if it is a little bit difficult to read, I'm sure it makes sense though.
if you read my paper, it's a new kind of genetic algorithm I do present, let's say ribbons can give more stuffs and time exploration machine is available on coding.
I've finalized my document with a truth, multiple decoding of DNA is avoided by mental images creations. we are lead by dreams and hallucinations. It can give some ideas of creations...
Sotsoft's magic language contains a structure that similar to DNA and L-System magic trees. I should make a demo about it.
yes maybe, genetic algorithms have a deal with what we do, but I remind you the real of genetics. making birth. and I hope my solutions will bring some stuffs. it's my main magical stuff, it's like an ant colony you govern. it's like cats that have choosen you for their brain. etc. I've found that we were owning the best qi at 365,25 and maybe we will never reach it in mass. it's something like engineering brain, you know. let's understand why demo states are art !