pontifícia universidade católica de minas gerais análise de novos ...

212
Figura 26 - Algoritmo para teste numérico-matemático das novas equações de
cálculo. A função Aleatorio() retorna um número real randômico (aleatório)
entre -1 (menos um) e 1 (um), diferente a cada chamada da função.
Algoritmo
|Entre com N // Número de Imagens
|Entre com B[r,s], C[r,s], E[r,s], F[r,s] // Coeficientes das equações
|Entre com NTESTE // Número de testes à serem feitos (tipo
10000)
|Entre com PRECISAO // Precisão dos testes (tipo 0,0000001)
|
|Pi = 3.1415926535897932
|FI = - Pi / 4
|PASSO = N ou 16 ou 19
|
|Para r de 1 até N
| | TETA[r] = ( Pi / 2 ) * ( r – 1 ) / ( PASSO – 1 ) – Pi / 4
|Fim Para
|
|CONTADOR = 0
|ACERTOS = 0
|ERROS = 0
|
|Repita
||
||CONTADOR = CONTADOR + 1
||ALFA = (Pi / 4) * Aleatorio()
||DELTA = (Pi / 2) * Aleatorio()
||K = 255 * Aleatorio()
||
||Para r de 1 até N
|| | I[r] = K*(1-sin(2*(TETA[r]-FI))*cos(DELTA)-sin(2*(FI-ALFA))*cos(2*(TETA[r]-
FI))*sin(DELTA))
||Fim Para
||
||SOMAB = 0
||SOMAC = 0
||SOMAE = 0
||SOMAF = 0
||
||Para r de 1 até N
|| | Para s de r até N
|| | | SOMAB = SOMAB + B[r,s] * I[r] * I[s]
|| | | SOMAC = SOMAC + C[r,s] * I[r] * I[s]
|| | | SOMAE = SOMAE + E[r,s] * I[r] * I[s]
|| | | SOMAF = SOMAF + F[r,s] * I[r] * I[s]
|| | Fim Para
||Fim Para
||
||Se Abs( ALFA – arctan(sqrt(abs( SOMAB / SOMAC ))) / 2 ) < PRECISAO e
||| Abs( DELTA - arctan(sqrt(abs( SOMAE / SOMAF ))) ) < PRECISAO
||| Então ACERTO = ACERTO + 1
||| Senão ERRO = ERRO + 1
||Fim Se
||
|Até CONTADOR = NTESTE
|
|Escreva(ACERTO, ERRO) // Número de acertos e erros com utilização das
equações
Fim algoritmo
Fonte: Resultados da pesquisa.
Nota-se que todas as equações apresentadas nesta pesquisa passaram pelo
teste numérico matemático acima descrito. Para isso, foi criado um programa em
Delphi 7.0/Pascal® da Borland Software Corporation 4 , onde cada equação foi
4 http://www.borland.com