Lập trình tính toán các yếu tố tính nổi bằng phương pháp hình thang

Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

LỜI NÓI ĐẦU
Cùng với sự phát triển của ngành công nghiệp tàu thủy hiện nay, việc tính
tốn và thiết kế tàu rất phức tạp và sai số lớn. Xuất phát từ những yêu cầu :
 Đảm bảo tính nổi cho tàu như thế nào ở chế độ thiết kế và tải trọng bị
thay đổi trong suốt quá trình chuyến biển ?
 Đảm bảo cho tàu chống nghiêng, chống lật do tác dụng của ngoại lực
trên biển và các yếu tố khác.
 Tàu lắc như thế nào hay nói đúng hơn có thể dung hịa các chuyển
động lắc tàu như thế nào để hạn chế các hậu quả do chúng gây ra
 Đảm bảo sự tin cậy và an tồn nhất trong mọi tình huống khai thác và
sử dụng.
Trong những vấn đề an toàn đi biển của tàu thủy nói chung, đặc biệt là các
tàu đánh bắt hải sản, bài toán đảm bảo ổn định ln chiếm vị trí trung tâm.
Chính vì những lý do này nên chúng em chọn chun đề “ Lập trình
tính tốn các yếu tố tính nổi bằng phương pháp hình thang”.
Tuy nhiên đây là một vấn đề khoa học khó, không chỉ yêu cầu những
kiến thức sâu về chuyên môn mà còn đòi hỏi những kiến thực liên quan khác
đặc biệt là khả năng lập trình máy tính cùng với khả năng tư duy, sáng tạo và
tính kiên trì, và do thời gian có hạn nên chun đề khơng tránh được những
thiếu xót. Chúng em rất mong sự đóng góp ý kiến cũng như nhận xét, phê
bình của thầy và các bạn để cho chuyên đề ngày càng hoàn thiện hơn.
Chúng em xin chân thành cảm ơn sự hướng dẫn tận tình của thầy TS .
TRẦN GIA THÁI và sự góp ý của các bạn để hồn thành chun đề này.

Nha Trang, ngày 10 tháng 04 năm 2008
NHÓM SINH VIÊN THỰC HIỆN
HỒ NGỌC CA

NGUYỄN VĂN CƯỜNG
HÀ ĐỨC KHÁNH

CHƯƠNG 1 : ĐẶT VẤN ĐỀ
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 1


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

1.1 Tổng quan về đề tài:
Tàu thủy là một cơng trình hoạt động trên biển, trong những điều kiện
rất phức tạp.Vì thế vấn đề là phải đảm bảo cho con tàu một số các tính năng
đặc biệt nhất định trước khi cho con tàu ra biển gọi chung là các tính năng
hàng hải bao gồm: tính nổi, tính ổn định, tính chống chìm, tính lắc…
Một trong những vấn đề quan trọng để đánh giá định tính và định
lượng các trạng thái nổi, ổn định, chống chìm và các tính năng khác, đó là
việc tính các yếu tố tính nổi của tàu. Đây là việc làm thơng dụng nhưng có ý
nghĩa quan trọng, có thể xem như là một mô đun thiết kế chuẩn quan trọng
trong các phần mềm thiết kế tàu thủy, cung cấp những dữ liệu cơ bản nhất
để đánh giá định tính và định lượng các trạng thái nổi, ổn định, chống chìm
và các tính năng khác.
Như đã khẳng định trên, mục đích nghiên cứu tính tốn các yếu tố
tính nổi, xét trên nhu cầu của một bên là các vấn đề an toàn, một bên là hiệu
quả sử dụng tàu thủy, phải cho phép khơng chỉ khảo sát định tính và định
lượng khả năng nổi của con tàu đối với mọi chế độ tải trọng có thể gặp trong
thực tế, mà cịn kiểm sốt và điều khiển tính nổi của tàu khi có nhu cầu…

