Избранное трейдера Evgenus


Уже давно разобрались, что России нечего стыдиться своего ВВП. По паритету покупательной способности он находится на 6 месте в мире. Этот параметр рассчитывают ЦРУ, МВФ и Всемирный банк. Ознакомиться с ним можно здесь.
Но недоброжелатели не успокаиваются и продолжают троллить российский ВВП с другого бока: ВВП на душу населения.
ВВП на душу населения в США 57 436 долл.
ВВП на душу населения в РФ 26 490 долл., то есть в два раза ниже. Цифры отсюда.
Спорить с этими цифрами я не буду. Они верны.
Но вы, дорогие читатели, имеете право знать, из чего состоят эти цифры. Об этом и будет эта статья.
Структура американского ВВП взята здесь (файлик ValueAdded-добавленная стоимость):
www.bea.gov//industry/iTables%20Static%20Files/AllTables.zip
Структура российского ВВП взята здесь (страница 8):
www.gks.ru/free_doc/doc_2017/social/osn-03-2017.pdf
Если кто-то придирчиво посмотрит на мои расчёты и найдёт ошибки — буду признателен. Может быть в некоторых случаях не верно сравнивать одно с другим, потому что СШАстат и Росстат запихнули разные отрасли в один показатель. Но я вроде сверялся и учитывал это. Например в США рыбу считают внутри сельского хозяйства, а в России отдельно. Поэтому я объединил для России с.х. и ловлю рыбы.


Многие наверно заметили, что в мире сложилась уникальная ситуация. Финансовый сектор экономики мира, пухнет от денег и надувает финансовые пузыри. С другой стороны, реальная экономика сидит на сухом денежном пайке. В частности из-за этого, рынки сырья и развивающихся рынки в последние годы, в основном падали в цене, а рынки стран Запада росли и в особенности рынки облигаций.
Причина появления пузырей понятна, это беспрецедентная в истории накачка мировой экономики деньгами. Но возникает вопрос, а почему рынки сырья, не надули финансовые пузыри, и почему развивающимся странам, ничего не перепало от «праздника избытка денег»? Ответ на этот вопрос может быть очень неожиданным.
После кризиса 2008 года, в мире заговорили о необходимости ужесточения требований к уровню достаточности капитала банков. Позже к 2010-11 годам, эти разговоры привели к появлению документа под названием «Базель -3», как усовершенствование «Базельских соглашений», которые регулируют банковскую деятельность. Так вот по новым правилам, «Базель-3» ужесточил требования к достаточности капитала банков и требования по достаточности ликвидности. И с началом 2013 года, новый документ стал внедряться в жизнь. Если вспомнить те годы, то тогда и ФРС и ЕЦБ и другие регуляторы, очень часто проводили так называемые стресс тесты банковской системы. Они как раз и касались изменений, внесенных документом «Базель-3».

