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

по

Средняя зарплата в России

    • 23 августа 2017, 20:48
    • |
    • Albus
  • Еще
Программа Экономика на телеканале Крым-24. 
Средняя зарплата в России
Недавно Росстат сообщил свежие данные о среднем уровне заработной платы в России. По состоянию на июль она составила 39 355 рублей. За год выросла на 7,5% и при этом обогнала инфляцию на 3%.
Средняя зарплата в России

( Читать дальше )

Таблица "Портфель" в QUIKе


    Представляю таблицу для портфельных инвестиций. В квике до сих пор такого нет. Цвет строки меняется если Прибыль%<>5%. Обновление каждые 5 сек.
Таблица "Портфель" в QUIKе

Для её создания необходимо:
1. Создать файл «tablePortfolio.txt» в папке «C:\QUIK\Scripts». Если папки нет, создать её.
2. Скопировать туда код скрипта
3. Сохранить, выбрав кодировку «ANSI», иначе вместо русских букв могут быть кракозябры.
4. Сменить расширение файла с ".txt" на ".lua"
5. Запустить скрипт командой Сервисы->Lua  скрипты->Добавить (выбрать файл tablePortfolio.lua) ->Запустить

Код скрипта:
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
  • обсудить на форуме:
  • QUIK

к/п Оставлю тут, будет время почитайте.

    • 23 августа 2017, 13:49
    • |
    • Gleb
  • Еще
Шесть мифов о блокчейне и Биткойне, или Почему это не такая уж эффективная технологияАвтор статьи — Алексей Маланов, эксперт отдела развития антивирусных технологий «Лаборатории Касперского»

Неоднократно слышал мнение о том, что блокчейн — это очень круто, это прорыв, за ним будущее. Спешу вас разочаровать, если вы вдруг поверили в это.

Уточнение: в этом посте мы поговорим о том варианте реализации технологии блокчейн, который используется в криптовалюте Биткойн. Существуют другие применения и реализации блокчейна, в некоторых из них устранены какие-либо недостатки «блокчейна классического», но обычно они построены на одинаковых принципах.


( Читать дальше )

Бензин вас оставит без штанов

В прошлой статье захотел донести читателю несколько полезных фактов и существующих истин на бензиновом рынке.

Приводил график в котором показано как в идеале должна меняться цена на бензин от стоимости нефти, как в США. Вот он:

                                   Бензин вас оставит без штанов


Однозначно можно утверждать, что США опережает нас в этом. Очень красиво, стабильно, показывает высокий уровень управления.

По результату публикации  https://smart-lab.ru/blog/415746.php, пришел к выводу, что это актуальная проблема для людей. Порядка 5000 просмотров, и 57 комментариев. Это личные рекорды для моих статей.

При помощи читателей пришел к выводу, что акцизы это проблема над бензиновыми ценами. Однако после самостоятельного поиска понял, что это всего 7 с половиной рублей от стоимости бензина. Ниже рисунок структура образования цены на бензин в России:

                                         

( Читать дальше )

Биткоины, моя правдивая история.

    • 20 августа 2017, 23:09
    • |
    • COREz
  • Еще
This Is a True Story...

В далёком уже 2011 году отмечал с друзьями свой день рождения. Компания у нас довольно разношёрстная, но все так или иначе связаны с IT индустрией. Был на этом мероприятии и мой хороший университетский друг Итан. Он всегда находился на передовой технологических революций, интересовался буквально всем и естественно на то время он многое уже знал про Биткоины. Мне эта тема была не интересна, занимался другими задачами поважнее.

Вечеринка подошла к моменту вручения подарков имениннику. Все «отстрелялись», подарки были скажем так IT-шными и предсказуемыми. Ботаны, чего с них взять. :) И вот подошло время Итана. Он был последним и похоже специально ждал своего часа, чтобы удивить публику. Повисла такая многозначительная «мхатовская» пауза. Итан достал из пакета коробочку весьма дорогую на вид. Народ притих в предвкушении. Он вручил мне подарок со словами «держи, это настоящее сокровище, а ни какие-нибудь там электронные безделушки». Я открываю коробочку и вижу там красивые монетки, но очень странные с буквой «B» в виде значка доллара и с разными номиналами. Всего таких монеток было в сумме на 100 Биткоинов. Итан провёл с нами так сказать «ликбез» по теме криптовалют, но все были уже нетрезвые, посмеялись и забыли.

Прошли годы… :)


( Читать дальше )

Shake Shack лучшие бургеры в мире!

Добрый вечер, трейдуны и трейдунята!

На первый взгляд вам может показаться что пост не по теме трейдинга, а вот и ошибаетесь! Читайте далее.

