Contoh Program Menggunakan FORTRAN compiler di Bidang Teknik Sipil

Posted by Unknown Friday, July 5, 2013 5 comments
Awal membuat sebuah program dengan bahasa pemrograman FORTRAN memang cukup rumit, saya sudah cari beberapa tutorial dari internet selain dari yang saya dapat di kuliah. Saya memang bukan orang yang ahli dalam pemrograman, tapi sedikit demi sedikit akhirnya saya bisa juga membuat program dengan FORTRAN meskipun masih sangat sederhana. Intinya, jangan cepat putus asa kalau belum juga bisa. Disini saya akan menunjukkan contoh program menggunakan FORTRAN sederhana yang saya pelajari. Semoga bisa bermanfaat. Aamiin…
*program konversi suhu
program konversi_suhu
            real  C, R, F
            character s
            write(*,*)"PILIH KONVERSI"
            write(*,*)"1     : untuk konversi dari Celcius"
            write(*,*)"2     : untuk konversi dari Fahrenheit"
            write(*,*)"3     : untuk konversi dari Reamur"
            write(*,*)"0     : keluar program"
            write(*,*)"________________________________________"
10        write(*,1)
1          format(1x, "pilihan = ",\)
            read(*,*)A                  
            if(A.EQ.1)then
                        write(*,2)
2                      format(1x, 'masukkan nilai C = ',\)
                        read(*,*)C
                        R=(4./5)*C
                        F=(9./5)*C+32
                        write(*,*) "C = ", C
                        write(*,*) "R = ", R
                        write(*,*) "F = ", F
            else if(A.EQ.2)then
                        write(*,3)
3                      format(1x, 'masukkan nilai F = ',\)
                        read(*,*)F
                        C=(5./9)*(F-32)
                        R=(4./5)*C
                        write(*,*) "C = ", C
                        write(*,*) "R = ", R
                        write(*,*) "F = ", F
            else if(A.EQ.3)then
                        write(*,4)
4                      format(1x, 'masukkan nilai R = ',\)
                        read(*,*)F
                        C=(5./4)*R
                        F=(9./5)*C+32
                        write(*,*) "C = ", C
                        write(*,*) "R = ", R
                        write(*,*) "F = ", F
            else if(A.EQ.0)then
                        goto 100
            else
                        write(*,*)"pilihan hanya 1,2,3,0"
            endif
20        write(*,5)
5          format(1x, 'hitung lagi ?(y/n) ',\)
            read (*,*)s
            if((s.EQ."y").OR.(s.EQ."Y"))then
                        goto 10
            else if((s.EQ."n").OR.(s.EQ."N"))then
                        goto 100
            else
                        goto 20
            endif
100      end

##############################################################
Bagian awal program merupakan deklarasi, kemudian di bawahnya tulisan yang akan muncul pada layar sebagai petunjuk program. Menurut saya user interface sangat penting untuk memudahkan pengguna yang akan menggunakan program kita. Kita harus memikirkan apa yang mungkin dilakukan user dalam menggunakan program kita, sehingga kita bisa meminimalisir kesalahan yang mungkin dibuat user yang bisa menjadikan hasil perhitungan menjadi tidak akurat. Sekian tips dari saya, dan saya berharap bisa segera membuat contoh program selanjutnya.

Wassalamu’alaikum wr wb

Baca Selengkapnya ....
Categories: ,

Microsoft Mathematics

Posted by Unknown Saturday, December 8, 2012 0 comments
Microsoft Mathematics adalah aplikasi yang digunakan untuk menghitung soal-soal model matematik.
Buat yang gak punya kalkulator dengan formula lengkap,, aplikasi yang satu ini patut dicoba.
Buat anak SMA aplikasi ini sangat membantu menghitung soal-soal matematik,, terutama untuk soal-soal yang susah dikerjain manual.
Link downloadnya saya sediakan gratis untuk anda.

download Microsoft Mathematics

Baca Selengkapnya ....
Categories:

All Office Converter Platinum 6.5

Posted by Unknown 0 comments
All Office Converter Platinum 6.5 adalah aplikasi yang bisa digunakan untuk meng-convert semua tipe / jenis file microsoft office  ke bentuk pdf. Di sini saya sediakan  link downloadnya. Free Download All Office Converter Platinum 6.5.

[download]

Baca Selengkapnya ....
Categories:

Download OST Sword Art Online

Posted by Unknown 0 comments
Sword Art Online adalah anime baru yang dirilis,, namun penggemarnya sudah banyak sekali ( termasuk saya). Bagi yang pengen download OST (Original Soundtracknya) bisa didownload lewat link di bawah ini

1. Innocence [download]

2. Crossing Field [download]

Baca Selengkapnya ....
Categories:

Permintaan Elastis dan Inelastis (Tidak Elastis) dari segi harga

Posted by Unknown Sunday, October 7, 2012 0 comments
Postingan saya kali ini adalah tentang Ilmu Ekonomi, yaitu tentang Elastisitas Permintaan dari segi harga
Materi ini saya susun karena kebetulan ada tugas tentang judul tersebut. So, langsung aja didownload filenya. Semoga artikelnnya bermanfaat

