12 lines
175 B
Plaintext
12 lines
175 B
Plaintext
program t2
|
|
|
|
df=375.0/65536.0
|
|
do i=1,65536
|
|
w=1.0/(1.0 + ((i-32768)/26214.0)**20)
|
|
f=(i-32768)*df
|
|
write(13,1010) f,w
|
|
1010 format(2f15.6)
|
|
enddo
|
|
|
|
end program t2
|