Script Fortran pergeseran gempa

 

Kalkulator Seismik Statik Ekivalen

Akselerasi Spektral (Sds) [g]:

Faktor Keutamaan (Ie):

Faktor Modifikasi Respons (R):

Berat Total Struktur (W) [kN]:

Koefisien Seismik (Cs): -

Gaya Geser Dasar (V): - kN

Script Pergeseran Gempa berbasis Fortran by Afif

https://taddaburagama.blogspot.com/2026/08/program-lendutanbalok-implicit-none.html

Fortran

program GempaStatikEkivalen

    implicit none

    ! Deklarasi variabel

    real :: Cs          ! Koefisien respons seismik

    real :: W           ! Berat total struktur (kN)

    real :: V           ! Gaya geser dasar (kN)

    real :: R           ! Faktor modifikasi respons

    real :: Ie          ! Faktor keutamaan gempa

    real :: Sds         ! Akselerasi spektral desain periode pendek

    ! Input data struktur

    print *, "=========================================="

    print *, "  PERHITUNGAN GAYA GESER GEMPA (STATIK)   "

    print *, "=========================================="

    print *, "Masukkan nilai Sds (g):"

    read *, Sds

    print *, "Masukkan Faktor Keutamaan (Ie):"

    read *, Ie

    print *, "Masukkan Faktor Modifikasi Respons (R):"

    read *, R

    print *, "Masukkan Berat Total Struktur W (kN):"

    read *, W

    ! Perhitungan Koefisien Seismik (Cs)

    Cs = (Sds * Ie) / R

    ! Perhitungan Gaya Geser Dasar (V)

    V = Cs * W

    ! Menampilkan hasil

    print *, "------------------------------------------"

    print '(A, F8.4)', " Koefisien Seismik (Cs) : ", Cs

    print '(A, F10.2, A)', " Gaya Geser Dasar (V)   : ", V, " kN"

    print *, "=========================================="

end program GempaStatikEkivalen