Turkish Tutorial for Fortran Part #1

Hi Utopians,
Hello friends, I will try to give you information about the use of Fortran Programming Language. This series will proceed step by step. At the end of our project, we will have learned the Fortran Programming and Calculus Language. I will strive to give you a useful education.

Merhaba arkadaşlar bu seride sizlere Fortran Programlama Dili kullanımı hakkında bilgiler vermeye çalışacağım. Bu seri adım adım ilerleyecektir. Projemizin sonunda Fortran Programlama ve Hesaplama Dilini öğrenmiş olacağız. Sizlere faydalı bir eğitim serisi vermek için çabalayacağım.

GitHub Depo:https://github.com/wavebitscientific/functional-fortran

Fortran (FORTRAN), özellikle sayısal hesaplama ve bilimsel hesaplama için uygun olan genel amaçlı, yordamsal, zorunlu programlama dilidir.

1954'de IBM tarafından üretilen IBM 704 için ilk sürümü John Backus ve ekibi tarafından geliştirilmiştir. Backus ve ekibi Kasım 1954'de "The IBM Mathematical FORmula TRANslating System: Fortran" isimli raporu yayınlamışlardır.

Fortran Kuralım:

Fortran.io PHP gibidir: FastCGI, HTML dizeleri çıktısı veren bir komut dosyası çalıştırır.

indirip dosyayı açarak kurabilirsiniz.

Aşağıda vermiş olduğum kodu çalıştırarak da Fortran kurulumunu gerçekleştirebilirsiniz.

use mod_functional

Aşağıdaki işlevler bize hesaplama yaparken lazım olacaktır. Şimdi gelin onları öğrenelim...

arange - düzenli olarak aralıklı bir dizi döndürür
complement - İki dizi içeren bir tamamlayıcı set döndürür
empty - boş bir dizi döndürür
filter - bir diziyi mantıksal giriş işlevi kullanarak filtreler
foldl - bir girdi işlevi kullanarak bir diziyi ardışık olarak sola katını alır
foldr - bir girdi işlevi kullanarak bir diziyi yinelemeli olarak sağa katını alır
foldt - bir girdi işlevi kullanarak bir diziyi tekrar tekrar katını alır
head - bir dizinin ilk öğesini döndürür
init - son elemandan başka her şeyi döndürür
insert - bir diziye bir eleman ekler, sınırdan güvenli
intersection - İki dizinin kesişim noktasını döndürür
iterfold - Bir girdi işlevi kullanarak bir diziyi tekrar tekrar azaltır
last - bir dizinin son öğesini döndürür
limit - Bir skalar veya diziyi verilen alt ve üst sınırlarla sınırlar
map - bir giriş fonksiyonlu bir diziyi eşler
set - verilen bir girdi dizisini döndürür
reverse - diziyi ters sırada döndürür
sort - İkili ağaç pivot kullanarak özyinelemeli çabukluk sağlar
split - Bir dizinin ilk veya ikinci yarısını döndürür
subscript - vektör alt simgesinin sınır dışına güvenli bir şekilde uygulanması
tail - İlk öğenin dışındaki her şeyi döndürür
unfold - bir giriş fonksiyonlu bir diziyi açar
union - İki diziden oluşan bir birleşimi döndürür

Yukarıdaki işlevlerin tümü standart Fortran 2008 çeşit ile uyumlu olan int8, int16, int32, int64, real32, real64, real128, complex(real32), complex(real64), ve complex(real128) geçerlidir.

Bir veya iki argüman üzerinde çalışan işlevler sırasıyla tekli veya ikili operatörler olarak mevcuttur. Bunlar şunlardır: .complement., .head., .init., .intersection., .last., .reverse., .set., .sort., .tail., ve .union..

Şimdi gelin biraz örnekler ile anlatalım;

''arange'' girdi bağımsız değişkenleri olarak başlangıç ve bitiş değerleri verilen, eşit aralıklı diziler oluşturmak için kullanılır:

write(*,*)arange(1,5)
           1           2           3           4           5

''arange'' gerçek sayılarla da çalışır:

write(*,*)arange(1.,5.)
   1.00000000       2.00000000       3.00000000       4.00000000       5.00000000

Üçüncü argüman, ''arange''(isteğe bağlı), verilen değilse varsayılan olarak 1 olur;

write(*,*)arange(1,15,3)
           1           4           7          10          13

Negatif artışlar beklendiği gibi çalışır:

write(*,*)arange(3,1,-1)
           3           2           1

Kayacak olan nokta artımlarını kullanabiliriz:

write(*,*)arange(1.,1.5,0.1)
   1.00000000       1.10000002       1.20000005       1.29999995       1.39999998       1.50000000

''Start'', ''end''den büyükse ve artış olumlu ise, düzenleme şu şekilde ''arange''boş bir dizi döndürür:

write(*,*)arange(5,1)

Herhangi bir Fortran standart türünde sıfır uzunlukta bir dizi oluşturmak için ''empty'' kullanın:

write(*,*)size(empty(1))
           0

Akümülatörleri başlatmak için yararlı olabilir. Örneğin, bu kütüphanede ayarlanan ''intersection'' uygulanmasına bakın. ''head'', dizinin ilk öğesini döndürür:

write(*,*)head([1,2,3])
           1

''tail'' dizinin ilk öğesinden başka her şeyi döndürür:

write( * , * ) kuyruk ([ 1 , 2 , 3 ])
            2            3

Benzer şekilde, ''last'' dizinin son öğesini döndürür:

write ( * , * ) son ([ 1 , 2 , 3 ])
            3

''init'' dizinin son öğesinden başka her şeyi döndürür:

write ( * , * ) init ([ 1 , 2 , 3 ])
            1            2

Bir diziyi belirli dizinlerde alt simge haline getirin:

write ( * , * ) alt simge ([ 1 , 2 , 3 , 4 , 5 ], [ 3 , 4 ])
            3            4

Fortran 2008 vektör alt simgesinden farklı olarak, ''subscript'' işlev sınırın dışına çıkmamaktadır, yani sınırların altına yazılması boş bir diziyi döndürür:

write ( * , * ) alt simge ([ 1 , 2 , 3 ], [ 10 ])

Aşağıdakileri kullanarak bir diziye bir elemanın önüne ekleyebilir, ekleyebilir veya ekleyebiliriz ''insert'':

! insert a 5 at position 0 to prepend:
write ( * , * ) insert ( 5 , 0 , [ 1 , 2 , 3 ])
            5            1            2            3

! insert a 5 at position 4 to append:
write ( * , * ) insert ( 5 , 4 , [ 1 , 2 , 3 ])
            1            2            3            5

! insert a 2 at position 2: 
yaz ( * , * ) ekleme ( 2 , 2 , [ 1 , 3 , 4 ])
            1            2            3            4

''split'' bir dizinin ilk veya ikinci yarısını döndürmek için kullanılabilir:

write ( * , * ) split (arange ( 1 , 5 ), 1 )
            1            2

! return first half of the array
write ( * , * ) split (aralık ( 1 , 5 ), 2 )
            3            4            5

Yukarıdakiler, özyinelemeli ikili ağaç arama veya sıralama için kullanışlıdır, örneğin, ''sort'' bu kütüphanedeki uygulamaya bakın .

''sort'' artan düzende sıralanmış bir diziyi döndürür:

real,dimension(5) :: x
call random_number(x)
 write ( * , * ) x
    0.997559547       0.566824675       0.965915322       0.747927666       0.367390871     
write ( * , * ) sort(x)
    0.367390871       0.566824675       0.747927666       0.965915322       0.997559547

''reverse'' Azalan düzende sıralamak için kullanın :

write( * , * )reverse(sort(x))
    0.997559547       0.965915322       0.747927666       0.566824675       0.367390871

''limit''Fonksiyon, bir skaler veya örneğin bir alt ve üst sınır, bir dizi, bir değeri sınırlamak için kullanılabilir:

! limit a scalar (5) within bounds 1 and 4
write(*,*)limit(5,1,4)
           4

! flipping the bounds works just as well
write(*,*)limit(5,4,1)
           4

''limit'' Ayrıca dizilerde de çalışır:

write(*,*)limit(arange(0,4),1,3):
           1           1           2           3           3

Arkadaşlar görmüş olduğunuz üzere fonksiyonları kullanarak birçok işlem yaptık. Bu işlem, sayısal hesaplamaları hızlıca bulmamıza yarıyor. Sistemin ve işlevlerini kullanımını bol örnekler ile 2. dersimizde devam edeceğiz... Şimdilik kendinize iyi bakınız efenim... Saygılarla...

Posted on Utopian.io - Rewarding Open Source Contributors

Turkish Tutorial for Fortran Part #1 | Ecency