.n Расчёт точки безубыточности  
.a Расчёт точки безубыточности по данным отчёта о финановых результатах 
.d 23333
.s
*Расчёт точки безубыточности по данным отчёта о финанcовых результатах

Для возможности использования расширения необходимо наличие файлов x_cvp.api, x_cvp.php, x_cvp.txt, которые не входят в базовую комплектацию системы.  

Исходными данными для выполнения расчётов являются 4 строки отчета о финансовых результатах за несколько лет (чем больше - тем лучше).
- Выручка (строка 2110 - vr);
- Себестоимость (строка 2120 - sp);
- Коммерческие расходы (строка 2210 - kr);
- Управленческие расходы (строка 2220 - ur).

На их основе можно определить полную себестоимость для каждого периода по формуле ps = sp+kr+ur. Полная себестоимость состоит из постоянных и переменных затрат. То есть:

''ps = C+k*vr'/.

где С - неизвестные постоянные затраты, а k - неизвестная доля переменных затрат в выручке (vr). 

По известным данным рядов ps и vr строится уравнение регрессии и вычисляются коэффициенты C и k, по значениям которых точка безубыточности вычисляется по формуле:

''C/(1-k)'/  

Модель не всегда срабатывает адекватно. Иногда (особенно при малых рядах) может оказаться, что либо C<0, либо k>1. Понятно, что в этом случае результаты неверны.  

Существенно подробнее модель изложена в книге !shurem/pk/kniga04.s. 

**Функция cvp - расчёт точки безубыточности 
Функция cvp(vr,sp,kr,ur) строит уравнение регрессии на основании массивов данных vr,sp,kr,ur (см. выше) по изложенной выше модели строит уравнение регрессии, рассчитывает точку безубыточности и выводит канонический график с исходными данными, линией регрессии и точкой пересечения выручки с прямой суммы постоянных и переменных затрат. 

''Разметка'/  
 ~vr=massiv('780612980 887230674 1231261784 1632652981 1774979437 2507009504')
 ~sp=massiv('254986797 317406047  425190517  578525891  723781021  938425860')
 ~kr=massiv('309923956 347190966  433953918  518675487  540917840  639679363')
 ~ur=massiv('  8147344  11041109   13972952   17555687   23678150   33278171')
 @cvp(vr,sp,kr,ur)
''Вывод'/  
~vr=massiv('780612980 887230674 1231261784 1632652981 1774979437 2507009504')
~sp=massiv('254986797 317406047  425190517  578525891  723781021  938425860')
~kr=massiv('309923956 347190966  433953918  518675487  540917840  639679363')
~ur=massiv('  8147344  11041109   13972952   17555687   23678150   33278171')
@cvp(vr,sp,kr,ur)

**Функция cvpfs - расчёт точки безубыточности
Функция cvpfs(p) выполняет те же действия, что и функция cvp(), но выбирает данные из источника, заданного элементом d: вектора (строки p). 

В данной статье имеется секция .segega, содержащая следующие данные:
@kod("d:*~segega")

Применим к ним функцию cvpfs()
''Разметка'/  
 @cvpfs('d:*~segega')
''Вывод'/ 
@cvpfs('d:*~segega')

.segega
$.x cvp
$.n Сегежа: Расчёт точки безубыточности по данным отчётов о финансовых результатах
$.a
$.d 02333
/cvp
*Выручка от реализации
vr 6132184 5668941 659446 7377898 7386319 8049014 9391204 13481801
*Себестоимость продаж
sp 5467989 4626906 5290604 5222524 5430685 6171358 6535864 7203172
*Коммерческие затраты
kr 511526 631758 698744 735182 759056 786348 958337 1339120
*Управленческие затраты
ur 395445 267905 332420 376010 357264 367388 396558 441532
//