Mencari Diameter dan Debit Pipa (dari Kecepatannya)

 perintah :

mencari diameter --> diapipa

mencari debit/flow --> debpipa

 

Gambar input/output perintah diapipa

Gambar input/output perintah debpipa

Download .des untuk Bricscad

Download .vlx untuk Autocad

Kapasitas Pipa Air Hujan

 referensi : SNI (tapi lupa yang 2015 atau tahun yang lama, tapi tidak jauh berbeda nilainya)

perintah :

pipa horisontal --> ahh

pipa vertikal --> ahv

Input/output perintah ahh

Input/output perintah ahv

Download .des untuk Bricscad

Download .vlx untuk Autocad

Menghitung Flow Air Terjun Taman

 Program autolisp ini digunakan untuk menghitung flow air terjun berdasarkan input tebal dan panjang air terjun yang akan didesain.

perintah : tat

Gambar input/output perintah tat

Download debitAirTerjun.des untuk Bricscad

Download debitAirTerjun.vlx untuk Autocad

Skedul Pompa Pemadam Kebakaran

 Membuat tabel/ skedul peralatan dengan kw pompa dihitung secara otomatis.

perintah : ff_eq

Gambar input perintah ff_eq

Gambar output perintah ff_eq

Download ff_eq.des untuk Bricscad

Download ff_eq.vlx untuk Autocad

Operator Bitwise di Autolisp

 Di autolisp fungsi bitwise antara lain :

1. ~ (bitwise not)
2. lsh
3. logand
4. logior
5. boole

Untuk memahami fungsi bitwise dan perilakunya, sebaiknya terlebih dahulu memahami tipe data integer dan representasinya dalam bilangan biner yang digunakan dalam autolisp. 

Bilangan integer AutoLISP adalah bilangan bertanda 32-bit dengan nilai mulai dari +2.147.483.647 hingga -2.147.483.648.

representasi bilangan +2.147.483.647 dalam bilangan biner bertanda 32-bit adalah

0111 1111 1111 1111 1111 1111 1111 1111 

representasi bilangan -2.147.483.648 dalam bilangan biner bertanda 32-bit adalah

1000 0000 0000 0000 0000 0000 0000 0000

Untuk bilangan positif mungkin ngga aneh ya, karena nilainya bisa dikonversi dari penambahan bilangan binernya, misal

0000 0000 0000 0000 0000 0000 0000 0001  =  (1x2⁰) = 1

0000 0000 0000 0000 0000 0000 0000 0010  =  (1x2¹)  + (0x2⁰) = 2

0000 0000 0000 0000 0000 0000 0000 0011  =  (1x2¹)  + (0x2¹) = 3

dan seterusnya

Kalau bilangan negatif, bit paling kiri jika nilainya 1 maka negatif, tetapi bit lainnya tidak sama dengan bilangan positif nya.

11111111111111111111111111111111 = -1

11111111111111111111111111111110 = -2

11111111111111111111111111111101 = -3

Representatif bilangan negatif seperti ini dinamakan komplemen 2, yaitu komplemen bilangan positif + 1.

Untuk mengecek integer autolisp menggunakan komplemen dua dengan cara:

(~ 0) = -1 = - (0 + 1)

(~ 1) = -2 = - (1 + 1)

.

.

.

(~ 100) = -101 = - (100 + 1)

1. fungsi ~ (bitwise not)

Fungsi ini membalik nilai bit. nilai bit 0 menjadi 1, nilai bit 1 menjadi 0. kenapa ~0 nilainya jadi -1, karena nilai integer autolisp selalu disimpan dalam 32 bit. nilai integer 0 representasinya dalam integer 32 bit bertanda adalah :

0000 0000 0000 0000 0000 0000 0000 0000

sehingga (~ 0) menghasilkan :

11111111111111111111111111111111 = -1

2, lsh

syntak : (lsh  [ integer [ numbits ]] )

fungsi ini menggeser nilai bit. jika numbits bernilai positif maka akan digeser ke kiri sesuai nilai numbit sebaliknya jika numbits bernilai negatif akan digeser ke kanan. nilai bit yang kosong setelah penggeseran akan diisi nilai 0.

contoh :

(lsh 1 1)

integer 1, 0000 0000 0000 0000 0000 0000 0000 0001 digeser ke kiri sebanyak 1 bit, sehingga menjadi

0000 0000 0000 0000 0000 0000 0000 0010, yang nilainya 2

3. logand

syntak: (logand [int int ...])

menghasilkan nilai bitwise logis AND dari bilangan integer.

4. logior

syntak: (logior [int int ...])

menghasilkan nilai bitwise logis OR dari bilangan integer.

5. Boole

Syntak: (boole operator int1 [int2 ...])

merupakan fungsi umum untuk operasi bit pada autolisp.

operator merupakan bilangan integer antara 0-15.

Tabel kebenaran operator bit

Int1	Int2	Operator Bit
0	0	8
0	1	4
1	0	2
1	1	1

Dari operator bit diatas berikut ekuivalensi fungsi-fungsi bitwise yang umum :

Operator	Operation	Resulting bit is 1 if
1	AND	Both input bits are 1
6	XOR	Only one of the two input bits is 1
7	OR	Either or both of the input bits are 1
8	NOR	Both input bits are 0 (1's complement)

Note : saya masih bingung di Bricscad 2018 mengapa (boole 8 0 0) maupun (boole 1 -1 -1) menghasilkan bilangan integer 4294967295, bukan -1.

saya cek di Bricscad 2013 ternyata menghasilkan nilai -1.

----000--------

Menampilkan Data Kebutuhan Air Bersih (Referensi Soufyan Noer Bambang)

 perintah : kebair

Gambar input dan output perintah kebair

Download untuk bricscad

Download untuk autocad

Ukuran Pipa Air Bersih Berdasarkan Nilai FU (Fixture Unit)

 perintah : 

chfu --> untuk pipa gabungan air dingin dan air panas

cfu  --> untuk pipa air dingin

hfu --> untuk pipa air panas

Gambar input perintah CHFU

Gambar output perintah CHFU

Gambar input perintah CFU

Download untuk bricscad

Download untuk autocad

Menghitung flow (debit) dari nilai fu/ubap (fixture unit/ unit beban alat plambing)

 Program ini dibuat untuk mengkonversi dari fixture unit/ unit beban alat plambing air bersih, denga referensi Buku Handbook of Utilities and Services for Buildings Planning, Design, and Installation, Cyril M. Harris.

perintah :

fut --> untuk fu/ unit beban alat plambing dominan tangki gelontor (flush tank)

fuv --> untuk fu/ unit beban alat plambing dominan katup gelontor (flush valve)

Gambar input dan output program fut

Gambar input dan output program fuv

Download untuk autocad

Download untuk bricscad