2020年9月14日
清零程序
摘要： 对应力数据进行清零 Sub 清零修正() Dim a Dim cout% '注意申明变量r要为长整型 Dim myfile As String, Arr(100) As String, Arr0(100) As String, arr1(10) As String On Error Resume N 阅读全文
posted @ 2020-09-14 17:05 redufa 阅读(254) 评论(0) 推荐(0)
VBA中Dir函数的使用
摘要： Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，再一次调用Dir，且不要使用参数。如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ("")。一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错 阅读全文
posted @ 2020-09-14 01:45 redufa 阅读(4241) 评论(0) 推荐(0)
2020年9月6日
一键角度统计
摘要： 把这几天写的程序，指定给一个控件，变成了一键式了。 不足之处是，执行效率太低了。 Sub 一键计算() Dim Wb As Workbook, MyPath, File As String MyPath = ThisWorkbook.Path & "\" File = Dir(MyPath & "* 阅读全文
posted @ 2020-09-06 15:00 redufa 阅读(179) 评论(0) 推荐(0)
2020年9月5日
循环嵌套+数组
摘要： 第一个程序没问题，就是逻辑还没捋顺 第二程序的功能有问题，需要参考第一个进行修改 Sub tss() m = 2 For i = 2 To 100 If Cells(i, 12) <> "" Then j = i Do While Cells(j, 13) = "" j = j + 1 Loop I 阅读全文
posted @ 2020-09-05 15:54 redufa 阅读(234) 评论(0) 推荐(0)
2020年9月4日
工况统计程序1.1：数据规整遍历sheet
摘要： 最后一个角度统计程序有问题： Sub tsh3() On Error Resume Next Sheets(1).Select: Call ts Sheets(2).Select: Call ts Sheets(3).Select: Call ts Sheets(4).Select: Call ts 阅读全文
posted @ 2020-09-04 02:04 redufa 阅读(175) 评论(0) 推荐(0)
工况统计程序1.0
摘要： 工况统计 sub ts() a = Time n = Cells(Rows.Count, 2).End(xlUp).Row Call ts1(n): dq (n): Call qd b = Time - a MsgBox b, n End Sub Sub ts1(n) For i = 2 To n 阅读全文
posted @ 2020-09-04 01:31 redufa 阅读(190) 评论(0) 推荐(0)
2020年9月3日
在数据对齐1.1+数据对齐2.2
摘要： 基于数据对齐1.1的结果，把数据对齐2.2的程序修改下，得到规整的14个通道的数据 Sub 对齐() n = Cells(Rows.Count, 2).End(xlUp).Row j = 2 For i = 2 To n If Cells(i, 2) <> "" Then Cells(j, 16) 阅读全文
posted @ 2020-09-03 22:11 redufa 阅读(154) 评论(0) 推荐(0)
数据对齐2.1
摘要： 对于前面4个id，11列数据，采样率一致，而且数据本身的数量也一样，基于这样的规律，直接把数据的空格去掉就好了 Sub 对齐() n = Cells(Rows.Count, 2).End(xlUp).Row j = 2 For i = 2 To n If Cells(i, 2) <> "" Then 阅读全文
posted @ 2020-09-03 21:55 redufa 阅读(199) 评论(0) 推荐(0)
数据对齐程序1.2
摘要： 如上一篇，把字母用数组变量代替，优化了下,略有bug，待调试 Sub ts1()a = Timeaar1 = Array("L", "I", "F", "B")aar2 = Array("M", "L", "I", "F")n = Cells(Rows.Count, 2).End(xlUp).Row 阅读全文
posted @ 2020-09-03 21:02 redufa 阅读(129) 评论(0) 推荐(0)
数据对齐程序1.1
摘要： 不同的ID发送的数据，导致在时间轴上有错位，最后三列的数据，采样率不一样。 目前的办法是，选取一个ID的数据，选取临近ID最为接近的数据。 该程序为最初版本，后续的优化方案有两个： 1、把用字母表示的列标用带字符串的数组代替，这样可以把四个小程序简化为一个，用一个for i =1 to 4 循环就好 阅读全文
posted @ 2020-09-03 20:48 redufa 阅读(221) 评论(0) 推荐(0)
二维离散数据的相关性检验
摘要： 相关性检验 % x 为赋值，y为均值，N为分组数量 % mn为二维直方图统计，m，n为一维直方图统计 function [mn m n]=hist_2(x, y, N) cout=length(x); m=hist(x,N); n=hist(y,N); mn=zeros(N); % 区间间隔 d_x 阅读全文
posted @ 2020-09-03 11:43 redufa 阅读(908) 评论(0) 推荐(0)
载荷谱截断与均幅值统计（二）
摘要： 说明 一 二 function [p n N]=f_j(t,m,i) % p 为估计参数 % t为极值数据；m截断下限值；e为应力应变换算系数，一般取0.2; i为样本量 f=0.2*(t(:,1)-t(:,2));j=0.2*(t(:,1)+t(:,2))/2; f_f=find(f<m); f( 阅读全文
posted @ 2020-09-03 11:42 redufa 阅读(233) 评论(0) 推荐(0)
载荷谱截断与均幅值统计（一）
摘要： 说明： 1、 2、 % 主程序 % 4选1 弹簧应变数据 s=1 t=N_all{s}; % m=[0 100,200,400] %幅值截断下限 f=0.2*(t(:,1)-t(:,2)); m=max(f)*0.125; for i=1:length(m) [p n N]=f_j_goodman_ 阅读全文
posted @ 2020-09-03 11:39 redufa 阅读(358) 评论(0) 推荐(0)
八级载荷谱计算
摘要： Conover文献中提到8级载荷谱的划分方法： 相应步骤： 1、通过用Ncode的进行雨流计数的方法，统计出极值， 2、求出幅值和均值，由于载荷谱时域数据是应变数据，所以参考弹性模量的参数值，转换成应力。 3、去除小载荷 4、设定分组间隔 5、求出每组数据频数 PS: 第一个函数分组用了matlab 阅读全文
posted @ 2020-09-03 10:36 redufa 阅读(1245) 评论(0) 推荐(0)
weibull/normal 仿真与参数估计
摘要： 假定一个随机变量服从威布尔分布，另一个随机变量服从正态分布，考虑两者的比值或者通过其它表达式计算的结果服从何种分布。 我考虑用蒙特卡洛的方法进行实现。 步骤如下： 1、设定参数范围 2、对参数进行排列 3、进行1e6次仿真 4 、统计参数（后续与设定参数进行比较） 5、对于两个随机变量的比值进行参数 阅读全文
posted @ 2020-09-03 10:34 redufa 阅读(332) 评论(0) 推荐(0)
多个csv格式数据中删除空值（不是没有数据，只是显示为空，code码可以识别）
摘要： Sub 插值() Dim a Dim cout%, i%, k%, r&, c% '注意申明变量r要为长整型 Dim myfile As String, Arr(100) As String, Arr0(100) As String a = Array(1, 2, 3, 4, 5, 6, 7, 8, 阅读全文
posted @ 2020-09-03 10:22 redufa 阅读(488) 评论(0) 推荐(0)
三个txt数据提取角度数据，进行初步分类（4个子程序）
摘要： 1、去除一组数据中的空值 2、通过对比时间，不同通道的数据点，认为某个时间点接近，就认为是一组数据 3、系统中导出的角度，和实际中略有不同，需要进行标准化 4、统计不同角度的占比 clc;clear; % 载入数据 % 去除0值 % 最终输出 d64；d65；d67 data604=load('Ou 阅读全文
posted @ 2020-09-03 10:11 redufa 阅读(255) 评论(0) 推荐(0)
2020年9月2日
VBA应用EXCEL公式
摘要： ' 七个使用公式的例子''1、行标是变量的例子'2、列标用一维数组输入字符串做列标，行标是变量'3、用RC做相对引用'4、RC和变量混合'5、整列使用RC引用，避免使用循环'6、整个区域RC引用——相对引用/循环'7、整个区域RC应用——相对引用/不用循环Sub 数例() [a1] = "1a": 阅读全文
posted @ 2020-09-02 23:45 redufa 阅读(515) 评论(0) 推荐(0)