Multi Multi

[piotr67]

Witam
Potrzebuję makro, które sprawdza mi wszystkie piątki wg zadanych kryteriów – np. 10 ostatnich losowań w których min 3 liczby z piątki wystąpiły co najmniej 5 razy.Czy ktoś może mi pomóc?

[Kmicic]

Witam
Potrzebuję makro, które sprawdza mi wszystkie piątki wg zadanych kryteriów – np. 10 ostatnich losowań w których min 3 liczby z piątki wystąpiły co najmniej 5 razy.Czy ktoś może mi pomóc?

Postaram się pomóc, można to zrobić "ręcznie", wygenerować piątki z 10 losowań a potem zanalizować zestawy w supermapie z poziomem trafień "3". Ale to kupa roboty bo każde losowanie to ponad 15 tysięcy kombinacji piątek.
Ale można do tego podejść od tzw d*** strony tzn zanalizować 10 losowań na tzw trafienia wzajemne. W ten sposób zamiast analizować i wypisywać 150 tysięcy piątek, zanalizujemy trafienia wzajemne w tych 10 losowaniach. Logika jest prosta skoro szukamy trafień kilku trójek to zróbmy trójki z tych liczb które w tych losowaniach wystąpią co najmniej x razy.

Z menu raporty wybieramy "lista wyników losowań", przesuwamy się na koniec i kopiujemy 10 ostatnich losowań. Wklejamy te losowania do pola "zakłady".
POLE "ZAKŁADY":

Code: [Select all] [Expand/Collapse] [Download] (Untitled)

1. 2014-06-18, 6, 9,10,19,21,27,36,42,48,49,50,52,54,56,58,65,66,70,75,79
2. 2014-06-18, 1,11,15,16,17,22,23,30,31,35,44,45,49,51,53,55,65,66,67,77
3. 2014-06-19, 1, 6,13,15,20,21,22,29,36,41,42,47,49,51,53,55,57,58,74,76
4. 2014-06-19, 7,11,15,20,21,23,27,31,32,36,38,46,52,53,60,62,68,76,78,80
5. 2014-06-20, 2, 3, 4, 9,10,11,15,18,26,31,33,36,38,40,51,58,62,65,71,72
6. 2014-06-20, 3, 5,14,22,24,27,28,31,34,35,37,39,45,50,53,55,57,64,72,79
7. 2014-06-21, 1, 5,16,20,22,26,30,38,39,43,47,48,53,57,62,63,67,68,72,77
8. 2014-06-21,16,17,19,21,22,28,34,36,43,49,51,56,60,62,67,70,71,72,73,80
9. 2014-06-22, 4, 5, 8,12,19,31,32,33,34,35,42,51,52,54,61,62,65,69,75,78
10. 2014-06-22, 4, 6, 7, 8,13,14,21,24,27,29,38,42,48,50,51,58,59,60,62,64

GeSHi © Codebox Plus

Teraz należy odciąć kolumnę zawierającą daty losowań. Posłużyć się można wygodnym zaznaczeniem blokowym. Trzymając klawisz "CTRL+ALT" zaznaczamy obszar prostokątny obejmujacy wszystkie daty do pierwszeko przecinka włacznie. Wciskamy klawisz :"DEL" i usuwamy daty.
POLE "ZAKŁADY":

Code: [Select all] [Expand/Collapse] [Download] (Untitled)

1.  6, 9,10,19,21,27,36,42,48,49,50,52,54,56,58,65,66,70,75,79
2.  1,11,15,16,17,22,23,30,31,35,44,45,49,51,53,55,65,66,67,77
3.  1, 6,13,15,20,21,22,29,36,41,42,47,49,51,53,55,57,58,74,76
4.  7,11,15,20,21,23,27,31,32,36,38,46,52,53,60,62,68,76,78,80
5.  2, 3, 4, 9,10,11,15,18,26,31,33,36,38,40,51,58,62,65,71,72
6.  3, 5,14,22,24,27,28,31,34,35,37,39,45,50,53,55,57,64,72,79
7.  1, 5,16,20,22,26,30,38,39,43,47,48,53,57,62,63,67,68,72,77
8. 16,17,19,21,22,28,34,36,43,49,51,56,60,62,67,70,71,72,73,80
9.  4, 5, 8,12,19,31,32,33,34,35,42,51,52,54,61,62,65,69,75,78
10.  4, 6, 7, 8,13,14,21,24,27,29,38,42,48,50,51,58,59,60,62,64

