AUTOLIPS MENGHITUNG TOTAL PANJANG BEBERAPA GARIS

(defun c:panjang ( / ssx ssl cnt ssn ssg obj dist newdist)
(setq newdist 0)
(prompt "\nPilih semua object gambar :")
(setq ssx (ssget '((0 . "LINE"))))
(setq ssl (sslength ssx))(setq cnt 0)
(repeat
ssl
(setq ssn (ssname ssx cnt))
(setq ssg (entget ssn))
(setq d1 (cdr (assoc 10 ssg)))
(setq d2 (cdr (assoc 11 ssg)))
(setq dist (distance d1 d2))
;(alert (strcat "Object ini adalah = " (rtos dist 2 0)))
(setq newdist (+ dist newdist))
(setq cnt (1+ cnt)))
(alert (strcat "\nTotal panjang garisnya adalah : "(rtos newdist 2 0) " m"))
(princ))


untuk garisnya jenis polyline tinggal diedit jenisnya garisnya.tinggal di sesuaikan.

selamat mencoba....
sumber : pak heri

TUTORIAL CUT AND FILL WITH LAND DESKTOP

EDIT BLOK/GROUP DI SKETCHUP DAN GRAOUP YANG LAIN DI HIDE

DOWNLOAD IMAGE GOOGLE EARTH IN GLOBAL MAPPER

Tutorial SMS 10.1

REKAYASA PELABUHAN

Model adalah pola (contoh, acuan, ragam) dari sesuatu yang akan dibuat atau dihasilkan (Departemen P dan K, 1984:75). Definisi lain dari model adalah abstraksi dari  sistem  sebenarnya,  dalam  gambaran  yang  lebih  sederhana  serta  mempunyai tingkat prosentase yang bersifat menyeluruh, atau model adalah abstraksi dari realitas dengan hanya memusatkan perhatian pada beberapa sifat dari kehidupan sebenarnya

Simulasi dapat diartikan sebagai meniru suatu sistem nyata yang kompleks yang penuh dengan sifat probabilistik, tanpa harus mengalami keadaan yang sesungguhnya . Hal ini dapat dilakukan denganmembuat sebuah miniature yang representative dan valid denagn tujuan sampling dan survey statistik pada sistem nyata dapat dilakukan pada tiruan ini.
Kedudukan masalah dengan simulasi. Proses simulasi juga berhubungan dengan penyusunan tiruan sistem denagn menggunakan interaksi antar bilangan ramdom yang menuruti distribusi dari pola data tertentu.

Secara umum, tujuan pemodelan gelombang, antara lain:

·         Memperoleh simulasi pergerakan gelombang berdasarkan peta batimetri

·         Memperoleh ketinggian, kecepatan dan pola gelombang berdasarkan parameter gelombang rencana

·         Melihat dampak bangunan pelindung pantai terhadap pola dan kedalaman gelombang di sekitar pantai

BERIKUT TUTORIALNYA

TUGAS FOTRAN

Ø   ALGORITMA

-          Baca data input Xa,Ya,Xb,Yb,Xc,Yc,Xd,Yd,Xs,Ys

-          Print Out :

if((Xa.LT.Xs.AND.Xs.LT.Xb).AND.(Ya.LT.Ys.AND.Ys.LT.Yc))then

endif

if((Xc.LT.Xs.AND.Xs.LT.Xd).AND.(Yb.LT.Ys.AND.Ys.LT.Yd))then

Jika  YES write(*,*)"di dalam kotak "

Jika NO write(*,*)"di luar kotak"

endif

selesai

CONTOH SOAL FOTRAN 77

DIKETAHUI :

P1 = 80273 TON

P2 = 80273 TON

L1 = L2 = L3 = 83 METER

Pertayaan :

1.Cari nilai Va dan Vb = .......

2.Cari gaya bidang Momen dan Lintang = ......