1.2 Thực trạng:
Sẽ rất khơng đầy đủ, nếu nhìn nhận về hình trạng tính tốn các yếu
tố tính nổi của tàu thủy, khơng đề cập đúng mức đến thuật tốn ứng dụng,
cũng như mức độ chính xác trong các kết quả đạt được, cho đến ngày nay
việc tính tốn các yếu tố tính nổi phần lớn thực hiện thủ cơng, theo các
phương pháp tính tốn gần đúng khác nhau, thơng dụng nhất là phương pháp
hình thang
Việc áp dụng tính tốn thuật tốn theo phương pháp hình thang,
trên cơ sở một bản vẽ lý thuyết tàu truyền thống , với số mặt cắt ngang và
mặt đường nước tính tốn rất hạn chế sẽ khơng tránh được các sai số lớn,
đồng thời và quan trọng hơn các sai số như vậy khơng kiểm sốt được và
định lượng.
1.3 Phương pháp nghiên cứu:
Việc tính tốn các tính năng hàng hải nói chung ( hay tính nổi của
tàu), và tính tốn tính nổi nói riêng thường dẫn đến việc tính tích phân xác
định có dạng tổng quát:
b

S=

f ( x)dx
a

trong đó:

SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 2

Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

 Hàm y = f(x) dưới dấu tích phân liên quan đến hình dáng bề mặt vỏ
tàu
 Các cận tích phân a ,b liên quan đến kích thước hình học của tàu.
Do bề mặt vỏ tàu thường chỉ được biểu diễn dưới dạng các đường cong
hình dáng nên để tính được giá trị tích phân nói trên cần phải sử dụng các
phương pháp tích phân gần đúng, điển hình là phương pháp hình thang
Cách sử dụng :
 Chia diện tích S thành các diện tích thành phần Si bằng các đường
thẳng song song cách đều
 Thay đường y = f(x) bằng đường gãy khúc đi qua đỉnh các tung độ
nối tiếp nhau y0 , y1,…yn
y
y = f (x)

yn-1
y0 y1

Tính diện tích S:
S = S1 + S2 +….+ Sn
= L

y 0  y1
y  yn
y  y2
 L 1
 ......  L n  1

2
2
2



= L y 0  y1  ......  y n 


x

O
Δll

y0  yn 

2 

L

Công thức tổng quát:
L



n

 y 0  yn
 2

S = ydz L   y i  
 i 1

0





Trong đó:
L 

L
n

: khoảng cách cách đều giữa các tung độ

n

y

i

: tổng các tung độ kế tiếp nhau

i 1

y0  y n
2

: độ hiệu chỉnh tung độ
CHƯƠNG 2: CƠ SỞ LÝ THUYẾT

SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

yn

trang 3


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

2.1 Tính các yếu tố của mặt đường nước:
Xét một mặt đường nước tàu có chiều dài L, được chia cắt đều bởi n mặt
cắt ngang đánh theo số thứ tự0,1,2…,n tính từ đi đến mũi tàu.
a. diện tính mặt đường nước :
L



n

 y 0  yn
 2

S =2 ydz 2L   y i  
 i 1

0

L 

L
n





:khoảng cách cách đều giữa các mặt cắt ngang

Yi: nửa tung độ của mặt đường nước
b. Hồnh độ trọng tâm diện tích mặt đường nước:
L

xydx

X f  0L

m

L i m

ydx
0

m
 y n  y0 

2
n
 y  yn 
yi   0


 2 
i 1

 i y

mi

 y di  

Trong đó ymi , ydi : nửa tung độ của mặt đường nước ở phía mũi và phía
di tàu.
c. Hệ số diện tích các mặt đường nước:

L



S
LxB

Các hệ số được thể hiện trên hình vẽ

B

S

2.2 Tính các yếu tố của mặt cắt ngang:
Xét một mặt cắt ngang của tàu được chia cách đều bởi k mặt đường nước
đánh theo số thứ tự 0,1,2…,k tính từ dưới lên đến mớn nước tàu T.
a. Diện tích mặt cắt ngang:
T
y  yk 
 k
 2 ydz T   y i  0

2 
0
 k 1

T
Zω

Trong đó yi là nửa tung độ của mặt cắt ngang
b. Cao độ trọng tâm diện tích mặt cắt ngang:

SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 4


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI
T

k

k
 yk  yo 
2
0
i o
L k
T
 yo  yk 
y



ydz

i

 2 
i 0
o

yzdz

 iy

i



Zω =
c. Hệ số diện tích các mặt cắt ngang:

 
BxT

B

trong đó các hệ số được

thể hiện trên hình vẽ

ω

T

2.3 Tính các yếu tố tính nổi:
a. Tính thể tích chiến nước :
T

S  Sk 
 k
V Sdz T   S i  o

2 
 i o
o

Hoặc tính theo mặt cát ngang:

L
  n 
 n
V  dx L   i  o

2
 i o

o

b. Trọng lượng tàu D:
D= γ.V trong đó:γ:trọng lượng riêng chất lỏng =1.025T/m3
c. Hệ số điền đầy thể tích:
B
L
V
δ= LxBxT
T
d.Tính tọa độ tâm nổi:
 Tính theo diện tính mặt đường nước:
T

Sx f dz

Xc  0T

Sdz
0

k

 S i x fi 

 i 0

S 0 x f 0  S k x fk

2
S  Sk
Si  0

2
i 0
k

T

k

k
 Sk  S0 
2
0
i 0
zc  T
 k
S0  Sk
S

Sdz


i

2
i 0
0

Szdz

 iS

i



Si , xfi : diện tích và hồnh độ trọng tâm mặt đường nước thứ i
 Hoặc tính theo diện tính mặt cắt ngang:

SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 5


Chuyên đề LTTT
L

zdx

z c  0L

n

dx
0

L

xdx

x c  0L

dx
o

 0 z0  n zn
2
n
  n
i  0

2
i 0



 i 0

n

GVHD: TS. TRẦN GIA THÁI

i

 i

 i o

z i 

n
 n   d 
2
n
  n
i  0

2
i 0
mi

  di  

ωmi , ωdi : diện tích mặt cắt ngang phía mũi và phía đi
ωi , z ωi : diện tích và cao độ trọng tâm của mặt cắt ngang thứ i
………………………‫…………………………صضطظظطضصص‬
CHƯƠNG 3: KẾT QUẢ NGHIÊN CỨU
Thuật toán viết chương trình:
Nhập các kích thước của
tàu:L,B,H,T,∆Tbảng toạ
độ tàu

Tích phân S,ω
sai
Hết đường nước

đúng

Tính V, D,α, β, δ,
Zc, Xf

sai

Hết đường nước

đúng

SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 6


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

In kết quả
Dựa vào lập trình Visual Basic 6.0 và các cơng thức tính nổi của tàu ta có
chương trình tính các yếu tố tính nổi như sau:
Option Explicit
' dien tich mdn *************************
Private Sub CmdS_Click(Index As Integer)

Dim m0, m1, m2, m3, m4, m5, m6 As Single
Dim i As Integer
Dim n0, n1, n2, n3, n4, n5, n6 As Single
Dim b0, b1, b2, b3, b4, b5, b6 As Single
Dim s0, S1, S2, S3, S4, S5, S6 As Single
Dim mang0(11) As Single
Dim mang1(11) As Single
Dim mang2(11) As Single
Dim mang3(11) As Single
Dim mang4(11) As Single
Dim mang5(11) As Single
Dim mang6(11) As Single
'Mang0
mang0(0) = y0
mang0(1) = y00
mang0(2) = y01
mang0(3) = y02
mang0(4) = y03
mang0(5) = y04
mang0(6) = y05
mang0(7) = y06
mang0(8) = y07
mang0(9) = y08
mang0(10) = y09
mang0(11) = y010
' Mang1
mang1(0) = y1
mang1(1) = y10
mang1(2) = y11
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 7


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

mang1(3) = y12
mang1(4) = y13
mang1(5) = y14
mang1(6) = y15
mang1(7) = y16
mang1(8) = y17
mang1(9) = y18
mang1(10) = y19
mang1(11) = y110
'mang2
mang2(0) = y2
mang2(1) = y20
mang2(2) = y21
mang2(3) = y22
mang2(4) = y23
mang2(5) = y24
mang2(6) = y25
mang2(7) = y26
mang2(8) = y27
mang2(9) = y28
mang2(10) = y29
mang2(11) = y210