IsRun = true
class_code="TQBR"
function main()
-- Получает доступный id для создания
t_id = AllocTable()
-- добавить столбцы
AddColumn(t_id, 1, "Бумага", true, QTABLE_STRING_TYPE, 20)
AddColumn(t_id, 2, "Кол-во", true, QTABLE_INT_TYPE, 7)
AddColumn(t_id, 3, "Цена покупки", true, QTABLE_DOUBLE_TYPE, 14)
AddColumn(t_id, 4, "Цена текущая", true, QTABLE_DOUBLE_TYPE, 14)
AddColumn(t_id, 5, "Прибыль, р", true, QTABLE_DOUBLE_TYPE, 14)
AddColumn(t_id, 6, "Прибыль, %", true, QTABLE_DOUBLE_TYPE, 14)
t = CreateWindow(t_id)
for iRow=1, getNumberOf("depo_limits")-1, 1 do
rowInPortfolioTable = getItem("depo_limits", iRow) -- получить текущую строку из таблицы "Лимиты по бумагам"
qtyBoughtLots = tonumber(rowInPortfolioTable.currentbal)
limitKind = rowInPortfolioTable.limit_kind
if qtyBoughtLots>0 and limitKind<1 then
InsertRow(t_id, iRow)-- добавить новую строку вниз таблицы
end
end
local rows, columns = GetTableSize (t_id)
InsertRow(t_id, rows+1) -- добавить новую строку вниз таблицы для "Итого"
SetWindowCaption(t_id, "Портфель: прибыли и убытки © ramirzaev@mail.ru")
-- исполнять цикл, пока пользователь не остановит скрипт или не закроет окно таблицы
while IsRun do
if IsWindowClosed(t_id)==true then
IsRun=false
end
local currentPrice=0
local qtyBoughtLots=0
local profitAbs = 0
local profitPerc = 0
local currentSecCode= ""
local fullNameOfInstrument = ""
local limitKind = 0
local rowInPortfolioTable = {} -- строка из таблицы "Лимиты по бумагам"
local tableInstrument = {} -- данные "Таблицы текущих торгов"
local iRowInOutTable = 1
local totalInvest = 0
local totalPortfolio = 0
local totalProfit = 0
local totalPercent = 0
for iRow=0, getNumberOf("depo_limits")-1, 1 do
rowInPortfolioTable = getItem("depo_limits", iRow) -- получить текущую строку из таблицы "Лимиты по бумагам"
qtyBoughtLots = tonumber(rowInPortfolioTable.currentbal)
limitKind = rowInPortfolioTable.limit_kind
if qtyBoughtLots>0 and limitKind<1 then -- если кол-во лотов >0 и тип лимита T0
currentSecCode = rowInPortfolioTable.sec_code
fullNameOfInstrument = tostring(getParamEx(class_code, currentSecCode, "SHORTNAME").param_image or "0") --"LONGNAME"
avgPrice = tonumber(rowInPortfolioTable.awg_position_price)
currentPrice = GetAskPrice(currentSecCode)
profitAbs = (currentPrice-avgPrice)*qtyBoughtLots
profitPerc = 100*currentPrice/avgPrice - 100
totalInvest = totalInvest + avgPrice*qtyBoughtLots
totalPortfolio = totalPortfolio + currentPrice*qtyBoughtLots
SetCell(t_id, iRowInOutTable, 1, fullNameOfInstrument) -- "Бумага"
SetCell(t_id, iRowInOutTable, 2, tostring(qtyBoughtLots)) -- "Кол-во"RemoveZero(tostring(qtyBoughtLots)))
SetCell(t_id, iRowInOutTable, 3, tostring( math_round(avgPrice, 3) )) -- tostring(avgPrice)) -- "Цена покупки"
SetCell(t_id, iRowInOutTable, 4, RemoveZero(tostring(currentPrice))) -- "Цена текущая"
SetCell(t_id, iRowInOutTable, 5, tostring( math_round( profitAbs, 0)) ) -- "Прибыль, р"
SetCell(t_id, iRowInOutTable, 6, tostring(math_round(profitPerc, 1)) .."%") -- "Прибыль, %"
if profitPerc >5 then -- окрашиваем
ColourRowInGreen(iRowInOutTable)
elseif profitPerc<-5 then
ColourRowInRed(iRowInOutTable)
else
ColourRowInYellow(iRowInOutTable)
end
iRowInOutTable = iRowInOutTable+1
end
end
totalProfit = totalPortfolio - totalInvest
totalPercent = 100*totalProfit/totalInvest
SetCell(t_id, iRowInOutTable, 1, "Итого")
SetCell(t_id, iRowInOutTable, 3, tostring( math_round(totalInvest, 0) ))
SetCell(t_id, iRowInOutTable, 4, tostring( math_round(totalPortfolio, 0)))
SetCell(t_id, iRowInOutTable, 5, tostring( math_round( totalProfit, 0)) )
SetCell(t_id, iRowInOutTable, 6, tostring(math_round(totalPercent, 1)) .."%")
if profitPerc >5 then -- окрашиваем
ColourRowInGreen(iRowInOutTable)
elseif profitPerc<-5 then
ColourRowInRed(iRowInOutTable)
else
ColourRowInYellow(iRowInOutTable)
end
iRowInOutTable = iRowInOutTable+1
sleep(5000) -- пауза 5 сек.
end
--message("script table portfolio finished")
end
function ColourRowInRed(num_row)
SetColor(t_id, num_row, QTABLE_NO_INDEX, RGB(255,150,150), RGB(0,0,0), RGB(255,150,150), RGB(0,0,0))
end
function ColourRowInYellow(num_row)
SetColor(t_id, num_row, QTABLE_NO_INDEX, RGB(255,255,200), RGB(0,0,0), RGB(255,255,200), RGB(0,0,0))
end
function ColourRowInGreen(num_row)
SetColor(t_id, num_row, QTABLE_NO_INDEX, RGB(150,255,150), RGB(0,0,0), RGB(150,255,150), RGB(0,0,0))
end
function GetAskPrice(inp_Sec_Code )
local ask = tostring(getParamEx(class_code, inp_Sec_Code, "OFFER").param_value or 0)
return ask
end
-- Округляет число до указанной точности
function math_round (num, idp)
local mult = 10^(idp or 0)
return math.floor(num * mult + 0.5) / mult
end
-- удаление точки и нулей после нее
function RemoveZero(str)
while (string.sub(str,-1) == "0" and str ~= "0") do
str = string.sub(str,1,-2)
end
if (string.sub(str,-1) == ".") then
str = string.sub(str,1,-2)
end
return str
end
function OnStop()
DestroyTable(t_id)
IsRun = false
end

