Избранное трейдера Turbo Pascal

по

Индикатор горизонтальных уровней

Индикатор ZIGZAGLEVELS горизонтальных уровней
Индикатор горизонтальных уровней
--[[
параметры: 
Procent - процент зигзага 
--]]
Settings={
Name="ZIGZAGLEVELS",
Procent=5.0,
levels=6,
delta=0.2,
    line=                                     
                {  
					{  
                        Name = "cur1",
                        Type =TYPE_LINE,
                        Width = 2,
                        Color = RGB(0,0, 255)
                    },				
					{  
                        Name = "cur2",
                        Type =TYPE_LINE,
                        Width = 2,
                        Color = RGB(0,0, 255)
                    },
					{  
                        Name = "cur3",
                        Type =TYPE_LINE,
                        Width = 2,
                        Color = RGB(0,0, 255)
                    },
					{  
                        Name = "cur4",
                        Type =TYPE_LINE,
                        Width = 2,
                        Color = RGB(0,0, 255)
                    },				
					{  
                        Name = "cur5",
                        Type =TYPE_LINE,
                        Width = 2,
                        Color = RGB(0,0, 255)
                    },
					{  
                        Name = "cur6",
                        Type =TYPE_LINE,
                        Width = 2,
                        Color = RGB(0,0, 255)
                    }					
                }
}

function Init()
  
  y1 = nil
  y2 = nil
  x1 = 1
  x2 = 1
  levelsy={}
  levelsx={}  
  cntlevels=0
      	
  return 6
  
end

function OnCalculate(index)

  de = Settings.Procent
  levels = Settings.levels
  delta = Settings.delta
  sz = Size()

  vl = C(index)
  if index <= 1 then 
	y1 = vl
    y2 = vl
	cntlevels=0
  else   
	  if C(index) > y1*(1+de/100) and y1 < y2 then 
	    x2 = x1
	    y2 = y1	
	    x1 = index 
	    y1 = C(index)	        
        cntlevels = cntlevels + 1		
		levelsx[cntlevels]=x2
	    levelsy[cntlevels]=y2        
	  end 	
	  if C(index) > y1 and C(index) > y2 then 
	    x1 = index 
	    y1 = C(index)	  			  
	  end 
	  	  		
	  if C(index) < y1*(1-de/100) and y1 > y2 then 
	    x2 = x1
	    y2 = y1
	    x1 = index 
	    y1 = C(index)	  		
		cntlevels = cntlevels + 1
		levelsx[cntlevels]=x2
	    levelsy[cntlevels]=y2		
	  end 	
	  if C(index) < y1 and C(index) < y2 then 
	    x1 = index 
	    y1 = C(index)	  			  
	  end 	  	  		
	end 	
  
  if x1 ~= index then 
    curfrom = x1
	curto = index
  else 
    curfrom = x2
	curto = x1
  end 
  
  if sz == index then 
   cnt = levels
   for k = 1, cnt do  
	for i = 1, index  do        
	  SetValue(i, k, nil)
    end     
   end 
  
  -- cnt = 3
   k = 0
   for j = cntlevels, 1, -1 do
    d = 0
    if levelsy[j] > C(index) then 
      d = levelsy[j] - C(index)
	end 
    if levelsy[j] < C(index) then 
      d = C(index) - levelsy[j]
	end 	
	if d < delta*C(index) and d > 0 then 
	 k = k + 1
	 if k <= cnt then 	   
	   y = levelsy[j]   
	   for i = levelsx[j], index  do        	     
	     SetValue(i, k, y)
       end   
	 end
	end 
   end

  --[[
   k = 0
   for j = cntlevels, 1, -1 do
    d = 0
    if levelsy[j] < C(index) then 
      d = C(index) - levelsy[j]
	end 	
	if d < 0.2*C(index) and d > 0 then 	 
	 if k <= cnt then 
	   k = k + 1
	   y = levelsy[j]   
	   for i = levelsx[j], index  do        	     
	     SetValue(i, k+3, y)
       end   
	 end
	end 
   end
   --]]
   
  end   

 
  
end

телеграм: t.me/autotradering

Как решить проблему с заполнением декларации у иностранных брокеров

Напомню, что налоговая нашла счета у меня на Кипре и прислала претензию: объясните мол, почему не уплатили налоги. 
Налоговая сказала: пересчитать все в рубли и заполнить декларацию.
Я посмотрел отчеты по сделкам и ахнул — там сотни страниц сделок за каждый год, как это все расчехлять и представлять в налоговую — не ясно.
Сказать что я приуныл — значит ничего не сказать.