GeSHi © Codebox Plus

Teraz otwieramy z menu "Skrypty PHP"=>"Skrypty PHP-Edytor" edytor skryptów PHP. Wciskamy piewszy przycisk "Nowy" i wklejamy skrypt "trafień wzajemnych" zamieszczony poniżej i, zapisujemy skrypt (klawisz z dyskietką) nadając mu nazwę np "trafienia_wzajemne.php".

Code: [Select all] [Expand/Collapse] [Download] (Untitled)

1. <?
2. // zlicza trafienia wzajemne i wyswietla histogram trafień.
3. $sets=trim(delphi_str_memoa());
4. $set_lines=preg_split("'\r?\n'",trim($sets));
5.  
6. $set_table=array();
7. foreach($set_lines as $line)
8.    $set_table[]=preg_split("'[^0-9]+'",trim($line));
9. $hist=array();
10. $nhist=array();
11. $count = count($set_table);
12. for ($i=0;$i<$count-1;$i++) {
13.    for ($j=$i+1;$j<$count;$j++) {
14.  
15.        $set = array_intersect($set_table[$i], $set_table[$j]);
16.        echo implode(" ",$set_table[$i])."\n".implode(" ",$set_table[$j])."\n".implode(" ",$set)."\n\n\n";
17.        $hit = count($set);
18.        if ($hit>0) {
19.           $nKey=implode(" ", $set);
20.           if (isset($nhist[$nKey])) $nhist[$nKey]++; else $nhist[$nKey]=1;
21.           if (isset($hist[$i])) $hist[$i]+=$hit; else $hist[$i]=$hit;
22.           if (isset($hist[$j])) $hist[$j]+=$hit; else $hist[$j]=$hit;
23.        }
24.    }
25. }
26. arsort($nhist);
27. echo "(hit) set .........................\n";
28. foreach($nhist as $key=>$hit) {
29. echo sprintf("(%5d) %s\n",$hit,$key);
30. }
31.  
32. arsort($hist);
33. echo "[poz] (hit) set .........................\n";
34. foreach($hist as $key=>$hit) {
35. echo sprintf("[%3d] (%5d) %s\n",$key+1,$hit,$set_lines[$key]);
36. }
37.  
38. ?>
39.  

GeSHi © Codebox Plus

Skrypt ten analizuje tzw trafienia wzajemne w pętli każdy z każdym a więc
losowanie 1 z 2 , 1 z 3, 1 z 4 .... 9 z 10 wypisując w każdym trzecim wierszu ich trafienia wzajemne:

6 9 10 19 21 27 36 42 48 49 50 52 54 56 58 65 66 70 75 79
1 11 15 16 17 22 23 30 31 35 44 45 49 51 53 55 65 66 67 77
49 65 66

6 9 10 19 21 27 36 42 48 49 50 52 54 56 58 65 66 70 75 79
1 6 13 15 20 21 22 29 36 41 42 47 49 51 53 55 57 58 74 76
6 21 36 42 49 58

6 9 10 19 21 27 36 42 48 49 50 52 54 56 58 65 66 70 75 79
7 11 15 20 21 23 27 31 32 36 38 46 52 53 60 62 68 76 78 80
21 27 36 52

...
...
...

4 5 8 12 19 31 32 33 34 35 42 51 52 54 61 62 65 69 75 78
4 6 7 8 13 14 21 24 27 29 38 42 48 50 51 58 59 60 62 64
4 8 42 51 62

zestaw ten pokaże się nam w polu "wyniki", jeżeli wciśniemy klawisz f9 (Klawisz z symbolem PHP).
jeżeli ta opcja nas nie interesuje to możemy ja zablokować w skrypcie jeżeli za komentujemy w skrypcie linijkę nr: 16

