Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 341 342 343 ... 554 555 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | moje ... oprogramowanie |
2020-05-08 (21:51)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 291 412 [ CZCIONKA MONOSPACE ] Jak już kilkakrotnie pisałem, operacje na bitach mają służyć "zwiększeniu" pamięci, a nie przyspieszeniu obliczeń. Wybasz jesli to co napiszę będzie trywialne, ale.... Bajt ma 8 bitów. Każdy bit ma swoją wartość liczbową kolejno od 2^0 do 2^7 czyli 1,2,4,8,16,32,64,128. W interpretacji graficznej bity liczą się od prawej do lewej I tak np zapis bitowy: |0001|0101| przedstawia liczbę 2^4+2^2+2^0 = 21. |1111|1111| to oczywiście 255. I teraz na czym polega mój pomysł. W aktualnej wersji procedury adresowej zapisuję 1 w komórce o wyliczonym adresie. Przy założeniu, że mamy do dyspozycji 5 000 000 bajtów pamięci maksymalny adres układu to właśnie 5 000 000. Ale mając 5 000 000 bajtów mamy tym samym do dyspozycji 40 000 000 bitów. I teraz mając konkretny adr6 do zapisania większy od 5 000 000 znajdujemy "wiersz" bitów do jego zapisu jako w=int(adr6 / 5000 000) a pozycję w tym wierszu adres= adr6 modulo 5 000 000. I teraz pod wyliczonym adresem instrukcją BITOR ustawiamy odpowiedni bit w komórce (jeśli wiersz = 1 ro BITOR(adres,1), jeśli wiersz 4-ty to BITOR(adres,8) itd). Tym samym w jednej komórce pamięci możemy zapisać 8 adresów. --- wpis edytowano 2020-05-08 21:55 --- |
2020-05-08 (21:55)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 291 414 [ CZCIONKA MONOSPACE ] Jak już kilkakrotnie pisałem, operacje na bitach mają służyć "zwiększeniu" pamięci, a nie przyspieszeniu obliczeń. ok doki ale jeśli operacje na bitach spowolnią obliczenia co ......... ja nie widzę postępu....... w szukaniu "grala" ![]() |
2020-05-08 (21:57)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 291 418 [ CZCIONKA MONOSPACE ] https://www.youtube.com/watch?v=D-jSq0gvFRU |
2020-05-08 (21:57)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 291 420 [ CZCIONKA MONOSPACE ] Nie napisałem, że spowalniają. Napisałem że nie przyspieszają. A dlaczego ja wciąż mam -5 ? --- wpis edytowano 2020-05-08 22:01 --- |
2020-05-08 (22:05)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 291 423 [ CZCIONKA MONOSPACE ] Ja zadałem 4z 5 z lini własne innymi słowy 4 liczby pierwsze ostatnia pomijam zaznaczyłem 6 w losowych czyli dwie losowe do czterech z brakujących i jazda no i -3 do teraz ' |
2020-05-08 (22:14)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 291 425 [ CZCIONKA MONOSPACE ] Tzn że coś zmieniłeś w porównaniu z tym co mi polecałeś zrobić na starcie ? |
2020-05-08 (22:16)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 291 426 [ CZCIONKA MONOSPACE ] pisałem że próbuje to i owo bo nie wiem .....co da efekt --> 0 idę na Tv ........ sorry na dziś --> mam dość coverów |
2020-05-08 (22:17)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 291 428 [ CZCIONKA MONOSPACE ] ok, też mam dość na dziś ![]() |
2020-05-08 (22:17)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 291 429 [ CZCIONKA MONOSPACE ] koniec......jest lekko problematyczny o czym widzą kleszek i ...... inni |
2020-05-08 (23:28)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 291 446 [ CZCIONKA MONOSPACE ] Czyli 40 mln adresów w min ... obciążeniu 👍 --- wpis edytowano 2020-05-08 23:29 --- |
2020-05-09 (09:15)![]() Data rejestracji: 2017-07-30 Ilość postów: 199 ![]() | wpis nr 1 291 505 [ CZCIONKA MONOSPACE ] @fair_play Korzystajac z chwilowej przerwy w Twojej dyskusji z 777ch mam do Ciebie pytanie. W watku "Systemy strefowe by 777ch" kolega @edi8 zamiescil cztery systemy Twojego autorstwa n-0 z warunkiem, aby liczby w rzedach i kolumnach wystepowaly na roznych pozycjach / wpis nr 1017062 /. Czy "System #4 na 36 liczb w 6 strefach po 6 i z gwarancją n-0 na 720 zakładów" ukladales "recznie", czy tez korzystales z aplikacji ? Czy jestes w posiadaniu systemu na powyzszych warunkach na szesc stref po osiem liczb ? Z wyliczen wychodzi, ze jest to dosc duzy system. Pozdrawiam |
2020-05-09 (13:57)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 291 547 [ CZCIONKA MONOSPACE ] fair_play jeśli w tablicy bazowych masz piątki brakujące a ustawisz compare 4 własne 4 losowe 6 to algorytm spod przycisku [4/4]tic szuka linii w których 4 pierwsze liczby są w linii coveru i pętla leci tylko po tych liniach inne pomija ale jak zmienisz wartość =0 na 1 obok baz nr: to zobaczysz że cztery liczby są niebieskie ,jedna czerwona stoi a jedna czerwona się zmienia te cztery to już wiadomo cztery pasujące czyli 4|4 a ta co stoi to też własna z tych piątek ale jej nie bierze algorytm pod uwagę przy typowaniu linii codo zgodności a ta co się zmienia to losowa i teraz jeśli ustawisz compare 2 własne 2 a losowe 5 to szukamy linni gdzie mamy zgodność 2 pierwszych liczb 2|2 a próbujemy wstawić 5 własnych w tym wypadku będzie jakby wszystko stało bo pasuje tę piątkę do linii które są godna -->2|2 ale jak zwiększysz losowe do np do 7 to dwie losowe będą się zmieniać 2 niebieskie+3 czerwone będą stały........ tyle jeśli nie schodzimy niżej to trzeba usunąć jedna czasem więcej linii lub zdublować jedną lub kilka linii ...... ale o tym przy jakiejś okazji dziś ....może przed wieczorem ....... ale nie wiem kiedy po 19-tej na pewno mnie nie będzie jutro przed południem.....przy kawie ok 10~~11 spróbuję przełożyć tę brakująca funkcję i przetestować jej działanie,stosując ją .. tylko do wypisu na żądanie. --- wpis edytowano 2020-05-09 13:59 --- |
2020-05-09 (14:44)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 291 563 [ CZCIONKA MONOSPACE ] siger7> Ręczna excelowska przesuwanka Niestety tego o co pytasz nie mam. Może spróbuję i to poprzesuwać... w wolnej chwili Tylko nie wiem czy jest sens bo chyba zamknie to się w ponad 20 000 zakładach. Pozdrawiam --- wpis edytowano 2020-05-09 14:57 --- |
2020-05-09 (14:46)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 291 564 [ CZCIONKA MONOSPACE ] 777ch> Muszę to przeanalizować ![]() Ale jedna rzecz mnie ciekawi. Czy te losowe losujesz ze wszystkich 99 ? Bo migają wszystkie, a nieraz jak nacisnę Stop to wyświetla mi się na zielono liczba losowa spoza zakresu liczb. Pozdrawiam |
2020-05-09 (15:31)![]() Data rejestracji: 2017-07-30 Ilość postów: 199 ![]() | wpis nr 1 291 573 [ CZCIONKA MONOSPACE ] @fair_play Chetnie bym sam "poprzesuwal to i owo", gdybys podpowiedzial 'jak' ? ![]() |
2020-05-09 (16:42)![]() Data rejestracji: 2016-05-12 Ilość postów: 8707 ![]() | wpis nr 1 291 586 [ CZCIONKA MONOSPACE ] siger 7> Umieść w arkuszu Excela w komórkach A1:F6 następująct układ : 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 i uruchom takie makro: Sub przesuwanka6() x = 0 margines = 10 For n1 = 1 To 6 For n2 = 1 To 6 If n2 <> n1 Then For n3 = 1 To 6 If n3 <> n1 And n3 <> n2 Then For n4 = 1 To 6 If n4 <> n1 And n4 <> n2 And n4 <> n3 Then For n5 = 1 To 6 If n5 <> n1 And n5 <> n2 And n5 <> n3 And n5 <> n4 Then For n6 = 1 To 6 If n6 <> n1 And n6 <> n2 And n6 <> n3 And n6 <> n4 And n6 <> n5 Then x = x + 1 Cells(x, margines + 1) = Cells(1, n1) Cells(x, margines + 2) = Cells(2, n2) Cells(x, margines + 3) = Cells(3, n3) Cells(x, margines + 4) = Cells(4, n4) Cells(x, margines + 5) = Cells(5, n5) Cells(x, margines + 6) = Cells(6, n6) End If Next End If Next End If Next End If Next End If Next Next End Sub Później w komórkach A1:H6 taki układ: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 i uruchom takie makro: Sub przesuwanka8() x = 0 margines = 10 For n1 = 1 To 8 For n2 = 1 To 8 If n2 <> n1 Then For n3 = 1 To 8 If n3 <> n1 And n3 <> n2 Then For n4 = 1 To 8 If n4 <> n1 And n4 <> n2 And n4 <> n3 Then For n5 = 1 To 8 If n5 <> n1 And n5 <> n2 And n5 <> n3 And n5 <> n4 Then For n6 = 1 To 8 If n6 <> n1 And n6 <> n2 And n6 <> n3 And n6 <> n4 And n6 <> n5 Then x = x + 1 Cells(x, margines + 1) = Cells(1, n1) Cells(x, margines + 2) = Cells(2, n2) Cells(x, margines + 3) = Cells(3, n3) Cells(x, margines + 4) = Cells(4, n4) Cells(x, margines + 5) = Cells(5, n5) Cells(x, margines + 6) = Cells(6, n6) End If Next End If Next End If Next End If Next End If Next Next End Sub a na deser w komórkach A1:G7 taki układ: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 i takie makro: Sub przesuwanka7() x = 0 margines = 10 For n1 = 1 To 7 For n2 = 1 To 7 If n2 <> n1 Then For n3 = 1 To 7 If n3 <> n1 And n3 <> n2 Then For n4 = 1 To 7 If n4 <> n1 And n4 <> n2 And n4 <> n3 Then For n5 = 1 To 7 If n5 <> n1 And n5 <> n2 And n5 <> n3 And n5 <> n4 Then For n6 = 1 To 7 If n6 <> n1 And n6 <> n2 And n6 <> n3 And n6 <> n4 And n6 <> n5 Then For n7 = 1 To 7 If n7 <> n1 And n7 <> n2 And n7 <> n3 And n7 <> n4 And n7 <> n5 And n7 <> n6 Then x = x + 1 Cells(x, margines + 1) = Cells(1, n1) Cells(x, margines + 2) = Cells(2, n2) Cells(x, margines + 3) = Cells(3, n3) Cells(x, margines + 4) = Cells(4, n4) Cells(x, margines + 5) = Cells(5, n5) Cells(x, margines + 6) = Cells(6, n6) Cells(x, margines + 7) = Cells(7, n7) End If Next End If Next End If Next End If Next End If Next End If Next Next End Sub Miłej zabawy ![]() |
2020-05-09 (16:44)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 291 588 [ CZCIONKA MONOSPACE ] fair_play Ale jedna rzecz mnie ciekawi. Czy te losowe losujesz ze wszystkich 99 ? Bo migają wszystkie, a nieraz jak nacisnę Stop to wyświetla mi się na zielono liczba losowa spoza zakresu liczb. ------------------------------------------------------- fair_play To że widzisz liczby ,to zasługa Stringgrida ale ponieważ stosuję różne techniki,często połączone to żeby zobaczyć poprawność zrobiłem wczytywanie danych do grida ale niestety muszę go podczyszczać a podczyszczam cały ,ale ja tego nie włączam wcale jak coveruję...... tylko jak coś dostawiam czyli nowa procedurę ,to poglądam jak się wykonuje bo to procedury wewnętrzne grida select cell i draw cell ale możesz spokojnie repaint na checkbox-ie odznaczyć wtedy nie będziesz nic widział...... a program robi swoje -->to tylko niepotrzebny podgląd , bo liczby losują się w procedurach ale zawsze mona w trakcie działania zaznaczyć i zobaczyć co się dzieje grid ma również inne zastosowania ale to dla randomizera oraz ont --- wpis edytowano 2020-05-09 16:47 --- |
2020-05-09 (19:28)![]() Data rejestracji: 2017-07-30 Ilość postów: 199 ![]() | wpis nr 1 291 609 [ CZCIONKA MONOSPACE ] @fair_play Wszystko odpalilo blyskawicznie i bezproblemowo, "bawie" sie dalej, dzieki, pozdrawiam ![]() |
2020-05-09 (21:10)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 291 631 [ CZCIONKA MONOSPACE ] C(35,10,5,5) = 2562 zgłoszone. Walczymy dalej ![]() |
2020-05-09 (21:36)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 291 645 [ CZCIONKA MONOSPACE ] C(35,10,5,5) = 2561 zgłoszone |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 341 342 343 ... 554 555 Wyślij wiadomość do admina |