Enviado em 02/03/2012 - 11:34h
Bom dia,
Sou iniciante no Octave e preciso fazer um trabalho da faculdade que consiste em, transcrever uma sub-rotina que está desenvolvida em FORTRAN77 para um script ".m".
Segue o código em FORTRAN77:
SUBROUTINE BILIN(DER, FUN, SAMP, ISAMP, I, J)
REAL DER(2,4),FUN(4),SAMP(ISAMP,2)
ETA = SAMP(I,1)
XI = SAMP(J,1)
ETAM = .25* (1.-ETA)
ETAP = .25* (1.+ETA)
XIM = .25* (1.-XI)
SIP = .25* (1.+XI)
FUN(1) = 4.*XIM*ETAM
FUN(2) = 4.*XIM*ETAP
FUN(3) = 4.*XIP*ETAP
FUN(4) = 4.*XIP*ETAM
DER(1,1) = -ETAM
DER(1,2) = -ETAP
DER(1,3) = ETAP
DER(1,4) = ETAM
DER(2,1) = -XIM
DER(2,2) = XIM
DER(2,3) = XIP
DER(2,4) = -XIP
RETURN
END
Se alguém souber e puder me ajudar.
Muito obrigado de qualquer forma
Sou iniciante no Octave e preciso fazer um trabalho da faculdade que consiste em, transcrever uma sub-rotina que está desenvolvida em FORTRAN77 para um script ".m".
Segue o código em FORTRAN77:
SUBROUTINE BILIN(DER, FUN, SAMP, ISAMP, I, J)
REAL DER(2,4),FUN(4),SAMP(ISAMP,2)
ETA = SAMP(I,1)
XI = SAMP(J,1)
ETAM = .25* (1.-ETA)
ETAP = .25* (1.+ETA)
XIM = .25* (1.-XI)
SIP = .25* (1.+XI)
FUN(1) = 4.*XIM*ETAM
FUN(2) = 4.*XIM*ETAP
FUN(3) = 4.*XIP*ETAP
FUN(4) = 4.*XIP*ETAM
DER(1,1) = -ETAM
DER(1,2) = -ETAP
DER(1,3) = ETAP
DER(1,4) = ETAM
DER(2,1) = -XIM
DER(2,2) = XIM
DER(2,3) = XIP
DER(2,4) = -XIP
RETURN
END
Se alguém souber e puder me ajudar.
Muito obrigado de qualquer forma