Znaleziono 143 wyniki

autor: ksisquare
14 kwie 2021, o 02:33
Forum: Informatyka
Temat: [Delphi] Liczby Mersenne'a
Odpowiedzi: 5
Odsłony: 1309

Re: [Delphi] Liczby Mersenne'a

Może się przyda var p, i, n: longword; //32 bity s, n1: int64; //64 bity begin p:=2; n:=3; // n = 2^p - 1 n1:=2; // n1 = 2^(p-1) // n1*n może być liczbą doskonałą repeat s:=4; // 1. Lucas-Lehmer test for i:=3 to p do // 2. s:=(s*s - 2) mod n; // 3. if (s=0) or (p=2) then // 4. writeln('Mersenne=2^',...
autor: ksisquare
20 gru 2015, o 21:22
Forum: Mechanika - pozostałe zagadnienia
Temat: Świat dysku
Odpowiedzi: 1
Odsłony: 643

Świat dysku

Jak wygląda przekrój przez ten glob? Tak aby pion od centrum po granice był pionowy?
autor: ksisquare
7 lis 2015, o 03:03
Forum: Drgania i fale
Temat: Radioteleskop, jak to działa?
Odpowiedzi: 1
Odsłony: 722

Radioteleskop, jak to działa?

Rozumiem (?) jak działa soczewka/lustro. W widzialnym paśmie. Widziałem teleskop.
Widziałem radioteleskop. A co on tam ma w ognisku? Jak to działa, jak uzyskać dwuwymiarowy obraz? Gdzie o tym poczytać?
autor: ksisquare
2 lis 2015, o 15:55
Forum: Informatyka
Temat: [C++] Ostatnia niezerowa cyfra silni
Odpowiedzi: 13
Odsłony: 3836

[C++] Ostatnia niezerowa cyfra silni

int ld(int n){ int q, t, x, z, ai; q=0; t=0; x=0; if( ((n%5)&1)==0 ) t=n%5; n /= 5; while(n){ ai=n%5; n/=5; q+=ai; x+=q; if((ai&1)==0) t += ai; } z = (x+t/2)%4; if( z==0 ) return 6; else return 1<<z;}
autor: ksisquare
26 cze 2015, o 17:26
Forum: Informatyka
Temat: [C] Język programowania C jak uczyć się
Odpowiedzi: 8
Odsłony: 2897

[C] Język programowania C jak uczyć się

A narwańców \(\displaystyle{ \mu C}\) spotkasz np. tu:
autor: ksisquare
23 cze 2015, o 17:08
Forum: Teoria liczb
Temat: Liczby C.p.n
Odpowiedzi: 1
Odsłony: 577

Liczby C.p.n

jedyne takie to: 125, 581, 8549, 16999

Kod: Zaznacz cały

http://oeis.org/A070308
autor: ksisquare
22 cze 2015, o 12:48
Forum: Informatyka
Temat: [C] Iloczyn pierwszych wyrazów ciągu
Odpowiedzi: 3
Odsłony: 870

[C] Iloczyn pierwszych wyrazów ciągu

\(\displaystyle{ \prod_{i=0}^{7}a(i) > 2^{32}}\)
\(\displaystyle{ \prod_{i=0}^{10}a(i) > 2^{64}}\)-- 24 cze 2015, o 14:14 --

Kod: Zaznacz cały

unsigned int iloczyny[10];

int main(void) {
    unsigned int a=0, p=1, i;
 	for(i=0; i<10; i++) 
		iloczyny[i] = (p *= (a = 2*a + 1));
...
autor: ksisquare
10 cze 2015, o 17:03
Forum: Programy matematyczne
Temat: [Matlab] Suma szeregu z sinusem, niepoprawne wyniki
Odpowiedzi: 5
Odsłony: 3001

[Matlab] Suma szeregu z sinusem, niepoprawne wyniki

mnie rozwija się tak: \(\displaystyle{ sin^2(x)=x^2
- \frac{1}{3} x^4
+ \frac{2}{45} x^6
- \frac{1}{315} x^8
+ \dots}\)

a u Ciebie \(\displaystyle{ x}\) jest w potęgach nieparzystych

a ta kropka np. ".^2" jest OK?
autor: ksisquare
29 maja 2015, o 13:32
Forum: Informatyka
Temat: [Systemy liczbowe] Mnożenie liczb U2
Odpowiedzi: 1
Odsłony: 743

[Systemy liczbowe] Mnożenie liczb U2

a pierwszy czynnik to \(\displaystyle{ 243}\) czy \(\displaystyle{ -13}\)?
autor: ksisquare
17 kwie 2015, o 11:45
Forum: Informatyka
Temat: [Systemy liczbowe] Arytmetyka na dużych liczbach
Odpowiedzi: 3
Odsłony: 813

[Systemy liczbowe] Arytmetyka na dużych liczbach

taka liczba to bitowa unia
obrazek-matematyka.png
obrazek-matematyka.png (1.72 KiB) Przejrzano 131 razy
autor: ksisquare
15 kwie 2015, o 15:26
Forum: Informatyka
Temat: [Asembler] Reszta z dzielenia
Odpowiedzi: 4
Odsłony: 3029

[Asembler] Reszta z dzielenia

Kod: Zaznacz cały

n = m
while( n>3 )
  n = (n & 3) + (n >> 2)
if( n == 3 ) 
  n = 0
n == m % 3

ogólny sposób na resztę z dzielenia przez liczbę Mersenne'a
autor: ksisquare
5 kwie 2015, o 10:33
Forum: Informatyka
Temat: [C][C++] Zbiór zadań
Odpowiedzi: 4
Odsłony: 881

[C][C++] Zbiór zadań

Kod: Zaznacz cały

https://projecteuler.net/
autor: ksisquare
25 mar 2015, o 02:42
Forum: Informatyka
Temat: [Pascal] liczby doskonałe
Odpowiedzi: 13
Odsłony: 2256

[Pascal] liczby doskonałe

SlotaWoj pisze:... Gdyby poszukiwać nowych liczb Mersenne'a potrzebna byłaby też operacja mod ...
Już mnożenie to spore wyzwanie
autor: ksisquare
24 mar 2015, o 23:42
Forum: Informatyka
Temat: [Pascal] liczby doskonałe
Odpowiedzi: 13
Odsłony: 2256

[Pascal] liczby doskonałe

Jeszcze jedna Mersenne'a się zmieści, ale odpowiadająca jej liczba doskonała wykracza poza zakres "wbudowanych" typów całkowitoliczbowych. Binarna reprezentacja parzystych Doskonałych to p jedynek i p-1 zer, wystarczy więc tablica 48 małych liczb. Szukanie doskonałych przez rozkład na czyn...
autor: ksisquare
23 mar 2015, o 15:23
Forum: Informatyka
Temat: [Algorytmy] Dwa elementy tablic T1 i T2 dające sumę x
Odpowiedzi: 5
Odsłony: 994

[Algorytmy] Dwa elementy tablic T1 i T2 dające sumę x

Wielkie "O" połknie stałą.