На прошлой неделе Алан Гринспен сказал, что рынок облигаций находится в состоянии пузыря, и мне это напомнило о замечаниях Гринспена в декабре 1996 года об «Иррациональном изобилии». На самом деле, оглядываясь назад, можно понять, что Гринспен не так уж и ошибался, когда предвидел кризис. Но он молчал долгое время и тут объявился спустя столько лет, и сразу начал армагидонить фондовый рынок. И я решил его проверить, откуда такая уверенность, которая была в прошлом и сейчас.

На слайде выше показанный количество месяцев от рецессии к рецессии, которые заканчивались лопнувшим пузырем. На данный момент прошло 97 месяцев (зеленый), а рекорд 120 месяцев с марта 91 года до марта 2001 года. Но если пару лет не активности может быть не проблемой для Гринспена когда он ожидал Речессию в 1996 и обьявив о ней в 2017, то как по мне, то это разрушит карьеру любого финансового менеджера если он начнет действовать как в фильме игра на понижение, и продавать за 2 -3 года до рецессии. И, опять же, я думаю, что Гриспен опять ошибается на несколько лет, а сумасшедшие два года еще впереди.
В последнее время было сделано немало, для того чтобы коэффициент CAPE взлетел до уровней, не наблюдавшихся с момента появления пузыря доткомов.

CAPE также известен как коэффициент Шиллера P/E, названный в честь профессора Йельского университета и лауреата Нобелевской премии Роберта Шиллера, который его создал. Он показывает соотношение между ценой акции и прибылью компании. И хотя этот показатель часто встречает критику со стороны ряда экспертов, он по-прежнему считается стандартным показателем рыночной оценки.
CAPE имеет ряд особенностей, которые отличают его от коэффициента «цена к прибыли», используемого на Уолл-стрит.
Во-первых, он использует скользящий десятилетний период прибыли. Это сглаживает колебания, основанные на временных психологических, геополитических и сырьевых факторах.
Вторая особенность заключается в том, что здесь проводится только анализ прошлого. Это исключает радужные сценарии при построении прогнозов доходов, которым так благоволят на Уолл-стрит.
