Pemrograman Komputer - Pondasi Dangkal

TUGAS MATA KULIAH PEMROGRAMAN KOMPUTER

PROGRAM MENGHITUNG DAYA DUKUNG PONDASI DANGKAL UNTUK BEBAN SENTRIS (TEGAK LURUS / MIRING) DENGAN MENGGUNAKAN METODE MEYERHOFF

Jurusan Teknik Sipil Fakultas Teknik Universitas Brawijaya Malang 2007

FLOWCHART

Start Deklarasi Variabel Phi,c,D,B,L,Nq,Nc,Ngm,alfa,Sc,Sq,Sgm, Dc,dq,dgm,ic,iq,igm,qu,qun,SF,pmax,gama,g,a,m

Input phi,c,gama,D,B, L

Kapasitas Dukung Pondasi phi=0

Ya

Nq=1 Nc=5.14 Ngm=0

Tidak Nq=((tand(45+(phi/2)))**2)*(exp((22.0/7.0)*tand(phi)) Nc=(Nq-1)*(1/tand(phi)) Ngm=(Nq-1)*tand (1.4*phi)

Tulis Kapasiatas Dukung Pondasi Nq,Nq,Ngm

Hitung Faktor Bentuk Pondasi Sc=1+(0.2*(B/L))*(tand(45+(phi/2)))**2

Ya

phi ≤ 10

Nq=Ngm=1

Tidak Sq=Sgm=1+(0.1*(B/L))*(tand(45+(phi/2)))**2

A

C

A

C

Tulis Faktor Bentuk Pondasi Sq,Sc,Sgm

Hitung Faktor Kedalaman Pondasi dc=1+(0.2*(D/B))*(tand(45+(phi/2)))

dq=dgm=1

Ya

phi ≤ 10 Tidak

dq=dgm=1+(0.1*(D/B))*(tand(45+(phi/2)))

Tulis Faktor Kedalaman Pondasi dq,dc,dgm

Beban Tegak Lurus

Ya

Tidak Masukan nilai alfa Hitung Faktor Kemiringan Beban ic=iq=(1-(alfa/90))**2

B

alfa = 0

B

Ya

phi ≤ 10

igm=1

Tidak igm==(1-(alfa/phi))**2

Tulis Faktor Kemiringan Beban iq,ic,igm

Hitung Daya Dukung Ultimate & Daya Dukung Ultimate netto qu=(Sc*dc*ic*c*Nc)+(Sq*dq*iq*D*gamma*Nq)+(Sgm*dgm*igm*0.5*B*gamma*Ngm) qun=qu-(D*gamma)

Tulis qu,qun

Input SF Hitung Beban Kolom Maksimum pmax=(B*L)*(qun/SF)

Tulis pmax

End

ALGORITMA 1. Deklarasi Variabel: Phi,c,D,B,L,Nq,Nc,Ngm,alfa,Sc,Sq,Sgm,Dc,dq,dgm,ic,iq,igm,qu,qun,SF,pmax,ga ma,g,a,m 2. Memasukkan nilai : phi,c,gama,D,B,L 3. Menghitung Kapasitas Dukung Pondasi  phi = 0, jika Ya maka Nq=1,Nc=5.14,Ngm=0 jika Tidak maka Nq=((tand(45+(phi/2)))**2)*(exp((22.0/7.0)*tand(phi)) Nc=(Nq-1)*(1/tand(phi)) Ngm=(Nq-1)*tand (1.4*phi  Menuliskan Hasil Kapasitas Dukung Pondasi: Nq,Nc,Ngm 4. Menghitung Faktor Bentuk Pondasi  Sc=1+(0.2*(B/L))*(tand(45+(phi/2)))**2  phi ≤ 10, jika Ya maka Sq=Sgm=1 jika Tidak maka Sq=Sgm=1+(0.1*(B/L))*(tand(45+(phi/2)))**2  Menuliskan Hasil Faktor Bentuk Pondasi : Sq,Sc,Sgm 5. Menghitung Faktor Kedalaman Pondasi  dc=1+(0.2*(D/B))*(tand(45+(phi/2)))  phi ≤ 10, jika Ya maka dq=dgm=1 jika Tidak maka dq=dgm=1+(0.1*(D/B))*(tand(45+(phi/2)))  Menuliskan Hasil Faktor Kedalaman Pondasi : dq,dc,dgm 6. Menghitung Faktor Kemiringan Beban  Beban Tegak Lurus, jika Ya, alfa = 0 jika Tidak, masukkan nilai alfa  Hitung ic=iq=(1-(alfa/90))**2  phi ≤ 10, jika Ya maka, igm=1 jika Tidak maka, igm=(1-(alfa/phi))**2  Menuliskan Hasil Faktor Kemiringan Beban: iq,ic,igm

7. Menghitung Daya Dukung Ultimate & Daya Dukung Ultimate netto  qu=(Sc*dc*ic*c*Nc)+(Sq*dq*iq*D*gamma*Nq)+(Sgm*dgm*igm*0.5*B*gamma*Ngm)  qun = qu-(D*gamma)  Menuliskan Hasil Daya Dukung Ultimate & Daya Dukung Ultimate netto: qu,qun 8. Menghitung Beban Kolom Maksimum

 Masukan harga SF( faktor keamanan )  Hitung : pmax=(B*L)*(qun/SF)  Menuliskan Hasil Beban Kolom Maksimum : pmax

LISTING PROGRAM ! Heading Statement ! Program Menghitung Daya Dukung Pondasi Dangkal ! Declaration real :: phi,c,D,B,L,Nq,Nc,Ngm,alfa,Sc,Sq,Sgm,dc,dq,dgm,ic,iq,igm,qu,qun,SF,pmax,gamma,g,a,m

! Program Execution do write (*,*)'++++++++++++++++++++++++++++++++++++++++++++++++++++++' write (*,*)'+ | PROGRAM MENGHITUNG DAYA DUKUNG PONDASI DANGKAL | +' write (*,*)'+ | UNTUK BEBAN SENTRIS (TEGAK LURUS / MIRING) | +' write (*,*)'+

| DENGAN MENGGUNAKAN METODE MEYERHOFF |

+'

write (*,*)'+ ================================================== +' write (*,*)'+ Disusun Oleh : 1. Awang Pradika S. - 0310613007 +' write (*,*)'+

2. Fajrin Siddiq

- 0310610029 +'

write (*,*)'+

3. Ming Narto Wijaya - 0310610052 +'

write (*,*)'++++++++++++++++++++++++++++++++++++++++++++++++++++++' 25 write (*,*)'' write (*,10) read (*,*) phi write (*,11) read (*,*) c write (*,12) read (*,*) gamma write (*,13) read(*,*) D write (*,14) read (*,*) B write (*,15) read (*,*) L

10 format (1x, 'Masukkan Phi / Sudut Geser Dalam (Derajat) : ',\) 11 format (1x, 'Masukkan c / Faktor Kohesi (kN/m2)

: ',\)

12 format (1x, 'Masukkan GammaB / Berat Volume Tanah (kN/m3) : ',\) 13 format (1x, 'Masukkan Df / Kedalaman Pondasi (m)

: ',\)

14 format (1x, 'Masukkan B / Lebar Penampang Pondasi (m)

: ',\)

15 format (1x, 'Masukkan L / Panjang Penampang Pondasi (m) : ',\) write (*,*)'' write (*,*)'[1] Data Sudah Benar. Silakan Diproses.' write (*,*)'[2] Data Masih Salah. Ulangi Mengisi Data.' read (*,*) g if (g.EQ.2) then goto 25 end if ! Menghitung Kapasitas Dukung Pondasi write (*,*)'' write (*,*)'Menghitung Kapasitas Dukung Pondasi' write (*,*)'-----------------------------------' if (phi.EQ.0) then Nq=1 Nc=5.14 Ngm=0 goto 24 else Nq=((tand (45+(phi/2)))**2)*(exp((22.0/7.0)*tand (phi))) Nc=(Nq-1)*(1/tand (phi)) Ngm=(Nq-1)*tand (1.4*phi) end if 24 write (*,*)'Kapasitas Dukung Pondasi :' write (*,16) Nq, Nc, Ngm 16 format (1x,'Nq = ',F6.2,1x,'Nc = ',F6.2,1x,'Ngm = ',F6.2) ! Menghitung Faktor Bentuk Pondasi write (*,*)'' write (*,*)'Menghitung Faktor Bentuk Pondasi'

write (*,*)'--------------------------------' Sc=1+(0.2*(B/L))* (tand (45+(phi/2)))**2 if (phi.LE.10) then Sq=1 else Sq=1+(0.1*(B/L))* (tand (45+(phi/2)))**2 end if Sgm=Sq write (*,*)'Faktor Bentuk Pondasi :' write (*,17) Sc, Sq, Sgm 17 format (1x, 'Sc = ',F6.2,1x,'Sq = ',F6.2,1x,'Sgm = ',F6.2) ! Menghitung Faktor Kedalaman pondasi write (*,*)'' write (*,*)'Menghitung Faktor Kedalaman Pondasi' write (*,*)'-----------------------------------' dc=1+(0.2*(D/B))* (tand (45+(phi/2))) if (phi.LE.10) then dq=1 else dq=1+(0.1*(D/B))* (tand (45+(phi/2))) end if dgm=dq write (*,*)'Faktor Kedalaman Pondasi :' write (*,18) dc, dq, dgm 18 format (1x, 'dc = ',F6.2,1x,'dq = ',F6.2,1x,'dgm = ',F6.2) ! Menghitung Faktor Kemiringan Beban write (*,*)'' write (*,*)'Menghitung Faktor Kemiringan Beban' write (*,*)'----------------------------------' write (*,*)'Beban Kolom Termasuk Jenis Beban Apa? [1] Tegak Lurus [2] Miring' read(*,*) a if (a.EQ.1) then alfa=0 goto 20

else write (*,*)'' write (*,26) read (*,*) alfa 26 format (1x, 'Masukkan Sudut Kemiringan beban Terhadap arah vertikal (Derajat) : ',\) end if 20 ic=(1-(alfa/90))**2 iq=ic if (phi.LE.10) then igm=1 else igm=(1-(alfa/phi))**2 end if write (*,*)'' write (*,*)'Faktor Kemiringan Beban :' write (*,19) ic, iq, igm 19 format (1x, 'ic = ',F6.2,1x,'iq = ',F6.2,1x,'igm = ',F6.2) ! Menghitung Daya Dukung Ultimate & Daya Dukung Ultimate netto qu=(Sc*dc*ic*c*Nc)+(Sq*dq*iq*D*gamma*Nq)+(Sgm*dgm*igm*0.5*B*gamma*Ngm) qun=qu-(D*gamma) write (*,*)'' write (*,*)'Menghitung Daya Dukung Ultimate' write (*,*)'-------------------------------' write (*,*)'Daya Dukung Ultimate :' write (*,21) qu 21 format (1x, 'qu = ',F7.2) write (*,*)'' write (*,*)'Menghitung Daya Dukung Ultimate Netto' write (*,*)'-------------------------------------' write (*,*)'Daya Dukung Ultimate Netto :' write (*,22) qun 22 format (1x, 'qun = ',F7.2)

! Menghitung Beban Kolom Maksimum write (*,*)'' write (*,*)'Menghitung Beban Kolom Maksimum' write (*,*)'-------------------------------' write (*,*)'Masukkan Faktor Keamanan Pondasi : ' read (*,*) SF pmax=(B*L)*(qun/SF) write (*,*)'' write (*,*)'Beban Kolom Maksimum :' write (*,23) pmax 23 format (1x, 'Pmax = ',F9.2)

write (*,*)'' write (*,*)'[1] Menghitung Lagi' write (*,*)'[2] Selesai' read (*,*) m if (m.EQ.2) exit end do

! Ending Statement end