HLA2022离全功能又近了一步

Sub SingleCurve()

Dim sh As Worksheet, path$
Dim i As Integer

path = ThisWorkbook.path & "\" '设置工作簿保存路径
Application.ScreenUpdating = False '屏幕更新
Application.DisplayAlerts = False '不弹窗

For i = 1 To Worksheets.Count '遍历当前宏所在的工作簿中的工作表
    Worksheets(i).Rows("2:2").Delete
    Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "测试" + CStr(2 * i)
    Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "测试" + CStr(2 * i + 1)
    
    Worksheets(i).Columns("A:B").Copy
    Sheets("测试" + CStr(2 * i)).Paste
    
    Worksheets(i).Columns("D:E").Copy
    Sheets("测试" + CStr(2 * i + 1)).Paste
    
    Sheets("测试" + CStr(2 * i)).Copy '复制工作表
    ActiveWorkbook.SaveAs Filename:=path & "测试" + CStr(2 * i) & ".xlsx" '保存活动工作簿
    ActiveWorkbook.Close '关闭活动工作簿
    Sheets("测试" + CStr(2 * i)).Delete
    
    Sheets("测试" + CStr(2 * i + 1)).Copy
    ActiveWorkbook.SaveAs Filename:=path & "测试" + CStr(2 * i + 1) & ".xlsx"
    ActiveWorkbook.Close '关闭活动工作簿
    Sheets("测试" + CStr(2 * i + 1)).Delete
Next

Application.ScreenUpdating = True '开启屏幕更新

End Sub

计算延性系数最重要的是确定屈服点位置，常见的处理方式有四种，几何作图法、等能量法、Park法和最远点法。下面这篇文献中对这四种方法进行了详细的解释，对存在的争议也有描述，可以看看。

确定了屈服点的计算方法，下面就是骨架曲线怎么选择，和上面骨架曲线一致，存在三种骨架曲线，因此在计算延性系数的时候，也需要自己判断到底采用哪一种，是取正向的骨架曲线还是负向的，软件都提供了。

延性数据

值得注意的是，对没有下降段的曲线，默认取峰值作为极限点。延性系数数据的导出与上面一样，支持批量导出。

试验得到的滞回曲线有抖动、噪点很正常，在原始曲线的基础上，适当的进行拟合，我认为是没问题的。

提供三种算法来拟合曲线，每种算法效果不一样，需要自行尝试。

 控制点数量就是从每圈滞回环中抽多少个点来拟合，一般来说少一些比较好，10-100比较好。

其他两个参数平滑因子、插值点数的在控制点数量比较大的时候影响极小，可保持默认。

为什么要删除停顿点，可以看推文《滞回曲线数据预处理》。删除停顿点，不影响曲线形状，减少数据点，方便绘图；同时，使加载制度更清晰可见。

终于得到一条差不多满意的曲线了，不拿出来展示一下也说不过去。可以自定义设置线宽、导出速度等。

如果你并不想个性化处理下这些曲线，你可以批量导入文件，然后点导出所有数据就可以了。

导出的每个文件，就是每条曲线的所有数据，包括分解的滞回环、骨架曲线、评价指标和延性系数。

值得注意的是，延性系数默认取骨架曲线的包络线来计算，Park法参数默认取0.75，极限强度系数默认取0.85。不能修改。

如果有不同的需求，可以在相应功能中进行单独设置输出。

作为一个资深的颜控，我认为一个软件没有好看的界面，是难以忍受的，这个软件满足了我的审美。此外，功能也很完善，我能想到的功能、细节都在里面了，有任何问题或者新的需求都可以联系我，欢迎试用，感谢支持。