Digitalna evolucija @ Slo-Tech

Forum » Znanost in tehnologija »
Digitalna evolucija

Digitalna evolucija

«« «

21 / 29

»»»

Thomas :: 27. sep 2004, 12:19

@OwcA

Hehe, tale st.koda pa dobr zgleda ...

Thomas :: 27. sep 2004, 14:22

Tole je nova verzija, skupaj s screen saverjem, ki pa ga je treba seveda skopirati v sistemski direktorij in mu nastaviti željeno pogostost pojavljanja, tako kot je za screen saverje v navadi.

Kdor hoče, pa lahko poganja exe verzijo.

Jst :: 27. sep 2004, 14:40

Thomas:

Fora screen saverja je v tem, da se po določenem času le ta vklopi. Torej predvidevaš, da uporabnika ni za računalnikom, ko se screen saver vklopi.

Kako naj torej klikne OK v about screenu, če ga ni za računalnikom?

Potem pa še en bug: ko skopiraš .scr datoteko v winsows/system32, daš display properties in izbereš crittical se ti le-ta takoj vklopi. In ko ga zapreš se vklopi še enkrat. Potem ti da mir.

Islam is not about "I'm right, you're wrong," but "I'm right, you're dead!"
-Wole Soyinka, Literature Nobelist
|-|-|-|-|Proton decay is a tax on existence.|-|-|-|-|

Jst :: 27. sep 2004, 14:41

Aja, pa pri installerju bi lahko dal checkbox "screensaver", ki če bi bil označen, bi sam skopiral v %windir%\system32 direktorj.

Islam is not about "I'm right, you're wrong," but "I'm right, you're dead!"
-Wole Soyinka, Literature Nobelist
|-|-|-|-|Proton decay is a tax on existence.|-|-|-|-|

OwcA :: 27. sep 2004, 14:43

BI ne bilo boljše zadevščine registirati kot service, procesu pa določiti nizko prioriteto? Potem bi deloval podobno kot F@H -- vedno v ozadju, koliko bi se razbohotil pa bi bilo odvisno od tega kaj delamo.

Otroška radovednost - gonilo napredka.

Jst :: 27. sep 2004, 14:43

Glede inija si me tudi narobe razumel. Jaz nisem mislil ini za screen saver ampak ini za sam crittical, ki bi ga uporabljal tudi screen saver.

Islam is not about "I'm right, you're wrong," but "I'm right, you're dead!"
-Wole Soyinka, Literature Nobelist
|-|-|-|-|Proton decay is a tax on existence.|-|-|-|-|

Zgodovina sprememb…

spremenil: Jst (27. sep 2004 ob 14:46)

Marjan :: 27. sep 2004, 14:46

Zgleda, da tale Sort Quest še bolj obremeni CPU kot Folding. Men se mašina sesuje po 2h urah $:\$

Bom mal znižu frekvenco :)

edit: Se strinjam z Owco.

Zgodovina sprememb…

spremenilo: Marjan (27. sep 2004 ob 14:47)

Thomas :: 27. sep 2004, 15:00

> Fora screen saverja je v tem, da se po določenem času le ta vklopi. Torej predvidevaš, da uporabnika ni za računalnikom, ko se screen saver vklopi.

> Kako naj torej klikne OK v about screenu, če ga ni za računalnikom?

Po dveh minutah tisti box izgine sam od sebe. Tudi če ne klikneš OK.

Thomas :: 27. sep 2004, 15:01

> ko skopiraš .scr datoteko v winsows/system32, daš display properties in izbereš crittical se ti le-ta takoj vklopi. In ko ga zapreš se vklopi še enkrat. Potem ti da mir.

Ja, to je tko. Bomo preučili kako in zakaj s tem.

Thomas :: 27. sep 2004, 15:03

> BI ne bilo boljše zadevščine registirati kot service, procesu pa določiti nizko prioriteto? Potem bi deloval podobno kot F@H -- vedno v ozadju, koliko bi se razbohotil pa bi bilo odvisno od tega kaj delamo.

Nej dela, ko nič drugega ne dela. Čeprav bomo premislili tudi o "nice 19" opciji.

OwcA :: 27. sep 2004, 15:04

Ko recimo berem kakšen članek, bi lahko mirno delal ...

Otroška radovednost - gonilo napredka.

Thomas :: 27. sep 2004, 15:04

> Zgleda, da tale Sort Quest še bolj obremeni CPU kot Folding.

Ja. Pocuza vse iz procesorja kar more. Ampak je to isti topic kot z Owco. Nice 19 - possible.

Phil :: 27. sep 2004, 15:53

Še komu nagaja nova verzija s screensaverjem?
Jaz poženem, pritisnem OK potem pa vse skupaj obstoji pri
Decoding .../fs.c
CPU pa je ves čas obremenjen 100%. Je potrebno prej inštalirati (navadni) Critticall?
LP

Thomas :: 27. sep 2004, 16:04

Če se sfenta fajl fs.c in je read only, potem obstoji. Zbriši ga.

Phil :: 27. sep 2004, 16:04

Hm napaka se izgleda pojavi če spremeniš predlagan direktorij pri inštalaciji. Če pustiš privzetega dela OK.
LP

Thomas :: 27. sep 2004, 16:06

Ja. Tudi drži.

BTW, a je že kdo prišel do kakšnih (pametnih) številk pri rezultatu?

romci :: 27. sep 2004, 16:14

Evo, zdej sem nazaj pri compu (cez noc pa pol dneva)... pastam vso kodo, ce bo kdo od tle nadaljeval...lahko pa seveda poskusa sreco iz originala...you never know where evolution will end...or not end :)

p.s.: whoops, tole pa kr fajn razsiri forum...ce kdo od moderatorjev pozna workaround (force wrap?) kr na plano!

// The algorithm has been enhanced For 53.4484%

 $DECLAREINT n one hh i j acritticall1 critticall1 

 $DIMENSION a[100]
 $INVAR n(100) a[](47,-30,2,-37,38,-48,-2,46,-18,27,19,38,-20,12,33,17,-3,47,-28,46,5,48,-37,-5,50,-31,19,17,-13,-43,32,-8,-4,30,7,-4,-41,45,14,40,-37,29,48,-5,-33,-26,40,3,34,36,41,23,27,-27,-24,-21,26,31,-45,1,-10,-46,-40,-25,-5,-31,-28,-47,17,-19,-8,-30,30,-20,-25,-13,-46,48,-19,-46,-41,-2,6,48,18,9,-46,-50,-38,25,-31,-46,-14,28,16,21,-9,20,-2,24)
 $INVAR n(100) a[](-9,-42,-41,-49,-8,29,-27,-35,29,-37,49,15,37,32,-1,-31,-38,-43,43,22,-39,39,39,-36,40,-14,-19,48,12,-2,-1,-34,16,33,30,43,-12,-47,-22,-1,-19,-41,-28,26,4,19,-33,6,-8,-24,-26,-50,50,-6,8,36,17,47,-17,-33,-42,1,3,10,-24,17,6,-50,-16,-32,-9,-21,3,-18,23,22,-23,25,-29,49,-5,-16,-28,41,-21,45,-16,-6,-15,36,-14,-12,10,11,-48,-44,10,-18,-19,26)
 $INVAR n(100) a[](-30,17,-23,18,-12,-14,7,35,49,-5,-16,-44,9,-46,49,40,31,-23,40,-14,14,-14,-7,15,21,-10,5,-26,3,-44,38,-37,-34,-21,-36,46,32,34,-27,-10,-14,-40,-4,-40,21,21,6,43,10,12,10,-22,-26,39,45,45,24,-14,30,5,-2,29,47,6,16,-35,46,15,30,-6,10,9,35,35,9,-40,-27,-26,34,-13,-50,1,-5,-42,38,43,25,-27,27,29,13,-42,-16,41,-34,40,-9,20,-22,-2)
 $INVAR n(100) a[](-21,46,41,10,16,14,40,29,-43,-38,11,-42,13,30,-42,33,-23,-47,-49,-10,15,30,-49,16,5,-4,47,-3,-12,18,-17,-14,-18,-27,33,4,30,-25,19,5,17,-9,7,-14,-19,17,29,29,-30,37,-14,-21,-50,-17,-41,30,-45,-45,25,-45,34,-29,46,-7,38,-30,-13,-2,49,-18,-10,1,48,26,-22,46,-32,12,-1,-5,-8,-37,26,20,-31,-32,-37,21,-19,36,29,37,-23,21,14,-49,50,38,50,-4)
 $INVAR n(100) a[](25,-23,15,0,-4,-14,-28,-43,15,0,23,0,23,15,9,-10,-12,46,5,-20,-20,13,-26,10,-3,42,3,15,21,-15,1,-4,-13,-12,-36,-48,-39,-47,24,-14,-14,-3,23,31,41,-22,13,-42,-3,-42,37,-28,1,21,-33,-13,-4,43,-13,-43,-41,30,-37,-10,39,25,26,-18,-8,-35,-42,44,-26,-48,-19,-2,29,50,-49,-9,-35,33,31,29,46,50,0,29,6,-37,11,-28,-30,-6,-4,-33,-39,-20,0,-19)
 $RINVAR a[](-50,50) n(1,2000) 
 $RETVAR a[] 
 $WEIGHTS lines=1 commands=1

