Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 341 342 343 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2020-05-08 (21:51)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8708

14865
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 1 291 418
[ CZCIONKA MONOSPACE ]


https://www.youtube.com/watch?v=D-jSq0gvFRU
2020-05-08 (21:57)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8708

14865
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8708

14865
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8708

14865
wpis nr 1 291 428
[ CZCIONKA MONOSPACE ]


ok, też mam dość na dziś
2020-05-08 (22:17)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 1 291 429
[ CZCIONKA MONOSPACE ]

koniec......jest lekko problematyczny
o czym widzą kleszek i ...... inni
2020-05-08 (23:28)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status siger7
Data rejestracji: 2017-07-30
Ilość postów: 199

15381
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8708

14865
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8708

14865
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)

status siger7
Data rejestracji: 2017-07-30
Ilość postów: 199

15381
wpis nr 1 291 573
[ CZCIONKA MONOSPACE ]


@fair_play

Chetnie bym sam "poprzesuwal to i owo", gdybys podpowiedzial 'jak' ?
2020-05-09 (16:42)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8708

14865
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status siger7
Data rejestracji: 2017-07-30
Ilość postów: 199

15381
wpis nr 1 291 609
[ CZCIONKA MONOSPACE ]

@fair_play

Wszystko odpalilo blyskawicznie i bezproblemowo, "bawie" sie dalej, dzieki, pozdrawiam
2020-05-09 (21:10)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4979

2047
wpis nr 1 291 631
[ CZCIONKA MONOSPACE ]

C(35,10,5,5) = 2562 zgłoszone. Walczymy dalej
2020-05-09 (21:36)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4979

2047
wpis nr 1 291 645
[ CZCIONKA MONOSPACE ]


C(35,10,5,5) = 2561 zgłoszone
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 341 342 343 ... 554 555
Wyślij wiadomość do admina