đồ án tốt nghiệp viết chương trình vẽ đường hình tàu cao tốc theo tàu mầu

TRƯỜNG ĐẠI HỌC NHA TRANG KHOA KỸ THUẬT TÀU THỦY ------ NGUYỄN LÊ MINH THẠCH VIẾT CHƯƠNG TRÌNH VẼ ĐƯỜNG HÌNH TÀU CAO TỐC THEO TÀU MẦU ĐỒ ÁN TỐT NGHIỆP GIÁO VIÊN HƯỚNG DẪN: TS.

Trang 1

TRƯỜNG ĐẠI HỌC NHA TRANG KHOA KỸ THUẬT TÀU THỦY

- -

NGUYỄN LÊ MINH THẠCH

VIẾT CHƯƠNG TRÌNH VẼ ĐƯỜNG HÌNH

TÀU CAO TỐC THEO TÀU MẦU

ĐỒ ÁN TỐT NGHIỆP

GIÁO VIÊN HƯỚNG DẪN:

TS TRẦN GIA THÁI

NHA TRANG - 2008

Trang 2

1

L I NÓI Ð U

Trong công nghi p dóng tàu hi n nay, vi c ng d ng các ph n m m máy tính vào thi t k công ngh r t ph bi n và giúp cho công vi c thi t k gi m du c r t nhi u th i gian trong tính toán cung nhu luu tr , liên k t gi a các d li u Chính vì

th vi c nghiên c u áp d ng công ngh thông tin vào tính toán, thi t k và ch t o tàu th y có ý nghia r t quan tr ng

Hi n nay, ngành công nghi p tàu th y nu c ta phát tri n khá m nh, d c bi t

là nhu c u dóng m i nh ng lo i tàu cao t c c v a và nh làm b ng v t li u Composite nu c nh m ph c v cho công tác tu n tra, ki m ngu, du l ch, quân s , tìm ki m c u n n.v.v là r t l n, do dó công tác thi t k r t du c s quan tâm c a các nhà máy, xí nghi p dóng tàu Ð c bi t là áp d ng công ngh thông tin vào ch

t o tàu th y cung du c phát tri n r t nhanh, trong dó công vi c thi t k du ng hình thu ng mang tính l p di l p l i nhi u l n nên t d ng hóa công vi c này thì s gi m

th i gian thi t k dáng k Tru c nh ng yêu c u dó, d t o di u ki n c ng c ki n th c, ti p c n v i th c

t , làm quen v i vi c gi i quy t nh ng v n d c th , sau th i gian h c t p t i

tru ng tôi dã du c nhà tru ng giao cho th c hi n d tài v i n i dung: “Vi t chuong

trình v du ng hình tàu cao t c theo tàu m u” Qua th i gian tìm hi u, du c s

hu ng d n c a th y giáo T.S Tr n Gia Thái , cùng v i s d ng viên giúp c a các

th y cô trong b môn Ðóng tàu, tôi dã hoàn thành n i dung d tài nhu sau:

Chuong 1: Ð t v n d

Chuong 2: Co s lý thuy t Chuong 3: K t qu nghiên c u Chuong 4: Th o lu n và ki n ngh Tuy tôi dã r t c g ng nhung d d tài hoàn thi n hon r t mong nh n du c ý

ki n dóng góp quý giá c a các th y và các b n

Nha trang, ngày 23 tháng 08 nam 2008

Sinh viên th c hi n Nguy n Lê Minh Th ch

Click to buy NOW!

.d oc u -tra c k.

co m

Trang 3

2

CHUONG 1

Ð T V N Ð

1.1 T NG QUAN

Trong nh ng nam g n dây, nhu c u dóng m i nh ng lo i tàu cao t c v a và

nh làm b ng v t li u Composite nu c ta nh m ph c v cho du l ch, th thao v.v… là r t l n do dó v n d thi t k tàu cao t c có vai trò và ý nghia quan tr ng

Th c t nh n th y:

- Thi t k du ng hình tàu dáp ng yêu c u v t c d , d c bi t là t c d cao, là bài toán không don gi n, dòi h i ngu i thi t k ph i có nhi u kinh nghi m và là công vi c có tính ch t l p di l p l i, m t r t nhi u th i gian và công s c

- Vi c thi t k du ng hình tàu cao t c là ch y u d a vào thu vi n tàu m u có

1.2 N I DUNG VÀ PHUONG PHÁP NGHIÊN C U

Thi t k du ng hình tàu có hai phuong pháp là xây d ng du ng hình theo tàu

m u và t xây d ng Thông thu ng khi xây d ng du ng hình ngu i ta thu ng d a vào nh ng tuy n hình dã có s n và s a ch a cho h p lý v i nh ng thông s c a tàu dang thi t k Th c t nh n th y, vi c thi t k m i tàu cao t c thu ng không don

gi n do thi u các s li u khi th nghi m mô hình Vì th , phuong pháp nghiên c u thích h p trong tru ng h p này là s d ng các m u tàu cao t c dã du c th nghi m

s n và áp d ng các gi i pháp k thu t nh m làm tang t c d tàu

N i dung nghiên c u g m:

- Tìm hi u d c di m hình h c tàu cao t c

- Nghiên c u thu t toán t d ng v du ng hình

co m

Trang 4

Th c t hi n nay, vi c thi t k tuy n hình tàu cao t c m t s don v thi t k

và dóng m i nhu Vi n nghiên c u ch t o tàu th y, Công ty TNHH Sông Lô, ch

y u là làm th công b ng công c autoCAD d a vào tàu thu vi n tàu m u có s n, sau dó áp d ng các bi n pháp k thu t làm tang tính nang hàng h i c a tàu

Hi n nay, có r t nhi u ph n m m thi t k tàu dang có m t Vi t Nam, h tr công vi c thi t k r t m nh nhu ph n m m AutoShip (M ), Maxsurf (Úc).v.v…các