// int a[100]; int n=0;int one=0;int hh=0;int i=0;int j=0;int acritticall1=0;int critticall1=0;

acritticall1=100;
if (n>acritticall1) {
    n=100;
}
$BES
hh=6;
critticall1=hh+hh;
hh=critticall1+hh;
while (hh>critticall1) {
    hh+=-1;
    i=critticall1;
    i|=1;
    while (i<n) {
        acritticall1=a[i];
        one=i-critticall1;
        one=a[one];
        if (one<=acritticall1) {
            goto labelcritticall4;
        }
        j=i;
        while (n!=j) {
            a[j]=one;
            j=j-critticall1;
            if (j<critticall1) {
                break;
            }
            one=j-critticall1;
            one=a[one];
            if (one<=acritticall1) {
                goto labelcritticall12;
            }
        }
        labelcritticall12:;
        a[j]=acritticall1;
        labelcritticall4:;
        i+=1;
    }
    critticall1=hh-critticall1;
    one=hh-critticall1;
    hh=one-critticall1;
}
$EES
//$RINVAR  a[](-50,50) n(1,2000) 
$INVAR a[](-41,-8,-44,-12,-11,26,7,46,32,-17,37,0,-3,3,-31,-31,1,-22,13,13,36,-47,-9,-2,-6,-10,-31,37,-19,-36,-26,-45,-28,12,26,47,9,39,23,19,39,-34,-23,29,36,-22,-29,-20,-40,-20,-25,8,-43,2,-26,-7,-18,-6,-33,-37,6,-1,-48,-4,-40,3,2,11,-1,1,-4,20,-6,23,-25,-17,4,3,17,-24,-34,0,50,-22,10,-2,-33,27,-9,37,12,0,-3,-45,9,33,-34,-40,6,-34)  n(1464)  
$INVAR a[](49,19,31,44,9,26,43,-33,27,-38,-19,-36,25,-41,20,-50,29,-10,-47,13,17,13,-43,37,4,40,-24,42,-40,11,48,36,18,-3,34,-7,27,49,33,32,-42,-35,-17,31,-37,-22,-29,22,38,31,23,37,-46,20,37,10,-37,46,-24,-46,-38,-42,49,-38,-3,10,15,0,47,-43,33,9,-10,-39,9,15,-28,-18,16,12,7,-26,12,-11,-7,21,50,-13,23,-39,-24,32,15,15,-39,-28,4,-18,-4,3)  n(2)  
$INVAR a[](38,20,-19,-50,-34,-9,-41,-26,13,-13,16,0,-16,-9,4,33,-16,-11,16,27,-1,-50,27,25,29,-25,-37,46,-26,-17,19,41,-42,-1,-6,46,34,45,42,-4,7,-42,47,-9,-8,-16,-22,11,-47,9,-21,35,21,-48,-20,6,-27,17,-25,41,37,-35,-23,-6,23,-20,32,3,28,24,-16,-13,-49,1,17,-20,8,-8,-18,6,50,16,28,35,5,28,-22,-11,26,-22,11,-31,-25,-30,-48,23,13,5,-23,-15)  n(95)  
$INVAR a[](-13,-47,-49,38,17,-16,-26,-31,-22,-14,30,15,-41,-19,-26,-23,36,43,6,15,39,-42,-44,10,38,-31,-41,-20,-7,26,3,-27,-8,-41,43,-26,46,47,9,-6,10,31,-50,34,-32,9,4,41,-14,27,-50,-1,30,14,38,20,-11,-43,-42,27,-29,9,9,-47,49,-38,-17,-13,-31,45,-37,43,-37,14,20,37,19,-39,36,5,-1,46,0,-25,18,16,-41,-2,9,11,2,-14,-46,26,26,25,46,-17,13,-48)  n(1091)  
$INVAR a[](-42,-39,-42,17,-41,37,4,-16,16,-8,27,-31,-24,2,2,0,-38,-11,-11,25,-13,-9,-47,-42,38,-43,43,-14,42,25,-46,12,47,15,41,-13,-1,-34,24,45,-4,-21,-50,-48,38,41,-12,32,19,-35,35,18,34,-42,15,-37,-30,-10,-33,0,33,47,-40,19,13,-20,-24,28,-6,-12,-40,0,-25,-13,25,26,21,-38,48,20,1,10,16,-41,-32,-2,-3,49,-27,23,35,34,38,27,12,15,20,9,20,42)  n(1933)  
$INVAR a[](3,48,13,-20,-18,-35,29,37,24,22,33,49,3,-7,-27,42,-14,31,-18,33,-41,-5,14,32,-9,-23,32,-48,-12,-39,-25,-27,8,-16,28,22,32,-16,-46,9,17,-29,-9,18,-18,43,-3,17,-2,19,11,-21,-27,-10,-33,-4,-22,2,-45,38,32,1,42,-8,41,23,-18,-19,-13,16,-8,46,-20,6,-45,41,33,-45,-14,-22,23,-16,-25,20,49,27,-11,4,-2,-29,2,50,-24,-1,-28,-19,-29,3,0,-29)  n(33)  
$INVAR a[](-21,28,-13,-24,35,-6,33,5,-2,-49,27,-34,25,-19,3,26,-34,-23,33,-37,-38,42,-24,-27,-10,34,50,5,9,44,35,24,28,0,-22,45,-31,-41,-26,40,19,32,19,-46,-17,19,-19,-32,-12,-2,37,-24,-2,-33,43,-1,35,21,-32,31,24,43,-6,-19,2,22,-46,-12,-37,41,-14,-9,26,-26,2,-9,37,5,-2,-44,-30,-38,-17,31,-31,8,-32,47,37,49,-40,-15,-21,47,-38,1,-38,45,47,12)  n(1611)  
$INVAR a[](35,-10,-22,-27,30,50,36,-9,21,9,-45,46,39,-36,-3,-47,-8,17,36,41,5,-11,-45,-40,-9,4,35,-6,-40,47,41,-9,-6,-49,-19,-19,40,3,-36,-12,7,26,-9,-6,-32,16,-47,-34,-4,32,24,27,-15,42,-26,25,-49,17,23,-37,-4,-9,40,-38,-21,41,31,-22,-48,-47,-10,7,25,-9,-8,38,-27,-38,-39,42,28,-40,38,6,-18,31,33,47,10,-20,43,-35,-7,35,-46,39,-8,9,-25,36)  n(1237)  
$INVAR a[](-35,5,-22,1,19,40,-2,-41,6,38,18,43,34,46,26,-25,-26,30,-41,10,19,-22,3,33,-10,26,-25,-11,21,-40,48,-48,-17,43,-42,20,29,22,40,16,-21,-33,-35,31,-24,27,-28,25,-22,-25,30,-30,-44,38,-43,37,48,-19,13,4,40,9,-8,-13,18,22,29,1,-5,7,-22,-13,-13,-25,14,1,28,-30,-5,9,28,2,-45,-38,12,-8,38,44,3,25,-21,-11,34,43,4,-50,-9,36,-7,43)  n(1898)  
$INVAR a[](4,20,-1,-16,34,-32,-49,44,-47,-29,25,26,2,35,-12,14,-43,-29,2,8,-25,20,33,-41,11,-30,-36,24,-48,42,-30,-44,14,-25,-13,-31,-25,-48,0,21,-27,-39,50,20,-35,48,2,-44,37,40,-41,-2,4,37,-15,4,-43,-19,-23,-43,32,-28,25,7,-9,-8,12,-27,-10,32,-28,-30,22,-44,-3,29,-15,-48,50,36,19,21,-49,22,-11,33,26,-39,30,49,24,-32,-30,-22,-29,1,-1,21,9,11)  n(46)  
$INVAR a[](29,11,-6,-27,9,-49,45,-17,-28,-10,10,-40,2,-36,45,-3,24,-2,-38,5,-45,-29,-49,19,47,-15,-43,-26,-12,8,8,-33,23,38,-42,25,9,-4,-33,33,2,-49,47,18,-35,33,36,-28,16,-19,-8,-42,-33,-44,17,48,44,-21,29,-29,49,1,-29,-12,36,10,31,5,0,28,-34,-11,-6,49,6,-28,46,35,50,34,7,-43,-14,10,-13,-46,15,-43,40,49,27,-15,-3,30,-15,32,-13,23,15,25)  n(385)  
$INVAR a[](-18,-46,-15,28,-16,28,-17,39,-10,34,-28,-14,-37,38,3,0,40,-34,17,2,50,11,35,-26,24,43,-8,11,24,-24,50,-28,-15,-40,-11,-41,-43,-22,-11,-25,-32,-31,28,37,-32,39,-44,-38,18,-12,-35,39,24,-8,0,-44,43,13,20,-47,6,7,13,12,34,-2,-9,-6,36,-16,39,27,35,26,-8,48,42,38,-27,-10,-27,-48,-11,-36,0,-38,-11,-42,48,38,42,-26,17,-24,-50,-36,-35,-49,-47,39)  n(606)  
$INVAR a[](-21,-7,-24,-44,37,7,28,0,-35,-40,-43,-11,18,-19,-25,-28,21,3,27,46,-33,-5,-4,-20,29,20,25,32,23,-7,-24,-7,48,-28,6,-47,-18,-2,11,-33,24,-50,-34,-47,-18,11,-24,-18,-12,40,0,3,-42,3,25,40,33,5,-8,-50,-14,28,17,14,-38,-30,37,23,1,33,-15,-43,38,11,-10,-7,8,-26,22,-33,-9,-49,-48,-9,-41,48,6,2,30,-35,-12,-22,29,11,-41,-38,18,-13,-36,-22)  n(1)

