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


Для её создания необходимо:
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

Всем привет.

Анализ РФ рынка на 2017 год. Инвестиции с горизонтом от года.

индекс ММВБ

индекс РТС

Газпром

Сбербанк и многое другое

Поддержите ролик ++++++++++++++++ всем кто поставил, от души друзья.

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

Обещание начислений в виде постоянных %% от средств, затраченных на покупку контрактов — основной признак имитации сервиса облачного майнинга. Размер выплат в реальном (и облачном в том числе) майнинге непостоянен и плохо прогнозируется. Поэтому этот признак важнее суммы всех остальных признаков.


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

Вчера я написал, что прикупил на HashFlare контрактов на майнинг Ethereum.
О разгоне мощностей на сервисе облачного майнинга HashFlare. Вложение в добычу Ethereum.
Меня спросили: какой размер выплат я буду получать ?
Вчера я не мог ответить на этот вопрос — ибо выплаты начинаются только со следующего дня после покупки.
А сегодня уже могу.
Мне выплатили эфирами в долларовом эквиваленте — примерно 9.23 баксов, при цене ЕТН=380 долларов.
А за контракты я заплатил 825 баксов.
Актуальная доходность 408% годовых.


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

Сегодня я опять купил мощности на облачном майнинге HashFlare.
Цель покупки — проверить, быстро ли выводятся биткоины с биржи YObit, и проверить, как работает фиатно-биткоиновый кошелек Cryptopay.
Раньше я оплачивал покупку мощностей с кошелька Payeer, и я доволен удобством и скоростью этотого способа оплаты.
Но пока на Payeer у меня денег не очень много, а на бирже YObit скопилось битков почти в 2 раза больше, чем на других моих биржах.
Дабы устранить этот перекос, я опять решил перебросить битки с YObit на Cryptopay, чтобы совершить покупку новых мощностей.
В этот раз я решил купить годовые контракты на добычу Ethereum.


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

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

Привет!

Кто не в курсе, можно майнить (добывать) криптовалюты на ru.minergate.com и никаких вложений! Да, там если биткойн и эфир майнить, то надо заплатить. Остальные Bytecoin, Dashcoin, Ethereum Classic, Litecoin, Monero и другие добываются без вложений.
Так выглядит личный кабинет.


Все очень просто! Скачиваете программу и она автоматически у вас начинает майнить! Можно в ручную выбирать какие криптовалюты добывать. Например, при достижений 20ти намайненых байткоинов, они перечисливаются в баланс откуда можно уже вывести. Но чтобы вывести байткойны надо как минимум намайнить 100 BCN. Есть возможность майнить параллельно другую криптовалюту, если указать в выпадающем меню MERGED MINING при этом на скорость майнинга основной валюты не влияет. Рекомендую ставить PPLNS, по моим наблюдениям дает больше вознаграждений, т.е. этих самых намайненых криптовалют.


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

самый простой путь купить криптовалюту с минимальными комиссиями чтобы обладать ей.

шагаете в в эту ветку https://bitcointalk.org/index.php?board=237.0

выбираете менялу-арбитражника по душе, покупаете USD-код у него, вводите код на btc-e (вкладка финансы кнопка redeem)

покупаете что хотите, если нет того чего вы хотите, покупаете биткоин и переводите его на poloniex, где покупаете то, что хотите

если цель длительное хранение

идёте на официальный сайт криптовалюты, скачиваете официальный кошелёк (по вкусу, я ортодокс, юзаю bitcoin-core), переводите свою криптовалюту на свой кошелёк

Копируете приватные ключи на бумагу, копируете файл wallet.dat на флешку, флешку закапываете на заднем дворе.

Теперь вы тру холдер крипты и тру анонимус


если цель торговать, в обязательном порядке 

завести новую чистую нигде не запаленную почту, установить на неё двухфакторную авторизацию, к ней привязать аккаунт биржи, на аккаунт самой биржи установить двухфакторную авторизацию(я под это дело купил второй смартфон, двухфакторка может сбиться когда пересекаешь часовые пояса)

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

Данная статья будет посвещена торговле от уровней внутри дня на рынке Forts, для новичков она послужит экономией время.Рассмотрю дни недели и то как необходимо оценивать подход к торговле отталкиваясь от календаря.

ПОНЕДЕЛЬНИК-есть несколько моментов характеризующих этот день, особенностью служит если день недели приходится на начало месяца, тогда стоит 
смотреть на то, что недельные свечи будут формировать тени и уровни переписываются в этот день.О торговли по тренду повторяться не буду.
Да, именно в этот день переписываются уровни, лои и хаи прошлой недели, от них скоро на неделе вы будете строить новые уровни на часовике, поэтому они не будут давать гарантии на хороший трейд.Обычно трейдеры высматривают что происходит на рынке в понедельник  и очень редко совершают сделки.График должени иметь в эти дни только сильные уровни, зеркальные и дневные.От минусовых сделок в этот день страдает статистика, если работать полным лимитом дня и закрыть день в минус, то вторник вы потратите на отыгрыш и в лучшем случае в среду приступите к работе или с маленьким минусом или в нуле.Лучшим вариантом служит гарантированно забрать 2 к 1му или 2 к 1му  крыть 70% объема и перенос в б.у.Совершая сделки в этот день, помнить, что данные трейды могут завалить ваши пол недели на выход из минуса.40% от дневного лимита для торгов в этот день приемлимый объем, увеличивать только если уровень достаточно сильный о чем писал выше.Если какой то эмитент не давал точку входа в четверг и пятницу, чаще обращайте на него внимание.

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