'mang3
mang3(0) = y3
mang3(1) = y30
mang3(2) = y31
mang3(3) = y32
mang3(4) = y33
mang3(5) = y34
mang3(6) = y35
mang3(7) = y36
mang3(8) = y37
mang3(9) = y38
mang3(10) = y39
mang3(11) = y310
'mang 4
mang4(0) = y4
mang4(1) = y40
mang4(2) = y41
mang4(3) = y42
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 8


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

mang4(4) = y43
mang4(5) = y44
mang4(6) = y45

mang4(7) = y46
mang4(8) = y47
mang4(9) = y48
mang4(10) = y49
mang4(11) = y410
'mang5
mang5(0) = y5
mang5(1) = y50
mang5(2) = y51
mang5(3) = y52
mang5(4) = y53
mang5(5) = y54
mang5(6) = y55
mang5(7) = y56
mang5(8) = y57
mang5(9) = y58
mang5(10) = y59
mang5(11) = y510
'mang6
mang6(0) = y6
mang6(1) = y60
mang6(2) = y61
mang6(3) = y62
mang6(4) = y63
mang6(5) = y64
mang6(6) = y65
mang6(7) = y66
mang6(8) = y67
mang6(9) = y68
mang6(10) = y69

mang6(11) = y610
'***************************************
For i = 0 To 11
If mang0(i) > 0 Then
's0
m0 = m0 + mang0(i)
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 9


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

n0 = mang0(3) + mang0(10)
b0 = n0 / 2
s0 = (m0 - b0) * Val(L(5))
End If
's1
If mang1(i) > 0 Then
m1 = m1 + mang1(i)
n1 = mang1(2) + mang1(10)
b1 = n1 / 2
S1 = (m1 - b1) * Val(L(5))
End If
's2
If mang2(i) > 0 Then
m2 = m2 + mang2(i)
n2 = mang2(2) + mang2(10)

b2 = n2 / 2
S2 = (m2 - b2) * Val(L(5))
End If
's3
If mang3(i) > 0 Then
m3 = m3 + mang3(i)
n3 = mang3(2) + mang3(10)
b3 = n3 / 2
S3 = (m3 - b3) * Val(L(5))
End If
's4
If mang4(i) > 0 Then
m4 = m4 + mang4(i)
n4 = mang4(0) + mang4(11)
b4 = n4 / 2
S4 = (m4 - b4) * Val(L(5))
End If
's5
If mang5(i) > 0 Then
m5 = m5 + mang5(i)
n5 = mang5(0) + mang5(11)
b5 = n5 / 2
S5 = (m5 - b5) * Val(L(5))
End If
's6
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 10

Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

If mang6(i) > 0 Then
m6 = m6 + mang6(i)
n6 = mang6(0) + mang6(11)
b6 = n6 / 2
S6 = (m6 - b6) * Val(L(5))
End If
'********************************************
Next
Skq0 = " "& s0
Skq1 = " "& S1
Skq2 = " "& S2
Skq3 = " "& S3
Skq4 = " "& S4
Skq5 = " "& S5
Skq6 = " "& S6
End Sub
Private Sub Command1_Click()
Dim i As Integer
Dim a0, a1, a2, a3, a4, a5 As Single
Dim b0, b1, b2, b3, b4, b5 As Single
Dim c0, c1, c2, c3, c4, c5 As Single
Dim d0, d1, d2, d3, d4, d5 As Single
Dim e0, e1, e2, e3, e4, e5 As Single
Dim f0, f1, f2, f3, f4, f5 As Single
Dim g0, g1, g2, g3, g4, g5 As Single
Dim h0, h1, h2, h3, h4, h5 As Single

Dim z0, z1, z2, z3, z4, z5 As Integer
Dim k0, k1, k2, k3, k4, k5 As Single
Dim t0, t1, t2, t3, t4, t5 As Single
Dim mang0(6) As Single
Dim mang1(6) As Single
Dim mang2(6) As Single
Dim mang3(6) As Single
Dim mang4(6) As Single
Dim mang5(6) As Single
'mang0
mang0(0) = Skq0
mang0(1) = Skq1
mang0(2) = Skq2
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 11


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