-- not all those who wander are lost...

Zgodovina sprememb…

spremenil: romci (27. sep 2004 ob 16:15)

Thomas :: 27. sep 2004, 16:20

No, tole je kar dobra koda. Ampak recimo meni se je nakuhala 8 vrstic krajša in nekoliko hitrejša koda. Iz izvorne kode.

Zato nima smisla, da bi šel nekdo od nekod naprej. Boljš raziskat povsem nove poti.

Vesoljc :: 27. sep 2004, 16:37

wide screen rulz 8-)

Abnormal behavior of abnormal brain makes me normal...

Thomas :: 27. sep 2004, 16:38

Sicer je bilo pa tvoje sodelovanje zelo hvalevredno, Romci. Najmanj kar je, NI znanega sorta, ki bi brez uporabe pomožnih tabel potreboval tako malo operacij za posortanje prvih petih ($invar) tabel, kot kar je prišlo iz tvojega računalnika ven.

V tem je ves point cele zadeve, pa v tem da se bo dirka še nadaljevala na CR sajtu, ko s snowom neki prklopiva. Danes zvečer, ali kaj takega.

Vse pripombe in "sitnarjenja" uporabnikov tule (jst, owca, Marjan, cman ..), tudi nadvse koristna in poučna za tele na tej strani foruma!

Aprišiejtid!

romci :: 27. sep 2004, 16:46

Hm, res je...mislim, da bom tud jst poskusu spet od zacetka.
Kar privede do vprasanja:
kako sklepati, da je nek algoritem a) na pravi poti ali b) samo za misji drekec slabsi od najbolj optimalnega, ki bi se lahko razvil po tej veji (razen seveda tega, da ti Crittical izpise This algorithm has been enhanced 1 year 2 months 5 days 6 hours 12 minutes 31 seconds ago :)

Lahko bi recimo po X neproduktivnih urah (=brez improvementa) skocil nazaj Y generacij in poskusil nadaljevati z mutacijami v cist drugo smer.
Ali je implementirano kaj podobnega?

LP,
Roman

-- not all those who wander are lost...

EssEncE :: 27. sep 2004, 16:58

Jah samo kako uro je laufal, pa je tole vn pršlo:

 // The algorithm has been enhanced For 52.3043%

 $DECLAREINT n h i v j tst1 tt acritticall1 

 $DIMENSION a[100]
 $INVAR n(100) a[](47,-30,2,-37,38,-48,-2,46,-18,27,19,38,-20,12,33,17,-3,47,-28,46,5,48,-37,-5,50,-31,19,17,-13,-43,32,-8,-4,30,7,-4,-41,45,14,40,-37,29,48,-5,-33,-26,40,3,34,36,41,23,27,-27,-24,-21,26,31,-45,1,-10,-46,-40,-25,-5,-31,-28,-47,17,-19,-8,-30,30,-20,-25,-13,-46,48,-19,-46,-41,-2,6,48,18,9,-46,-50,-38,25,-31,-46,-14,28,16,21,-9,20,-2,24)
 $INVAR n(100) a[](-9,-42,-41,-49,-8,29,-27,-35,29,-37,49,15,37,32,-1,-31,-38,-43,43,22,-39,39,39,-36,40,-14,-19,48,12,-2,-1,-34,16,33,30,43,-12,-47,-22,-1,-19,-41,-28,26,4,19,-33,6,-8,-24,-26,-50,50,-6,8,36,17,47,-17,-33,-42,1,3,10,-24,17,6,-50,-16,-32,-9,-21,3,-18,23,22,-23,25,-29,49,-5,-16,-28,41,-21,45,-16,-6,-15,36,-14,-12,10,11,-48,-44,10,-18,-19,26)
 $INVAR n(100) a[](-30,17,-23,18,-12,-14,7,35,49,-5,-16,-44,9,-46,49,40,31,-23,40,-14,14,-14,-7,15,21,-10,5,-26,3,-44,38,-37,-34,-21,-36,46,32,34,-27,-10,-14,-40,-4,-40,21,21,6,43,10,12,10,-22,-26,39,45,45,24,-14,30,5,-2,29,47,6,16,-35,46,15,30,-6,10,9,35,35,9,-40,-27,-26,34,-13,-50,1,-5,-42,38,43,25,-27,27,29,13,-42,-16,41,-34,40,-9,20,-22,-2)
 $INVAR n(100) a[](-21,46,41,10,16,14,40,29,-43,-38,11,-42,13,30,-42,33,-23,-47,-49,-10,15,30,-49,16,5,-4,47,-3,-12,18,-17,-14,-18,-27,33,4,30,-25,19,5,17,-9,7,-14,-19,17,29,29,-30,37,-14,-21,-50,-17,-41,30,-45,-45,25,-45,34,-29,46,-7,38,-30,-13,-2,49,-18,-10,1,48,26,-22,46,-32,12,-1,-5,-8,-37,26,20,-31,-32,-37,21,-19,36,29,37,-23,21,14,-49,50,38,50,-4)
 $INVAR n(100) a[](25,-23,15,0,-4,-14,-28,-43,15,0,23,0,23,15,9,-10,-12,46,5,-20,-20,13,-26,10,-3,42,3,15,21,-15,1,-4,-13,-12,-36,-48,-39,-47,24,-14,-14,-3,23,31,41,-22,13,-42,-3,-42,37,-28,1,21,-33,-13,-4,43,-13,-43,-41,30,-37,-10,39,25,26,-18,-8,-35,-42,44,-26,-48,-19,-2,29,50,-49,-9,-35,33,31,29,46,50,0,29,6,-37,11,-28,-30,-6,-4,-33,-39,-20,0,-19)
 $RINVAR a[](-50,50) n(1,2000) 
 $RETVAR a[] 
 $WEIGHTS lines=1 commands=1

