Fortran Sumatoria FORTRAN

[Pris]

Hola!! Buenas noches, soy algo nueva en este foro pero ya tengo tiempo leyendo posts, ahora necesito ayuda pero no encuentro nada, entonces queria solicitar de su ayuda ):

Tengo que programar una sumatoria en FORTRAN pero no puedo!

La ecuación es:


Mi problema es la que está encerrada en amarillo. Intenté así:

SUM1=0
DO I=1,N
DO J=1,N
SUM1=x(J)*tr(i,j)+sum1
END DO
SUM2=0
SUM3=0
DO K=1,N
DO Z=1,N
SUM2=X(Z)*TR(K,Z)+SUM2
END DO
SUM3=(X(K)*TR(K,I)/SUM2)+SUM3
END DO


GAMMA(I)=EXP(1-LOG(SUM1)-SUM3)
WRITE(*,*)GAMMA(I)


END DO




pero no me da la respuesta que debería dar.

Agradezco ayuda de cualquier tipo !

[Al2000]

Re: Sumatoria FORTRAN

Tu error es sencillo y fácil de corregir. Las instrucciones SUM1=0 y SUM2=0 deben ir dentro del DO:

DO I=1,N  
  SUM1=0   <---- mueve la instrucción aquí
  DO J=1,N
    SUM1=x(J)*tr(i,j)+sum1
  END DO
  SUM3=0
  DO K=1,N
    SUM2=0  <---- mueve la instrucción aquí
    DO Z=1,N
      SUM2=X(Z)*TR(K,Z)+SUM2
    END DO
    SUM3=(X(K)*TR(K,I)/SUM2)+SUM3
 END DO    


 GAMMA(I)=EXP(1-LOG(SUM1)-SUM3)
 WRITE(*,*)GAMMA(I)


 END DO

Saludos,

Al

[Pris]

Re: Sumatoria FORTRAN

GRACIAS!!
Ya funciona mi código
Realmente no esperaba respuesta tan rápido, gracias! Acabas de salvarme de la furia de mi maestro de termodinámica 2

Graciagracias!