mang0(3) = Skq3
mang0(4) = Skq4
mang0(5) = Skq5
mang0(6) = Skq6
'mang1
mang1(0) = Skq0
mang1(1) = Skq1
mang1(2) = Skq2

mang1(3) = Skq3
mang1(4) = Skq4
mang1(5) = Skq5
mang1(6) = Skq6
'mang2
mang2(0) = Skq0
mang2(1) = Skq1
mang2(2) = Skq2
mang2(3) = Skq3
mang2(4) = Skq4
mang2(5) = Skq5
mang2(6) = Skq6
'mang3
mang3(0) = Skq0
mang3(1) = Skq1
mang3(2) = Skq2
mang3(3) = Skq3
mang3(4) = Skq4
mang3(5) = Skq5
mang3(6) = Skq6
'mang4
mang4(0) = Skq0
mang4(1) = Skq1
mang4(2) = Skq2
mang4(3) = Skq3
mang4(4) = Skq4
mang4(5) = Skq5
mang4(6) = Skq6
'mang5
mang5(0) = Skq0

mang5(1) = Skq1
mang5(2) = Skq2
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 12


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

mang5(3) = Skq3
mang5(4) = Skq4
mang5(5) = Skq5
mang5(6) = Skq6
For i = 0 To 6
'z0
If mang0(i) > 0 Then
a0 = a0 + (i * mang0(i))
b0 = 2 * mang0(2) + 3 * mang0(3) + 4 * mang0(4) + 5 * mang0(5) + 6
* mang0(6)
c0 = a0 - b0
d0 = 0.5 * (mang0(1) + mang0(0))
e0 = c0 - d0
f0 = f0 + mang0(i)
k0 = mang0(2) + mang0(3) + mang0(4) + mang0(5) + mang0(6)
t0 = f0 - k0
g0 = 0.5 * (mang0(0) + mang0(1))
h0 = t0 - g0
z0 = (e0 / h0) * Val(T(4))

End If
'z1
If mang1(i) > 0 Then
a1 = a1 + (i * mang1(i))
b1 = 3 * mang1(3) + 4 * mang1(4) + 5 * mang1(5) + 6 * mang1(6)
c1 = a1 - b1
d1 = 1 * (mang1(2) + mang1(0))
e1 = c1 - d1
f1 = f1 + mang1(i)
k1 = mang1(3) + mang1(4) + mang1(5) + mang1(6)
t1 = f1 - k1
g1 = 0.5 * (mang1(2) + mang1(0))
h1 = t1 - g1
z1 = (e1 / h1) * Val(T(4))
End If
'z2
If mang2(i) > 0 Then
a2 = a2 + (i * mang2(i))
b2 = 4 * mang2(4) + 5 * mang2(5) + 6 * mang2(6)
c2 = a2 - b2
d2 = 1.5 * (mang2(3) + mang2(0))
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 13


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

e2 = c2 - d2
f2 = f2 + mang2(i)
k2 = mang2(4) + mang2(5) + mang2(6)
t2 = f2 - k2
g2 = 0.5 * (mang2(3) + mang2(0))
h2 = t2 - g2
z2 = (e2 / h2) * Val(T(4))
End If
'z3
If mang3(i) > 0 Then
a3 = a3 + (i * mang3(i))
b3 = 5 * mang3(5) + 6 * mang3(6)
c3 = a3 - b3
d3 = 2 * (mang3(4) + mang3(0))
e3 = c3 - d3
f3 = f3 + mang3(i)
k3 = mang3(5) + mang3(6)
t3 = f3 - k3
g3 = 0.5 * (mang3(3) + mang3(0))
h3 = t3 - g3
z3 = (e3 / h3) * Val(T(4))
End If
'z4
If mang4(i) > 0 Then
a4 = a4 + (i * mang4(i))
b4 = 6 * mang4(6)
c4 = a4 - b4
d4 = 2.5 * (mang4(5) + mang4(0))
e4 = c4 - d4
f4 = f4 + mang4(i)