К счастью, проблема решилась гораздо гораздо проще. Из недр смартлаба явился святой человек — Виктор Бавин, который сказал, что их бухгалтеры сотнями такие налоговые отчеты заполняют и предложил помощь. 
Как решить проблему с заполнением декларации у иностранных брокеров
В итоге: отчеты за 3 года мне сделали за 1 день, сами их за меня отправили в налоговую в виде деклараций и приложений.
Налоговая все приняла и выставила мне в кабинете счета, которые я оплатил.
Потом правда еще пришлось оплатить штрафы за то, что своевременно не подал декларации.

В общем, если вам надо ВОВРЕМЯ сделать декларашку по Interactive Brokers или Exante или какому другому иностранному брокеру, пишите ему bavin.vict@yandex.ru

Цены такие:

до 100 сделок $50
От 100 до 1000 это $100
Свыше 1000 сделок $200


Усреднение или пирамидинг? Какая стратегия прибыльнее? Robot-Scalper.ru

Практичный и пытливый ум первым делом задаст себе вопрос, какую же стратегию выгоднее всего торговать? Иначе можно потратить много времени и получить очень слабый результат. Поэтому лучше сначала хорошо исследовать вопрос, чтобы потом получить максимум.

Пирамидинг и усреднение. Торговые стратегии. Грааль!

Что выгоднее торговать, усреднение или пирамидинг?

Пирамидинг, это увеличение объемов текущей позиции по мере того как цена движется в нашу сторону. То есть, если мы торгуем от лонга и цена растет, то по мере роста цены мы будем ещё докупать актив. В конце трендового движения мы зафиксируем прибыль. Каким образом будем определять окончание растущего тренда пока что вопрос остается открытым. Самое простое, что приходит на ум, это следящий тейк (трейл).
На растущем рынке эта стратегия должна показывать прекрасную доходность, при минимальных рисках.

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

