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

Algoritmo em Fortran - Numeros Pares e Impares

Olá pessoal, segue um exercício sugerido pelo professor de Matemática Aplicada.

Fortran 90

Um bom programa para compilar o código é o Geany, porém você pode fazer a compilação manual no terminal, basta instalar o biblioteca gfortran e geany pelo yum. yum install gfortran

para fazer a compilação pelo terminal faça o seguinte:

1 . crie um pasta onde você armazenará os seus arquivos

2 . Com o gedit crie o seu código e salve nomedoarquivo.f90

3. Com o terminal acesse sua pastas e execute o arquivo: gfortran nomedoarquivo.f90 -o nomedoarquivo

4. Dê um ls para listar o conteudo da pasta e faça ./nomedoarquivo

Crie um programa que gere um arquivo de dados que classifique os números de 1 até 30 em par ou ımpar, isto é, que gere a saída:”1” ımpar “2” par “3” ımpar...

PROGRAM ImPar
IMPLICIT NONE
INTEGER(2) :: y, cont
cont=1
OPEN(1,FILE=’Impar.dat’,status=’unknown’)
DO WHILE (cont<=30)
y=mod(cont,2)
IF (y/=0) THEN
PRINT*, cont, 'é impar'
cont=cont+1

ELSEIF (cont<=30) THEN
PRINT*, cont, 'é par'
cont=cont+1
ENDIF
ENDDO
END PROGRAM

========================
Com tres variáveis
========================
PROGRAM ImPar
IMPLICIT NONE
INTEGER(2)::resto, x, cont
x=1
cont=1

DO WHILE (cont<=30)
resto=mod(x,2)
IF (resto/=0) THEN
PRINT*, x, 'é impar'
x=x+1
cont=cont+1
ELSEIF (cont<=30) THEN
PRINT*, x, 'é par'
x=x+1
cont=cont+1

ENDIF
ENDDO
END PROGRAM

===========
SALVANDO ARQUIVO DE TEXTO
===========
PROGRAM impar
IMPLICIT NONE
INTEGER(2) :: y, cont
cont=1
OPEN(1,FILE='impar.dat',status='unknown')

DO WHILE (cont<=30)
y=mod(cont,2)
IF (y/=0) THEN
PRINT*, cont, 'é impar'
WRITE(1,*),cont
cont=cont+1

ELSEIF (cont<=30) THEN
PRINT*, cont, 'é par'
WRITE(1,*),cont
cont=cont+1

ENDIF
ENDDO
CLOSE(1)
END PROGRAM impar

Ouvir Músicas pelo Terminal

Olá Pessoal,
Essa dica é para pessoas que como eu gostam de ouvir músicas enquanto trabalham e/ou estudam. essa dica foi dada por Milton Quirino (quirinno.com.br), e eu achei muito interessante e resolvi postá-la para compartilhar com a comunidade Fedora.

1 - O primeiro passos é entrar no terminal alt+f2, digite: konsole (para usuários fedora).
2 - Depois de aberto o terminal, digite: mpg321 opção caminho_para_a_musica;
Ex.: $ mpg321 -g 50 /media/Arquivos/Musicas/LeonardoGoncalves/obrigado.mp3
3 - A opção -g 50 significa o volume gain que tem a variação de 0 a 100;
Pronto é isso aí a música já vai estar tocando em seu terminal.

No entanto se você precisar utilizar o terminal para fazer outras coisas, você dá Ctrl+Z, ele irá dá uma pausa então você coloca a música em segundo plano Digitando no terminal bg. agora sim você pode trabalhar e ouvir música no terminal.
4 - Para você ver o que se passa em segundo você digita: jobs e irá aparecer
[1]+ Executando mpg321 /media/Arquivos/
esse primeiro número que aparece é um identificador do processo que você pode traze-lo para frente utilizando o fg numero_do_processo que no nosso caso é o 1 Ex.: fg 1
5 - Para cancelar o processo você tem que tê-lo no primeiro plano e apertar ctrl +C
6 - se você quiser ouvir uma pasta inteira utilize da seguinte forma:
$ mpg321 -g 80/media/Arquivos/Musicas/LeonardoGoncalves/*

Espero que vocês tenham gostado...