1、在VBA中输入Sub 姿态重复性()End Sub
3、原始数据的上色标记.For j = 2 To 151 Step 5Cells(j + 4, 1).Interior.Color = RGB(0, 255, 0)Cells(j + 4, 2).Interior.Color = RGB(0, 255, 0)Cells(j + 4, 3).Interior.Color = RGB(0, 255, 0)Next
5、For j = 2 To 151 Step 5Cells(2, 5) = Cells(j + 4, 2) + Cells(2, 5) 'b轴求和NextCells(2, 5) = Cells(2, 5) / 30 'b轴平均值For j = 2 To 151 Step 5Cells(j + 4, 9) = (Cells(j + 4, 2) - Cells(2, 5)) ^ 2 'b轴差方NextFor j = 2 To 151 Step 5Cells(8, 4) = Cells(8, 4) + Cells(j + 4, 9) 'b轴差方和NextCells(4, 7) = (Cells(8, 4) / 29) ^ 0.5 'b轴姿态重复性