// int a[100]; int n=0;int h=0;int i=0;int v=0;int j=0;int tst1=0;int tt=0;int acritticall1=0;

acritticall1=100;
if (n>acritticall1) {
    n=100;
}
$BES
acritticall1=7;
h=acritticall1;
acritticall1=n/h;
acritticall1=h|acritticall1;
h=acritticall1^h;
h^=2;
acritticall1=acritticall1+h;
h=acritticall1-h;
while (acritticall1>h) {
    v=h;
    labelcritticall2:;
    while (v<n) {
        i=a[v];
        j=v;
        tt=j-h;
        tst1=a[tt];
        v+=1;
        if (tst1<=i) {
            goto labelcritticall2;
        }
        while (j>tt) {
            a[j]=tst1;
            j=tt;
            if (j<h) {
                break;
            }
            tt=j-h;
            tst1=a[tt];
            if (tst1<=i) {
                goto labelcritticall11;
            }
        }
        labelcritticall11:;
        a[j]=i;
    }
    h^=1;
    h=acritticall1-h;
    acritticall1=acritticall1-h;
    h^=2;
}
$EES
//$RINVAR  a[](-50,50) n(1,2000) 
$INVAR a[](31,24,-40,-50,44,-43,-44,-30,11,-18,-40,9,-42,-16,-15,46,-25,-28,-21,-35,35,-3,-9,-12,-36,24,47,0,-49,-31,14,49,-20,17,-22,2,40,-38,-26,-41,48,-33,34,-29,-21,12,49,15,1,-24,-40,20,32,-10,25,-47,7,38,13,-10,-1,5,44,50,18,-4,-38,-34,16,-32,15,11,50,-38,-27,5,-22,16,19,-22,5,-8,-22,-35,-6,-21,-11,40,11,10,20,43,-28,26,-25,41,2,-3,-21,17)  n(1754)  
$INVAR a[](46,-45,47,-8,-13,-2,-45,0,-37,10,-14,0,50,49,50,-23,27,-4,-13,-1,-19,35,41,-12,5,49,16,5,0,33,14,28,6,38,3,-34,6,-20,-48,-27,-23,-7,-44,19,-12,13,21,38,-33,7,-21,-14,-13,-8,-31,-50,44,19,-5,-2,18,-5,33,-29,-37,-16,-22,50,44,5,38,41,9,18,-6,-16,10,-32,24,-47,-35,26,38,14,33,44,-40,-34,-33,16,-12,-32,45,23,-23,41,-2,-17,-39,-26)  n(907)  
$INVAR a[](36,1,-17,9,2,28,-39,-43,-27,-15,49,-34,-38,-16,18,21,20,19,15,-14,-8,-31,-35,-50,-47,-18,41,-3,39,-47,10,42,39,19,50,42,28,24,0,-31,41,10,-2,8,16,-38,5,-2,-29,-2,23,-34,-20,-24,-24,-7,-33,-22,-29,12,35,-15,-3,47,-3,37,8,19,-22,-30,4,3,0,-48,7,-10,-26,-27,-7,-5,-41,49,28,25,-35,-45,14,-17,3,4,-38,-16,15,8,29,1,37,20,-23,-33)  n(570)  
$INVAR a[](27,37,17,33,33,-29,6,41,-35,-13,-39,35,-47,-13,-50,11,38,11,46,3,31,46,-32,-47,16,-5,-40,19,-38,-31,42,-5,2,43,41,11,-2,-3,5,31,-14,40,34,-42,-4,-32,-14,30,-46,13,-37,44,40,-5,-46,-32,-46,-36,9,19,5,14,-29,-7,24,-14,-18,14,-15,12,49,18,-35,-44,17,-26,-22,47,18,50,-18,23,-38,27,23,34,1,-50,-26,-42,-17,-23,-8,31,-17,23,-18,4,-36,47)  n(1)  
$INVAR a[](0,40,-24,-35,24,24,-41,16,39,-44,-19,-19,-24,20,-44,19,8,-41,-46,50,-29,-5,-9,27,5,-44,-36,50,7,40,-27,-34,-44,-9,-31,48,-33,46,18,26,-28,-1,-16,18,38,-16,-46,-12,-25,-36,-26,23,-4,-5,-43,10,14,-15,-15,-50,2,-19,21,-42,-40,47,-2,3,49,7,-48,11,-19,-5,20,47,6,3,6,5,-3,30,6,18,45,-17,42,44,19,-16,13,-18,39,-42,21,-41,-29,31,-22,-50)  n(1)  
$INVAR a[](17,22,-18,48,13,-6,14,-21,20,36,-20,-20,7,-16,20,30,-4,1,-10,-22,8,-35,-19,2,34,31,5,41,-18,-36,5,-39,-43,24,-27,2,-36,-46,-50,3,21,14,-40,38,-26,45,-3,-28,-2,-42,-34,50,45,7,-40,-41,-13,47,-3,32,49,28,-28,-12,25,-49,-4,18,40,-1,13,-24,-5,4,30,11,-6,33,-3,-22,-43,-1,27,-10,-39,10,24,13,-32,41,-19,6,19,-35,-29,-31,19,10,4,49)  n(1707)  
$INVAR a[](41,-18,-6,47,-41,-25,35,-35,33,-11,-8,14,-31,-15,-36,5,20,45,-30,-17,34,13,29,38,3,4,-6,-1,-31,-22,31,40,-24,-16,33,-30,-14,24,12,13,14,-31,13,2,29,-41,40,17,30,32,-13,-19,5,0,23,-45,22,48,-50,20,3,19,-36,25,1,28,-27,-49,-29,2,38,12,-7,-49,-26,-16,3,11,1,-46,33,8,28,17,-22,-50,38,-46,26,42,-13,-1,10,48,33,46,5,5,-40,-40)  n(4)  
$INVAR a[](-12,-11,40,17,-36,11,27,-43,25,-29,6,20,11,-25,39,-11,-26,19,8,21,21,37,30,-16,9,-3,-33,-42,47,27,-12,42,5,-31,18,35,35,28,-35,-2,-32,30,37,19,19,30,-50,22,41,33,21,1,-12,-8,-14,-22,-10,36,-14,2,44,9,12,40,-25,46,2,40,32,-8,36,-46,0,-29,-44,-46,-37,42,38,-24,47,-15,50,-14,8,44,12,46,-18,-16,26,13,-26,-46,31,26,-39,-36,26,39)  n(363)  
$INVAR a[](40,35,-29,-48,-34,33,-31,-14,-21,34,9,-13,16,12,1,-40,3,26,6,28,32,-11,-17,-47,6,-46,27,-27,-36,23,-31,11,-41,-21,-16,37,46,23,20,12,8,-43,35,32,30,33,22,36,-4,-20,-45,-27,-41,-32,-23,32,29,-35,11,-32,-37,11,-16,-3,-41,2,-14,27,-12,-37,-11,-40,9,-42,15,-24,-40,-47,28,-24,21,43,-20,-28,-24,-1,43,18,44,16,0,33,31,30,-14,-21,46,-29,-4,-38)  n(362)  
$INVAR a[](24,-47,-45,0,5,-6,-46,-42,41,21,21,-49,4,35,-29,-8,41,27,-25,15,23,41,37,-3,-40,-8,11,1,-20,20,10,-37,8,-24,17,37,31,13,20,-47,26,-9,-46,-50,-19,36,-19,-1,35,22,-32,12,13,33,44,36,-41,-40,27,32,-36,27,-25,16,38,35,-11,16,7,-12,-33,-45,5,49,8,-25,-1,-3,-14,-45,-34,33,-32,-4,20,24,39,-30,45,-7,45,-41,-14,5,-17,32,16,-25,2,23)  n(3)  
$INVAR a[](47,-42,49,-47,24,-33,32,-16,8,-31,0,14,20,15,-24,-11,-7,-36,32,-24,36,12,-26,-18,47,-50,45,43,-26,-33,-47,-17,50,-13,-29,-14,29,1,-39,15,40,-34,3,-26,4,40,-32,19,-16,-15,22,27,-11,-2,-23,6,9,-13,32,2,-6,47,38,25,-17,-6,10,11,38,-47,-32,-21,-38,17,-47,-29,-8,8,-16,-39,-11,43,32,-15,-17,33,32,26,41,12,-44,50,49,-37,30,-11,48,-31,44,2)  n(95)  
$INVAR a[](-43,39,24,38,-42,-15,37,-30,11,-17,-36,19,-9,32,16,-17,25,37,-7,-25,35,-3,8,-25,-5,38,10,-35,-30,29,-50,-47,6,-18,40,34,-11,22,-44,44,21,-37,19,22,-47,49,45,-32,-24,35,29,-34,-27,13,36,11,-24,15,-8,-31,-19,43,0,-49,6,15,30,-38,17,13,-42,-7,38,-3,-42,37,19,-10,48,-38,-49,-28,-36,-32,21,26,33,-1,-39,24,17,14,-48,-38,-13,17,47,-42,50,-1)  n(24)  
$INVAR a[](40,-15,-4,-27,-35,-45,-5,47,-27,-40,-13,-4,44,-40,50,41,35,-38,-27,-7,-43,42,-13,-41,38,-19,-13,-7,-33,-6,-41,-14,-5,1,-23,-39,1,-36,13,19,-42,22,-2,46,-22,-42,24,-22,-25,7,-46,0,37,-19,3,-5,38,-36,2,-6,-33,13,46,-11,49,-43,7,1,-45,2,44,19,-12,48,-44,-38,26,6,-49,16,-8,-32,33,46,-5,-48,13,3,28,33,37,-31,34,37,37,-8,-15,-35,-28,22)  n(1556)  
$INVAR a[](-38,40,-13,-34,-48,30,41,-27,-31,43,45,21,30,-33,16,-40,3,29,28,34,-44,-7,-25,46,15,-7,-11,-34,10,27,5,27,-40,2,24,-17,17,0,37,-49,-42,-3,-19,49,20,-25,-50,-6,7,-18,-3,45,-3,-49,-28,-25,-39,-15,18,31,39,42,-16,5,-43,8,44,29,-22,36,42,-37,3,-42,-30,43,-16,48,-7,4,15,-48,35,2,0,39,10,-4,21,15,-24,-50,-47,25,19,-2,12,42,-1,50)  n(1139)  
$INVAR a[](28,45,49,-16,47,13,-38,21,4,-40,21,-9,35,45,-1,-10,-15,41,-41,42,16,45,43,8,-24,47,-14,-2,50,-50,8,-30,-5,-25,-30,-36,35,-35,15,22,46,-11,5,-40,-16,8,50,25,34,38,-16,28,49,46,17,-50,-48,-50,-8,-34,0,7,8,9,16,17,-3,1,-31,-25,-29,7,50,50,-47,-18,43,-35,-7,35,41,21,3,14,14,-22,-22,-7,43,-13,-11,19,-12,44,44,39,35,-7,-22,27)  n(21)

