Ako vytvoriť PI čísla vo Fortran

T

Teg-Men

Guest
Ahoj, ako môžem vytvoriť PI čísla vo FORTRAN? Použil som REAL, parameter:: PI = 3,14159265358979323846264338327950288419716939937510 vyhlásenie a tiež to číslo, ktoré sa získa Gregory Leibniz-series: PI = 16 * ATAN (.. 1 / 5) - 4 * ATAN (. 1./239) som sa im zápis do (*,*) TAN (PI * THETA/180) vyhlásenie, kde theta je vstup titul pre 45 stupňov, tak mi 1,00000 Ale na 90 stupňov sa opäť obaja dávajú 2.287733E-07 Tak kde je problém, s PI? alebo Fortran?
 
"Problém" (neviem, skutočný problém) je, že FORTRAN zápis inštrukcie nemá výslovného zastúpenie pre nekonečno. PS: Predpokladám, že ste si vedomí rozlíšenie obmedzenia aritmetiky s plávajúcou desatinnou čiarkou? Real je jeden presný formát, takže to nemá viac ako 6-7 platných desatinných miest.
 
Ja som nový v Fortran. Videl som cvičenie v knihe (Fortran 95 2003 pre vedcov a inžinierov) a problém štáty, chceme spočítať tangens uhla, ale pretože tangens je jednoducho sin (x) / cos (x), ak budeme mať cos (x) <10 ^ (-20), aby sa chybové hlásenie, inak to spočítať pomocou tan (x) funkcie. Aj keď som zadať 90 stupňov, od tej doby cos (x) <10 ^ (-20), to by mi chybové hlásenie. Tu je kód: PROGRAM EX3632 Nevyslovené žiadny! PREMENNÉ REAL:: THETA REAL, parameter:: PI = 3,14159265358979323846264338327950288419716939937510! PREVEDENIE NAPÍŠTE (*,*) "písať ANGLE v miere formáte, vypočítať" NAPÍŠTE (*,*) "Tangent?" ČÍTAJTE (*,*) THETA IF (ABS (cos (PI * THETA/180))> 1E-20) Potom napíšte (*,*) TAN (PI * THETA/180.) Napíš (*,*) TAN (( 16 * ATAN (1 / 5..) - 4 * ATAN (. 1./239)) * THETA/180) iný zápis (*,*) "ERROR, cos (x) je príliš malá vypočítať" End If End PROGRAM EX3632
 
Aj keď zadám 90 stupňov, od tej doby cos (x) <10 ^ (-20), to by mi chybové hlásenie.
Vy ste to presne povedať, čo sa snaží dosiahnuť. Avšak, ak budete počítať cos (pi / 2), výsledok nemusí byť nutne <10 **- 20, pretože argument je dostatočne odlišná od 90 stupňov. To je dôvod, prečo som sa opýtal, ak ste si vedomý obmedzenej rozlíšenie plávajúcou desatinnou čiarkou. Problém nie je najmä v súvislosti s FORTRAN. Je to dobrý, zvládnuť prípadné číselné pod alebo pretečeniu v kóde. Ale mali by ste sa na ne spoliehať na výskyt zvlášť zadávanie čísel.
 

Welcome to EDABoard.com

Sponsor

Back
Top