Split_00048

# Split_00048 - 9.35(cont'd C*DECREMENT BY 50 DEG AND LOOK...

This preview shows page 1. Sign up to view the full content.

9- 48 C **DECREMENT BY 50 DEG. AND LOOK FOR A SIGN IN PSI DO 10I = 1, 20 CALL PSICAL (T, PHI, PSI) IF ((PSIL*PSI).LT.0.0) GO TO 40 TLAST = T PSIL = PSI T = T – 50. 10 CONTINUE 40 IF (T.GE.0.0) GO TO 45 WRITE (3, 2) 2 FORMAT (1X, 'T LESS THAN ZERO -- ERROR') STOP C **APPLY REGULA-FALSI 45 DO 50 I = 1, 20 IF (I.NE.1) T2L = T2 T2 = (T*PSIL-TLAST*PSI)/(PSIL-PSI) IF (ABS(T2-T2L).LT.0.01) GO TO 99 CALL PSICAL (T2, PHIT, PSIT) IF (PSIT.EQ.0) GO TO 99 IF ((PBIT*PBIL).GT.0.0) PSIL = PSIT IF ((PSIT*PSIL).GT.0.0) TLAST = T2 IF ((PSIT*PSI).GT.0.0) PSI = PSIT IF ((PSIT*PSI).GT.0.0) T = T2 50 CONTINUE IF (I.EQ.20) WRITE (3, 3) 3 FORMAT ('0', 'REGULA-FALSI DID NOT CONVERGE IN 20 ITERATIONS') 93 STOP END 1 * SUBROUTINE PSICAL (T, PHI, PSI)
This is the end of the preview. Sign up to access the rest of the document.

{[ snackBarMessage ]}

### What students are saying

• As a current student on this bumpy collegiate pathway, I stumbled upon Course Hero, where I can find study resources for nearly all my courses, get online help from tutors 24/7, and even share my old projects, papers, and lecture notes with other students.

Kiran Temple University Fox School of Business ‘17, Course Hero Intern

• I cannot even describe how much Course Hero helped me this summer. It’s truly become something I can always rely on and help me. In the end, I was not only able to survive summer classes, but I was able to thrive thanks to Course Hero.

Dana University of Pennsylvania ‘17, Course Hero Intern

• The ability to access any university’s resources through Course Hero proved invaluable in my case. I was behind on Tulane coursework and actually used UCLA’s materials to help me move forward and get everything together on time.

Jill Tulane University ‘16, Course Hero Intern