Download File

Baca Selengkapnya ....
Categories: ,

Bus Rapid Transit (BRT) / Busway

Posted by Unknown Tuesday, October 2, 2012 1 comments

Bus Rapid Transit (BRT) adalah istilah yang digunakan untuk berbagai sistem transportasi umum yang menggunakan bus untuk menyediakan layanan yang lebih cepat dan lebih efisien daripada jalur bus biasa. BRT merupakan sebuah sistem transportasi pada jalur khusus yang diperuntukan bagi bus, sehingga dapat diperoleh efisiensi yang tinggi. Bus ini memiliki pelayanan yang kualitasnya lebih baik dibandingkan pelayanan bus yang lain. Setiap sistem BRT pasti menggunakan sistem pengembangan yang berbeda, walaupun pengembangannya terkait dengan sistem BRT yang lain. Hasil dari pengembangan sistem tersebut mendekati sistem rail transit yang mana mempertahankan keamanan dan tarif bus. Negara yang memakai BRT ada di Amerika Utara, di Eropa dan Australia dinamai busway dan nama tersebut juga dipakai di Indonesia, sedangkan di negara lain disebut quality bus atau servis bus.
Bus Rapid Transit memakai sebagian nama dari rapid transit yang mendeskripsikan transportasi rel berkapasitas tinggi atau bisa disebut right-of-way. Kereta rapid transit memakai terowongan bawah tanah, model kereta  ini berbadan panjang dalam jalur pendek dan relatif cepat. Kecepatan dari bus rapid transit tidak mengikutsertakan kecepatan dari bus-bus BRT. Kecepatan transit dari sistem BRT rata-rata dari 19-48 km/jam dimana mengkomparasikan dengan permukaan jalan.


Fitur yang umum digunakan bus rapid transit antara lain :
·            Jalur khusus bus, jalur khusus (atau jalur ekslusif) right-of-way: merupakan jalur khusus dimana jalur tersebut bebas dari jangkauan kendaraan pribadi. Hal ini menyebabkan bus dioperasikan di level kualitas tinggi dan hanya pengendara bis profesional yang mengoperasikan busway. Manfaatnya adalah bisa menurunkan biaya konstruksinya sejak busway dicanangkan untuk memasuki zona aman bila dibandingkan dengan jalan yang dibuka untuk pengemudi non profesional.
o     Terdiri dari jalur yang bisa dielevasikan, dalam permukaan aspal, jalur sebelah kanan bisa dimodifikasi rel right-of-way.
o     Sebuah jalan bus atau street mall bisa dibuat di tempat urban dengan mendedikasikan semua jalur dari jalan kota untuk digunakan ekslusif untuk bus.
o     Elemen infrastruktur rendah bisa mengurangi kecepatan dan kendala servis bus termasuk bus yang keluar jalur, bus melanggar peraturan dan bus yang kecepatannya terlalu tinggi.

·           Jalur komprehensif: BRT bisa mengambil bagian dari jalan-jalan di setiap kota dan mempunyai jaringan jalan untuk mobil pribadi. Hal ini bisa membuat waktu menjadi lebih efisien dan cepat dibandingkan sistem bus biasa yang memakan waktu lebih lama.
·           Melayani market tertentu dengan frekuensi pelayanan tinggi setiap hari: jaringan BRT bisa melayani market tertentu (semua penumpang) dengan mengangkut penumpang dari sebuah tempat menuju tujuan mereka dalam jumlah besar dan waktu yang lebih cepat yang dapat meningkatkan  apresiasi masyarakat. Dibandingkan dengan sistem transit yang lain sistem ini bisa berjalan dengan baik.
·           Jalur bus: Setiap jalur bus pasti ada rambu tertentu. Bila lampu hijau di persimpangan yang memiliki sinyal pasti akan mendeteksi bila dilewati bus. Prioritas persimpangan seharusnya bisa dioptimalkan dan bisa membantu saat pertemuan antara jalur bus dan jalan, karena lalu lintas bisa kacau di antara bus dan kendaraan lain.
·           Gambar tertentu dengan nama perusahaan: (Viva, TransMillenio, TransJakarta dan lain sebagainya) dan stasiun yang spesifik dengan fitur seni dari negara-negara yang menggunakan BRT.

·           Koleksi penumpang off-bus: Koleksi on board konvensional tanpa penumpang bisa menurunkan proses boarding, biasanya bila ada penumpang yang tujuannya atau kelas penumpangnya. Alternatif lain adalah bila penumpang masuk lewat stasiun bis yang tidak ditutup atau area shelter sebelum kedatangan bus. Sistem ini mencegah penumpang berdiri di semua pintu pemberhentian bus.

·           Lantai Boarding: Banyak sistem BRT yang menggunakan sistem low-floor (atau sistem high-floor bila bus yang digunakan adalah high-floor bus) untuk mempermudah penumpang masuk bus.