Глобальный инвестор: покрыть весь мир. Начало (#1)

Какой Кхал аналитик не мечтает покрыть весь мир…

Глобальный инвестор: покрыть весь мир. Начало (#1)

У меня регулярно спрашивают, инвестирую ли я в иностранные акции, и если нет, то почему? Обычно отвечаю, что у меня нет компетенций по ним (возможно, сейчас их стало побольше, я анализировал уже иностранные акции) либо просто не интересно.

Зачем мне казахстанские или бразильские акции, если есть российский рынок!? Где всё-таки более понятно. Хотя я уже несколько раз смотрел на акции стран бывшего СССР ранее, (например, обзор в 2013 году по всем рынкам бывшего СССР в FOстр.16). Еще Грузия, Казахстан, Украина и т.д. Стоит всё обновить.

А если говорить про развитые рынки, то после наших компаний там казалось всё дорого. Хотя зачастую, дорогое становится только дороже! 



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

Как вы получаете права собственности на американские акции, которые вы покупаете на СПб Бирже

Сегодня на смартлабе некто @Andrey_B из Калининграда написал пост, в котором предположил, что «СПб биржа по своей сути — кухонька». 
Я не буду комментировать тезисы Андрея, Андрей вроде что-то понимает, но не до конца. Постараюсь объяснить как устроено на самом деле.

Для справки, "Кухнями" у нас испокон веков называли форекс-конторы, которые становились второй стороной по сделке с клиентом-трейдером, при этом ордер клиента не попадал на настоящий рынок. В кухне, например, по определению не может быть очереди заявок и "биржевого стакана", так как с обеих сторон заявки на покупку и продажу тебе даёт «кухня». Если трейдер сливает, что его убыток клиента — прибыль «кухни». Отсюда конфликт интересов — «кухня» де-факто заинтересована в сливе депозита.

Теперь про СПб Биржу.

Во-первых, сама СПб биржа является организатором торгов и сама НИКОГДА не покупает и не продает акции на свой счет, не является второй стороной по сделке с инвесторами и трейдерами. Это факт и это 100% отличие от тех дилеров, которые котируют например CFD, и являются кухнями.

Во-вторых, когда вы покупаете акции на СПб бирже, вы действительно становитесь акционером американской компании (в отличие от ситуации покупки CFD через кухню). Как учитываются права на американские акции?

Эмитент -> Депозитарий (В США самым большим депозитарием является DTC).
В DTC открыт счет-депо у Bank of New York.
В Bank of New York открыт счет-депо у Бест Эффортс Банк, который является дочкой СПб Биржи.
В Бест Эффортс Банк открыты счета депозитариев ваших брокеров.
В депозитариях ваших брокеров открыт ваш личный счет-депо.
Как вы получаете права собственности на американские акции, которые вы покупаете на СПб Бирже
Если бы СПб была кухней, то как бы вы, извините, могли получить дивиденды на свои акции?😁 А ведь все дивиденды исправно платятся.

В-третьих, утверждение "Биржа спб — это обычный БОЛЬШОЙ чей-то клиент, который дает вам торговать внутри себя всем своим портфелем из 1600 акций" — неверное. Это так же неверно, как если бы вы сказали:

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

Импортируем данные с Finviz.com в Google таблицы

Всем известно, что перед тем как купить те или иные акции, нужно сделать анализ в виде «домашней работы»(это касается среднесрочных и долгосрочных инвесторов). Лично мне в этом нелегком деле помогают скринеры. Как правило finviz.com, stockrow.com и на финишной стадии — платный сервис finbox.com.

Сайты finviz.com и stockrow.com предусматривают платные и бесплатные сервисы. В бесплатном использовании эти сайты хоть и дают некий набор фильтров, но глядя на эти цифры в табличках, складывается такое чувство, что «Смотреть можно, а трогать нельзя». А поскольку это касается моих денег и денег людей, которые мне доверяют, принимать торговое решение, не пощупав эти цифры самому, считаю большой ошибкой в анализе.

Раньше я был верен только Excel, но с недавних пор стал понимать, что хорошей альтернативой являются Google таблицы. Вообще все сервисы Google отлично работают с веб-данными.

В этом посте я расскажу, как можно импортировать данные с сайта finviz.com в Google таблицы.



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

Индикатор пробоя. В Quik'е можно всё (почти). Исправление

Исправлена печать повторных пробоев одного того же экстремума.
По просьбам играющих smart-lab.ru/vopros/703796.php
В Quik'е нельзя только предсказывать будущее.
Индикатор Breakout рисует на графике котировок точки пробоя для экстремумов заданного числа Num баров. Для последнего интервала Num баров показывает уровни экстремумов.
Значение Num и признак Print печати сообщений на пробои можно поменять через параметры индикатора.

Чтобы в Quik'е использовать этот индикатор, поместите нижеследующий код в текстовый файл Breakout.lua, а сам этот файл в подкаталог LuaIndicators в том каталоге Quik'а, где лежит файл info.exe.
Чтобы метки пробоев были виднее, индикатор следует поместить после графика котировок. Эти метки позволят на глазок определить прибыльность пробойной стратегии.

-- Ростислав Дмитриевич Кудряшов, СПб, 2021
-- Индикатор Breakout для Quik: min и max Num баров
Settings = {
  Name  = "_Breakout"
 ,line = {
    {Name = "Min"
    ,Color = RGB (255,0,0)
    ,Type = TYPE_LINE
    ,Width = 1}
   ,{Name = "Max"
    ,Color = RGB (0,255,0)
    ,Type = TYPE_LINE
    ,Width = 1}
   ,{Name = "Lwr"
    ,Color = RGB (255,255,0) -- Жёлтый
    ,Type = TYPE_TRIANGLE_DOWN
    ,Width = 1}
   ,{Name = "Upr"
    ,Color = RGB (0,128,255) -- Тёмно-Голубой
    ,Type = TYPE_TRIANGLE_UP
    ,Width = 1}
  }
 ,Num = 10
 ,Print = 1 -- или 0
}
Scan = 0 -- При загрузке Quik сканирует 1 раз

function Init()
  return #Settings.line
end

function OnChangeSettings()
  Scan = 0
end

function OnCalculate (index)
  local n, mn, mx, ini, fin, upr, lwr, printFlag
  n = Settings.Num
  if n < 1 or index <= n then
    if index == 1 then
      Scan = Scan + 1
      SetRangeValue (3, 1, Size(), nil)
      SetRangeValue (4, 1, Size(), nil)
    end
    return nil
  end
  mn = math.huge
  mx = -math.huge
  ini = index - n
  fin = index - 1
  for i = ini, fin do
    mn = math.min (mn, L(i) or mn)
    mx = math.max (mx, H(i) or mx)
  end
  printFlag = Settings.Print > 0 and index == Size() and Scan > 1
  lwr = GetValue (index, 3)
  upr = GetValue (index, 4)
  if not lwr and L(index) and L(index) < mn then
    if printFlag then
      message (Settings.Name ..": Dn ".. mn)
    end
    lwr = mn
  end
  if not upr and H(index) and H(index) > mx then
    if printFlag then
      message (Settings.Name ..": Up ".. mx)
    end
    upr = mx
  end
  if index == Size() then
    SetValue (ini-1, 1, nil)
    SetValue (ini-1, 2, nil)
    SetRangeValue (1, ini, fin, mn)
    SetRangeValue (2, ini, fin, mx)
  else
    mn, mx = nil
  end
  return mn, mx, lwr, upr
end -- OnCalculate()

Как мы привлекли 96,4 млн ₽ частных инвестиций за 9 месяцев. Реальный опыт создания инвестиционной компании в пандемию 2020

Как мы привлекли 96,4 млн ₽ частных инвестиций за 9 месяцев. Реальный опыт создания инвестиционной компании в пандемию 2020


На связи Максим из Серяков | Инвестиции, сегодня делимся нашим опытом создания инвестиционной компании с нуля и рассказываем как мы привлекли 96,4 млн ₽ частных инвестиций в 8 бизнесов за 9 месяцев без регистрации и смс)


Материал будет полезен:

  • Частным инвесторам в малый и средний бизнес, которые хотят научиться анализировать и проверять компании до заключения сделки

  • Предпринимателям, которые находятся в поиске инвестиций для развития своего дела.


Предыстория. Как все начиналось?

Первый инвестиции в малый бизнес я привлек еще в 2016 году, и о своем опыте привлечения 33,5 млн ₽ от 19 частных инвесторов подробно рассказывал в статье. Дальше — о создании инвестиционной компании.



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

Закрытие ИИС с переводом цб

Закрытие ИИС с переводом цб в Сбере (СПб), (учитывая  только рабочие дни)

  1. День1. позвонил 8 800 555 50 09, записался в брокерское обслуживание на закрытие ИИС на День5
  2. День5 утром пришел на ул. Красного Текстильщика д.2,
    1. спустился сотрудник и дал подписать заявление на закрытие Иис (называется Заявление Инвестора – физического лица и там галочкой отмечено «Отказываюсь .....»)
    2. сказали ждать email о закрытии ИИС, потом идти в депозитарий переводить цб на торговый счет (чтобы цб появились на обычном брокерском счете), и взять  у них еще «пачку бумаг»
  3. День5 вечером цб перестали отображаться на ИИС, дс есть
  4. День6 пришел стандартный отчет брокера, в нем операции о переводе ЦБ
  5. День6 днем дс на ИИС уже не было, на банковском счету пока нет
  6. День6 вечером пришли деньги с ИИС на счет (за вычетом налога)
  7. День7 днем пришел стандартный отчет от брокера о списании дс
  8. День8 утром исчез ИИС в лк
  9. День9 пришел стандартный отчет брокера – там все по нулям и приписка, что счет был закрыт в День7
  10. День10 утром пришел в депозитарий на Невском д.109-111 каб.251 (работют с 9:30 с обедом)
    1. Если менялись паспортные данные, то нужно в отделе Премьер (на том же этаже, работают с 10:00) их перезанести в анкету инвестора ~30мин, потом илем  обратно в депозитарий
    2. Ставим подпись в журнкле о подтверждении выдачи счета на оплату за услуги по счету депо — 5665 руб за 11 эмитентов (какбы 515 за эмитента, но там три позиции  для оплаты), оплатить можно сразу через QR-code
    3. Подписываем поручения о переводе цб на каждого эмитента отдельно (лучше при себе иметь отчет брокера, чтобы проверить кол-во эмитентов и кол-во цб)


( Читать дальше )
  • обсудить на форуме:
  • ИИС

Где жить на "ранней пенсии"? Составляем рейтинг городов/стран. Часть первая: собираю мнения

Очень тоскливо смотреть на то, как фондовые рынки растут, а мировая экономика восстанавливается от удара. Самое время для того чтобы поговорить на отвлечённую тему!

Это первая часть, вторая уже на подходе! Во второй части я раскрою свой личный скоринг (критерии и систему оценок) и попытаюсь присвоить очки, чтобы получился хоть и субъективный, зато свой рейтинг мест для жизни.

Я родился в саратовской глубинке, успел пожить в Саратове, Сочи и ещё в паре городов России, а с 2015 года живу в Санкт-Петербурге. И честно признаюсь, мне не очень нравится жить здесь из-за погоды и катастрофической нехватки солнечных дней. Я знаю много людей, для которых такая погода наоборот за радость — все мы разные.

Я уверен, вы в курсе моих планов: уже через 10 лет я планирую оставить работе в своей жизни гораздо меньше места, так как по моим расчётам моих сбережений будет достаточно чтобы покрыть все нужды нашей семьи до глубочайшей старости. И выглядит логичным при достижении этой цели уехать из северных широт туда, где нам было бы удобно жить.



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

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