TOP 10 - Historie editací

Quimi v 5. 1. 2009, 00:57

2009-01-05T00:57:50Z

← Starší verze		Verze z 5. 1. 2009, 00:57
Řádek 58:		Řádek 58:
	:set downloadI [:pick $maxDownload $i ($i+1)];		:set downloadI [:pick $maxDownload $i ($i+1)];
	#do downloadJ ulozime hodnotu z pole maxDownload na pozici j		#do downloadJ ulozime hodnotu z pole maxDownload na pozici j
	:set ~~downloadI~~ [:pick $maxDownload $j ($j+1)];		:set downloadJ [:pick $maxDownload $j ($j+1)];
	#do userI ulozime hodnotu z pole users na pozici i		#do userI ulozime hodnotu z pole users na pozici i
	:set userI [:pick $users $i ($i+1)];		:set userI [:pick $users $i ($i+1)];

Quimi v 5. 1. 2009, 00:54

2009-01-05T00:54:31Z

← Starší verze		Verze z 5. 1. 2009, 00:54
Řádek 22:		Řádek 22:
	:global hArray1		:global hArray1
	:global hArray2		:global hArray2
	:global a		:global downloadI
	:global b		:global downloadJ
	:global c		:global userI
	:global d		:global userJ
	:global hInt		:global hInt
	/queue simple		/queue simple
Řádek 55:		Řádek 55:
	:set hArray1 0;		:set hArray1 0;
	:set hArray2 0;		:set hArray2 0;
	#do a ulozime hodnotu z pole maxDownload ~~s indexem~~ i		#do downloadI ulozime hodnotu z pole maxDownload na pozici i
	:set a [:pick $maxDownload $i ($i+1)];		:set downloadI [:pick $maxDownload $i ($i+1)];
	#do b ulozime hodnotu z pole maxDownload ~~s indexem~~ j		#do downloadJ ulozime hodnotu z pole maxDownload na pozici j
	:set b [:pick $maxDownload $j ($j+1)];		:set downloadI [:pick $maxDownload $j ($j+1)];
	#do c ulozime hodnotu z pole users ~~s indexem~~ i		#do userI ulozime hodnotu z pole users na pozici i
	:set c [:pick $users $i ($i+1)];		:set userI [:pick $users $i ($i+1)];
	#do d ulozime hodnotu z pole maxDownload ~~s indexem~~ j		#do userJ ulozime hodnotu z pole maxDownload na pozici j
	:set d [:pick $users $j ($j+1)];		:set userJ [:pick $users $j ($j+1)];
	#pokud je a<b		#pokud je downloadI<downloadJ
	:if ($a<$b) do={		:if ($downloadI<$downloadJ) do={
	#prehodime hodnoty a,b		#prehodime hodnoty downloadI,downloadJ
	:set hInt $a;		:set hInt $downloadI;
	:set a $b;		:set downloadI $downloadJ;
	:set b $hInt;		:set downloadJ $hInt;
	#a hodnoty c,d		#a hodnoty userI,userJ
	:set hInt $c;		:set hInt $userI;
	:set c $d;		:set userI $userJ;
	:set d $hInt;		:set userJ $hInt;
	}		}
	#na nasledujicich nekolika radcich pak dochazi k samotnemu prehozeni hodnot v poli		#na nasledujicich nekolika radcich pak dochazi k samotnemu prehozeni hodnot v poli
	#je zde nekolik osetreni, nektere jsou zjisteny zkousenim		#je zde nekolik osetreni, nektere jsou zjisteny zkousenim
	:set hArray1 ([:pick $maxDownload 0 $i] + $a);		:set hArray1 ([:pick $maxDownload 0 $i] + $downloadI);
	:set hArray2 ([:pick $users 0 $i] + $c);		:set hArray2 ([:pick $users 0 $i] + $userI);
	:if (($i+1)<$j) do={		:if (($i+1)<$j) do={
	:set hArray1 ($hArray1 + [:pick $maxDownload ($i+1) $j]);		:set hArray1 ($hArray1 + [:pick $maxDownload ($i+1) $j]);
	:set hArray2 ($hArray2 + [:pick $users ($i+1) $j]);		:set hArray2 ($hArray2 + [:pick $users ($i+1) $j]);
	}		}
	:set hArray1 ($hArray1 + $b);		:set hArray1 ($hArray1 + $downloadJ);
	:set hArray2 ($hArray2 + $d);		:set hArray2 ($hArray2 + $userJ);
	:if (($j+1)<[:len $maxDownload]) do={		:if (($j+1)<[:len $maxDownload]) do={
	:set hArray1 ($hArray1 + [:pick $maxDownload ($j+1) ([:len $maxDownload])])		:set hArray1 ($hArray1 + [:pick $maxDownload ($j+1) ([:len $maxDownload])])

Quimi: /* Verze 1 */

2008-12-30T11:59:55Z

Verze 1

← Starší verze		Verze z 30. 12. 2008, 11:59
Řádek 5:		Řádek 5:
	Tato verze přeřadí 10 uživatelů s největším počtem stažených dat z parentu wifi do parentu stahovaci.		Tato verze přeřadí 10 uživatelů s největším počtem stažených dat z parentu wifi do parentu stahovaci.

			#Autor: Michal Kliment
			#Datum: prosinec 2008
			#Popis: Tento skript preradi 10 uzivatelu s nejvetsim poctem stazenych dat z parentu wifi do parentu stahovaci

	:global x 0		:global x 0
	#v promenne myParent je nazev parentu, s kterym budeme pracovat		#v promenne myParent je nazev parentu, s kterym budeme pracovat

Quimi v 30. 12. 2008, 11:56

2008-12-30T11:56:32Z

← Starší verze		Verze z 30. 12. 2008, 11:56
Řádek 70:		Řádek 70:
	:set d $hInt;		:set d $hInt;
	}		}
			#na nasledujicich nekolika radcich pak dochazi k samotnemu prehozeni hodnot v poli
			#je zde nekolik osetreni, nektere jsou zjisteny zkousenim
	:set hArray1 ([:pick $maxDownload 0 $i] + $a);		:set hArray1 ([:pick $maxDownload 0 $i] + $a);
	:set hArray2 ([:pick $users 0 $i] + $c);		:set hArray2 ([:pick $users 0 $i] + $c);
