Algoritmo - Raiz complexas

PROGRAM newton2
IMPLICIT NONE
REAL(8):: precisao, x, y
INTEGER(2):: n
PRINT*, "digite valor inicial para x"
READ*, x
n=0
precisao=1D0

DO WHILE (precisao>0.00001D0)
y = (4*x**3-20*x)*EXP(-x)-(x**4-10*x**2)*EXP(-x)
precisao = ABS(x-y)
x=y
PRINT*, n, x
n=n+1
ENDDO
PRINT* , "A RAIZ DA FUNCAO E",y
PRINT* , "com", n, "interacoes"

END PROGRAM newton2

Algoritmo Fortran -

Olá Pessoal, este algoritmo em fortran 90 para encontrar as raízes de uma função pelo método de Newton-Raphson

T(x)=x-f(x) / f'(x)

--------------------------------------------------
PROGRAM newton
IMPLICIT NONE
REAL(8):: precisao, x, y
INTEGER(2):: n
PRINT*, "digite valor inicial para x"
READ*, x
n=0
precisao=1D0

DO WHILE (precisao>0.000001D0)
y = x - ((x**2-3*x+2)/(2*x-3))
precisao = ABS(x-y)
x=y
n=n+1
ENDDO
PRINT* , "A RAIZ DA FUNCAO E",y
PRINT* , "com", n, "interacoes"

END PROGRAM newton

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

LibreOffice no Lugar do OpenOffice

O OpenOffice foi, por muito tempo, a suíte de escritório padrão do mundo Linux. O “problema” é a suíte era coordenada por uma empresa, anteriormente a Sun, e agora a Oracle, que comprou a primeira. Como a Oracle tem um lado um tanto obscuro e a comunidade, que sempre auxiliou no desenvolvimento, sentiu que essa asa negra poderia encobrir o OpenOffice, foi tomada a decisão de se criar um fork, dessa vez totalmente controlado pela comunidade, que ganhou o nome de LibreOffice.

Embora a mudança inicial seja aparentemente estética – novos ícones, novo splash e novo nome, já é possível notar uma sensível alteração na inicialização do programa, que está bem mais rápida, e na própria performance do mesmo.

Fonte: Fedora.org