·           Halte: BRT berkualitas tinggi bisa membuat haltenya menjadi berkualitas tinggi dan menghadirkan fitur yang berkualitas tinggi pula seperti pintu geser yang terbuat dari kaca, konter tiket yang dijaga dan tempat informasi, dan masih banyak fitur lainnya.
Sarana dan Prasarana
Tempat pemberhentian bus (Shelter)
1.        Untuk mempercepat proses naik turunnya penumpang langkah yang dilakukan adalah dengan menyamakan tinggi lantai shelter dengan lantai bus
2.        Jumlah pintu bus yang banyak, untuk itu di Mexico city digunakan tiga buah pintu
3.        Akses ketempat perhentian yang sedemikian rupa sehingga memudahkan penderita cacat fisik untuk naik dan turun BRT
4.        Tempat penjualan tiket
5.        Bila jumlah rute yang melalui tempat perhentian lebih dari satu maka sebaiknya dipisahkan tempat naik turun bus menurut rute yang dilalui.

Prasarana Jalan khusus bus
1.        Daya dukung prasarana yang digunakan harus mampu untuk menampung bus yang penuh dengan penumpang, dan bisa mencapai lebih dari 10 ton per
2.        Lebar lajur sekurang-kurangnya 3 meter dan disarankankan paling tidak 3,5 m.
3.        Jarak antar tempat perhentian sekitar 500 m dipusat kota dan 1.000 m dipinggir kota
4.        Jumlah lajur disesuaikan dengan sistem pelayanan, bila ada pelayanan dengan jumlah berhenti terbatas (express) pada tempat perhentian diberikan 2 buah lajur untuk menyalib bus yang sedang menurunkan dan menaikkan penumpang.

Sarana jalan khusus bus
Bus yang digunakan perlu disesuaikan dengan permintaan (demand)
1.        Untuk demand kecil disarankan untuk menggunakan bus besar biasa dengan panjang 10 sampai 10 m
2.        Untuk demand sedang digunakan bus tempel (articulated bus) dengan panjang 17,5 m
3.        Untuk demand besar digunakan bis tempel ganda (biarticulated bus) dengan panjang 24 m
4.        Langkah yang bisa dilakukan lagi untuk meningkatkan kapasitas angkut adalah dengan menggunakan bus dengan lebar 3 m
Sistem Tiket
Pengumpulan pendapatan/tiketing dapat dilakukan dengan berbagai cara sebagai berikut:
1.        Di tempat perhentian bus yang dilengkapi dengan loket yang melakukan penjualan tiket seperti dilakukan pada bus TransJakarta ataupun melalui dispenser/tiket otomatis untuk mengurangi peran manusia.
2.        Diatas bus dengan menggunakan kartu prabayar. Kartu prabayar modern biasanya merupakan kartu yang bisa digunakan untuk berbagai keperluan, kartu bisa diisi ulang melalui toko/warung retail ataupun melalui perbankan.

Baca Selengkapnya ....
Categories: ,

WHO : Virus Baru mirip Sars Tidak Mudah Menular

Posted by Unknown Sunday, September 30, 2012 0 comments
Sebuah penyakit pernafasan baru  dari Family yang sama seperti virus Sars, tampaknya tidak menyebar dengan mudah, menurut para ahli di Organisasi Kesehatan Dunia (WHO).

Seorang pria Qatar, 49, yang terserang virus tersebut sedang dirawat di London. Orang pertama yang diketahui mengidap penyakit itu itu, di Arab Saudi, meninggal dunia.
WHO mengatakan bahwa munculnya virus baru "tidak dapat dengan mudah menular dari orang ke orang."
Virus SARS, yang muncul di Cina pada tahun 2002, menewaskan ratusan orang.
Kedua SARS (severe acute respiratory syndrome) dan, virus baru yang belum dinamai - serta virus flu biasa - tergolong family coronavirus.
Tapi virus baru ini berbeda dari setiap coronaviruse sebelumnya yang diidentifikasi pada manusia.
Kedua pasien diketahui telah memiliki riwayat virus gagal ginjal.

Zoonosik
WHO mengatakan akan terus memantau situasi ini tapi tidak merekomendasikan pembatasan perjalanan apapun untuk Arab Saudi atau Qatar.
Namun WHO mengatakan pihaknya bekerja sama dengan pihak berwenang Saudi di awal bulan haji yang akan datang, ziarah muslim tahunan ke Mekkah.
WHO juga mengumumkan tes diagnostik sedang dikembangkan oleh para ilmuwan di seluruh dunia secepat mungkin.
Pusat Eropa untuk Pencegahan dan Pengendalian Penyakit (ECDC), yang memantau penyakit di Uni Eropa, mengatakan temuan awal menunjukkan virus mungkin berasal dari hewan - penyakit yang dikenal sebagai zoonosis.
Seperti ditulis dalam jurnal Eurosurveillance, mereka mengatakan: "Hal ini sangat mungkin asal zoonosis dan perbedaan dalam perilaku Sars."



Baca Selengkapnya ....
Categories: ,
Template by Berita Update - Trik SEO Terbaru. Original design by Bamz | Copyright of news and knowledge.
Powered by Blogger.