https://www.adonaimedrado.pro.br/wiki/index.php?action=history&feed=atom&title=F90%3A_Programa_do_momentoF90: Programa do momento - Revision history2026-05-27T14:10:53ZRevision history for this page on the wikiMediaWiki 1.26.2https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Programa_do_momento&diff=899&oldid=prevAdonaimedrado at 22:24, 4 December 20082008-12-04T22:24:55Z<p></p>
<table class='diff diff-contentalign-left'>
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;' lang='en'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 22:24, 4 December 2008</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >Line 1:</td>
<td colspan="2" class="diff-lineno">Line 1:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Este programa foi desenvolvido pelos alunos Pedro Moreira e Raimundo Cunha durante a disciplina Processamento de Dados (UFBA 2008.2). Data da apresentação: 02/12/2008.  </div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Este programa foi desenvolvido pelos alunos Pedro Moreira e Raimundo Cunha durante a disciplina Processamento de Dados (UFBA 2008.2). Data da apresentação: 02/12/2008.  </div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">Este programa calcula o momento ou torque de “n” forças em relação a um eixo qualquer no espaço utilizando as coordenadas (x,y,z).</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div><code lang="fortran"></div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div><code lang="fortran"></div></td></tr>
</table>Adonaimedradohttps://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Programa_do_momento&diff=898&oldid=prevAdonaimedrado: New page: Este programa foi desenvolvido pelos alunos Pedro Moreira e Raimundo Cunha durante a disciplina Processamento de Dados (UFBA 2008.2). Data da apresentação: 02/12/2008. <code lang="fort...2008-12-04T22:23:26Z<p>New page: Este programa foi desenvolvido pelos alunos Pedro Moreira e Raimundo Cunha durante a disciplina Processamento de Dados (UFBA 2008.2). Data da apresentação: 02/12/2008. <code lang="fort...</p>
<p><b>New page</b></p><div>Este programa foi desenvolvido pelos alunos Pedro Moreira e Raimundo Cunha durante a disciplina Processamento de Dados (UFBA 2008.2). Data da apresentação: 02/12/2008. <br />
<br />
<code lang="fortran"><br />
PROGRAM momento<br />
IMPLICIT NONE<br />
REAL :: TR=0<br />
REAL, DIMENSION(:,:,:), ALLOCATABLE :: M<br />
REAL, DIMENSION(:),ALLOCATABLE :: TORQUE<br />
INTEGER:: i,j,N,Z,OPCAO,ERRO=0<br />
WRITE(*,*) "CALCULA O MOMENTO DE UMA FORCA EM REALACAO A UM EIXO"<br />
WRITE(*,*) "QUAL UNIDADE VOCE DESEJA TRABALHAR"<br />
WRITE(*,*) "DIGITE 1 PARA TRABALHAR COM NEWTON*METRO"<br />
WRITE(*,*) "DIGITE 2 PARA TRABALHAR COM LIBRAFORCA*PE"<br />
WRITE(*,*) "PRECIONE QUALQUER TECLA PARA SAIR"<br />
READ(*,*,IOSTAT=ERRO) OPCAO<br />
IF (ERRO<=0) THEN<br />
SELECT CASE (OPCAO)<br />
CASE(1)<br />
WRITE(*,*) "DIGITE O NUMERO N DE FORCAS"<br />
DO<br />
READ(*,*,IOSTAT=ERRO) N<br />
IF (ERRO>0) THEN<br />
WRITE(*,*) "DIGITE UM NUMERO INTEIRO"<br />
ELSE <br />
EXIT<br />
END IF<br />
END DO<br />
ALLOCATE (M(1:N,1:3,1:3))<br />
ALLOCATE (TORQUE(1:N)) <br />
WRITE(*,*) "DIGITE AS COORDENADAS DO EIXO"<br />
DO <br />
READ(*,*,IOSTAT=ERRO) (M(1,1,j), j=1,3)<br />
IF (ERRO>0) THEN<br />
WRITE(*,*) "COODENEDAS INCORRETAS"<br />
ELSE <br />
EXIT<br />
END IF<br />
END DO<br />
DO Z=1,N <br />
WRITE(*,"(A,I2,A10)") "DIGITE AS COORDENADAS DO PONTO DE APLICACAO DA FORCA",Z,"EM METROS" <br />
DO<br />
READ(*,*,IOSTAT=ERRO) (M(Z,2,j), j=1,3)<br />
IF (ERRO>0) THEN<br />
WRITE(*,*) "COODENEDAS INCORRETAS"<br />
ELSE <br />
EXIT<br />
END IF<br />
END DO<br />
WRITE(*,"(A,I2,A10)") "DIGITE O VETOR FORCA",Z,"EM NEWTON"<br />
DO<br />
READ(*,*,IOSTAT=ERRO) (M(Z,3,j),j=1,3)<br />
IF (ERRO>0) THEN<br />
WRITE(*,*) "COODENEDAS INCORRETAS"<br />
ELSE <br />
EXIT<br />
END IF<br />
END DO <br />
END DO<br />
WRITE(*,*) "AS MATRIZES SAO"<br />
DO Z=1,N <br />
WRITE (*,"(/3(F10.2))") (M(1,1,j), j=1,3)<br />
DO i=2,3<br />
WRITE (*,"(3(F10.2))") (M(Z,i,j), j=1,3)<br />
END DO<br />
END DO<br />
DO Z=1,N<br />
TORQUE(Z)=M(1,1,1)*M(Z,2,2)*M(Z,3,3)+M(1,1,2)*M(Z,2,3)*&<br />
M(Z,3,1)+M(1,1,3)*M(Z,2,1)*M(Z,3,2)-(M(Z,3,1)*M(Z,2,2)*&<br />
M(1,1,3))-M(Z,3,2)*M(Z,2,3)*M(1,1,1)-(M(Z,3,3)*M(Z,2,1)*M(1,1,2))<br />
TR=TR+TORQUE(Z)<br />
END DO<br />
IF (TR>0) THEN<br />
WRITE(*,"(A,F10.2,A2)") "O TORQUE RESULTANTE EM NM E",TR<br />
WRITE(*,"(A,F10.2,A3)") "OU EM Lbf*ft",TR/1.36<br />
WRITE(*,*)"O CORPO GIRA NO SENTIDO ANTI-HORARIO"<br />
ELSE IF (TR<0) THEN<br />
WRITE(*,"(A,F10.2,A2)") "O TORQUE RESULTANTE EM NM E",TR<br />
WRITE(*,"(A,F10.2,A3)") "OU EM Lbf*ft",TR/1.36<br />
WRITE(*,*)"O CORPO GIRA NO SENTIDO HORARIO"<br />
ELSE<br />
WRITE(*,"(A,F5.2,A2)") "O TORQUE RESULTANTE EM NM E",TR<br />
WRITE(*,"(A,F5.2,A6)") "OU EM Lbf*ft",TR/1.36<br />
WRITE(*,*)"O CORPO NAO GIRA"<br />
END IF<br />
DEALLOCATE (M)<br />
DEALLOCATE (TORQUE)<br />
CASE (2)<br />
WRITE(*,*) "DIGITE O NUMERO N DE FORCAS"<br />
DO<br />
READ(*,*,IOSTAT=ERRO) N<br />
IF (ERRO>0) THEN<br />
WRITE(*,*) "DIGITE UM NUMERO INTEIRO"<br />
ELSE <br />
EXIT<br />
END IF<br />
END DO<br />
ALLOCATE (M(1:N,1:3,1:3))<br />
ALLOCATE (TORQUE(1:N)) <br />
WRITE(*,*) "DIGITE AS COORDENADAS DO EIXO"<br />
DO<br />
READ(*,*,IOSTAT=ERRO) (M(1,1,j), j=1,3)<br />
IF (ERRO>0) THEN<br />
WRITE(*,*) "COODENEDAS INCORRETAS"<br />
ELSE <br />
EXIT<br />
END IF<br />
END DO<br />
DO Z=1,N <br />
WRITE(*,"(A,I2,A7)") "DIGITE AS COORDENADAS DO PONTO DE APLICACAO DA FORCA",Z,"EM PES"<br />
DO<br />
READ(*,*,IOSTAT=ERRO) (M(Z,2,j), j=1,3)<br />
IF (ERRO>0) THEN<br />
WRITE(*,*) "COODENEDAS INCORRETAS"<br />
ELSE <br />
EXIT<br />
END IF<br />
END DO<br />
WRITE(*,"(A,I2,A9)") "DIGITE O VETOR FORCA",Z,"EM LIBRA"<br />
DO<br />
READ(*,*,IOSTAT=ERRO) (M(Z,3,j),j=1,3)<br />
IF (ERRO>0) THEN<br />
WRITE(*,*) "COODENEDAS INCORRETAS"<br />
ELSE <br />
EXIT<br />
END IF<br />
END DO <br />
END DO<br />
WRITE(*,*) "AS MATRIZES SAO"<br />
DO Z=1,N <br />
WRITE (*,"(/3(F10.2))") (M(1,1,j), j=1,3)<br />
DO i=2,3<br />
WRITE (*,"(3(F10.2))") (M(Z,i,j), j=1,3)<br />
END DO<br />
END DO<br />
DO Z=1,N<br />
TORQUE(Z)=M(1,1,1)*M(Z,2,2)*M(Z,3,3)+M(1,1,2)*M(Z,2,3)*M(Z,3,1)+&<br />
M(1,1,3)*M(Z,2,1)*M(Z,3,2)-(M(Z,3,1)*M(Z,2,2)*M(1,1,3))-&<br />
M(Z,3,2)*M(Z,2,3)*M(1,1,1)-(M(Z,3,3)*M(Z,2,1)*M(1,1,2))<br />
TR=TR+TORQUE(Z)<br />
END DO<br />
IF (TR>0) THEN<br />
WRITE(*,"(A,F10.2,A2)") "O TORQUE RESULTANTE EM Lbf*ft E",TR <br />
WRITE(*,"(A,F10.2,A3)") "OU EM N*M",TR*1.36<br />
WRITE(*,*)"O CORPO GIRA NO SENTIDO ANTI-HORARIO"<br />
ELSE IF (TR<0) THEN<br />
WRITE(*,"(A,F10.2,A2)") "O TORQUE RESULTANTE EM Lbf*ft E",TR<br />
WRITE(*,"(A,F10.2,A3)") "OU EM N*M",TR*1.36<br />
WRITE(*,*)"O CORPO GIRA NO SENTIDO HORARIO"<br />
ELSE<br />
WRITE(*,"(A,F5.2,A6)") "O TORQUE RESULTANTE EM Lbf*ft E",TR<br />
WRITE(*,"(A,F5.2,A3)") "OU EM N*M",TR*1.36<br />
WRITE(*,*)"O CORPO NAO GIRA"<br />
END IF<br />
DEALLOCATE (M)<br />
DEALLOCATE (TORQUE)<br />
END SELECT<br />
END IF<br />
END PROGRAM momento<br />
</code></div>Adonaimedrado