[ÇóÖú]´óÏÀ:Çë½ÌVBµ÷ÓÃ×Ô¶¨Òåº¯ÊýµÄÖµ´«µÝÎÊÌâ

dance ·¢±íÓÚ 2006-5-14 22:35:00

ÎÒÔÚ±àÒ»¸öÇóµã¼¯Í¹°üµÄ³ÌÐò<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
²Éµã¼¯µÄ³ÌÐò²¿·ÖÒÑ¾¸ã¶¨<o:p></o:p>
Ïë°Ñµã¼¯ÖÐy×î½üÐ¡ÇÒ¾àx×îÔ¶µÄµãÕÒµ½£¬¾ÍÓÃ¶þ·Ö·¨ÅÅÁËÐò£¬µ«Êý×ép£¨£©µÄÖµ×Ý´«²»µ½Êý×épl()ÉÏ¡£ÇëÔÚ°ïÃ¦¿´ÏÂ£º<o:p></o:p>
Option Explicit Private Type pointinfo x As Single                    'µãµÄx ×ø±êÖµ y As Single                    'µãµÄy ×ø±êÖµ q As Single                    'ÓëË®Æ½ÏßµÄ¼Ð½Ç End Type Dim p0 As pointinfo Dim p(0 To 200) As pointinfo    'µã¼¯ Dim pl(0 To 200) As pointinfo   'Çó³öÆðÊ¼µã Dim ps(0 To 200) As pointinfo   'ÅÅÐòºóµÄµã¼¯ Dim pi(0 To 200) As pointinfo   '¼«µã Dim n, m, d As Integer Dim x0, y0 As Single Dim l, e As Integer<o:p></o:p>
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DrawWidth = 4 If n = 0 Then  p(0).x = x  p(0).y = y  Circle (x, y), 100, RGB(255, 0, 255) Else 'ÊäÈëµã¼¯  p(n).x = x  p(n).y = y  Circle (x, y), 10, RGB(255, 255, 0) End If n = n + 1 x0 = x y0 = y   End Sub<o:p></o:p>
Private Sub Command2_Click() Dim i As Integer Dim q As Single p(n).x = x0 p(n).y = y0 Const pi = 3.14 Dim u, j As Integer Dim k, r, f As Integer Dim term As pointinfo For u = 0 To n   term = p(l)   k = 0   r = u - 0   Do While k <= r            f = Int((k + r) / 2)           If term.y < pl(f).y Or (term.y = pl(f).y And (Abs(term.x) > Abs(pl(f).x))) Then              r = f - 1           Else              k = f + 1           End If   Loop   For j = u - 1 To k Step -1       pl(j + 1) = pl(j)   Next j   pl(k) = term Next u<o:p></o:p>
End Sub

xinghesnak ·¢±íÓÚ 2006-5-15 09:20:00

ºÇºÇ£¡×òÌì¹«Ë¾ÐÝÏ¢£¬Ã»ÓÐµçÄÔÄÜÉÏÍø°¡¡£¡£¡£¡£
dance£¬²»ÅÂÄã¼ûÐ¦£¬¶þ·Ö·¨ÎÒ²»Ã÷°×¡£¡£¡£¡£ÒªÊÇÎÒ×ö£¬Èç¹ûÖ»ÊÇ¼òµ¥µÃµ½Y×î
Ð¡X×î´óµÄÊý×é£¬ÔÚcommand2µÄµã»÷ÊÂ¼þÖÐÕâÃ´Ð´£º
Private Sub Command2_Click() Dim i As Integer Dim term As pointinfo term.x = p(0).x: term.y = p(0).y
For i = 1 To n - 1    If p(i).y < term.y Or (p(i).y = term.y And p(i).x > term.x) Then  
        term.x = p(i).x: term.y = p(i).y
    end if Next End Sub

xinghesnak ·¢±íÓÚ 2006-5-15 09:43:00

Èç¹ûÊÇÅÅÐò£¬ÎÒÕâÑùÐ´µÄ£º
Private Sub Command2_Click() Dim i As Integer, j As Integer Dim term As pointinfo For i = 1 To n - 1     For j = 1 To n - i         If p(j).y < p(j - 1).y Or (p(j).y = p(j - 1).y And p(j).x > p(j - 1).x) Then             term.x = p(j - 1).x: term.y = p(j - 1).y             p(j - 1).x = p(j).x: p(j - 1).y = p(j).y             p(j).x = term.x: p(j).y = term.y         End If     Next Next End Sub