ph n m m này dòi h i ngu i s d ng ph i du c hu n luy n qua và có kinh nghi m trong thi t k Ðây là các ph n m m chuyên nghi p, v du c du ng hình và tính toán các tính nang r t nhanh nhung d góp ph n nh bé trong vi c nghiên c u ng

d ng tin h c trong thi t k tàu, tôi vi t chuong trình v du ng hình tàu cao t c d a vào ngôn ng l p trình AutoLISP, giao di n chuong trình don gi n, d s d ng

co m

Trang 5

4

CHUONG 2

CO S LÝ THUY T

2.1 Ð C ÐI M HÌNH H C C A TÀU CAO T C

Theo nhu quy d nh di u 2.1.2 c a qui ph m phân c p và dóng tàu th y cao

t c c a Vi t Nam TCVN 6451 – 2004, tàu cao t c du c hi u là các tàu có t c d

l n nh t tính b ng m/s ho c l n hon giá tr tính theo công th c sau:

) / ( 7 ,

Chi u dài L c a tàu có nh quy t d nh d n m i công vi c b trí trên tàu và có

nh hu ng d n tr ng lu ng v tàu du c thi t k Chi u dài L l n thì công vi c b trí tàu, b trí trang thi t b trên tàu du c thi t b trên tàu d dàng hon, tuy nhiên s làm tang kh i lu ng v tàu nh hu ng d n t c d c a tàu N u chi u dài L c a tàu nh thì s làm cho công vi c b trí các phuong ti n trên tàu tr nên khó khan hon Vì

v y c n ph i l a ch n chi u dài L c a tàu m t cách h p lý, ph i d m b o k t h p hài hòa gi a yêu c u v s c ch c a tàu và yêu c u v t c d c a tàu

Chi u r ng B c a tàu có nh hu ng quy t d nh d n tính nang c a tàu

Chi u r ng B quá l n thì làm cho vi c cân b ng d dàng hon, n d nh d ng khá t t, tuy nhiên n d nh d c và tính êm s gi m Chi u r ng B nh dua d n nh ng di u t

h i cho tàu, B quá nh s không d m b o n d nh ban d u nhu mong d i, n d nh

d ng c a tàu r t kém Tàu v i B quá h p s làm cho l c nâng t m dáy khi tàu ch y không d d l n và h u qu là tàu không nâng n i mình lên m t nu c dù c ch y

co m

Trang 6

t di u ki n h s t i tr ng CD là kích thu c ch y u Nh xác d nh du c các kích thu c chính là L ho c B, thông qua t s kích thu c chính L/B, B/T và L/H mà ta

có th tìm du c các kích thu c còn l i

2.1.2 nh hu ng c a các t s kích thu c chính

T s L/B có nh hu ng dáng k d n ch t lu ng tàu, th c ch t l a ch n t s

L/B là l a ch n chi u r ng c a tàu thi t k , công th c g n dúng bi u di n m i quan

h c a chi u dài L và chi u r ng B c a tàu cao t c theo d ngh c a các tài li u v tàu cao t c là :

25 , 0 3 , 2 1 , 0 /B L

L (2-2)

T s B/T theo lý thuy t tàu có nh hu ng l n d n s c c n du trong giai do n

d u c a chuy n d ng tàu Ð i v i tàu cao t c thì di u này nh hu ng d n th i gian

và d dài quãng du ng d tàu chuy n sang ch d lu t T s B/T càng l n thì tàu nhanh chóng chuy n sang ch d lu t, m c dù c u hình này d n d n tình tr ng x u

n u xét v m t l c Theo d ngh c a các tài li u v tàu cao t c t s B/T có liên h

v i h s béo th tích nhu sau:

234 , 0 6 , 12

/ T

B (2-3)

T s L/H thì có nh hu ng d n d b n chung c a tàu, tàu cao t c thu ng có

t s L/H nh , theo s li u th ng kê c a m t s tài li u v tàu cao t c L/H có m i quan h nhu sau:

a L H

L/ 2 / 3 (2- 4) Trong dó: a – Ð i lu ng mà s thay d i c a nó s d c trung cho gi i h n th c t c a

t s L/H khi chi u dài dã bi t

co m

Trang 7

gi m b t tình tr ng sóng h t lên m t boong, làm tang chi u cao ki n trúc thu ng

t ng, l c c n do gió tác d ng vào tàu tang, không có l i v m t t c d , n u m n

nu c T không thay d i, gi m chi u cao m n H thì lúc này tr ng tâm tàu tuong d i

th p, n d nh ban d u c a tàu du c tang lên, l c c n do gió tác d ng vào tàu gi m, tuy nhiên n d nh d ng c a tàu gi m, sóng h t lên m t boong Khi chi u cao H không d i, gi m m n nu c T thì s c c n c a tàu s gi m, t c d tàu tang lên, tuy nhiên n d nh cung nhu tính l c c a tàu s gi m nhanh, khi chi u cao m n H không

d i và tang m n nu c T, tru ng h p này thì s có l i v m t n d nh và tính l c c a tàu, nhung l i không có l i cho t c d tàu do ph n chìm tàu tang làm tang di n tích

ti p xúc nu c c a v tàu nên l c c n tang nhanh

2.1.3 nh hu ng c a các h s hình dáng

H s di n tích m t du ng nu c có hu ng nhi u d n m t s tính nang c a tàu N u h s l n, bán kính n d nh ngang ban d u ro s l n, lúc này tính n d nh

c a tàu s tang lên N u l n di n tích m t du ng nu c s l n, lúc này m t boong

s du c m r ng thu n ti n cho vi c thao tác và di l i trên tàu N u quá bé, nguy

hi m nh t là tính n d nh c a tàu gi m, di u này không th cho phép d i v i tàu du

l ch, nh di n tích m t boong thu nh dôi chút nhung trên co s v n n d nh cho tàu

co m

Trang 8

7

H s th tích chi m nu c có nh hu ng l n d i v i các tính nang c a tàu,

d c bi t d i v i tàu cao t c N u h s l n thì s c c n tác d ng vào tàu s l n, công su t có ích c a tàu b gi m nhung bù l i s c ch c a tàu tuong d i l n N u h

s l n thì cung làm gi m bán kính n d nh ngang c a tàu, d ng th i làm gi m d cao tâm n i ban d u ZCo Ði u này làm cho chi u cao tâm n d nh ban d u ho gi m

d n d n tính n d nh c a tàu b gi m Ngu c l i n u h s nh , lúc này tính n

d nh c a tàu du c tang lên, d ng th i s c c n gi m nên t c d c a tàu du c c i thi n, dáp ng du c yêu c u c a thi t k

Nhu v y, trong quá trình thi t k tàu cao t c thì ta c n ph i l a ch n các kích thu c chính, t s gi a các kích thu c chính và các h s hình dáng c a tàu m t cách h p lý Trong ph m vi d tài thì các kích thu c chính và các t s gi a các h

s hình dáng c a tàu s du c l a ch n trên co s x lý s li u th ng kê các tàu m u dang ho t d ng có hi u qu

2.2 CÁC Ð C TRUNG HÌNH DÁNG C A TÀU ÐÁY B NG

Tàu dáy b ng là nhóm tàu có m t c t ngang hình V, dáy tàu ph ng (không có

co m

Trang 9

- D ng su n dáy vùng duôi: Bi u d áp l c theo chi u dài c a t m lu t cho

th y, ph n duôi tàu dóng vai trò th y u trong quá trình t o nên l c nâng Trong khi

dó hình dáng su n duôi và s ng duôi t ra có nh hu ng r t l n d n ch t lu ng hàng h i nói chung Vi c t o nên d nghiêng không d i trên su t ph n duôi tàu s

c i thi n t t ch t lu ng th y d ng và hàng h i

- D ng su n dáy vùng mui: hình dáng các su n vùng mui tuong ng v i hình dáng su n vùng gi a ch có khác ch d nghiêng su n mui s l n hon m t cách dáng k so v i d nghiêng su n dáy vùng gi a tàu Hình dáng v bao vùng mui tàu tru c h t có nh hu ng d n tính nang hàng h i c a con tàu Su n vùng mui nghiêng nhi u thì va d p c a thân tàu vào sóng càng êm Tuy nhiên, các su n vùng mui quá nh n v i d nghiêng không d vùng hông và trong tru ng h p duôi béo

s gây nên m c d tràn nu c lên vùng duôi, mui tàu chúi vào sóng, làm x u di tính

n d nh hu ng Ð c bi t, khi g p sóng ngu c lúc này duôi tàu s b nâng lên và b

l ch sang trái ho c sang ph i

- D ng su n m n: Hình dáng su n m n dóng vai trò khá quan tr ng vào vi c

d m b o ch t lu ng hàng h i cho tàu lu t, vùng mui c a chúng c n có d nghiêng

d l n nh m tang tính n i cho tàu, ngan ng a s tràn nu c lên boong, vùng gi a tàu su n m n s có d ng th ng

2.2.2 Hông tàu

Ðu ng hông tàu trên hình chi u d ng thu ng du c th hi n du i d ng du ng cong tron, song vùng duôi (kho ng 1/4L k t s ng duôi) du ng hông tàu g n nhu song song v i s ng dáy Ð nghiêng c a s ng duôi trong tru ng h p này s không khác nhi u so v i d nghiêng su n gi a và chính di u này cung s cho phép tránh

du c xoáy c a dòng ch y bao quanh thân tàu

- V trí giao nhau c a du ng hông tàu v i du ng nu c tinh thu ng x p x (0,75 – 0,8)L k t s ng duôi S chuy n d ch c a di m này t i g n s ng mui s gây khó khan cho vi c nâng hông và làm ti p giáp nó v i s ng mui d cao trên du ng

nu c Ði m ti p giáp c a du ng hông s ng mui c n n m càng cao càng t t xét v phuong di n hàng h i Ðôi khi di m ti p giáp này du c dua lên t i mép boong

Trang 10

9

Trên hình chi u b ng du ng hông có d ng du ng bao l i tron d u và du c vu t

nh n phân mui Ðu ng này s có m t do n thân ng không l n vùng gi a tàu và

du c thu h p d n t i s ng duôi nh m d m b o s gián do n dòng ch y ngu c

Ðu ng boong trên hình chi u b ng c n du c l a ch n sao cho d m b o d nghiêng

c n thi t c a các su n mui nh m ngan ng a hi n tu ng tóe ho c tràn nu c lên boong tàu Ð nâng c a du ng boong phía mui c n du c ch n m t cách h p lý d không làm gi m t m nhìn c a tàu khi b chúi

- Hông tàu thu ng có hai d ng là hông tròn và hông gãy, hông tròn thì tàu

ch y êm hon hông gãy, hông gãy thu ng có l c nâng l n hon khi tàu ch d lu t,

d tang l c nâng ngu i ta thu ng làm thêm các gãy d c

Hình 2.2: Hông tàu

2.2.3 Góc nghiêng hông

Các tàu lu t hi n d i thu ng du c thi t k v i d ng dáy vát ho c dáy vát hông lu n có di m u n bao g m: d ng dáy ph ng nghiêng v i góc nghiêng mép ngoài t i su n gi a 0

8 , nghiêng trung bình 0 0

14

9 , v i góc nghiêng l n

0 0

19

15 , v i d ng su n ch V nh n 0 0

26

20 Góc nghiêng hông l n thì tàu ch y êm và nhanh hon, tàu A có góc b ng 0 thu ng du c s d ng khu v c ít

co m

Trang 11

M n khô c a tàu cao t c thay d i khi tàu ho t d ng Khi tàu d t t c d l n

nh t m n khô cao nh t g n gi a tàu và boong b nghiêng xu ng t mui d n duôi Ðó

là b i vì tr ng lu ng n ng nh t du c d t phía duôi nên khi tàu d ng thì mui tàu

du c nâng lên Thông thu ng, m n khô duôi không nh hon (61-91 cm)

Hình 2.4: M n khô

2.2.5 Thanh hu ng dòng

Thanh hu ng dòng du c s d ng m c dích là tang l c nâng tàu cao t c

Thanh hu ng dòng thu ng có m t c t ngang là tam giác, song song v i b m t dáy

co m

Trang 12

11

Hình 2.5: L c nâng t i các thanh hu ng dòng

- Khi có các thanh hu ng dòng này cu ng d dòng ch y c c b t i dây thay

d i làm phát sinh vùng áp l c b sung t i dáy nhu (Hình 2.6a), áp l c b sung còn

du c tang thêm n u tính c nh hu ng c a l c li tâm do chuy n d ng vòng c a

nu c t i khu v c có b c nh y d c (Hình 2.6b) Sau b c nh y qua gò cao do hu ng dòng t o ra, dòng nu c “b qua” m t m ng tr ng t i dáy, và nhu v y t ng di n tích

m t u t c a tàu có hu ng dòng, khi tàu ch y nh hon m t u t tính toán ban d u

Ði u này có l i cho s c c n v tàu và t o l c nâng l n hon khi tàu ch y, d c tính

th y d ng cao hon tàu thông thu ng M t k t lu n khá “ngh ch lý” sau dây du c rút

ra t th c t minh ch ng cho cách t o dáng duong d i Ð c tính th y d ng l c h c tàu du c nâng cao theo chi u tang góc nghiêng hông và v n t c tàu Theo s li u do

du c t b th , v tàu v i góc nghiêng hông 0

25 , t i v n t c tuong d i FnD = 3,57 , khi có hu ng dòng s làm tang d c trung ch t lu ng thêm 17%

co m

Trang 13

Nh ng d li u th ng kê sau dây d giúp vào vi c ch n c u hình các hu ng dòng:

co m

Trang 14

13

- Chi u cao t i thi u 10 – 12 mm, gi i h n trên c a d i lu ng này tùy thu c kích thu c chính c a tàu Trên dáy canô nh , lu ng chi m nu c không quá 800 –

1200 Kg, chi u r ng xu ng không quá 2 m, chi u cao hu ng dòng không nên quá

30 mm Chi u r ng hu ng dòng ph i tuong x ng v i chi u cao v a ch n Thông l ,

v i dáy tàu có d nghiêng hông kho ng 250 t l chi u r ng trên chi u cao c a thanh hu ng dòng này vào kho ng 2,5

- S lu ng hu ng dòng ph thu c vào chi u r ng dáy tàu Thông l ngu i ta

b trí hai dôi ho c b n dôi hu ng dòng trên dáy tàu D li u th ng kê nêu lên r ng, kho ng cách su n gi a hai hu ng dòng k nhau nên vào kho ng 300 – 350 mm n u chi u cao thanh hu ng dòng 25 – 30 mm Kho ng cách này còn l i 100 – 150 mm

D a vào các thông s c a tàu m u trong các tài li u v tàu cao t c k t h p

v i vi c th ng kê các m u tàu cao t c du c dóng m i và dang ho t d ng, ta có th

th ng kê du c m t s tàu cao t c theo b ng sau:

B ng 2.1 : B ng th ng kê m t s tàu cao t c

TT Lo i tàu Lmax

(m)

Ltk (m)

B (m)

H (m)

T (m)

co m

Trang 15

T s li u th ng kê trên ta l p du c m i quan h gi a các t s , ta có b ng 2.2

B ng 2.2 : Ph m vi thay d i các d c di m hình h c tàu cao t c theo b ng th ng kê

Lo i tàu T s các kích thu c chính

(Theo th ng kê m t s tàu dang

ho t d ng)

T s các kích thu c chính (Theo công th c th ng kê m t s tài

co m

Trang 16

- M u tàu : Công ty TNHH Sông Lô

- Tàu thu c d ng du ng hình tàu dáy b ng gi n don, dáy d ng t m ph ng, b

co m

Trang 17

16

M u 2 : CA NÔ CÔNG TÁC V FRP 220 HP

Hình 2.9: Canô Công tác Thông s chính

- Chi u dài l n nh t Lmax = 6,2 m

- Chi u r ng l n nh t Bmax = 2,4 m

- Chi u cao H = 1,00 m

- M u tàu : Trung tâm ch t o tàu cá, tru ng Ð i h c Nha Trang

- Tàu thu c d ng tàu có du ng hình ”gi n don”, dáy d ng t m ph ng, b g p

l i thành hình ch V Ð tang tính nang hàng h i tàu b trí hai thanh hu ng dòng hai bên, thanh hu ng dòng th nh t kéo dài t duôi d n mui, thanh hu ng dòng th hai kéo dài t gi a tàu d n mui, góc nghiêng hông do t i transom 0

21 , hông gãy

có nh y b c, m n tàu lõm gi m l c c n khi tàu chuy n sang ch d “lu t”

- Tính công ngh : Ðu ng hình d ng này ít t o di u ki n thu n l i cho ch t o

co m

Trang 18

Thông s chính

- Chi u dài l n nh t Lmax = 9,70 m

- Chi u r ng l n nh t Bmax = 2,40 m

- Chi u cao H = 0,85 m

- M u tàu : Công ty TNHH Sông Lô

- Tàu thu c d ng tàu có du ng hình nhóm “gi n don”, dáy d ng t m ph ng, b

g p l i thành hình ch V Ð tang tính nang hàng h i tàu b trí ba thanh hu ng dòng hai bên, các thanh hu ng dòng này b tri nhu mô hình (Hình 2.10d), các thanh

hu ng dòng ng n, góc nghiêng hông do t i transom 19 0, hông gãy không có

nh y b c, m n tàu có các gãy góc d ng th i nh y b c kéo dài t duôi d n mui tàu

- Tính công ngh : Ðu ng hình d ng này ít t o di u ki n thu n l i cho ch t o

2.3.2 Phuong pháp v d ng d ng

Trong thi t k tàu có th s d ng tài li u thí nghi m mô hình ho c các tàu

m u có tính nang t t làm co s v du ng hình tàu thi t k , nhung do các tàu m u ít khi phù h p hoàn toàn v i yêu c u thi t k m i nên c n có nh ng di u ch nh c n thi t v m t hình h c Phuong pháp v du ng hình tàu thi t k t du ng hình tàu

m u hi n dang dùng r ng rãi là phuong pháp bi n d i d ng d ng t tàu m u hay còn g i là phuong pháp bi n d i affin, b ng cách s d ng các h s d ng d ng kích thu c xác d nh theo công th c :

kL , kB , kT - các h s d ng d ng theo chi u dài, chi u r ng và chi u cao tàu

Ltk, , Btk , Ttk - chi u dài, chi u r ng và m n nu c c a tàu thi t k

Trang 19

Lm, , Bm , Tm - chi u dài, chi u r ng và m n nu c c a tàu m u

Phuong pháp v d ng d ng don gi n, cho phép v du c du ng hình tàu d m

b o yêu c u v các kích thu c tàu thi t k

Trang 20

19

CHUONG 3

K T QU NGHIÊN C U

3.1 SO Ð THU T TOÁN V ÐU NG HÌNH TÀU CAO T C

So d 3.1: So d thu t toán v du ng hình tàu cao t c

co m

Trang 21

d ng theo chi u cao, chi u r ng và chi u cao tàu

- Bu c 8’: Ti n hành v du ng hình tàu thi t k d ng 3D b ng phuong pháp

d ng d ng

- Bu c 8: Ti n hành v du ng hình tàu thi t k du i d ng di m b ng phuong pháp d ng d ng

- Bu c 9: Xác d nh b ng t a d du ng hình thi t k

- Bu c 10: T b ng t a d tàu thi t k ta ti n hành v du ng hình tàu d ng 2D

- Bu c 11: T b ng t a d tàu thi t k ta ti n hành tính toán các h s hình dáng

- Bu c 12: T các h s hình dáng ta ti n hành tính s c c n cho tàu

3.2 CHUONG TRÌNH V ÐU NG HÌNH TÀU CAO T C Chuong trình g m có 8 file:

- CHUONG TRÌNH VE HSC.LSP: File chuong trình autolisp

- TKTAUMAU.DCL : File mô t h p tho i nh p s li u

- BANGTOADO.DCL : File mô t h p tho i xu t d li u

- HESO.DCL : File mô t h p tho i xu t và nh p d li u

co m

Trang 22

21

- logo.SLD : File ch a hình slide tàu m u 1 xu t hi n trên h p tho i

- logo1.SLD : File ch a hình slide tàu m u 2 xu t hi n trên h p tho i

- logo2.SLD : File ch a hình slide tàu m u 3 xu t hi n trên h p tho i

- TAUCAOTOC.MNU : File t o menu group HSC trên giao di n autocad Cách cài d t chuong trình xem ph n Ph l c

Chuong trình autoLISP tuong ng:

- Chuong trình chính c a mô dun v du ng hình:

co m

Trang 23

(setq DCL_ID (load_dialog "TKTAUMAU.DCL")) (if (not (new_dialog "TKTAUMAU" DCL_ID)) (exit)) ;NHAP DU LIEU

(action_tile "edt_L" "(KTDL (get_tile \"edt_L\") $reason \"edt_L\")") (action_tile "edt_B" "(KTDL (get_tile \"edt_B\") $reason \"edt_B\")") (action_tile "edt_H" "(KTDL (get_tile \"edt_H\") $reason \"edt_H\")") (action_tile "edt_cT" "(KTDL (get_tile \"edt_cT\") $reason \"edt_cT\")") ;KET THUC NHAP

(HIDEVDH) (action_tile "lst_1""(chonlist)") (action_tile "rad_MD" "(MACDINH)") (action_tile "rad_TC" "(TUYCHON)") (action_tile "but_KT" "(KIEMTRA)") (action_tile "rad_2D" "(D2D)") (action_tile "rad_3D" "(D3D)") (action_tile "accept" "(done_dialog 1)") (action_tile "help" "(INFO)")

(setq RES (start_dialog)) (start_dialog)

(unload_dialog DCL_ID) )

;CHUONG TRINH CHINH (TKTAUMAU)

(MTLVM) (if (= ve3d 1) (cond

((and (= RES 1) (= ilst "0") (= KTPVTD 1)) (progn

(BTDTK2D)

Trang 24

(V3DH) ) ) ((and (= RES 1) (= ilst "1") (= KTPVTD 1)) (progn

(BTDTK12D) (V3DH1) ) ) ((and (= RES 1) (= ilst "2") (= KTPVTD 1)) (progn

(BTDTK22D) (V3DH2) )) ) (cond

((and (= RES 1) (= ilst "0") (= KTPVTD 1)) (HCC2D)) ((and (= RES 1) (= ilst "1") (= KTPVTD 1)) (HCC12D)) ((and (= RES 1) (= ilst "2") (= KTPVTD 1)) (HCC22D)) ) )

)

- Ðo n mã t o môi tru ng làm vi c:

(defun MTLVM () (setq oerr *error*) (setq *error* err) (setq CMDECHOCU (getvar "CMDECHO")) (setvar "CMDECHO" 0)

(setq BLIPMODECU (getvar "BLIPMODE")) (setvar "BLIPMODE" 0)

) (defun MTLVC () (setvar "CMDECHO" CMDECHOCU) (setvar "BLIPMODE" BLIPMODECU)

)

- Ðo n mã x lý ch n tàu m u:

Trang 25

(defun chonlist () (setq ilst $value) (cond

( (= ilst "0") (image0)) ( (= ilst "1") (image1)) ( (= ilst "2") (image2)) )

) (defun image0 () (start_image "logo") (fill_image 0 0 (dimx_tile "logo") (dimy_tile "logo") 250) (slide_image 0 0 (dimx_tile "logo") (dimy_tile "logo") "logo.sld") (end_image)

(set_tile "t1" "CA NO CONG TAC VO FRP 220 HP") (set_tile "t2" "Chieu dai lon nhat L 5,940 m") (set_tile "t3" "Chieu rong B 2,34 m") (set_tile "t4" "Chieu cao man H 0,96 m") (set_tile "t5" "Truong Dai hoc Nha Trang") (set_tile "t6" "Trung tam che tao tau ca") )

(defun image1 () (start_image "logo") (fill_image 0 0 (dimx_tile "logo") (dimy_tile "logo") 250) (slide_image 0 0 (dimx_tile "logo") (dimy_tile "logo") "logo1.sld") (end_image)

(set_tile "t1" "CA NO DU LICH") (set_tile "t2" "Chieu dai lon nhat L 9 m") (set_tile "t3" "Chieu rong B 2,2 m") (set_tile "t4" "Chieu cao man H 0,79 m")

Trang 26

(set_tile "t5" "Cong ty TNHH Dong tau Song Lo") (set_tile "t6" "")

) (defun image2 () (start_image "logo") (fill_image 0 0 (dimx_tile "logo") (dimy_tile "logo") 250) (slide_image 0 0 (dimx_tile "logo") (dimy_tile "logo") "logo2.sld") (end_image)

(set_tile "t1" "CA NO DU LICH") (set_tile "t2" "Chieu dai lon nhat L 9,7 m") (set_tile "t3" "Chieu rong B 2,6 m") (set_tile "t4" "Chieu cao man H 1,179 m") (set_tile "t5" "Cong ty TNHH Dong tau Song Lo") (set_tile "t6" "")

(mode_tile "edt_B" 3) )

) ) (defun SET_B (enter) (if (= enter 1)

(progn (set_tile "edt_B" (rtos (atof (get_tile "edt_B"))))

Trang 27

(mode_tile "edt_H" 2) (mode_tile "edt_H" 3) )

) ) (defun SET_H (enter) (if (= enter 1)

(progn (set_tile "edt_H" (rtos (atof (get_tile "edt_H")))) (mode_tile "edt_cT" 2)

(mode_tile "edt_cT" 3) )

) ) (defun SET_T (enter) (if (= enter 1)

(progn (set_tile "edt_cT" (rtos (atof (get_tile "edt_cT")))) (mode_tile "rad_MD" 2)

(MACDINH) )

) ) (defun SET_LBMIN (enter) (if (= enter 1)

(progn (set_tile "edt_LBMIN" (rtos (atof (get_tile "edt_LBMIN")))) (mode_tile "edt_LBMAX" 2)

(mode_tile "edt_LBMAX" 3)

Trang 28

) ) ) (defun SET_LBMAX (enter) (if (= enter 1)

(progn (set_tile "edt_LBMAX" (rtos (atof (get_tile "edt_LBMAX")))) (mode_tile "edt_BHMIN" 2)

(mode_tile "edt_BHMIN" 3) )

) ) (defun SET_BHMIN (enter) (if (= enter 1)

(progn (set_tile "edt_BHMIN" (rtos (atof (get_tile "edt_BHMIN")))) (mode_tile "edt_BHMAX" 2)

(mode_tile "edt_BHMAX" 3) )

) ) (defun SET_BHMAX (enter) (if (= enter 1)

(progn (set_tile "edt_BHMAX" (rtos (atof (get_tile "edt_BHMAX")))) (mode_tile "edt_HTMIN" 2)

(mode_tile "edt_HTMIN" 3) )

)

Trang 29

) (defun SET_HTMIN (enter) (if (= enter 1)

(progn (set_tile "edt_HTMIN" (rtos (atof (get_tile "edt_HTMIN")))) (mode_tile "edt_HTMAX" 2)

(mode_tile "edt_HTMAX" 3) )

) ) (defun SET_HTMAX (enter) (if (= enter 1)

(progn (set_tile "edt_HTMAX" (rtos (atof (get_tile "edt_HTMAX")))) (mode_tile "but_KT" 2)

) ) ) (defun KTDL (slieu enter key) (if (= "." (substr slieu 1 1)) (setq slieu (strcat "0" slieu))) (if (not

(or (= (type (read slieu)) 'real) (= (type (read slieu)) 'int))) (progn

(mode_tile key 3) (cond

( (= key "edt_L") (alert (set_tile "error" "NHAP LAI CHIEU DAI")))

Trang 30

( (= key "edt_B") (alert (set_tile "error" "NHAP LAI CHIEU RONG")))

( (= key "edt_H") (alert (set_tile "error" "NHAP LAI CHIEU CAO MAN")))

( (= key "edt_cT") (alert (set_tile "error" "NHAP LAI CHIEU CHIM")))

( (= key "edt_LBMAX") (alert (set_tile "error" "CHON LAI"))) ( (= key "edt_BHMIN") (alert (set_tile "error" "CHON LAI"))) ( (= key "edt_BHMAX") (alert (set_tile "error" "CHON LAI"))) ( (= key "edt_HTMIN") (alert (set_tile "error" "CHON LAI"))) ( (= key "edt_HTMAX") (alert (set_tile "error" "CHON LAI"))) )

) (progn (set_tile "error" "") (cond

( (= key "edt_L") (SET_L enter)) ( (= key "edt_B") (SET_B enter)) ( (= key "edt_H") (SET_H enter)) ( (= key "edt_cT") (SET_T enter)) ( (= key "edt_LBMIN") (SET_LBMIN enter)) ( (= key "edt_LBMAX") (SET_LBMAX enter)) ( (= key "edt_BHMIN") (SET_BHMIN enter)) ( (= key "edt_BHMAX") (SET_BHMAX enter)) ( (= key "edt_HTMIN") (SET_HTMIN enter)) ( (= key "edt_HTMAX") (SET_HTMAX enter)) )

) )

Trang 31

)