k4 = mang4(6)
t4 = f4 - k4
g4 = 0.5 * (mang4(4) + mang4(0))
h4 = t4 - g4
z4 = (e4 / h4) * Val(T(4))
End If
'z5
If mang5(i) > 0 Then
a5 = a5 + (i * mang5(i))
b5 = 0
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 14


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

c5 = a5 - b5
d5 = 3 * (mang4(6) + mang4(0))
e5 = c5 - d5
f5 = f5 + mang5(i)
k5 = 0
t5 = f5 - k5
g5 = 0.5 * (mang5(6) + mang4(0))
h5 = t5 - g5
z5 = (e5 / h5) * Val(T(4))
End If
Next

Zc0 = " "& z0
Zc1 = " "& z1
Zc2 = " "& z2
Zc3 = " "& z3
Zc4 = " "& z4
Zc5 = " "& z5
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Form1.Show
End Sub
Private Sub Dkq_Click()
Dim i As Integer
Dim a0, a1, a2, a3, a4, a5, a6 As Single
Dim b0, b1, b2, b3, b4, b5, b6 As Single
Dim c0, c1, c2, c3, c4, c5, c6 As Single
Dim d0, d1, d2, d3, d4, d5, d6 As Single
Dim ma0(6) As Single
Dim ma1(6) As Single
Dim ma2(6) As Single
Dim ma3(6) As Single
Dim ma4(6) As Single
Dim ma5(6) As Single
Dim ma6(6) As Single
'ma0
ma0(0) = v0
ma0(1) = v1
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 15


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

ma0(2) = v2
ma0(3) = v3
ma0(4) = v4
ma0(5) = v5
ma0(6) = v6
'ma1
ma1(0) = v0
ma1(1) = v1
ma1(2) = v2
ma1(3) = v3
ma1(4) = v4
ma1(5) = v5
ma1(6) = v6
'ma2
ma2(0) = v0
ma2(1) = v1
ma2(2) = v2
ma2(3) = v3
ma2(4) = v4
ma2(5) = v5
ma2(6) = v6
'ma3

ma3(0) = v0
ma3(1) = v1
ma3(2) = v2
ma3(3) = v3
ma3(4) = v4
ma3(5) = v5
ma3(6) = v6
'ma4
ma4(0) = v0
ma4(1) = v1
ma4(2) = v2
ma4(3) = v3
ma4(4) = v4
ma4(5) = v5
ma4(6) = v6
'ma5
ma5(0) = v0
ma5(1) = v1
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 16


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

ma5(2) = v2
ma5(3) = v3
ma5(4) = v4

ma5(5) = v5
ma5(6) = v6
'ma6
ma6(0) = v0
ma6(1) = v1
ma6(2) = v2
ma6(3) = v3
ma6(4) = v4
ma6(5) = v5
ma6(6) = v6
For i = 0 To 6
'D0
If ma0(i) > 0 Then
a0 = a0 + ma0(i)
b0 = ma0(1) + ma0(2) + ma0(3) + ma0(4) + ma0(5) + ma0(6)
c0 = a0 - b0
d0 = c0 * 1.025
End If
'D1
If ma1(i) > 0 Then
a1 = a1 + ma1(i)
b1 = ma1(0) + ma1(2) + ma1(3) + ma1(4) + ma1(5) + ma1(6)
c1 = a1 - b1
d1 = c1 * 1.025
End If
'D2
If ma2(i) > 0 Then
a2 = a2 + ma2(i)
b2 = ma2(0) + ma2(1) + ma2(3) + ma2(4) + ma2(5) + ma2(6)
c2 = a2 - b2

d2 = c2 * 1.025
End If
'D3
If ma3(i) > 0 Then
a3 = a3 + ma3(i)
b3 = ma3(0) + ma3(1) + ma3(2) + ma3(4) + ma3(5) + ma3(6)
c3 = a3 - b3
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 17


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

