Voynich manuscript :: Something smarter than us is going to emerge


node:	Voynich manuscript
template:	4
parent:	Il us tracia & graphics
owner:	Mydrim
viewed by:
created:	07.08.2011 - 14:42:45
updated:	07.08.2011 - 14:47:47

cwbe coordinatez:
101
792011
2486878
2486902
6158424

ABSOLUT
KYBERIA

permissions
you:	r,
system:	public
net:	yes

lupus yonderboy	0
adhara	0

Voynich manuscript

http://en.wikipedia.org/wiki/Voynich_manuscript

http://thistownisridiculous.tumblr.com

000001010079201102486878024869020615842407245992

dalsi husty clanok z tej stranky
http://technet.idnes.cz/vojnicuv-rukopis-0z7-/veda.aspx?c=A130701_171454_veda_mla

000001010079201102486878024869020615842407237332

#file candidate-target-language-words should contain tokens which possible occur in the transliterated version of the Voynich manuscript

#scripts exploits evolutionary algos to converge to a set of substitution rules which transliterate (project) the source Voynich sequences upon the candidate language

#Voynich sequence file specifies in the only command line argument of the script

#Daniel D. Hromada (GPL Licence)

open(S,"<candidate-target-language-words");

my @rexp;

my $origin;

my %slova;

while (<>) {

chomp;

$slova{$_}=true;

# $origin.=$_;

}

#should we reverse the text, Mr. Dee ??? ;-)

#$origin=reverse($origin);

while (<S>) {

chomp;

print $_;

push @rexp, qr/^$_/i;

}

my $N_popul=42;

$chars="abcdehiklmnoprstuvz";

my @population;

my @Fitness;

for(0 .. ($N_popul)) {

my $ind="";

for (0 .. 37) {

$ind.=substr($chars,int(rand(length($chars))),1);

}

print "$ind n";

push @population,$ind;

push @Fitness,0;

}

sub Roulette_Wheel {

my $sum=0.0;

my @upper_bound;

my @lower_bound;

my $k;

for my $i (0..$N_popul) {

$sum=$sum+$Fitness[$i];

}

for my $i (0..$N_popul) {

$upper_bound [$i]=$Fitness[$i]/$sum;

}

$lower_bound[0]=0;

for my $i (1..$N_popul) {

$lower_bound[$i]=$upper_bound[$i-1];

$upper_bound[$i]=$upper_bound[$i-1]+$upper_bound[$i];

}

my $aux=0.001+0.998*(rand());

my $i=1;

my $j=$N_popul;

do {

$k=int(($i+$j)/2);

if ($aux>$upper_bound[$k]) {

$i=$k+1;

} else {

$j=$k-1;

}

} until ($lower_bound[$k]<=$aux && $aux<=$upper_bound[$k]);

return $k;

}

my $gen=0;

while (1) {

$gen++;

print "Generation $gen n";

for (0 .. $N_popul) {

my $i=$_;

my $text=$origin;

#print $text;

my $ind=$population[$i];

# eval "$text=~tr/Q$oldlistE/Q$newlistE/";

# initialization

my $old = "abcedfghijklmnopqrstuvwxyzAEFHIKOPSTYZ";

my $new = $ind;

my %translit;

# map chars in $orig to chars in $replace

@translit{split //, $old} = split //, $new;

my %matched;

for my $re (@rexp) {

for my $slovo (keys %slova) {

$slovo =~ s/(.)/defined($translit{$1}) ? $translit{$1} : $1/eg;

next if $matched{$re};

if ($slovo=~/$re/) {

#print "n $slovo matched by $renn";

$Fitness[$i]++;

$matched{$re}=true;

next;

}

}

}

print "individuum $population[$i] Fitness $Fitness[$i] n";

my $min=777;

my $min_i;

my $max=0;

my $max_i;

my $sum=0;

for my $i (0 .. $N_popul) {

if ($Fitness[$i] < $min) {

$min=$Fitness[$i];

$min_i=$i;

} elsif ($Fitness[$i]>$max) {

$max=$Fitness[$i];

$max_i=$i;

}

$sum+=$Fitness[$i];

}

print "Total fitness $sum n";

#the best replaces the worst

$population[$min_i]=$population[$max_i];

#mutations

for (0 .. $N_popul) {

my $subj=$_;

for (0..37) {

my $recpos=$_;

if ($subj!=$max_i && rand() < 0.07) {

my $win=Roulette_Wheel();

substr($population[$subj],$recpos,1,substr($population[$win],$recpos,1));

} elsif (rand() <0.03 && $subj !=$max_i) {

substr($population[$subj],$recpos,1,substr($chars,int(rand length($chars)),1));

}

}

}

@Fitness=();

}

node backed-up from kyberia.cz

00000101007920110248687802486902061584240723733207239778

pracujes na tom? teraz som na to narazil na inom zdroji - http://derstandard.at/1371170451886/Mysterioeses-Voynich-Manuskript-Hinweise-auf-enthaltene-Botschaft-entdeckt?_slideNumber=1&_seite=

alebo - http://www.plosone.org/article/info%3Adoi%2F10.1371%2Fjournal.pone.0066344

0000010100792011024868780248690206158424072373320723977807240380

Yoyo, ten clanok na plosone ma inspiroval k tomu aby som sa do toho pustil.
Som do veci investoval cca 5 dni a myslim ze pri troche "rigor" a podpore od mojich blizkych je to do roka a do dna cracknutelne, avsak momentalne som to nechal plavat.

Inac odporucam checknut aj Dee & Kelly "Book of Sogya", tiez celkom slusna cryptonakladacka na tu dobu...

000001010079201102486878024869020615842407237332072397780724038007244351

tak to by si spravil asi celkom prielom po všetkých predošlých márnych snahách