Ivan Diesel

terça-feira, 19 de junho de 2012

Convex HULL

Para objetos planos, isto é, restritos ao plano, a envoltória convexa pode ser facilmente visualizada de uma tira elástica que ao ser esticada envolva todo o objeto dado, quando ela é solta, ela assumirá a forma requerida da envoltória convexa.

Feito em Delphi e por Ivan Diesel.

segunda-feira, 5 de março de 2012

Conjecture de Adição de Números Primos

É nova conjectura, provavelmente, é como conjectura de Goldbach.
Proposta pelo programador Ivan Diesel, são que diz que todo número primo maior ou igual a 5 é a soma de até 4 primos.

Por exemplo:
        5 = 3+ 2
         7 = 5+ 2
        11 = 7+ 2 + 2
        13 = 11+ 2
        17 = 13+ 2 + 2
        19 = 17+ 2
        23 = 19+ 2 + 2
        29 = 23+ 3 + 3
        31 = 29+ 2
        37 = 31+ 3 + 3
        41 = 37+ 2 + 2
        43 = 41+ 2
        47 = 43+ 2 + 2
        53 = 47+ 3 + 3
        59 = 53+ 3 + 3
        61 = 59+ 2
        67 = 61+ 3 + 3
        71 = 67+ 2 + 2
        73 = 71+ 2
        79 = 73+ 3 + 3
        83 = 79+ 2 + 2
        89 = 83+ 3 + 3
        97 = 89+ 5 + 3
       101 = 97+ 2 + 2

Verificações por computador já confirmaram a minha conjectura para vários números ( até 100000000 ou . No entanto, a efetiva demonstração matemática ainda não ocorreu acima de 4 primos sejam somar.

Resutlado

Encontraram quais 4 números primos somam:
1:      604171 = 604073+89+7+2
2:     1140091 = 1139993+89+7+2
3:     2010881 = 2010733+139+7+2
4:     2045311 = 2045213+89+7+2
5:     2612647 = 2612549+89+7+2
6:     3117421 = 3117299+113+7+2
7:     3851587 = 3851459+113+13+2
8:     3909019 = 3908921+89+7+2
9:     4049707 = 4049609+89+7+2
10:    4294039 = 4293941+89+7+2
11:    4352377 = 4352279+89+7+2
12:    4356661 = 4356563+89+7+2
13:    5001907 = 5001809+89+7+2
14:    5268397 = 5268299+89+7+2
15:    5646229 = 5646131+89+7+2
16:    5783677 = 5783579+89+7+2
17:    6091207 = 6091109+89+7+2
18:    6216697 = 6216599+89+7+2
19:    6252709 = 6252611+89+7+2
20:    6433519 = 6433421+89+7+2
21:    6435277 = 6435179+89+7+2
22:    6613753 = 6613631+113+7+2
23:    7217527 = 7217429+89+7+2
24:    7230479 = 7230331+139+7+2
25:    7336267 = 7336169+89+7+2
26:    7375981 = 7375883+89+7+2
27:    7460611 = 7460513+89+7+2
28:    7522741 = 7522643+89+7+2
29:    8299891 = 8299793+89+7+2
30:    8717491 = 8717393+89+7+2
31:    8881501 = 8881403+89+7+2
32:    8905321 = 8905199+113+7+2
33:    8978059 = 8977961+89+7+2
34:    9171229 = 9171131+89+7+2
35:    9360181 = 9360083+89+7+2
36:    9810781 = 9810653+113+13+2

Até momento, 1000000000 ( 10^9) números, permaneceram somar 4 números primos!
Alguém consegue acima de 4 primos sejam somar?

sexta-feira, 10 de fevereiro de 2012

Nova fórmula de inversão de fatorial

Chama-se ifatorial. É inversão de fatorial. simbolo: ¡

Exemplo:

2! = 2          2¡ = 2

3! = 6          6¡ = 3

4! = 24        24¡ = 4

5! = 120      120¡ = 5

6! = 720      720¡ = 6

7! = 5040    5040¡ = 7   

Formula de Fatorial:

2! = 1 x 2 = 2          

3! = 1 x 2 x 3 = 6         

4! = 1 x 2 x 3 x 4 = 24 

5! = 1 x 2 x 3 x 4 x 5 = 120    

6! = 1 x 2 x 3 x 4 x 5 x 6 = 720      

7! = 1 x 2 x 3 x 4 x 5 x 6 x 7 = 5040

Formula de Ifatorial:

   2¡ =    2 = 2

   6¡ =    6 / 2 = 3

  24¡ =   24 / 2 / 3 = 4 

 120¡ =  120 / 2 / 3 / 4 = 5

 720¡ =  720 / 2 / 3 / 4 / 5 = 6

5040¡ = 5040 / 2 / 3 / 4 / 5 / 6 = 7

---------------------------------------

Teoria de Números

O que aconteceu se o 3¡ ? E 4¡ ? Como é que calcular?

Quem provou, ganhará milionário!

Obrigado!

Ivan Diesel

quinta-feira, 27 de outubro de 2011

SUDOKU COM INTELIGÊNCIA ARTIFICIAL

Sudoku com Inteligência Artificial foi desenvolvido por Ivan Diesel com apoio de raciocínio Alexandre Couto, que não conseguia de jeito nenhum resolver uma determinada configuração de jogo Sudoku que a fez ficar muito difícil ou impossível.

Ivan e Alexandre gostam de analisar o que o computador pode ou não fazer tanto para solucionar como para criar os jogos. Para o sudoku padrão (9 x 9), é relativamente simples escrever programas que resolvem todos os quadrados válidos.
Conseguem resolver todos os níveis (dificil, extremamente dificil, impossível e diabólico) com SUCESSO!!

Para adquirir os códigos de fonte em DELPHI e os algoritmo, favor dar o comentário!!

Abraço com forte pensamento!
Ivan Diesel

Software de Sudoku IA. É melhor solução do mundo!

Listagem de algoritmo "Póssivel" em Linguagem DELPHI:

procedure TForm1.possivel; // gerar os números possíveis
var
x, y, n: integer;
s: string;
function tem_cruz(x, y, n: integer): boolean;
var
    f: integer;
    v: boolean;
begin
    v := false;
    for f := 1 to 9 do
      if ((n = sud[f, y]) and (x <> f)) or ((n = sud[x, f]) and (y <> f)) then
        v := true;
    result := v;
end;
begin
for y := 1 to 9 do
    for x := 1 to 9 do
    begin
      supos[x, y] :='';
      s := '';
      if sud[x, y] = 0 then
        for n := 1 to 9 do
          if (not celula(x, y, n)) and (not tem_cruz(x, y, n)) then
            s := s + inttostr(n);
      supos[x, y] := s;
    end;
end;