Application of Set-Valued Statistical Methods for Excellent Performance Evaluation

Algorithm 1

Algorithm for the set-valued statistical model.

	Sub jizhi ()
	Dim s
	Dim As String
	h = ActiveSheet.UsedRange.Rows.Count
	l = ActiveSheet.UsedRange.Columns.Count
	s1 = 0
	For i = 1 To h
	For j = 1 To l - 1
	s1 = ActiveSheet.Range(Cells(i, j + 1).Address).Value ^ 2 - ActiveSheet.Range(Cells(i, j).Address).Value ^ 2 + s1
	s2 = ActiveSheet.Range(Cells(i, j + 1).Address).Value - ActiveSheet.Range(Cells(i, j).Address).Value + s2
	Next j
	Next i
	s = (s1/s2)/2
	Sheets(“Calculation Results “).[$b$2].Value = s
	For m = 1 To h
	For n = 1 To l − 1
	= (ActiveSheet.Range(Cells(m, n + 1).Address).Value − s) ^ 3 − (ActiveSheet.Range (Cells (m, n).Address).Value − s) ^ 3 +
	Next n
	Next m
	Sheets(“result”).[$b$3].Value = p
	End Sub