Alexios !
Цитата:Как составляется это уравнение для АВС анализа? Как наложить график функции на диаграмму АВС в Экселе?
Уравнение для АВС-анализа составлять не надо, это делается в теоретической части, что бы графически объяснить разделение на группы.
Хотя, если есть желание, просто сортируете по убыванию параметра ваши позиции, рядом делаете столбец с нарастающей суммой по параметру. Выделяете этот столбец и строете по нему диаграмму типа "График" (лучше стройте её на одтельном листе).
Потом нажимате на получившейся линии графика правой кнопки мышки и выбираете из всплывшего меню "Добавить линию тренда", там выбираете какую линию (ваше уравнение 4-го порядка - это "Полиномиальное" с параметром "4"), не закрывая окошко переходите на следующую вкладку, там ставите галочку "Показывать уравнение функции". График функции появится сразу же на том же графике, где и диаграмма, и рядом с графиком будет написано уравнение, выбранной вами функции.
Цитата:Почему именно 4-ой степени?
Не знаю, почему там, где вы про него вычитали было написанно именно 4-го порядка, скорей всего потому что оно уже достаточно хорошо аппроскимирует подобные данные (0,9812)? Лично я предпочитаю, если и рисовать в данном случае аппроксимирующую кривую, то использовать "Логарифмическое" приближение, хотя оно и не так хорошо соответствует данным (0,9789), зато оно имеет ту же логику (нет лишних точек перегиба), а ухудшение в точности - совсем небольшое (0,0023).
Цитата:П.С. От литературы онлайн вовсе не откажусь.
Для АВС-анализа именно по графическому типу (без заранее определённого отношния разбиения типа 20-80, какое есть такое есть) я написал для ВБА Ехселя функцию:
Function ABC(diapazon As Range) As String
'выдаёт значения, с которых начинаются группы B и C АВС-анализа
'позиции должны стоять в порядке убывания количественного параметра
Dim i As Integer
Dim yachejka As Range
Dim sum As Single
Dim v_ya As Single
Dim temp As Single
Dim maxnov As Integer
Dim b As Single
Dim j As Integer
Dim c As Single
sum = 0
maxnom = 0
temp = 0
i = 0
For Each yachejka In diapazon
sum = sum + yachejka.Value
maxnom = maxnom + 1
Next yachejka
Do
i = i + 1
v_ya = diapazon.Cells(i, 1)
temp = temp + v_ya
Loop While (temp / sum + i / maxnom) <= 1
b = v_ya
j = i
Do
j = j + 1
v_ya = diapazon.Cells(j, 1)
temp = temp + v_ya
Loop While ((temp - b) / (sum - b) + (j - i) / (maxnom - i)) <= 1
c = v_ya
ABC = "Группа B начинается с: " & b & " Группа C начинается с: " & c
End Function
Страниц: 1
Уравнение 4-ой степени (Прочитано 8310 раз)