dance ·¢±íÓÚ 2006-5-15 22:17:00

[ÇóÖú]

xinghesnak·¢±íÓÚ2006-5-15 9:43:00static/image/common/back.gif
Èç¹ûÊÇÅÅÐò£¬ÎÒÕâÑùÐ´µÄ£º
Private Sub Command2_Click()Dim i As Integer, j As IntegerDim term As pointinfoFor i = 1 To n ...

ºÇºÇ,Õâ¸ö·½·¨ºÜ×àÐ§.Ð»Ð».
ÎªÁË´Óp(0)¿ªÊ¼¼Æµã£¬ÎÒ°Ñform-click()²¿·Ö¸ø¸ÄÐ´ÁËÏÂ¡£
µ«ÊÇÎÒÔÚÍùÏÂ±àÐ´ÇóÆäËû¸÷µãÓëÅÅÐòºóµÄ¼«Ö²µãp(0)ËùÔÚË®Æ½ÏßµÄ½Ç¶Èp(i).qÊ±£¬ÓÖ³öÏÖÁËÖµ´«µÝÎÊÌâ¡£p(i).qµÄÖµ×ÜÊÇ0£¬¶ø²»ÊÇ³ÌÐòµÄ¼ÆËãÖµ¡£ÏÂÃæÊÇÎÒµÄ³ÌÐò£º
Option Explicit Private Type pointinfo x As Single                    'µãµÄx ×ø±êÖµ y As Single                    'µãµÄy ×ø±êÖµ q As Single                    'ÓëË®Æ½ÏßµÄ¼Ð½Ç End Type Dim p0 As pointinfo Dim p(0 To 200) As pointinfo    'µã¼¯ Dim pl(0 To 200) As pointinfo   'Çó³öÆðÊ¼µã Dim ps(0 To 200) As pointinfo   'ÅÅÐòºóµÄµã¼¯ Dim pi(0 To 200) As pointinfo   '¼«µã Dim n, m, d As Integer Dim x0, y0 As Single Dim l, e As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DrawWidth = 4 If n = 0 Then  p(0).x = x  p(0).y = y  Circle (x, y), 100, RGB(255, 0, 255) Else 'ÊäÈëµã¼¯  p(n).x = x  p(n).y = y  Circle (x, y), 10, RGB(255, 255, 0) End If n = n + 1       'ÎÒºó¸ÄÐ´µÄ²¿·Ö
End Sub 
 Private Sub Command2_Click() Dim i As Integer Dim q As Single Const pi = 3.14
Dim u As Integer, j As Integer                           '½«p()ÅÅÐòyÓÐÐ¡ÖÁ´ó¡£ Dim term As pointinfo For u = 1 To n - 1     For j = 1 To n - u         If p(j).y < p(j - 1).y Or (p(j).y = p(j - 1).y And p(j).x < p(j - 1).x) Then             term.x = p(j - 1).x: term.y = p(j - 1).y             p(j - 1).x = p(j).x: p(j - 1).y = p(j).y             p(j).x = term.x: p(j).y = term.y         End If     Next j Next u
For i = 1 To n - 1                                         'ÎÒ¼ÆËã½Ç¶ÈµÄ³ÌÐò If p(i).y - p(0).y = 0 Then         If p(i).x - p(0).x = 0 Then            p(i).q = 90         ElseIf p(i).x - p(0).x > 0 Then           p(i).q = 180 / pi * Atn((p(i).y - p(0).y) / (p(i).x - p(0).x))         Else             p(i).q = 180 / pi * Atn((p(i).y - p(0).y) / (p(i).x - p(0).x)) + 180         End If ElseIf p(i).y - p(0).y < 0 Then         If p(i).x - p(0).x = 0 Then            p(i).q = 270         ElseIf p(i).x - p(0).x > 0 Then           p(i).q = 360 + 180 / pi * Atn((p(i).y - p(0).y) / (p(i).x - p(0).x))         Else           p(i).q = 180 + 180 / pi * Atn((p(i).y - p(0).y) / (p(i).x - p(0).x))         End If End If         Next i
End Sub

xinghesnak ·¢±íÓÚ 2006-5-16 09:19:00

Â¥ÉÏµÄ£¬ÄãµÄ³ÌÐò¿É¡£¡£¡£¡£¡£¡£
If p(i).y - p(0).y = 0 Then Õâ¾ä»°ÊÇ²»ÊÇÄãµÄ±ÊÎó°¡£¬Ó¦¸ÃÐ´³É
If p(i).y - p(0).y> =0 Then ??