Code: [Select all] [Expand/Collapse] [Download] (Untitled)

1. // echo implode(" ",$set_table[$i])."\n".implode(" ",$set_table[$j])."\n".implode(" ",$set)."\n\n\n";

GeSHi © Codebox Plus

linię za komentować można umieszczając przed linijką dwa ukosniki w prawo (znak dzielenia). Od tej pory linijka nic nie znaczy, służy tylko jako komentarz.

w następnej sekcji wyników dziaania skryptu mamy :

Code: [Select all] [Expand/Collapse] [Download] (Untitled)

1. (hit) set .........................
2. (    1) 3 31 72
3. (    1) 26 38 62 72
4. (    1) 36 51 62 71 72
5. (    1) 4 31 33 51 62 65
6. (    1) 7 21 27 38 60 62
7. (    1) 31 32 52 62 78
8. (    1) 11 15 31 36 38 62
9. (    1) 27 31 53
10. (    1) 20 38 53 62 68
11. (    1) 21 36 60 62 80
12. (    1) 4 38 51 58 62
13. (    1) 5 22 39 53 57 72
14. (    1) 38 48 62
15. (    1) 19 34 51 62
16. (    1) 21 51 60 62
17. (    1) 4 8 42 51 62
18. (    1) 5 62
19. (    1) 16 22 43 62 67 72
20. (    1) 22 28 34 72
21. (    1) 5 31 34 35
22. (    1) 14 24 27 50 64
23. (    1) 6 13 21 29 42 51 58
24. (    1) 42 51
25. (    1) 19 42 52 54 65 75
26. (    1) 6 21 27 42 48 50 58
27. (    1) 1 15 22 49 51 53 55
28. (    1) 11 15 23 31 53
29. (    1) 19 21 36 49 56 70
30. (    1) 48
31. (    1) 6 21 36 42 49 58
32. (    1) 21 27 36 52
33. (    1) 9 10 36 58 65
34. (    1) 27 50 79
35. (    1) 11 15 31 51 65
36. (    1) 22 31 35 45 53 55
37. (    1) 15 36 51 58
38. (    1) 22 53 55 57
39. (    1) 1 20 22 47 53 57
40. (    1) 21 22 36 49 51
41. (    1) 15 20 21 36 53 76
42. (    1) 51
43. (    1) 1 16 22 30 53 67 77
44. (    1) 16 17 22 49 51 67
45. (    1) 31 35 51 65
46. (    1) 49 65 66

GeSHi © Codebox Plus

To już więcej informacji, są tu wypisane w kolejnych wierszach unikalne trafienia wzajemne, licznik tych trafień to liczba w nawiasach okrągłych. Jak widać żadna kombinacja nie powtórzyła się. Ale my szukamy trójek. Trójek powtórzonych nie ma ale mogły się trójki ukryć w czwórkach, piątkach itd.
Nazwiemy ten zestaw wyników Drugą sekcją wyników. W zestawie wyników jest też trzecia sekcja. Krótko wyjaśnię i wrócę do wyników zestawu drugiego :

Code: [Select all] [Expand/Collapse] [Download] (Untitled)

1. [poz] (hit) set .........................
2. [  3] (   47)  1, 6,13,15,20,21,22,29,36,41,42,47,49,51,53,55,57,58,74,76
3. [  4] (   45)  7,11,15,20,21,23,27,31,32,36,38,46,52,53,60,62,68,76,78,80
4. [  8] (   45) 16,17,19,21,22,28,34,36,43,49,51,56,60,62,67,70,71,72,73,80
5. [  2] (   44)  1,11,15,16,17,22,23,30,31,35,44,45,49,51,53,55,65,66,67,77
6. [ 10] (   43)  4, 6, 7, 8,13,14,21,24,27,29,38,42,48,50,51,58,59,60,62,64
7. [  5] (   43)  2, 3, 4, 9,10,11,15,18,26,31,33,36,38,40,51,58,62,65,71,72
8. [  1] (   41) 6, 9,10,19,21,27,36,42,48,49,50,52,54,56,58,65,66,70,75,79
9. [  7] (   40)  1, 5,16,20,22,26,30,38,39,43,47,48,53,57,62,63,67,68,72,77
10. [  6] (   38)  3, 5,14,22,24,27,28,31,34,35,37,39,45,50,53,55,57,64,72,79
11. [  9] (   38)  4, 5, 8,12,19,31,32,33,34,35,42,51,52,54,61,62,65,69,75,78

