基于matable实现的天牛须算法。天牛须搜索算法 [2] 是一种生物启发的智能优化算法，是受到天牛觅食原理启发而开发的算法，其仿生原理如下：
天牛须搜索的原理：
当天牛觅食时，天牛并不知道实物在哪里，而是根据食物气味的强弱来觅食。天牛有两只长触角，如果左边触角收到的气味强度比右边大，那下一步天牛就往左飞，否则就往右飞，依据这一原理天牛可以找到食物。
2021-07-13 15:19:47
1KB
1
资源包括：AFS模型、两相混合步进电机模型、PID控制初始参数求解、PID控制、模糊PID、基于PSO的PID控制、基于BAS的PID控制和基于BAO的PID控制的性能对比，压缩文件包括详细WORD说明文档、参考文献列表、README说明、M文件、MATLAB-Simulink模型
2021-07-13 09:59:16
2.13MB
1
'调用过程
Sub 使用()
Dim 行, 列
'下面程序是 转换 第2行第5列到第2行第800列
'由于行一直在增加,所以实际并不会转换到原数据的800列
行 = 2
列 = 5
For 行 = 2 To 800 Step 1
Call 换行单元格转真实行(Cells(行, 列))
Next
End Sub
'过程
Sub 换行单元格转真实行(rng As Range)
'Dim rng As Range '处理的单元格
Dim str As String '消掉处理的单元格中所有换行符的文本
Dim i '处理的换行符个数 = 原单元格字符个数 - 处理后单元格字符个数 ( i 结果是多少 这个单元格就有 i+1 行)
Dim 行数 '处理单元格里面有多少行
Dim rngcol
rngcol = rng.Column '处理单元格在第几列
Dim rngstr As String
rngstr = rng.Value '处理单元格的内容
str = Application.WorksheetFunction.Substitute(rngstr, "" & Chr(10) & "", "")
i = VBA.Len(rng) - VBA.Len(str) '得到 单元格 里面 一共多少个 换行符 从而得到行数为i+1
If i > 0 Then '如果有换行符的话
行数 = i + 1 '得到行数
For i = 行数 To 2 Step -1 '有多少行循环多少次
Rows(rng.Row + 1).Insert '先在 处理的单元格下面插入一行
Cells(rng.Row + 1, rngcol) = Split(rngstr, "" & Chr(10) & "")(i - 1) '然后把最后一行内容给写进去,倒数第二行内容写进去…………第二行写进去
Next
Cells(rng.Row, rngcol) = Split(rngstr, "" & Chr(10) & "")(0) '然后把第一行内容写到原位置
End If
'Split(字符串, 分隔符)(第几个)
End Sub
2021-07-07 12:03:15
1KB
1