Thomas :: 27. sep 2004, 17:28

> kako sklepati, da je nek algoritem
> a) na pravi poti

Ne moreš. Nikoli ne veš. Razen da je (morda) prišel nekam, kjer še nihče ni bil.Pa je "tam" seveda "vse lepo". Pomeni da dela in to zelo dobro.

> ali b) samo za misji drekec slabsi od najbolj optimalnega

Ja, morda. Ampka enostavno ni načina vedeti, kdaj smo na optimimu. Vemo le, da tako dobro še ni bilo. :))

> ki bi se lahko razvil po tej veji (razen seveda tega, da ti Crittical izpise This algorithm has been enhanced 1 year 2 months 5 days 6 hours 12 minutes 31 seconds ago :)

Po enem letu sklepaš, da ni več toliko možnosti za izboljšavo.

> Lahko bi recimo po X neproduktivnih urah (=brez improvementa) skocil nazaj Y generacij in poskusil nadaljevati z mutacijami v cist drugo smer.

> Ali je implementirano kaj podobnega?

Ya, ye. Vsake toliko gre od začetka. To takrat, ko tista rumena črta na grafu začne od zgornjega roba in se počasi dol tlači.

Thomas :: 27. sep 2004, 18:01

Prvakar mi je snow poslal boljšo kodo od "moje". Ergo ni več zadržkov, da "mojo" publiciramo tukile.

Sicer je lepša kot "snowova" ampak je njegova hitrejša.

"Moja":