Řádek 81:		Řádek 83:
	:set hArray1 ($hArray1 + [:pick $maxDownload ($j+1) ([:len $maxDownload])])		:set hArray1 ($hArray1 + [:pick $maxDownload ($j+1) ([:len $maxDownload])])
	:set hArray2 ($hArray2 + [:pick $users ($j+1) ([:len $users])])		:set hArray2 ($hArray2 + [:pick $users ($j+1) ([:len $users])])
	}		}
	:set maxDownload $hArray1		:set maxDownload $hArray1
	:set users $hArray2		:set users $hArray2
	}		}
	}		}
			#pole maxDownload a users orezeme na velikost danou v promenne top
	:set maxDownload [:pick $maxDownload 0 $top]		:set maxDownload [:pick $maxDownload 0 $top]
	:set users [:pick $users 0 $top]		:set users [:pick $users 0 $top]
	}		}
			#inkrementace promenne x (ukazuje index aktualniho uzivatele)
	:set x ($x+1);		:set x ($x+1);
	}		}
			#cyklus, ktery projde vsechny uzivatele z pole users
	:for i from 0 to=([:len $users]-1) do={		:for i from 0 to=([:len $users]-1) do={
			#a preradi je vsechny do "spatneho" parentu
	set [:pick $users $i ($i+1)] parent=$badParent;		set [:pick $users $i ($i+1)] parent=$badParent;
	}		}

Quimi v 30. 12. 2008, 11:49

2008-12-30T11:49:32Z

