Tabeliraj arcus funkcije

 

Naloga:
Napišite program, ki odpre datoteko z imenom arc.txt in vanjo tabelira funkcije arccos(x), arcsin(x) in arctg(x) na definicijskem območju s korakom 0,1. x in vrednosti funkcij naj zapiše na dve decimalki. Podatke iz datoteke narišite s programom gnuplot. Arctg(x) je definiran za vsa realna števila. Tabeliraj ga od -10 do 10.

program arc
implicit none
real :: x,pi,y
integer :: i
pi=atan(1.)*4.
open(101,file='arc.txt')
do i=-100,100
 x=i*0.1   !x gre s korakom 0.1
 if ((x>1).or.(x<-1)) then  !tam kje arcsin in arcos nista definirana ju ne racuna
 write(101,'(f10.2,2a10,f10.2)')x,'-','-',atan(x)  
 else
 write(101,'(4f10.2)')x,acos(x),asin(x),atan(x)
 endif
enddo
close(101)
write(*,*)'koncal sem'  
end program arc

Tekst sedaj shranimo kot datoteko file3.f90 in prevedemo. Program tabelira funkcije v datoteko arc.txt.

Tu je sedaj še print screen postopka prevajanja, postopka risanja z gnuplotom in narisana grafa v pdf datoteki. V kolikor vam kakšna podrobnost ni jasna, mi sporočite.

Grafi so nerisani v naslednji PDF datoteki.





Nazaj na osnovno stran za numerične metode za kemike.

 

Fakulteta za kemijo in kemijsko tehnologijo

Katedra za fizikalno kemijo

Univerza v Ljubljani

Večna pot 113, K3.009

1000 Ljubljana

Slovenija

tel: +386 1 479 8540

e-pošta: tomaz pika urbic at fkkt.uni-lj.si

Govorilne ure so po dogovoru.

Prešernove nagrade