// The algorithm has been enhanced For 56.335%

 $DECLAREINT n hh tst tt acritticall1 critticall2 critticall4 

 $DIMENSION a[100]
 $INVAR n(100) a[](47,-30,2,-37,38,-48,-2,46,-18,27,19,38,-20,12,33,17,-3,47,-28,46,5,48,-37,-5,50,-31,19,17,-13,-43,32,-8,-4,30,7,-4,-41,45,14,40,-37,29,48,-5,-33,-26,40,3,34,36,41,23,27,-27,-24,-21,26,31,-45,1,-10,-46,-40,-25,-5,-31,-28,-47,17,-19,-8,-30,30,-20,-25,-13,-46,48,-19,-46,-41,-2,6,48,18,9,-46,-50,-38,25,-31,-46,-14,28,16,21,-9,20,-2,24)
 $INVAR n(100) a[](-9,-42,-41,-49,-8,29,-27,-35,29,-37,49,15,37,32,-1,-31,-38,-43,43,22,-39,39,39,-36,40,-14,-19,48,12,-2,-1,-34,16,33,30,43,-12,-47,-22,-1,-19,-41,-28,26,4,19,-33,6,-8,-24,-26,-50,50,-6,8,36,17,47,-17,-33,-42,1,3,10,-24,17,6,-50,-16,-32,-9,-21,3,-18,23,22,-23,25,-29,49,-5,-16,-28,41,-21,45,-16,-6,-15,36,-14,-12,10,11,-48,-44,10,-18,-19,26)
 $INVAR n(100) a[](-30,17,-23,18,-12,-14,7,35,49,-5,-16,-44,9,-46,49,40,31,-23,40,-14,14,-14,-7,15,21,-10,5,-26,3,-44,38,-37,-34,-21,-36,46,32,34,-27,-10,-14,-40,-4,-40,21,21,6,43,10,12,10,-22,-26,39,45,45,24,-14,30,5,-2,29,47,6,16,-35,46,15,30,-6,10,9,35,35,9,-40,-27,-26,34,-13,-50,1,-5,-42,38,43,25,-27,27,29,13,-42,-16,41,-34,40,-9,20,-22,-2)
 $INVAR n(100) a[](-21,46,41,10,16,14,40,29,-43,-38,11,-42,13,30,-42,33,-23,-47,-49,-10,15,30,-49,16,5,-4,47,-3,-12,18,-17,-14,-18,-27,33,4,30,-25,19,5,17,-9,7,-14,-19,17,29,29,-30,37,-14,-21,-50,-17,-41,30,-45,-45,25,-45,34,-29,46,-7,38,-30,-13,-2,49,-18,-10,1,48,26,-22,46,-32,12,-1,-5,-8,-37,26,20,-31,-32,-37,21,-19,36,29,37,-23,21,14,-49,50,38,50,-4)
 $INVAR n(100) a[](25,-23,15,0,-4,-14,-28,-43,15,0,23,0,23,15,9,-10,-12,46,5,-20,-20,13,-26,10,-3,42,3,15,21,-15,1,-4,-13,-12,-36,-48,-39,-47,24,-14,-14,-3,23,31,41,-22,13,-42,-3,-42,37,-28,1,21,-33,-13,-4,43,-13,-43,-41,30,-37,-10,39,25,26,-18,-8,-35,-42,44,-26,-48,-19,-2,29,50,-49,-9,-35,33,31,29,46,50,0,29,6,-37,11,-28,-30,-6,-4,-33,-39,-20,0,-19)
 $RINVAR a[](-50,50) n(1,2000) 
 $RETVAR a[] 
 $WEIGHTS lines=1 commands=1

// int a[100]; int n=0;int hh=0;int tst=0;int tt=0;int acritticall1=0;int critticall2=0;int critticall4=0;

acritticall1=100;
if (n>acritticall1) {
    n=100;
}
$BES
hh=sqrt(acritticall1);
tt=hh;
critticall4=8;
critticall4=critticall4+hh;
while (critticall4>tt) {
    critticall2=tt;
    critticall4+=-1;
    while (critticall2<n) {
        hh=critticall2;
        acritticall1=a[critticall2];
        tst=hh-tt;
        tst=a[tst];
        critticall2+=1;
        while (tst>acritticall1) {
            a[hh]=tst;
            hh=hh-tt;
            if (hh<tt) {
                break;
            }
            tst=hh-tt;
            tst=a[tst];
        }
        a[hh]=acritticall1;
    }
    tt=critticall4-tt;
    critticall4=critticall4-tt;
    critticall4+=-1;
}
$EES
//$RINVAR  a[](-50,50) n(1,2000) 
$INVAR a[](-14,-7,48,41,44,6,-40,-20,-17,-13,-4,-47,10,-14,-49,-17,27,43,2,33,16,-11,27,-22,-42,-1,-50,6,48,31,-44,27,21,41,27,-40,12,-48,8,42,24,26,25,30,40,50,-30,50,44,-40,-49,-23,22,-47,-25,-48,46,40,0,-10,-22,-28,-14,2,46,37,15,-20,-42,-16,-25,-24,-3,-50,28,-9,-32,-11,-17,-37,15,11,-17,8,34,16,-50,-47,26,42,44,-23,-7,-12,46,34,-49,-26,-30,31)  n(1451)  
$INVAR a[](-17,-35,12,-25,22,19,-33,39,-11,40,37,-14,38,-1,27,47,46,-22,-28,15,-45,-20,-12,-25,10,17,13,-10,-40,-24,42,35,-43,-3,-39,43,48,-22,33,-7,46,26,-8,-36,33,13,49,15,23,-15,14,-19,-5,-39,-10,6,-39,-2,-3,24,-48,24,19,-29,17,-47,-5,11,-33,50,-7,-31,31,-15,39,36,-20,18,-20,-22,-49,4,19,-41,-22,-23,46,-30,-3,-3,41,12,-1,40,37,-12,44,-30,-31,-3)  n(61)  
$INVAR a[](32,-18,-47,-22,26,32,-21,8,30,-11,28,13,-37,35,32,-33,-26,46,13,-44,-12,27,1,-1,-17,-6,17,34,6,24,4,-28,6,47,33,35,-41,32,36,0,8,8,38,48,39,7,-22,-17,-35,26,-41,-45,4,49,-40,24,-47,-27,-10,24,6,26,-16,34,-41,-33,-39,-34,19,28,-5,8,-16,11,-31,-7,-22,-44,19,-7,-41,-30,-31,41,22,39,48,31,-27,-12,7,-25,46,-23,-13,-19,-9,15,25,-7)  n(3)  
$INVAR a[](15,-38,1,-14,-50,18,32,-50,-30,39,2,0,-5,23,23,50,13,-34,-21,18,-46,-5,-25,15,-23,-30,-24,9,18,-22,30,16,23,14,-1,27,-6,23,39,-44,-2,-45,-16,-33,16,-49,-48,21,48,-40,-44,42,-11,-33,-7,17,47,-33,-40,48,-37,27,-1,30,-39,11,-23,49,36,-35,-40,-19,46,-1,26,-32,-9,-20,33,-5,-29,-45,38,-21,-33,-33,28,-31,-15,5,15,0,-43,22,-6,-50,-3,24,-20,7)  n(1697)  
$INVAR a[](43,20,33,6,2,-20,11,35,22,-23,22,7,-32,43,32,-50,-11,-21,18,-22,14,-14,-38,-50,-11,-44,45,-31,22,5,-29,45,15,-27,-4,8,23,10,7,-28,50,19,-12,-39,-5,43,-13,-40,-17,-2,40,-49,-44,3,29,47,14,44,-9,29,23,-18,-3,-44,31,15,49,4,-39,-4,-3,34,-26,22,-41,31,15,29,-13,32,-15,42,22,49,16,-13,33,-44,24,-50,27,-15,-26,-50,-20,-33,-15,-48,24,1)  n(38)  
$INVAR a[](24,-4,1,23,42,40,42,-25,-25,-21,-20,49,-13,-28,50,-35,-44,19,14,-5,-7,0,-33,-42,12,-23,-41,-48,38,-29,-9,19,-11,4,-20,-43,-39,-9,-10,-18,17,-2,-20,46,41,7,15,-2,31,-41,41,42,22,-32,15,10,-38,14,-41,-24,8,-30,-46,-37,-22,26,7,32,7,-14,-50,42,-21,-11,-22,29,31,-37,-4,43,-43,-2,-45,32,-46,21,8,-25,1,2,-21,-6,30,15,-30,-3,-31,42,21,35)  n(41)  
$INVAR a[](37,4,-4,0,12,45,24,17,4,27,-22,26,32,-38,9,-35,39,38,-11,6,50,16,-24,-20,-36,18,47,-33,-4,24,-28,-3,-25,31,28,15,-10,-46,-40,19,23,-49,33,44,9,15,-49,-34,29,-42,25,-39,1,-6,12,21,44,-24,-39,16,25,-44,-44,-17,17,-23,-1,32,18,0,20,37,15,43,-20,48,1,-31,11,17,-38,-29,4,-39,10,15,47,-20,14,-48,-26,-9,-39,23,-31,-8,-38,-8,37,25)  n(1)  
$INVAR a[](-21,5,-37,-5,-40,-24,-14,-40,-25,-44,36,15,-5,-29,42,47,-13,-2,-42,31,2,12,-28,24,-27,21,-19,-41,50,28,-19,38,-28,-47,-7,11,-31,4,-12,15,30,-20,28,-10,-26,48,1,-6,-50,19,43,5,-1,24,-42,-41,-14,-44,-17,-19,-17,40,-37,-12,-46,33,27,-12,-26,-18,-10,0,-15,-13,8,-39,-28,23,-24,10,5,-38,27,42,-5,-32,-6,-5,44,-41,34,11,-13,-30,8,-41,-22,-48,1,42)  n(1914)  
$INVAR a[](3,14,-1,-44,-9,18,39,-2,-31,2,34,36,18,-34,10,17,-11,33,5,21,-18,47,30,-10,-44,11,8,-1,-11,-26,2,-14,32,20,3,-11,44,13,-46,-9,-6,8,-47,46,-41,29,7,-48,-40,-42,-22,-7,25,23,41,-49,-47,37,1,-13,31,-50,-12,12,25,27,10,17,43,19,14,32,46,44,22,24,45,-38,10,-46,37,23,-42,-33,26,7,-3,-33,-32,3,18,12,29,5,28,31,14,-23,-36,45)  n(148)