dance ·¢±íÓÚ 2006-5-17 15:38:00

[ÇóÖú]

xinghesnak·¢±íÓÚ2006-5-16 9:19:00static/image/common/back.gif
Â¥ÉÏµÄ£¬ÄãµÄ³ÌÐò¿É¡£¡£¡£¡£¡£¡£

ºÇºÇ£¬ÄãÊÇ²»ÊÇ¾õµÃ°³µÄ³ÌÐòÓÐµã†ªàÂ
²»ºÃÒâË¼£¬×ÜÊÇ±ß×Å±à×Å³öç¢Â©¡£

dance ·¢±íÓÚ 2006-5-17 15:43:00

[ÇóÖú]

ÎÒÏÖÔÚÇëÎÊÏÂ£¬ÔõÃ´Çå³ýÒ»¸ö×Ô¶¨ÒåÊý×éµÄÒ»¸öÖµ£¿
ÏÂÃæÊÇºóÐø³ÌÐò
Private Sub Command3_Click() Dim u As Integer, j As Integer                           '½«p()ÅÅÐòqÓÐÐ¡ÖÁ´óÄæÊ±ÕëÅÅÐò¡£ Dim term As pointinfo For u = 1 To n - 1     For j = 1 To n - u         If p(j).q < p(j - 1).q Or (p(j).q = p(j - 1).q And p(j).y < p(j - 1).y) Then             term = p(j - 1)             p(j - 1) = p(j)             p(j) = term         End If     Next j Next u
End Sub
Private Sub Command4_Click() 'ÕÒ¼«µã Dim i, j As Integer Dim s As Single Dim inpv As Integer pi(0) = p(0) pi(1) = p(1) m = 1 For d = 2 To n - 1
s = sarea(pi(m - 1), pi(m), p(d))  If s > 0 Then                 'µãÔÚpv Êý×éÎ²µÄ×ó²à     pi(m + 1) = p(d)     m = m + 1  Else:     pi(m) = p(d)               'µãÔÚpv Êý×éÎ²µÄÓÒ±ß²à     m = m - 1  End If      m = m + 1      Next d If s = sarea(pi(m - 1), pi(m), p(0)) < 0 Then    pi(m).x = "": pi(m).y = "": pi(m).q = ""          ¡®ÎÒÏëÔÚÕâ¸öÎ»ÖÃÇå³ýpi(m)¡£µ«ÔõÃ´Éè¶¼²»ÐÐ    m = m - 1 End If    DrawWidth = 2
For j = 0 To n - 1          'Êä³ö¼«±ß Line (pi(j).x, pi(j).y)-(pi(j + 1).x, pi(j + 1).y) Next j
Line (pi(n).x, pi(n).y)-(pi(0).x, pi(0).y)
End Sub

dance ·¢±íÓÚ 2006-5-17 15:46:00

±§Ç¸£¬¸Õ¸ÕÍü´ò×Ô¶¨Òåº¯ÊýÁË
Private Function sarea(x As pointinfo, y As pointinfo, z As pointinfo) As Single sarea = (x.x * y.y - x.y * y.x) + (y.x * z.y - y.y * z.x) + (z.x * x.y - z.y * x.x) End Function

xinghesnak ·¢±íÓÚ 2006-5-17 16:26:00

Çå³þP(m)ÊÇÊ²Ã´ÒâË¼£¿³ýµôÕâ¸öÊý»¹ÊÇÇå³ýÀïÃæµÄÊý¾Ý£¿

dance ·¢±íÓÚ 2006-5-17 20:34:00

[ÇóÖú]

xinghesnak·¢±íÓÚ2006-5-17 16:26:00static/image/common/back.gifÇå³þP(m)ÊÇÊ²Ã´ÒâË¼£¿³ýµôÕâ¸öÊý»¹ÊÇÇå³ýÀïÃæµÄÊý¾Ý£¿

Private Type pointinfo x As Single                    'µãµÄx ×ø±êÖµ y As Single                    'µãµÄy ×ø±êÖµ q As Single                    'ÓëË®Æ½ÏßµÄ¼Ð½Ç End Type Dim p(0 To 200) As pointinfo 
p(m)ÎªÆäÖÐµÄÒ»¸öÖµ

Ò³: [1] 2

Ã÷¾­CADÉçÇø's Archiver