level 13
火线留名
2014年06月11日 12点06分
level 13
![[撞墙至死]](/static/emoticons/u649eu5899u81f3u6b7b.png)
level 11
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
level 13
cbm666
楼主
算法讨论 不需要源码吧 前10分钟就只不停地接收数据 将会有600笔数据 从601秒以后开始每隔一秒就有一笔新数据进来 此时 【正式】开始进入判断
判断 1秒-601秒之间的温度数据 2秒-602秒之间的温度数据
3秒-603秒之间的温度数据 4秒-604秒之间的温度数据...........
一直到某一区间段的最高温度与最低温度差小于0.5度之内 即完成测试。
有可能会在 5000秒-5600秒才会稳定在公差0.5度内 意思就是判断5000次以后才完成测试
有可能180分钟 即10800秒之内 还无法达到 那就算失败 可以点击按钮 重新再来一次
先我原来使用冒泡数组排序每隔一秒判断一次 不是冒泡 而是电脑冒烟了 CPU飙升 哈哈
'数组排序副程序
Public Function PXaz(Arr) As String()
On Error Resume Next
'********************** 由小排到大(冒泡排序法)
Dim TMPSZ$(), T&, k&
ReDim Preserve TMPSZ$(UBound(Arr))
For i = 0 To UBound(Arr)
k = i
For j = i + 1 To UBound(Arr)
If Arr(k) > Arr(j) Then k = j
Next j
T = Arr(i): Arr(i) = Arr(k): Arr(k) = T
TMPSZ(i) = Arr(i)
Next i
PXaz = TMPSZ
End Function
2014年06月11日 14点06分
6
判断 1秒-601秒之间的温度数据 2秒-602秒之间的温度数据
3秒-603秒之间的温度数据 4秒-604秒之间的温度数据...........
一直到某一区间段的最高温度与最低温度差小于0.5度之内 即完成测试。
有可能会在 5000秒-5600秒才会稳定在公差0.5度内 意思就是判断5000次以后才完成测试
有可能180分钟 即10800秒之内 还无法达到 那就算失败 可以点击按钮 重新再来一次
先我原来使用冒泡数组排序每隔一秒判断一次 不是冒泡 而是电脑冒烟了 CPU飙升 哈哈
'数组排序副程序
Public Function PXaz(Arr) As String()
On Error Resume Next
'********************** 由小排到大(冒泡排序法)
Dim TMPSZ$(), T&, k&
ReDim Preserve TMPSZ$(UBound(Arr))
For i = 0 To UBound(Arr)
k = i
For j = i + 1 To UBound(Arr)
If Arr(k) > Arr(j) Then k = j
Next j
T = Arr(i): Arr(i) = Arr(k): Arr(k) = T
TMPSZ(i) = Arr(i)
Next i
PXaz = TMPSZ
End Function
level 12
level 13
level 13
level 13
level 8
吧务
level 12
level 11
level 10
这两张算法 哪个快啊
第一个是堆排序，第二个是快速排序。堆排序稍微快一点，堆排序的空间复杂度小，适合极大量的数据处理。快速排序简单，但是要递归，所以不适合极大量数据，不然会容易溢出。两者都是不稳定排序。如果不在乎内存的话可以用归并排序（merge sort），稳定排序，速度也和堆排序，但是空间复杂度巨大。
2014年06月12日 00点06分
回复 Lewis_xy :谢谢啊~~堆排序 有代码么？想看看是怎么样走的
2014年06月12日 01点06分
回复 传说中嘚男人 :堆排序还是挺复杂的，很抱歉具体我也不懂，大概就是建造一个堆，最大的数放最上面，之后依次把小的数往下放。我连堆都不懂，怎么能写得出代码？这两张图太眼熟了，是wikipedia（维基百科）上面的。我看过不下10遍，但是还是没懂堆排序，快速排序我有源码，你要吗？
2014年06月12日 01点06分
回复 Lewis_xy :要~~发来看看
2014年06月12日 01点06分
level 13
level 11
@传说中嘚男人
这代码大部分是自己写的，当然是比较字符串，可以把第一个参数改成 as integer，left和right是数组的要排序部分的界限，当然是为了递归的时候好用。
Private Sub quicksort(ByRef s() As String, ByVal left As Integer, ByVal right As Integer)
Dim m, l, r, k As Integer
l = left
r = right
m = s((l + r) / 2)
Do
While s(l) < m
l = l + 1
Wend
While s(r) > m
r = r - 1
Wend
If l <= r Then
k = s(l)
s(l) = s(r)
s(r) = k
l = l + 1
r = r - 1
End If
Loop While l <= r
If left < r Then quicksort s, left, r
If l < right Then quicksort s, l, right
End Sub
2014年06月12日 01点06分
20
这代码大部分是自己写的，当然是比较字符串，可以把第一个参数改成 as integer，left和right是数组的要排序部分的界限，当然是为了递归的时候好用。
Private Sub quicksort(ByRef s() As String, ByVal left As Integer, ByVal right As Integer)
Dim m, l, r, k As Integer
l = left
r = right
m = s((l + r) / 2)
Do
While s(l) < m
l = l + 1
Wend
While s(r) > m
r = r - 1
Wend
If l <= r Then
k = s(l)
s(l) = s(r)
s(r) = k
l = l + 1
r = r - 1
End If
Loop While l <= r
If left < r Then quicksort s, left, r
If l < right Then quicksort s, l, right
End Sub
谢谢啊~~
2014年06月12日 01点06分