冒泡排序的效率问题!运算速度超慢!分已用完.对不起各位了.

2007-12-17 11:43:33 379 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C++在高性能计算中如何提升运算效率通过优化内存管理、利用并行计算、选择合适的编译器选项以及使用高效的算法和数学库，可以显著提升C++程序的运算效率。然而，高性能计算是一个复杂且不断发展的领域，需要不断地学习和探索新的技术和方法，以适应不断变化的计算需求。：对于需要进行大规模数值计算的任务，如图像处理、深度学习等，可以利用NVIDIA的CUDA架构进行GPU加速。：对于涉及数学运算的任务，如线性代数、矩阵运算等，可以使用专业的数学库来提高性能。编译器是将源代码转换为可执行文件的工具，选择合适的编译器选项可以对代码进行优化，提高运算效率。阅读详情

Dim b(50000) As Single
Private Sub Command1_Click()
For i = o To UBound(b) - 1
For ii = o To 5000 '开始冒泡
If b(ii) < b(ii + 1) Then
jh = b(ii + 1)
b(ii + 1) = b(ii)
b(ii) = jh
End If
Next
Next
'冒泡结束
For i = 0 To UBound(b) - 1 '排序结果
List2.AddItem b(i)
Next
End Sub
Private Sub Form_Load() '产生随机数.
Randomize
For i = o To UBound(b) - 1
b(i) = Int(Rnd * 50001)
List1.AddItem b(i)
Next
End Sub
这段程序对50000个数据进行排序,大概要60秒左右.也太慢了吧,有没有更好办法.谢谢了.

...全文

E-SMILES：化学信息学中的分子表示革命与应用分子表示是化学信息学和计算化学的基础技术，其核心是将复杂的分子结构转化为计算机可处理的数字化形式。传统SMILES格式虽然广泛应用，但在处理复杂化学体系时存在局限性。Extended SMILES（E-SMILES）通过扩展语法规则，支持立体化学、配位键等特殊结构的精确描述，显著提升了分子表示的准确性和适用范围。在药物研发中，E-SMILES能准确描述蛋白质-配体相互作用和共价抑制剂；在材料科学领域，它支持纳米材料和超分子体系的多尺度建模。结合机器学习等前沿技术，E-SMILES正在推动化学信息处理效率的革阅读详情

zhuhuofong

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

shakoe 2007-12-19

打赏
举报

List2.AddItem b(i)
List1.AddItem b(i)

把这2行代码先注释去掉你会发现速度很很快了

对list，edit等控件添加的文本超过一定数量就会慢下来了可能是vb的bug

vbman2003 2007-12-18

打赏
举报

恩，我忽略了一个细节，就是field的数据类型，当使用varchar类型的时候，对数字的排序可能是不正确的，你可以将其修改为数字类型，比如int,double或者decimal

zhuhuofong 2007-12-18

打赏
举报

谢谢老马和VBMAN2003了,
我写这段代码就为测试冒泡效率的.
别的算法我不会,只会冒泡.
我调用你上面的程序,怎么排序混乱呢?
Private Sub Command2_Click()
RecordsetSort (b)
For i = LBound(b) To UBound(b)
List2.AddItem b(i)
Next
End Sub
这个怎样调用啊!怎样得到排序结果啊!

vbman2003 2007-12-18

打赏
举报

如果你是整数排序，快速排序和递归，效率都非常好，冒泡从算法角度看可能是比较经典的（我没学过算法，只是猜想），但实践下来冒泡的效率并不高。
利用对象和控件实现排序，适用性比较好，而且代码简单易懂，我觉得从解决问题角度看，是个很实在的方法，呵呵

zhuhuofong 2007-12-17

打赏
举报

哦!可能这段代码有大量时间是消耗在载入list1和list2上.

anticlimax 2007-12-17

打赏
举报

楼主下面的代码是不是把用来计算载入list2的时间，
载入list2的时间耗费也很多的

嗷嗷叫的老马 2007-12-17

打赏
举报

还顶....

zzyong00 2007-12-17

打赏
举报

再顶

嗷嗷叫的老马 2007-12-17

打赏
举报

顶下..........

vbman2003 2007-12-17

打赏
举报

给你个投机取巧的方法（不是算法^_^）,效率比你这个冒泡好许多：





'记录集法(字符，数字通用)

Sub RecordsetSort(anyInput As Variant, Optional Sort As String = "ASC")



    Dim rs As New Recordset

    Dim i As Long

    

    With rs

        .Fields.Append "FSort", adVarChar, 50

        .CursorType = adOpenStatic

        .LockType = adLockOptimistic

        .Open

        For i = LBound(anyInput) To UBound(anyInput)

            .AddNew

            !FSort = anyInput(i)

            .Update

        Next

        '.UpdateBatch

        .Sort = "FSort " & Sort

        For i = LBound(anyInput) To UBound(anyInput)

            anyInput(i) = !FSort

            .MoveNext

        Next

    End With

    Set rs = Nothing

    

End Sub

冒泡排序的效率问题!运算速度超慢!分已用完.对不起各位了.

相关推荐