GeSHi © Codebox Plus

wynika stąd że najwięcej trafień wzajemnych ma losowanie z linii 3 pola "zakłady" [ 3]
trafiło 47 liczb w 10 ostatnich losowaniach. Jak wkleimy to losowanie do pola edycji losowań i policzymy podświetlone trafienia to bedzie ich razem 47 w 10 losowaniach.

Wracamy do deugiego zestawu wyników. Wiemy że nie ma trójek bezpośrednich ale są 4 ki, 5 ki itd które mogą kryć trójki.
Usuwamy z zestawu wiersze króre maja 3 i mniej liczb. Gdyby trójki na tym etapie były trafione więcej niż raz to należy pobrać do nowego zestawu.
A więc krótko wywalamy wszystkie j ki i dwójki jak leci a trójki te które trafine były tylko raz.
Znanym sposobem zaznaczania blokowego usuwamy liczniki w nawiasach ( 1), cała kolumnę od nawiasu do nawiasu. I otrzymujemy nowy zestaw który ponownie poddamy selekcji skryptem, wiec wklejamy go do pola "zakłady" :

Code: [Select all] [Expand/Collapse] [Download] (Untitled)

1. 26 38 62 72
2. 36 51 62 71 72
3. 4 31 33 51 62 65
4. 7 21 27 38 60 62
5. 31 32 52 62 78
6. 11 15 31 36 38 62
7. 20 38 53 62 68
8. 21 36 60 62 80
9. 4 38 51 58 62
10. 5 22 39 53 57 72
11. 19 34 51 62
12. 21 51 60 62
13. 4 8 42 51 62
14. 16 22 43 62 67 72
15. 22 28 34 72
16. 5 31 34 35
17. 14 24 27 50 64
18. 6 13 21 29 42 51 58
19. 19 42 52 54 65 75
20. 6 21 27 42 48 50 58
21. 1 15 22 49 51 53 55
22. 11 15 23 31 53
23. 19 21 36 49 56 70
24. 6 21 36 42 49 58
25. 21 27 36 52
26. 9 10 36 58 65
27. 11 15 31 51 65
28. 22 31 35 45 53 55
29. 15 36 51 58
30. 22 53 55 57
31. 1 20 22 47 53 57
32. 21 22 36 49 51
33. 15 20 21 36 53 76
34. 1 16 22 30 53 67 77
35. 16 17 22 49 51 67
36. 31 35 51 65

GeSHi © Codebox Plus

uruchamiamy skrypt i otrzymujemy :

Code: [Select all] [Expand/Collapse] [Download] (Untitled)

1. (hit) set .........................
2. (   44) 51
3. (   41) 62
4. (   21) 22
5. (   18) 36
6. (   18) 21
7. (   15) 31
8. (   14) 53
9. (   12) 21 36
10. (   12) 51 62
11. (   10) 38 62
12. (    7) 65
13. (    6) 42
14. (    6) 58
15. (    6) 22 53
16. (    4) 49
17. (    4) 72
18. (    3) 36 58
19. (    3) 34
20. (    3) 19
21. (    3) 21 51
22. (    3) 21 36 49
23. (    3) 22 53 55
24. (    3) 1 22 53
25. (    3) 22 49 51
26. (    3) 15 51
27. (    3) 15 53
28. (    3) 31 35
29. (    3) 22 53 57
30. (    3) 6 21 42 58
31. (    3) 16 22 67
32. (    3) 22 72
33. (    3) 21 60 62
34. (    3) 21 27
35. (    3) 31 51 65
36. (    3) 36 62
37. (    3) 31 62
38. (    3) 4 51 62
39. (    3) 52
40. (    3) 15
41. (    3) 62 72
42. (    3) 51 58
43.  
44.  
45. (    3) 20 53
46. (    3) 15 36
47. (    3) 36 51
48. (    3) 11 15 31
49. (    2) 27
50. (    1) 31 53
51. (    1) 5
52. (    1) 42 51
53. (    1) 27 50
54.  

