Search
 
 
  Engleski
 
 
 
Open in this window (click to change)
Forum@DeGiorgi: Početna
Forum za podršku nastavi na PMF-MO
Login Registracija FAQ Smajlići Članstvo Pretražnik Forum@DeGiorgi: Početna

REAL*4
WWW:

Moja sarma
 
Započnite novu temu   Odgovorite na temu   printer-friendly view    Forum@DeGiorgi: Početna -> Kolegiji 1. godine, preddiplomski studij Matematika -> Programiranje 1 i 2
Prethodna tema :: Sljedeća tema  
Autor/ica Poruka
bingo
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 05. 11. 2002. (18:03:08)
Postovi: (31)16
Sarma = la pohva - posuda
= 0 - 0

PostPostano: 17:18 sri, 27. 11. 2002    Naslov: REAL*4 Citirajte i odgovorite

Dakle sto li mu to znaci REAL*4 u FORTRAN-u? :oops:
Dakle sto li mu to znaci REAL*4 u FORTRAN-u? Embarassed


[Vrh]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail
krcko
Forumaš nagrađen za životno djelo
Forumaš nagrađen za životno djelo


Pridružen/a: 07. 10. 2002. (15:57:59)
Postovi: (18B3)16
Sarma = la pohva - posuda
655 = 759 - 104

PostPostano: 21:29 sri, 27. 11. 2002    Naslov: Citirajte i odgovorite

REAL je priblizan realan broj (ekvivalent float-a u C-u). Ono *4 znaci da se za prikaz koriste 4 bajta. Osim toga ima REAL*8 (to bi bio double) i REAL*16 (tzv. quadri precision). Evo jedan primjer...

[code:1] PROGRAM strojna_tocnost

C Program nalazi najveci broj epsilon sa svojstvom
C 1.0 + epsilon = 1.0 (u pribliznoj aritmetici!)

REAL*4 eps4
REAL*8 eps8
REAL*16 eps16

C Koji od ovih tipova se podudara s REAL?

eps4 = 1.0
10 eps4 = eps4 / 2.0
IF (1.0 + eps4 .NE. 1.0) GOTO 10

eps8 = 1.0
20 eps8 = eps8 / 2.0
IF (1.0 + eps8 .NE. 1.0) GOTO 20

eps16 = 1.0
30 eps16 = eps16 / 2.0
IF (1.0 + eps16 .NE. 1.0) GOTO 30

PRINT *,'Strojna tocnost je'
PRINT '(A10,E15.8)', ' -single: ', eps4
PRINT '(A10,E15.8)', ' -double: ', eps8
PRINT '(A10,E15.8)', ' -quadri: ', eps16
[/code:1]

Kompajlira se naredbom f77 na studentu. Enjoy!
REAL je priblizan realan broj (ekvivalent float-a u C-u). Ono *4 znaci da se za prikaz koriste 4 bajta. Osim toga ima REAL*8 (to bi bio double) i REAL*16 (tzv. quadri precision). Evo jedan primjer...

Kod:
        PROGRAM strojna_tocnost

C       Program nalazi najveci broj epsilon sa svojstvom
C       1.0 + epsilon = 1.0 (u pribliznoj aritmetici!)

        REAL*4 eps4
        REAL*8 eps8
        REAL*16 eps16

C       Koji od ovih tipova se podudara s REAL?

        eps4 = 1.0
10      eps4 = eps4 / 2.0
        IF (1.0 + eps4 .NE. 1.0) GOTO 10

        eps8 = 1.0
20      eps8 = eps8 / 2.0
        IF (1.0 + eps8 .NE. 1.0) GOTO 20       

        eps16 = 1.0
30      eps16 = eps16 / 2.0
        IF (1.0 + eps16 .NE. 1.0) GOTO 30

        PRINT *,'Strojna tocnost je'
        PRINT '(A10,E15.8)', ' -single: ', eps4
        PRINT '(A10,E15.8)', ' -double: ', eps8
        PRINT '(A10,E15.8)', ' -quadri: ', eps16


Kompajlira se naredbom f77 na studentu. Enjoy!



_________________
Vedran Krcadinac

Ljudi su razliciti, a nula je paran broj.
[Vrh]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail Posjetite Web stranice
C'Tebo
Moderator
Moderator


Pridružen/a: 03. 11. 2002. (18:40:48)
Postovi: (26A)16
Sarma = la pohva - posuda
-13 = 3 - 16
Lokacija: Zagreb

PostPostano: 21:45 sri, 27. 11. 2002    Naslov: Citirajte i odgovorite

Zašto djeliš epsilone s 2?
Kako znamo da se baš tak dobije naveća epsilon-vrijednost?
Zašto djeliš epsilone s 2?
Kako znamo da se baš tak dobije naveća epsilon-vrijednost?



_________________
Click me!
_______________________
Bad panda!
[Vrh]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail
krcko
Forumaš nagrađen za životno djelo
Forumaš nagrađen za životno djelo


Pridružen/a: 07. 10. 2002. (15:57:59)
Postovi: (18B3)16
Sarma = la pohva - posuda
655 = 759 - 104

PostPostano: 21:58 sri, 27. 11. 2002    Naslov: Citirajte i odgovorite

Mozda nije najveci epsilon, ali je najveci bit s tim svojstvom. Krenem od 1=2^0 i dijelim s dva, a to je pomicanje decimalne tocke za jedno mjesto ulijevo u binarnom sustavu.
Mozda nije najveci epsilon, ali je najveci bit s tim svojstvom. Krenem od 1=2^0 i dijelim s dva, a to je pomicanje decimalne tocke za jedno mjesto ulijevo u binarnom sustavu.



_________________
Vedran Krcadinac

Ljudi su razliciti, a nula je paran broj.
[Vrh]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail Posjetite Web stranice
Prethodni postovi:   
Započnite novu temu   Odgovorite na temu   printer-friendly view    Forum@DeGiorgi: Početna -> Kolegiji 1. godine, preddiplomski studij Matematika -> Programiranje 1 i 2 Vremenska zona: GMT + 01:00.
Stranica 1 / 1.

 
Forum(o)Bir:  
Ne možete otvarati nove teme.
Ne možete odgovarati na postove.
Ne možete uređivati Vaše postove.
Ne možete izbrisati Vaše postove.
Ne možete glasovati u anketama.
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2002 phpBB Group
Theme created by Vjacheslav Trushkin
HR (Cro) by Ančica Sečan