← Starší verze		Verze z 30. 12. 2008, 11:49
Řádek 44:		Řádek 44:
	#do pomocnych poli hArray1 a hArray2 ulozime hodnoty poli maxDownload a users		#do pomocnych poli hArray1 a hArray2 ulozime hodnoty poli maxDownload a users
	:set hArray1 $maxDownload		:set hArray1 $maxDownload
	:set hArray2 $users		:set hArray2 $users
			#tady zacina samotne razeni pole, bubble sort, dva cykly for
	:for i from 0 to=([:len $maxDownload]-2) do={		:for i from 0 to=([:len $maxDownload]-2) do={
	:for j from ($i+1) to=([:len $maxDownload]-1) do={		:for j from ($i+1) to=([:len $maxDownload]-1) do={
			#pole hArray1 a hArray2 vynulujeme
	:set hArray1 0;		:set hArray1 0;
	:set hArray2 0;		:set hArray2 0;
			#do a ulozime hodnotu z pole maxDownload s indexem i
	:set a [:pick $maxDownload $i ($i+1)];		:set a [:pick $maxDownload $i ($i+1)];
			#do b ulozime hodnotu z pole maxDownload s indexem j
	:set b [:pick $maxDownload $j ($j+1)];		:set b [:pick $maxDownload $j ($j+1)];
			#do c ulozime hodnotu z pole users s indexem i
	:set c [:pick $users $i ($i+1)];		:set c [:pick $users $i ($i+1)];
			#do d ulozime hodnotu z pole maxDownload s indexem j
	:set d [:pick $users $j ($j+1)];		:set d [:pick $users $j ($j+1)];
			#pokud je a<b
	:if ($a<$b) do={		:if ($a<$b) do={
			#prehodime hodnoty a,b
	:set hInt $a;		:set hInt $a;
	:set a $b;		:set a $b;
	:set b $hInt;		:set b $hInt;
			#a hodnoty c,d
	:set hInt $c;		:set hInt $c;
	:set c $d;		:set c $d;

Quimi: /* Verze 1 */

2008-12-30T11:45:07Z

Verze 1

← Starší verze		Verze z 30. 12. 2008, 11:45
Řádek 34:		Řádek 34:
	#do userBytes ulozime celkovy pocet bytu uzivatele (upload/download)		#do userBytes ulozime celkovy pocet bytu uzivatele (upload/download)
	:set userBytes [get $i bytes];		:set userBytes [get $i bytes];
			#a v ni najdeme pozici /
	:local slashPosition [:find $userBytes /];		:local slashPosition [:find $userBytes /];
			#do userDownload ulozime cast za /
	:set userDownload [:pick $userBytes ($slashPosition+1) [:len $userBytes]];		:set userDownload [:pick $userBytes ($slashPosition+1) [:len $userBytes]];
			#do pole users pridame hodnotu id uzivatele
	:set users ($users + $x)		:set users ($users + $x)
			#do pole maxDownload pridame hodnotu downloadu uzivatele
	:set maxDownload ($maxDownload + $userDownload)		:set maxDownload ($maxDownload + $userDownload)
			#do pomocnych poli hArray1 a hArray2 ulozime hodnoty poli maxDownload a users
	:set hArray1 $maxDownload		:set hArray1 $maxDownload
	:set hArray2 $users		:set hArray2 $users

Quimi v 30. 12. 2008, 11:41

2008-12-30T11:41:30Z

← Starší verze		Verze z 30. 12. 2008, 11:41
Řádek 24:		Řádek 24:
	:global hInt		:global hInt
	/queue simple		/queue simple
			#vsechny uzivatele zaradime ze "spatneho" parentu do defaultniho
	:foreach i in=[find parent=$badParent] do={		:foreach i in=[find parent=$badParent] do={
	set $i parent=$myParent;		set $i parent=$myParent;
	}		}
			#najdeme si vsechny uzivatele
	:foreach i in=[find] do={		:foreach i in=[find] do={
			#zjistime zda-li jsou z nami hledaneho parentu
	:if ([get $i parent]=$myParent) do={		:if ([get $i parent]=$myParent) do={
			#do userBytes ulozime celkovy pocet bytu uzivatele (upload/download)
	:set userBytes [get $i bytes];		:set userBytes [get $i bytes];
	:local slashPosition [:find $userBytes /];		:local slashPosition [:find $userBytes /];

Quimi v 30. 12. 2008, 11:37

2008-12-30T11:37:10Z

← Starší verze		Verze z 30. 12. 2008, 11:37
Řádek 6:		Řádek 6:

	:global x 0		:global x 0
			#v promenne myParent je nazev parentu, s kterym budeme pracovat
	:global myParent "wifi"		:global myParent "wifi"
			#v promenne badParent je nazev parentu, kam budeme prerazovat stahovace
	:global badParent "stahovaci"		:global badParent "stahovaci"
	:global userBytes 0/0		:global userBytes 0/0
Řádek 12:		Řádek 14:
	:global userDownload 0		:global userDownload 0
	:global maxDownload 0,0		:global maxDownload 0,0
			#v promenne top je ulozeny pocet uzivatelu, ktere budeme prerazovat
	:global top 10		:global top 10
	:global hArray1		:global hArray1

Quimi: /* Verze 3 - řazení podle mediánu */

2008-12-30T01:12:43Z

Verze 3 - řazení podle mediánu

← Starší verze		Verze z 30. 12. 2008, 01:12
Řádek 200:		Řádek 200:
	==Verze 3 - řazení podle mediánu==		==Verze 3 - řazení podle mediánu==

	Všechny uživatele, kteří stáhnou 2x více než uživatel s mediánem, přeřadí z parentu wifi do parentu stahovaci.		Všechny uživatele, kteří stáhnou 2x více než uživatel s mediánem, přeřadí z parentu wifi do parentu stahovaci. Problém je, že seřazení uživatelů v poli podle stažených dat pak trvá výrazně déle (na Vláře s cca 50 uživateli kolem minuty), chtělo by to najít nějakou lepší metodu než bubble sort...

	:global x 0		:global x 0

Quimi: /* Verze 3 */

2008-12-30T01:09:02Z

Verze 3

← Starší verze		Verze z 30. 12. 2008, 01:09
Řádek 198:		Řádek 198:
	}		}

	==Verze 3==		==Verze 3 - řazení podle mediánu==

	~~Tato verze~~ přeřadí ~~10 uživatelů s největším počtem stažených dat~~ z parentu wifi do parentu stahovaci.		Všechny uživatele, kteří stáhnou 2x více než uživatel s mediánem, přeřadí z parentu wifi do parentu stahovaci.

	:global x 0		:global x 0