GeSHi © Codebox Plus

jak widać, nasze zadanie nie da żądanego wyniku : w 10 losowaniach w kombinacji piątek trafić trójki co najmniej 5 razy.
Ponieważ największa ilość trafień trójek wynosi 3 -> ( 3) 21 36 49, co prawda jest jeszcze czwórka ale ona nie da dodatkowych trójek niz te trzy krórych kombinacje zawiera. Zresztą możemy ponownie przepuscić zestaw przez skrypt. I nie znajdziemy tych pieciu trójek. Czyli zadanie to dla załozonych kryteriów nie ma rozwiązania.

Uwaga ciekawostka : przepuszczając do końca w kółko zestaw na końcu otrzymamy zestaw chyba gorący ???:
21 22 36 51 53 62 , ciekawe jak zachowa się w następnych losowaniach ???.



pozdrawiam
AK

[piotr67]

Dziękuję za odpowiedź ,a już myślałem że wszyscy są na urlopach

[Kmicic]

Dziękuję za odpowiedź ,a już myślałem że wszyscy są na urlopach

O rany "URLOP" to brzmi jak słodkie wspomnienie z dzieciństwa. No ale chcieliśmy kapitalizmu to nie można mieć pretensji że teraz egzotycznie brzmi słowo URLOP .

Ale trzeba przyznać że pierwszego dnia metoda na wyczerpanie (tzn w kółko przepuszczanie przez skrypt trafień wzajemnych) w pierwszym dniu sprawdza się dała na 6 liczb trafienia 3 i 2 czyli powyżej normy (25%) odpowiednio 50 i 33%.


Na dziś tym sposobem zestaw 3 ki : 20 21 22 ciekawe ?
można też uwzględnić trójkę która wczoraj nie weszła a więc 36 51 53

można te trójki wymnożyć każda z każdą na dwójki, ręcznie lub posłużyć się skryptem all2all.php :

Code: [Select all] [Expand/Collapse] [Download] (Untitled)