Рад что тема ин.брокеров и денежных переводов становится все более актуальнее на смартлабе. Молодцы, что не зацикливайтесь на одном рынке. Половину воскресного дня у меня ушло на ответы на ваши комментарии. Это радует. Далее немного прогулялся по Москве, погода сегодня супер!

Пообщавшись с вами, решил заехать к одному малоизвестному, но очень перспективному парню. Уж очень меня тронула его биография.
https://ru.wikipedia.org/wiki/Медков,_Илья_Алексеевич 

Shake Shack лучшие бургеры в мире!
Shake Shack лучшие бургеры в мире!

( Читать дальше )

Цены на газ, бензин, электричество по странам. Сколько можно купить на зарплату.

Начнем с газа.
Цены на газ, бензин, электричество по странам. Сколько можно купить на зарплату.
На сколь­ко хватит зар­пла­ты.
Ли­де­р Ка­зах­стан, житель ко­то­ро­го может при­об­ре­сти в месяц 7,4 тыс. ку­бо­мет­ров газа. Прак­ти­че­ски такое же ко­ли­че­ство газа может при­об­ре­сти по­тре­би­тель в Люк­сем­бур­ге. За­мы­ка­ет тройку Ве­ли­ко­бри­та­ния с 6,1 тыс. ку­бо­мет­ров. Совсем незна­чи­тель­но Ве­ли­ко­бри­та­нии усту­па­ет Россия, рас­по­ло­жив­ша­я­ся на чет­вер­том месте. Жители нашего го­су­дар­ства на име­ю­щи­е­ся в их рас­по­ря­же­нии сред­не­ме­сяч­ные за­ра­бот­ные платы могут при­об­ре­сти по 6,0 тысяч ку­бо­мет­ров газа.
Наи­мень­ший объем при­род­но­го газа имеют воз­мож­ность при­об­ре­сти жители Мол­до­вы. На сред­ний за­ра­бо­ток здесь можно купить только 687,1 ку­бо­мет­ра, то есть почти в 11 раз меньше, чем в ли­ди­ру­ю­щем Ка­зах­стане. Меньше тысячи ку­бо­мет­ров газа могут себе поз­во­лить при­об­ре­сти также жители Укра­и­ны, где этот по­ка­за­тель со­став­ля­ет 795,7 ку­бо­мет­ров.  Аут­сай­де­ры Бол­га­рия, Сербия и Пор­ту­га­лия.

( Читать дальше )

Схема с дивидендами и ИИС.

Торговая система №77 Дивидендная инвестиционная стратегия. [ТС-077 ДИ]

Описание системы:  
 Данная стратегия работает в комплексе с ИИС (Индивидуальный инвестиционный счет). Суть стратегии сводится к тому что на денежные средства зарезервированные в ИИС покупаются акции определенной компании по которой будут в будущем выплачиваться дивиденды и после отсечки продаем эти самые акции и покупаем следующие по которым дивиденды будут выплачены позднее. Доходность данной стратегии формируется за счет налоговых вычетов на внесения денежных средств на ИИС и дивидендов по различным акциям которые будут покупаться под отсечки. Фишка в том что через дивиденды происходит как бы вывод средств с ИИС которые в ином случае можно будет вывести только закрыв данный тип счета и вернув в органы ФНС (Федеральная налоговая инспекция) полученные ранее налоговые вычеты. Основная сложность стратегии это заполнение налоговых деклараций формы 3-НДФЛ и взаимодействие с органами ФНС, но если использовать ЛК инспекции то все отлично, для получения информации о дивидендах используйте табличку смарт-лаба, она клевая сам пользуюсь.


Ювелир "по серебру"

    • 15 августа 2017, 20:30
    • |
    • And_rey
  • Еще
Всегда восхищался ювелирной работой на серебре… до пипса ходит… ни больше ни меньше ...

Ювелир "по серебру"


Шнуров и биткойны.

Биткойны уже пошли в стихи))))

Не встретить старость мне спокойно
Это судьба или стезя?
все ринулись скупать биткойны
и я немножко тоже взял.
продал квартиру, кошку, дачу,
машину и цепочку даже.
теперь надеясь на удачу
сижу и жду как карта ляжет.
а зубы заложил в ломбарде
и отписал посмертно печень.
мечтаю я о миллиарде
ну а пока жевать мне нечем
и нечего. одни биткойны.
попал я в общем в переплет.
как говорил мой друг, покойный -
кто не рискует. тот не пьет.
да, братцы, я не при параде,
но я же русский, я же свой.
подайте что ли Христа ради,
как жертве эры цифровой.
С. Шнуров

....все тэги
UPDONW
Новый дизайн