romci :: 27. sep 2004, 19:06

A ma kdo pri roki kaksen compiler pa kaksen framework za benchmark, da bi lahko (kokr tolk) realno potestiral tele tri algoritme in jih primerjal a) med sabo b) s quicksortom/shellsortom/XYsortom .. ?
Me zanima, koliko je dejansko razlike med temi 3-5%.

Kaj je pravzaprav nisa tega sorta? Vidim, da so INVAR kr precej random; a ne bi moral vkljuct tudi ze sortirano zaporedje in obratni vrstni red cifer, da bi dosegl the ULTIMATE sort?

LP,
Roman

-- not all those who wander are lost...

Thomas :: 27. sep 2004, 19:22

Tole je random, da se že zipa ne več kot za presežek bitov. Zato je hard.

Niše, ko zadeve niso tako random in hard so pa poslastica.

UUUU se bomo še kregal, ko bomo delali benchmarke v raznih C dialekt compilerjih! :))

romci :: 27. sep 2004, 20:16

// The algorithm has been enhanced For 58.2492%

Sweet. Ma kdo ze vecjo cifro?

-- not all those who wander are lost...

Thomas :: 27. sep 2004, 20:19

Hehe, kokr vem ne.

Me zanima, kdaj bo kdo reku 60%.

Jst :: 27. sep 2004, 20:26

Za domač entertainment računalnik p4 sem si sprogramiral en service, ki poganja v ozadju ta sort quest. Seveda z low priority, ker nočem, da me moti, ko sem jaz zraven in kaj delam. Sedaj itak nima (računalnik) pametnejšega dela, večinoma je idle. Ker domačega računalnika ne ugašam, bom še jaz prispeval neko malenkost k temu questu. Bom pastal kodo iz tiste datoteke čez kakšen teden. Pa boste povedali, za koliko je bil izboljšan.

Islam is not about "I'm right, you're wrong," but "I'm right, you're dead!"
-Wole Soyinka, Literature Nobelist
|-|-|-|-|Proton decay is a tax on existence.|-|-|-|-|

Thomas :: 27. sep 2004, 20:56

No, super in lepo!

Sicer pa poiščeš file fs.c_e in pogledaš kakšen je največji procent izboljšanja not zapisan. Takoj pod njim je algoritem.

Sicer pa, če si zagnal le enkrat, je procent (100-procent) na ekranu. Nižje palčke boljši rezultat. Najkrajša palčka označuje rezultat na ekranu ...

Good luck!

romci :: 27. sep 2004, 20:59

Sam - nimajo tile % mal potenciala za zavajanje?
Hipoteticno: ce enemu pokaze recimo improvement 60%, pa je algoritem se velikostnega reda O(100*n^x), nekomu pa 50%, ampak zmutira algoritem v O(200*n^(x-1)), pol lahka pride do zmede.
Mislim pa, da je mozno - glede na to, da je (relativno) mal elementov v checku.

edit:
... al se sam jst zapikujem v neke malenkosti, ki v big picture nimajo kakega velike pomena...? :)

-- not all those who wander are lost...

Zgodovina sprememb…

spremenil: romci (27. sep 2004 ob 21:05)

Thomas :: 27. sep 2004, 21:05

Koliko inštrukcij + vrstic ($weights lines=1 commands=1), se izvede za testne primere. 5 ki smo jih dali mi, plus še za vse, ki si jih Critticall sproti sam dodaja.

Torej koliko procentov se je to zmanjšalo za vse test primere od originalne kode.

Algoritemska "O" odvisnost je pa kot pes na vrvici. Skače mau po svoje, ima pa jasno tendenco hoje z gospodarjem.

Prov zelo ne more blefirat, ker ima hard podatke, ki jih je pač treba posortat. Če te vse bolje, potem zelo verjetno tudi vse druge.

Matematičnega dokaza o pravilnosti NI.

snow :: 27. sep 2004, 21:50

Ja pol ko bi dobili nek hud procent ven, bi se splačalo na kakem dobrem testnem frameworku zadevo mal pretajmat.

Z raznimi sorti (recimo tiste ki so na wikipedi za začetek), pa na različnih intervalih in z različnimi razporeditvami testirat.

Pa z različnimi kompajlerji, pa z vsemi raznimi možnimi optimizacijami.

Random mutation plus nonrandom cumulative natural selection - Richard Dawkins

romci :: 27. sep 2004, 22:15

Jst sem se vedno na 58.25% izboljsavi, pa lahka kr pastam algoritm:

acritticall1=100;
if (n>acritticall1) {
    n=100;
}
$BES
critticall2=3;
critticall2+=2;
h=1;
h=critticall2^h;
critticall2=critticall2*h;
critticall2+=1;
h=critticall2-h;
while (critticall2>h) {
    i=h;
    while (i<n) {
        acritticall1=i;
        zero=a[i];
        tst=i-h;
        tst=a[tst];
        while (tst>zero) {
            a[acritticall1]=tst;
            acritticall1=acritticall1-h;
            if (acritticall1<h) {
                break;
            }
            tst=acritticall1-h;
            tst=a[tst];
        }
        a[acritticall1]=zero;
        i+=1;
    }
    h=critticall2-h;
    critticall2=critticall2/h;
}

-- not all those who wander are lost...

snow :: 27. sep 2004, 22:25

Kolk časa pa že ni blo nič izboljšave?

Mogoče bi se splačalo znova... Thomas kak je s tem? Tu se najbrž splača kak rerun naredit vsake toliko a?

Random mutation plus nonrandom cumulative natural selection - Richard Dawkins

romci :: 27. sep 2004, 22:26

Ene dve urci ni blo nc, tako sem zacel znova ampak z enim twistom. Bomo vidl kaj bo ven ratal.

edit:
No...nc kej cudeznega ni ratal :)
Sem probu dat skupi (enga za drugim) dva zaenkrat tanajbolj optimalna algoritma, ampak je bestija pogruntala da je brezveze dvakrat sortirat array, se znebila manj optimalnega in obdrzala boljsega :)

-- not all those who wander are lost...

Zgodovina sprememb…

spremenil: romci (27. sep 2004 ob 22:30)

njok :: 27. sep 2004, 23:09

A tejle programcki slucajno kaj pisejo po disku izven njihovih map? Znasel sem se namrec z 0b prostega diska. :8)

Od kar sem ga ugasnil pa nezasedeni prostor ostane, prej se je pa vsak sprosceni bajt takoj zapolnil.

Zgleda, da zaradi pomanjkanja prostora tudi ni uspel zapisat output fajla, tako da je ta prazen. Ko sem zadnjic pogledal pa je pisalo 42% of computing originally needed.