1.  <?php
2.  /*  skrypt mno¿y zestawy z pola "zakłady" i pola "wyniki"
3.  /   każdy z każdym. Dwa pierwsze wiersze to parametry
4.  /   jeżeli nie chcesz aby w zestawach liczby były unikalne
5.  /   ustaw parametr  $remove_duplicates    =true (false wyłacza opcję)
6.  /   jeżeli chcesz wynik posortować w wierszach ustaw parametr
7.  /   $sorted              = true;
8.  /   wynik wyœwietla siê w polu wybranym w opcjach SkryptyPHP->Opcje->
9.  /   wyjście do lewego lub prawego panela. Rezultat zamazuje wówczas
10.  /   zestaw wejściowy. Aby wrócić do zestawu możesz wcisnąć klawisze
11.  /   ctrl+c aż pojawi się zestaw wejściowy ponownie.
12.  */
13.  
14. $remove_duplicates    =true;  // =false jeżeli duplikaty w linii są potrzebne
15. $$duplicates_out      = true; // =true nie wyświetlaj okrojonych zestawów
16. $sorted              = true;  // = false jeżeli liczby maja być nie sortowane
17.  
18. $memoa=trim(delphi_str_memoa());  // pobiera zestaw z pola zakłady
19. $memob=trim(delphi_str_memob());  // jw z pola wyniki (trim czyści puste spacje)
20.  
21. $linesa=preg_split("'\r?\n'",$memoa); // zestawy rozdziela do tablic wg
22. $linesb=preg_split("'\r?\n'",$memob); // znaków koñca linii za pomoc¹ wyrażenia regularnego
23. // wyrażenie w wolnym tłumaczeniu oznacza, rozdziel tekst jak trafisz lub nie na znak
24. // powrotu karetki(\r?) i na znak końca linii (\n). Dla Windowsa końcem linii jest para \r\n
25. // dla unixa tylko (\n) dlatego znak warunku ? za znakiem \r - 0 lub 1 raz.
26.  
27. foreach($linesa as $la) // linie rozdzielone na tablice znaków
28.         $arra[]=preg_split("'[^0-9]+'", trim($la));
29. foreach($linesb as $lb)
30.         $arrb[]=preg_split("'[^0-9]+'", trim($lb));
31. // linie rozdziela siê wyrażeniem regularnym grupującym znaki z negacją
32. // [^0-9]+ co znaczy NIE znaki z zakresu 0-9 a wiec zestawy mogą być
33. // rozdzielone dowolnym znakiem np 1,2,3,4 lub 1:2:3:4 ..., znak plus(+)
34. // za grupa mówi ze znaków może być 1 lub więcej razy.
35.  
36. $out=array(); // deklaracja pustej tablicy wyjściowej
37.  
38. // ty zaczyna sie pêtla iteracji po tablicach, jest zagnieżdżona wiec
39. // bedzie spe³niony warunek każda z każdym
40. foreach($arra as $a) { // dla wszystkich tablic z pola "zakłady"
41.     $cnta = count($a);
42.     foreach($arrb as $b) { // dla wszystkich tablic z pola "wyniki"
43.        $cntb = count($b);
44.        $x=(array_merge($a,$b)); // z³ó¿ w jedn¹ tablicê
45.        if ($duplicates_out==true && count($x)!=$cnta+$cntb) continue;
46.        if ($remove_duplicates==true) $x=array_unique($x);  // usuñ duplikaty - opcja
47.        if ($sorted==true) sort($x);  // posortuj tablicę - opcja
48.        $out[]=$x;  // gotowa tablica do deklarowanej tablicy wyjsciowej
49.     // jako nastepny element [], indeksem tablicy bêdzie kolejny numer elementu
50.     // od zera pocz¹wszy.
51.     }
52. }
53.  
54. // wyœwietlamy wyniki
55. foreach($out as $lines) {   // dla każdej tablicy (linii) w tablicy wyjściowej
56.    foreach($lines as $num) { // dla każdej liczby
57.        echo sprintf("%2d ",$num); // wyświetl liczbę sformatowaną wyrażeniem
58.        // "%2d " co znaczy wyprowadź liczbę jako dwa znaki (przed liczby
59.        // jednoznakowe wstawiana jest spacja i za liczbę wstaw również pustą spację
60.        // jeżeli chcesz aby znakiem rozdzielającym być znak tabulacji (tab) to wzór
61.        // formatowania powinien wyglądać : "%2d\t".
62.    }
63.    echo "\n";   // zakończ każdą linie znakiem końca linii. można wstawić typowy znak
64.    // końca linii dla Windowsa czyli "\r\n".
65. }
66.  
67. ?>
68.  

GeSHi © Codebox Plus

w wyniku czego otrzymamy pary :
20 36
20 51
20 53
21 36
21 51
21 53
22 36
22 51
22 53

ciekawe jak wyjdą dziś ?.
Ak

No niestety klapa na całej linii, tylko jedno trafienie w dwu losowaniach. Ale sprawdźmy dalej : Na dziś , te na górze to bardzo gorące:

(hit) set .........................
( 27) 62
( 21) 22
( 21) 19
( 10) 21
-----------------------------------
( 6) 43 67
( 6) 14
( 6) 78
( 3) 5
( 3) 57
( 3) 52
( 3) 72
( 3) 31
( 3) 34
( 1) 51 62

Nie miałem czasu sprawdzić, sprawdzam dziś w 4 kolejnych losowaniach najlepszy wynik to wynik z pierwszego z 4 losowań. Reszta wychodzi mniej więcej srednio.
Reasumujac jak grać na gorace z metody to tylko na najbliższe losowanie. W myśl zasady:
"Jak się trend zauważy to on właśnie się skończył" .


AK