Initial Commit
This commit is contained in:
@@ -0,0 +1,11 @@
|
||||
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
|
||||
Reference in New Issue
Block a user