Thomas :: 27. sep 2004, 23:23

Ne bi smelo biti .... roke v ogenj zato ne morem dati.

Kok velik fajl fs.c_e maš na samples direktoriju?

romci :: 27. sep 2004, 23:46

OK, men je spet mal poboljsal...zal sem pa prej zacel ze od une 58% enhanced verzije naprej evulirat, tko da za referenco:
steps: 1099 - 5550
weights: 1130-5581
una treta cifra: 56286

Kako se sploh racuna za koliko % je algoritem boljsi? (avg new steps + avg new weights) / (avg old steps + avg old weights)?

edit: dobr da vedno preverm stvari preden kako bleknem :) % izboljsave se izracuna iz une tretje cifre ane? Kaj pa predstavlja una tretja cifra - obtezeno povprecje korakov in utezi?

LP,
Roman

-- not all those who wander are lost...

Zgodovina sprememb…

spremenil: romci (27. sep 2004 ob 23:47)

Thomas :: 27. sep 2004, 23:58

Ja, če bi vidu source (in s tem dato) bi lahko razložil.

romci :: 28. sep 2004, 00:07

Koda je tu. Za 35% je bil izboljsan tisti "hibrid" dveh algoritmov (ne original).

// The algorithm has been enhanced For 35.1544%

 $DECLAREINT acritticall1 n hh critticall2 tst h zero 

 $DIMENSION a[100]
 $INVAR n(100) 
 ...
 $RINVAR a[](-50,50) n(1,2000) 
 $RETVAR a[] 
 $WEIGHTS lines=1 commands=1

// int a[100]; int acritticall1=0;int n=0;int hh=0;int critticall2=0;int tst=0;int h=0;int zero=0;

acritticall1=100;
if (n>acritticall1) {
    n=100;
}
$BES
critticall2=5;
h=critticall2&acritticall1;
critticall2=h*critticall2;
critticall2^=1;
h=critticall2-h;
while (critticall2>h) {
    hh=h;
    while (hh<n) {
        tst=hh-h;
        tst=a[tst];
        acritticall1=hh;
        zero=a[acritticall1];
        while (tst>zero) {
            a[acritticall1]=tst;
            acritticall1=acritticall1-h;
            if (acritticall1<h) {
                break;
            }
            tst=acritticall1-h;
            tst=a[tst];
        }
        hh+=1;
        a[acritticall1]=zero;
    }
    h=critticall2-h;
    critticall2=critticall2/h;
}
$EES
//$RINVAR  a[](-50,50) n(1,2000) 
...

-- not all those who wander are lost...

njok :: 28. sep 2004, 00:22

Kok velik fajl fs.c_e maš na samples direktoriju?

Fajl je bil prazen, torej 0b. Bom jutri se enkrat zagnal, da vidim ce se simptomi ponavljajo, danes si ne morem privoscit.

Drgac pa kewl ideja tole! :)

Thomas :: 28. sep 2004, 00:24

Stlačil si ga na 30%. Izboljšava za 70%.

Nice, very nice!

A to si delal s shareware verzijo? $:\$

Anyway, obvladaš.

romci :: 28. sep 2004, 00:36

Aha, zdej sem poracunu - za 67... hm, res ni slabo :)

Delal sem pa z...um...Critticall Sort Chaserjem...

Ampak verjetno v javnosti ne smem povedat kako, ker mislim ta verzija ni bila misljena za tako pocetje (optimiranje kergakoli algoritma?) :)

... detajli na mejlu

-- not all those who wander are lost...

Zgodovina sprememb…

spremenil: romci (28. sep 2004 ob 00:38)

romci :: 28. sep 2004, 00:41

Necesa pa ne zastopm:

critticall2=5;
h=critticall2&acritticall1;
critticall2=h*critticall2;
critticall2^=1;
h=critticall2-h;

Zakaj tele solate ne porihta in replaca s kakimi vrednostmi?
Verjetno zato ker ne prinese profita?

LP,
Roman

-- not all those who wander are lost...

snow :: 28. sep 2004, 06:54

Hm, po moje se to dost težko spomne.

Sem mel neko podobno solato prej tam, pa sem dal sam tisto v critticall, pa je kr nekaj časa trajalo, da je naredil nekaj izboljšav.

romci kak hibrid dveh algoritmov? a to si dva skupaj zmiksal pa dal izboljševat?

Random mutation plus nonrandom cumulative natural selection - Richard Dawkins

Thomas :: 28. sep 2004, 07:41

romci, odvisno kako šteješ. Jest zaenkrat štejem zgolj korake, ki jih algoritem potrebuje, da posorta. Seveda bi lahko štel tudi uteži, ampak vse se zvede na približno isto. No, in če šteješ tako, dobiš 70%.

Kar se tiče solate, ta ni pod veliko prioriteto. Ma druge stvari bolj za mislit. Skrajševanje zank vzame stotine ali celo tisoče ukazov. Gre pa slejkoprej rihtat tudi solato, vendar le do stopnje, kot se splača.

Tale hibridizacija algoritmov je zanimiva reč, ja ...

Ko bomo tole izčrpali, gremo na sorte ki rabijo pomožne tabele. Quicksort ipd.

Thomas :: 28. sep 2004, 08:06

Link.

Tam preberte najprej Rules.

romci :: 28. sep 2004, 11:41

Hibrid - ja, dal sem enega za drugim dva tanajbolj optimalna algoritma doslej (seveda Critticallovi izpeljanki Shell Fat Bubbles), ampak kot sem rekel, je zadevscina reagirala bolj pametno, kot sem pricakoval :)

Namrec iz:
$BES
ALG1
ALG2
$EES

je ze kar po hitrem postopku prisel ven

$BES
ALG1
$EES

Kar je tudi logicno - ugotovil je, da ce zavrze drugo polovico kode, da je stvar se vedno sortirana, ni mu pa treba delat nepotrebnih korakov. Da je od tu prislo na skor 30% originala...sreca?

Morm pa rect da sem se kr mal namatru, da skapiru (priblizno), kako tale optimiziran algo deluje.

-- not all those who wander are lost...

snow :: 28. sep 2004, 11:55

eeem?

Saj če za sort algoritem napišeš neko kodo, ki sam vrstice pa komande nabija, pa da jo potem odstrani, ti bo napisalo da je izboljšal program (ubistvu ga je, ampak si ga ti najprej pokvaru).

zanimivo bi pa recimo blo optimiziranje posameznih segmentov sorta.
recimo pred zanko se ponavadi nabere neko cudno racunanje, ki bi lahko bila neka fixna vrednost.

Random mutation plus nonrandom cumulative natural selection - Richard Dawkins

«« «

21 / 29

»»»

Vredno ogleda ...

	Tema	Sporočila	Ogledi	Zadnje sporočilo
	Tema	Sporočila	Ogledi	Zadnje sporočilo
»	Najhitrejši programski jezik? (strani: 1 2 ) DavidJ Oddelek: Programiranje	75	7755 (5575)	Senitel 29. sep 2005 23:39:07
»	Funkcija z logičnimi operaterji.... (strani: 1 2 ) Boki_ Oddelek: Programiranje	90	5574 (4920)	CaqKa 8. nov 2004 07:48:24
»	Petaflopsu naproti (strani: 1 2 3 ) dr.J Oddelek: Novice / Procesorji	105	8877 (8877)	Marjan 13. jun 2004 19:48:27
»	cene permutacij help please meszaj Oddelek: Programiranje	26	2076 (1683)	Sergio 23. mar 2004 17:54:19
»	kako definirtati prastevilo bombacina Oddelek: Programiranje	14	3799 (3604)	ooux 18. nov 2003 21:11:36

Več podobnih tem

Forum » Znanost in tehnologija » Digitalna evolucija

Digitalna evolucija