d3 = c3 * 1.025
End If
'D4
If ma4(i) > 0 Then
a4 = a4 + ma4(i)
b4 = ma4(0) + ma4(1) + ma4(2) + ma4(3) + ma4(5) + ma4(6)
c4 = a4 - b4
d4 = c4 * 1.025
End If
'D5
If ma5(i) > 0 Then
a5 = a5 + ma5(i)
b5 = ma5(0) + ma5(1) + ma5(2) + ma5(3) + ma5(4) + ma5(6)
c5 = a5 - b5

d5 = c5 * 1.025
End If
'D6
If ma6(i) > 0 Then
a6 = a6 + ma6(i)
b6 = ma6(0) + ma6(1) + ma6(2) + ma6(3) + ma6(4) + ma6(5)
c6 = a6 - b6
d6 = c6 * 1.025
End If
Next
Dkq0 = " "& d0
Dkq1 = " "& d1
Dkq2 = " "& d2
Dkq3 = " "& d3
Dkq4 = " "& d4
Dkq5 = " "& d5
Dkq6 = " "& d6
End Sub
Private Sub DTW_Click()
End Sub
Private Sub hsdt_Click()
Dim i As Integer
Dim b0, b1, b2, b3, b4, b5, b6 As Single
Dim c0, c1, c2, c3, c4, c5, c6 As Single
Dim d0, d1, d2, d3, d4, d5, d6 As Single
Dim e0, e1, e2, e3, e4, e5, e6 As Single
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 18

Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

Dim m0, m1, m2, m3, m4, m5, m6 As Single
Dim ma0(6) As Single
Dim ma1(6) As Single
Dim ma2(6) As Single
Dim ma3(6) As Single
Dim ma4(6) As Single
Dim ma5(6) As Single
Dim ma6(6) As Single
'ma0
ma0(0) = Skq0
ma0(1) = Skq1
ma0(2) = Skq2
ma0(3) = Skq3
ma0(4) = Skq4
ma0(5) = Skq5
ma0(6) = Skq6
'ma1
ma1(0) = Skq0
ma1(1) = Skq1
ma1(2) = Skq2
ma1(3) = Skq3
ma1(4) = Skq4
ma1(5) = Skq5
ma1(6) = Skq6
'ma2

ma2(0) = Skq0
ma2(1) = Skq1
ma2(2) = Skq2
ma2(3) = Skq3
ma2(4) = Skq4
ma2(5) = Skq5
ma2(6) = Skq6
'ma3
ma3(0) = Skq0
ma3(1) = Skq1
ma3(2) = Skq2
ma3(3) = Skq3
ma3(4) = Skq4
ma3(5) = Skq5
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 19


Chuyên đề LTTT

GVHD: TS. TRẦN GIA THÁI

ma3(6) = Skq6
'ma4
ma4(0) = Skq0
ma4(1) = Skq1
ma4(2) = Skq2
ma4(3) = Skq3
ma4(4) = Skq4

ma4(5) = Skq5
ma4(6) = Skq6
'ma5
ma5(0) = Skq0
ma5(1) = Skq1
ma5(2) = Skq2
ma5(3) = Skq3
ma5(4) = Skq4
ma5(5) = Skq5
ma5(6) = Skq6
'ma6
ma6(0) = Skq0
ma6(1) = Skq1
ma6(2) = Skq2
ma6(3) = Skq3
ma6(4) = Skq4
ma6(5) = Skq5
ma6(6) = Skq6
For i = 0 To 6
'a0
If ma0(i) > 0 Then
b0 = b0 + ma0(i)
c0 = ma0(1) + ma0(2) + ma0(3) + ma0(4) + ma0(5) + ma0(6)
d0 = b0 - c0
e0 = Val(y04) * Val(L(5)) * 6.5
m0 = d0 / e0
End If
'a1
If ma1(i) > 0 Then
b1 = b1 + ma1(i)

c1 = ma1(0) + ma1(2) + ma1(3) + ma1(4) + ma1(5) + ma1(6)
d1 = b1 - c1
SVTH : Hồ Ngọc Ca – Nguyễn Văn Cường – Hà Đức Khánh

trang 20