Código de Fortran - Ecuaciones lineales

<<>>

Ecuaciones linealesgráfica de visualizaciones


Fortran

estrellaestrellaestrellaestrellaestrella(5)
Publicado el 25 de Agosto del 2005 por Jose Perez Rios
16.912 visualizaciones desde el 25 de Agosto del 2005. Una media de 35 por semana
Codigo sencillo que resulve un sistema
de ecuaciones lineales de 2X2.
Realizado en Fortran 90.

Versión 1
estrellaestrellaestrellaestrellaestrella(5)

Publicado el 25 de Agosto del 2005gráfica de visualizaciones de la versión: Versión 1
16.913 visualizaciones desde el 25 de Agosto del 2005. Una media de 35 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program Ecua_linales2
implicit none
real*4 x,y,a1,b1,a2,b2,c1,c2
write(*,*)'***********Bienvenidos**************'
write(*,*)''
write(*,*)'Este programa resuelve un sistema de ecuaciones de la forma'
write(*,*)'a1*X+b1*Y=c1'
write(*,*)'a2*X+b2*Y=c2'
write(*,*)'Constituye un primer inicio en el aprendizaje de Fortran'
write(*,*)'Escribe las constantes,a1,b1,c1,a2,b2,c2 En ese orden'
read(*,*)a1,b1,c1,a2,b2,c2
if (a1==a2 .and. b1==b2) then
write(*,*)'Son lineas paralelas'
else
x=(c1*b2-c2*b1)/(a1*b2-a2*b1)
y=(a1*c2-a2*c1)/(a1*b2-a2*b1)
write(*,*)'Las soluciones son:','X=',x,'Y=',y
end if
 
end program



Comentarios sobre la versión: Versión 1 (5)

panic
30 de Junio del 2006
estrellaestrellaestrellaestrellaestrella
que tal jose, si kieres mejorar tu programa me para checar la condiciòn de limealidad se debe tener un cociente entre los coeficientes para ver si tienes como resultado un entero y entonces esto indica ke hay linealidad, de antemano debes de elegir el coeficiente mayor para que lo uses de dondominador.

que te sea leve ... bye
Responder
fabiola sarahi
17 de Mayo del 2007
estrellaestrellaestrellaestrellaestrella
Ha realizado una valoración positiva de este curso.
Responder
Carmen
26 de Noviembre del 2011
estrellaestrellaestrellaestrellaestrella
de casualidad no tienes el codigofuente para realizar una matriz?
Responder
Alexander
06 de Junio del 2014
estrellaestrellaestrellaestrellaestrella
Hola necesito el programa para una matriz de 3x3 crees q me puedas ayudar mi correo es neo_92_92@hotmail.com
Responder
cristhian
04 de Noviembre del 2014
estrellaestrellaestrellaestrellaestrella
program matriz

real(8), dimension (1:3,1:3) ::a

!definiendo los valores

a(1,1)=1
a(1,2)=0
a(1,3)=0
a(2,1)=0
a(2,2)=1
a(2,3)=0
a(3,1)=0
a(3,2)=0
a(3,3)=1

print*, a

end matriz
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s1212