Código de Fortran - Ecuaciones lineales

<<>>
sin imagen de perfil

Ecuaciones linealesgráfica de visualizaciones


Fortran

Publicado el 25 de Agosto del 2005 por Jose Perez Rios
25.603 visualizaciones desde el 25 de Agosto del 2005
Codigo sencillo que resulve un sistema
de ecuaciones lineales de 2X2.
Realizado en Fortran 90.

Versión 1
estrellaestrellaestrellaestrellaestrella(6)

Publicado el 25 de Agosto del 2005gráfica de visualizaciones de la versión: Versión 1
25.604 visualizaciones desde el 25 de Agosto del 2005
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 (6)

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
17 de Mayo del 2007
estrellaestrellaestrellaestrellaestrella
Ha realizado una valoración positiva de este curso.
Responder
26 de Noviembre del 2011
estrellaestrellaestrellaestrellaestrella
de casualidad no tienes el codigofuente para realizar una matriz?
Responder
6 de Junio del 2014
estrellaestrellaestrellaestrellaestrella
Hola necesito el programa para una matriz de 3x3 crees q me puedas ayudar mi correo es [email protected]
Responder
cristhian
4 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
29 de Marzo del 2017
estrellaestrellaestrellaestrellaestrella
como se ejecuta?
Responder

Comentar la versión: Versión 1

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

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s1212