- Ðo n mã ki m tra ph m vi thay d i các t s kích thu c chính:

(defun GETPVTD() (setq LBMIN (atof (get_tile "edt_LBMIN")) LBMAX (atof (get_tile "edt_LBMAX")) BHMIN (atof (get_tile "edt_BHMIN")) BHMAX (atof (get_tile "edt_BHMAX")) HTMIN (atof (get_tile "edt_HTMIN")) HTMAX (atof (get_tile "edt_HTMAX")) ) )

(defun KIEMTRAPVTD() (GETPVTD)

(setq KTLB 0 ) (if (or (<= CLB LBMIN) (> CLB LBMAX) ) (progn

(setq CLBMAX (/ LMAX LBMIN)) (setq CLBMIN (/ LMAX LBMAX)) (alert (strcat "CHON LAI CHIEU RONG :" " "(rtos CLBMIN 2 2) " <

B < " (rtos CLBMAX 2 2)) ) (set_tile "edt_B" "") (mode_tile "edt_B" 2) (mode_tile "edt_B" 3) (mode_tile "edt_LB" 1) (setq KTLB 1)

) ) (setq KTBH 0) (if (and (not (= KTLB 1)) (or (<= CBH BHMIN) (> CBH BHMAX) )) (progn

Trang 32

(setq CLHMAX (/ BMAX BHMIN)) (setq CLHMIN (/ BMAX BHMAX)) (alert (strcat "CHON LAI CHIEU CAO :" " "(rtos CLHMIN 2 2) " < H

< " (rtos CLHMAX 2 2)) ) (set_tile "edt_H" "") (mode_tile "edt_H" 2) (mode_tile "edt_H" 3) (mode_tile "edt_BH" 1) (setq KTBH 1)

) ) (setq KTHT 0) (if (and (and (not (= KTLB 1)) (not (= KTBH 1))) (or (<= CHT HTMIN) (>

CHT HTMAX) )) (progn (setq CLTMAX (/ HMAX HTMIN)) (setq CLTMIN (/ HMAX HTMAX)) (alert (strcat "CHON LAI CHIEU CHIM :" " "(rtos CLTMIN 2 2) " <

T < " (rtos CLTMAX 2 2)) ) (set_tile "edt_cT" "") (mode_tile "edt_cT" 2) (mode_tile "edt_cT" 3) (mode_tile "edt_HT" 1) (setq KTHT 1)

) ) (if (or (= KTLB 1) (= KTBH 1) (= KTHT 1)) (setq KTPVTD 0)

)

Trang 33

32

(if (and (= KTLB 0) (= KTBH 0) (= KTHT 0)) (progn

( setq KTPVTD 1) (alert "CHON BAN VE")) )

)

3.2.2 Môdun xu t k t qu b ng t a d thi t k

So d 3.3: Mô dun xu t k t qu b ng t a dChuong trình AutoLISP tuong ng:

- Chuong trình chính c a mô dun xu t k t qu b ng t a d :

(defun C:BANGTOADOTK () (defun BANGTOADO (/ DCL_ID)

co m

Trang 34

33

(setq DCL_ID (load_dialog "BANGTOADO.DCL")) (if (not (new_dialog "BANGTOADO" DCL_ID)) (exit)) (HIDEDATA)

(action_tile "but_XEM" "(XEMDATA)") (action_tile "but_XUAT" "(XUATDATA)") (action_tile "but_THOAT" "(done_dialog 1)") (start_dialog)

(unload_dialog DCL_ID) )

(if (and (= LMAX nill) (= BMAX nill) (= HMAX nill) (= TMAX nill) (= CLB nill) (= CBH nill) (= CHT nill))

(alert "CHUA CHON TAU MAU THIET KE") (if (or (not (= S0 nill)) (not (= S100 nill)) (not (= S200 nill)) ) (BANGTOADO)))

)

- Hàm t o co s d li u c a b ng t a d :

(defun TTS2D() (setq lstvbtd2d (list (list 1 3 8 12 13 14 9 11 (- (length S05) 1) 0 2 4 10 9 (- (length S05) 1) )

(list 1 3 8 12 13 14 9 11 (- (length S0) 1) 0 2 4 10 9 (- (length S0) 1) )

(list 1 3 8 12 13 14 9 11 (- (length S1) 1) 0 2 4 10 9 (- (length S1) 1) ) (list 1 3 8 12 13 14 9 11 (- (length S2) 1) 0 2 4 10 9 (- (length S2) 1) ) (list 1 3 8 12 13 14 9 11 (- (length S3) 1) 0 2 4 10 9 (- (length S3) 1) ) (list 1 6 11 15 16 17 12 14 (- (length S4) 1) 0 2 7 13 12 (- (length S4) 1) )

co m

Trang 35

(list 100 100 100 100 100 100 100 100 (- (length S12005) 1) 0 1 100

100 100 (- (length S12005) 1) ) ) ) (setq lstsbtd2d (list S05 S0 S1 S2 S3 S4 S5 S6 S7 S8 S9 S9005 S10 S10005 S11 S11005 S12 S12005))

(setq csuon (list (list 48) (list 49) (list 50) (list 51) (list 52) (list 53) (list 54) (list 55) (list 56) (list 57)

(list 57 46 53) (list 49 48) (list 49 48 46 53) (list 49 49) (list 49

49 46 53) (list 49 50) (list 49 50 46 53) ) ) )

Trang 36

(defun TTS12D() (setq lstvbtd2d (list (list 1 3 4 9 11 12 6 7 (- (length S100) 1) 0 2 5 6 (- (length S100) 1) )

(list 1 3 4 9 11 12 6 7 (- (length S101) 1) 0 2 5 6 (- (length S101) 1) ) (list 1 3 4 9 11 12 6 7 (- (length S102) 1) 0 2 5 6 (- (length S102) 1) ) (list 1 3 4 9 11 12 6 7 (- (length S103) 1) 0 2 5 6 (- (length S103) 1) ) (list 1 3 4 9 11 12 6 7 (- (length S104) 1) 0 2 5 6 (- (length S104) 1) ) (list 1 3 4 9 11 12 6 7 (- (length S105) 1) 0 2 5 6 (- (length S105) 1) ) (list 1 2 4 8 11 12 5 7 (- (length S106) 1) 0 3 6 5 (- (length S106) 1) ) (list 1 2 4 8 11 12 5 6 (- (length S107) 1) 0 3 7 5 (- (length S107) 1) ) (list 1 2 4 7 10 12 5 6 (- (length S108) 1) 0 3 9 5 (- (length S108) 1) ) (list 100 1 2 4 8 11 5 6 (- (length S109) 1) 0 3 10 5 (- (length S109) 1) )

(list 100 1 2 3 8 10 4 5 (- (length S1010) 1) 0 6 11 4 (- (length S1010) 1) )

(list 100 100 100 100 1 2 100 100 (- (length S1011) 1) 0 3 100 100 (- (length S1011) 1) ) ))

(setq lstsbtd2d (list S100 S101 S102 S103 S104 S105 S106 S107 S108 S109 S1010 S1011 ))

(list 49 48) (list 49 49) ) ) )

(defun TTS22D() (setq lstvbtd2d (list (list 1 4 6 9 12 5 (- (length S200) 1) 0 2 3 5 (- (length S200) 1) )

(list 1 4 6 9 12 5 (- (length S201) 1) 0 2 3 5 (- (length S201) 1) )

Trang 37

(list 100 100 100 3 7 100 (- (length S2010) 1) 0 6 100 100 (- (length S2010) 1) ) ))

(setq lstsbtd2d (list S200 S201 S202 S203 S204 S205 S206 S207 S208 S209 S2010 ))

(list 49 48) ) ) )

- Các hàm d xu t d li u sang d ng file txt:

+_ Hàm chuy n mã ASCII:

(defun CU(chu) (setq i 0) (setq j (- (length chu) 1))

Trang 38

(while (<= i j) (setq k (nth i chu)) (write-char k BTD) (setq i (1+ i)) )

) + Hàm chuy n d li u t môi tru ng CAD sang TXT:

(defun CADRLST (lstsbtd2d lstvbtd2d csuon) (setq ttg1 -1)

(while (<= (setq ttg1 (1+ ttg1)) (- (length lstvbtd2d) 1)) (setq lstv (nth ttg1 lstvbtd2d) )

(setq lsts (nth ttg1 lstsbtd2d) ) (setq chusuon (nth ttg1 csuon) ) (setq tg1 -1)

(cond ( (not (= S0 nill)) (setq ik 8 ) ) ( (not (= S100 nill)) (setq ik 6 ) ) ( (not (= S200 nill)) (setq ik 7 ) ) )

(while (<= (setq tg1 (1+ tg1)) ik ) (setq chu (list))

(setq tg2 (nth tg1 lstv) ) (if (< tg2 100 )

(setq TG (rtos (cadr (nth tg2 lsts)) 2 1)) (setq TG "-") )

(setq i 0)

Trang 39

(setq j (strlen TG) ) (while (<= (setq i (1+ i)) j) (cond

( (= (substr TG i 1) ".") (setq k 46)) ( (= (substr TG i 1) "0") (setq k 48)) ( (= (substr TG i 1) "1") (setq k 49)) ( (= (substr TG i 1) "2") (setq k 50)) ( (= (substr TG i 1) "3") (setq k 51)) ( (= (substr TG i 1) "4") (setq k 52)) ( (= (substr TG i 1) "5") (setq k 53)) ( (= (substr TG i 1) "6") (setq k 54)) ( (= (substr TG i 1) "7") (setq k 55)) ( (= (substr TG i 1) "8") (setq k 56)) ( (= (substr TG i 1) "9") (setq k 57)) ( (= (substr TG i 1) "-") (setq k 45)) )

(setq chu (cons k chu)) )

(setq chu (reverse chu)) (if (= (nth 0 chu) 45) (progn

(CU chu) (CU chu) (CU chu) (CU chu) (CU chu) (setq ll (- 20 (length chu)) ) (LLAI ll) )

(progn (CU chu) (if (> (length chu) 5) (progn

(setq ll (- 20 (length chu)) ) (LLAI ll)) (progn

Trang 40

(setq ll (- 22 (length chu)) ) (LLAI ll)) ) ) )

) (setq tg1 ik) (while (<= (setq tg1 (1+ tg1)) (- (length lstv) 1) ) (setq chu (list))

(setq tg2 (nth tg1 lstv) ) (if (< tg2 100 )

(setq TG (rtos (caddr (nth tg2 lsts)) 2 1)) (setq TG "-") )

(setq i 0) (setq j (strlen TG) ) (while (<= (setq i (1+ i)) j) (cond

( (= (substr TG i 1) ".") (setq k 46)) ( (= (substr TG i 1) "0") (setq k 48)) ( (= (substr TG i 1) "1") (setq k 49)) ( (= (substr TG i 1) "2") (setq k 50)) ( (= (substr TG i 1) "3") (setq k 51)) ( (= (substr TG i 1) "4") (setq k 52)) ( (= (substr TG i 1) "5") (setq k 53)) ( (= (substr TG i 1) "6") (setq k 54)) ( (= (substr TG i 1) "7") (setq k 55)) ( (= (substr TG i 1) "8") (setq k 56)) ( (= (substr TG i 1) "9") (setq k 57)) ( (= (substr TG i 1) "-") (setq k 45)) )

(setq chu (cons k chu)) )

Tiêu đề	Viết Chương Trình Vẽ Đường Hình Tàu Cao Tốc Theo Tàu Mẫu
Tác giả	Nguyễn Lê Minh Thạch
Người hướng dẫn	TS. Trần Gia Thái
Trường học	Trường Đại Học Nha Trang
Chuyên ngành	Kỹ Thuật Tàu Thủy
Thể loại	Đồ án tốt nghiệp
Năm xuất bản	2008
Thành phố	Nha Trang

Định dạng
Số trang	95
Dung lượng	1,38 MB