kalkukator untuk menghitung ukuran grill diffuser, dengan asumsi kecepatan udara sebesar 500fpm.
perintah : ukgril1 --> untuk grill diffuser persegi (ukuran sisinya sama panjang)
perintah : ukgril2 --> untuk grill diffuser persegi panjang (ukuran sisinya tidak sama panjang)
Program ini menampilkan ukuran pipa hisap, pipa keluaran (discharge), main relief valve, waste cone, meter air, katup uji dan header uji berdasarkan NFPA atau SNI.
perintah yang digunakan : pnfpa
kapasitas pompa yang dimasukkan harus sesuai dengan kapasitas yang tersedia dalam tabel NFPA atau SNI.
Biar lebih mudah dan ringkas, saya buatkan ringkasan-ringkasan autolisp yang saya buat sendiri, untuk autolisp yang saya download dari situs lain rencananya saya tampilkan dihalaman lain. Kalau ada yang minta dibuatkan autolisp untuk keperluan sendiri atau perusahaan, silahkan kirim email via baidinbaid@gmail.com. Bisa tidaknya saya buat programnya saya kasih info secepatnya. Program yang sudah jadi nantinya saya buatkan versi online-nya (gratis). Dan jika berkenan programnya bisa dipakai untuk umum nanti program akan saya upload disini.
Untuk detil dan tempat downloadnya bisa diklik nama programnya.| No | Nama Program | Fungsi | Keterangan |
|---|---|---|---|
| 1 | JumKoma | Menjumlahkan Teks dengan desimal koma | Bricscad dan Autocad |
| 2 | JumTitik | Menjumlahkan Teks dengan desimal titik | Bricscad dan Autocad |
| 3 | vacDuct | Sizing ducting AC | Bricscad dan Autocad |
| 4 | Hazen | Ukuran pipa dan pressure drop dengan Hazen | Bricscad dan Autocad |
| 5 | Genset | Menampilkan data genset | Bricscad dan Autocad |
| 6 | pNFPA | Menampilkan data pompa sesuai NFPA/SNI | Bricscad dan Autocad |
| 7 | ukGrillDiff | Kalkulator ukuran grill diffuser | Bricscad dan Autocad |
| 8 | fu2flow | Konversi fu ke flow | Bricscad dan Autocad |
| 9 | fuPipa | Diameter pipa berdasar fu | Bricscad dan Autocad |
| 10 | kebAir | Menampilkan data kebutuhan air | Bricscad dan Autocad |
| 11 | ffEquip | Skedul Peralatan Utama Pemadam | Bricscad dan Autocad |
| 12 | kapPipaAirHuj | Kapasitas pipa air hujan | Bricscad dan Autocad |
| 13 | diaDebFrKec | Mencari diameter dan debit pipa | Bricscad dan Autocad |
| 14 | Dinding | Menggambar dinding dengan cepat | Bricscad dan Autocad |
| 15 | SisPoPK | Membuat sistem pompa pemadam sesuai SNI/NFPA | Bricscad dan Autocad |
Tadinya data yang tersedia dalam bentuk jpeg dengan tulisan yang kecil-kecil dan agak buram.
Data ini memang berasal dari data tahun lama. Jika ada rekan-rekan yang punya data baru silahkan dishare. Mudah-mudahan bisa update.
Perintah yang digunakan : genset
Tampilan :
Format penulisan : (cond [ (test1 expressions1) [ (test2 expressions2) ... ]] )
Fungsi ini adalah varian Lisp dari fungsi "switch / case" pada bahasa pemrograman lainnya, fungsi "cond" ini menggabungkan beberapa fungsi "if + then" menjadi ekspresi yang ringkas.
Argumen:
test1 : ekspresi Lisp apa pun; jika mengevaluasi ke non-NIL, maka kode cabangnya diproses; T dapat
digunakan sebagai opsi default terakhir.
expressions1 : ekspresi lisp, argumen yang dieksekusi jika kondisi pengujian berhasil.
Return Value (Nilai balik/ nilai yang dikembalikan)
Nilai ekspresi terakhir dalam sublist. Jika hanya ada satu ekspresi dalam sublist (yaitu, jika hasilnya tidak ada), nilai ekspresi pengujian akan dikembalikan. Jika tidak ada argumen yang diberikan, "cond" mengembalikan nihil.
Catatan tambahan :
Fungsi "cond" menerima sejumlah daftar sebagai argumen. Ini mengevaluasi item pertama dalam setiap daftar (dalam urutan yang diberikan) hingga salah satu item ini mengembalikan nilai selain nil, yang kemudian mengevaluasi ekspresi yang mengikuti tes yang berhasil.
Contoh :
;;contoh 1
(setq aa 10)
(setq bb 15)
(setq cc nil)
(cond ) ;; menghasilkan "nil"
(cond aa) ;; menghasilkan "10"
(cond aa bb) ;; menghasilkan "10"
(cond cc bb) ;; menghasilkan "15"
(cond cc bb) ;; menghasilkan "15"
(cond (aa bb) ("nilai lain")) ;; menghasilkan "15"
(cond (cc bb) ("nilai lain")) ;; menghasilkan "nilai lain"
;;contoh 2 (fungsi "cond" untuk menghasilkan nilai absolut)
(setq aa -10)
(cond ((minusp aa) (- aa)) (aa)) ;; menghasilkan "10"
(cond ((minusp aa) (- aa)) (t aa)) ;; menghasilkan "10"
(setq aa 10)
(cond ((minusp aa) (- aa)) (aa)) ;; menghasilkan "10"
(cond ((minusp aa) (- aa)) (t aa)) ;; menghasilkan "10"
;;contoh 3 (fungsi "cond" untuk setting input default)
(initget "Apel Jambu Pisang")
(setq pilih (cond ((getkword "Pilih buah yang kamu sukai [Apel/Jambu/Pisang] <Apel> : ")) ("Apel")))
jangan salah tulis seperti ini ya,
(setq pilih (cond (getkword "Pilih buah yang kamu sukai [Apel Jambu Pisang] <Apel> : ") ("Apel") )
karena ini akan membuat nilai p selalu berisi string "Pilih buah yang kamu sukai [Apel Jambu Pisang] <Apel> : ""
ps : kalau mengacu ke Autocad format penulisan fungsi "cond" adalah sebagai berikut :
(cond [((test) (result ...)) ...])