Gelium Puls.

Дистрибутив.

• Мелкие улучшения в работе интерфейса главного окна Puls.
• Оптимизирована работа функции GetTick.

• В стандартную версию Puls.DLL (32 bit) добавлена функция GetTick для тестирования торговых стратегий по точным ценам на базе тиков. Работу с тиками поддерживает стратегия Gelium_Trader.

• Добавлено сохранение ширины столбцов в списках с данными.
• Добавлен флажок для включения/отключения скрытия окна комментариев эксперта TradeStation.
• Добавлена функция вызова окна ввода значения с именем InputM для совместимости с MultiCharts. Функция полностью идентична функции Input:
  

  "DefineDLLfunc:"puls.dll",BOOL, "INPUTM",LPSTR, LPFloat;"

• Окно со списком команд автоматически позиционируется относительно указателя мыши в момент вызова. Ширину окна можно менять по своему желанию.
• Добавлена функция SeriesGet15 для получения 15 значений по третьему индексу одного элемента серии.
• Добавлена функция SeriesGetList для получения всех значений по третьему индексу одного элемента серии.
• Убрано ограничение на сохранение и отображение только 4 десятичных знаков для элементов серии, хранящейся в фале.

Описание библиотеки.

• С расширением возможностей языка EasyLanguage, поддерживаемого TradeStation 9.1, необходимость в Puls частично отпала. Работу с файлами обеспечивает класс из библиотеки elsystem.io, глобальную коллекцию данных можно организовать с помощью GlobalDictionary, создание пользовательских форм любой сложности обеспечивают классы из библиотеки winforms. Если вы планируете делать собственные разработки на базе TradeStation 9.1, дополнительная библиотека может не понадобится.


• С MultiCharts можно использовать Puls, но после выгрузки библиотеки из памяти MultiCharts 8.x зависает. Причина и методы ее решения пока не известны. Поэтому для более-менее нормально работы в MultiCharts должно быть открыто несколько окон с индикаторами/стратегиями, использующими Puls. Чтобы во время работы MultiCharts не выгружал библиотеку из памяти и не зависал из-за этого.

Список объявлений функций.

DefineDLLfunc:"puls.dll",	BOOL,	"SERIESSAVE",    LPSTR, BOOL;
DefineDLLfunc:"puls.dll",	BOOL,	"SERIESSET",	 LPSTR, INT, INT, Float;
DefineDLLfunc:"puls.dll",	BOOL,	"SERIESSETSTR",  LPSTR, INT, INT, LPSTR;
DefineDLLfunc:"puls.dll",	BOOL,	"SERIESGETDTV",	 LPSTR, INT, INT, BOOL, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat;
DefineDLLfunc:"puls.dll",	BOOL,	"SERIESGET",	 LPSTR, INT, INT, BOOL, LPFloat;
DefineDLLfunc:"puls.dll",	BOOL,	"SERIESGET15",	 LPSTR, INT, INT, BOOL, INT, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat;
DefineDLLfunc:"puls.dll",	LPSTR,	"SERIESGETLIST", LPSTR, INT, INT, BOOL;
DefineDLLfunc:"puls.dll",	LPSTR,	"SERIESGETSTR",  LPSTR, INT, INT, BOOL;
DefineDLLfunc:"puls.dll",	BOOL,	"SERIESDELETE",  LPSTR;
DefineDLLfunc:"puls.dll",	BOOL,	"SERIESCLEAR",   LPSTR;
DefineDLLfunc:"puls.dll",	BOOL,	"SERIESREMOVE",  LPSTR, INT, INT;
DefineDLLfunc:"puls.dll",	BOOL,	"FILEOPENFORWRITE", 	LPSTR;
DefineDLLfunc:"puls.dll",	BOOL,	"FILEOPENFORREAD",  	LPSTR;
DefineDLLfunc:"puls.dll",	LPSTR, 	"FILEREAD",		LPSTR;
DefineDLLfunc:"puls.dll",	BOOL,	"FILEWRITE", 		LPSTR, LPSTR;
DefineDLLfunc:"puls.dll",	BOOL,	"FILECLOSE", 		LPSTR;
DefineDLLfunc:"puls.dll",	BOOL,	"SHOWLISTW",	 LPSTR, LPSTR, LPSTR;
DefineDLLfunc:"puls.dll",	LPSTR,	"SHOWLIST",	 LPSTR, LPSTR;
DefineDLLfunc:"puls.dll",	INT,	"SHOWDIALOG",	 LPSTR, LPSTR;
DefineDLLfunc:"puls.dll",	BOOL,	"INPUT",	 LPSTR, LPFloat;
DefineDLLfunc:"puls.dll",	BOOL,	"INPUTM",	 LPSTR, LPFloat;
DefineDLLfunc:"puls.dll",	BOOL,	"LOG", LPSTR;
DefineDLLfunc:"puls.dll",	BOOL,	"LOGCLEAR";
DefineDLLfunc:"puls.dll",	BOOL,	"HIDECOMMENT";
DefineDLLfunc:"pulshc.dll",	LPSTR,	"GETKEYSTATE";

Функции для работы с сериями данных.

b = gp_SeriesSet("MySeries", Date, Time, Value1);
b = gp_SeriesSet("MySeries+1", Date, Time, Value2);

b = gp_SeriesSave("MySeries", true);

b = gp_SeriesClear("MySeries");

b = gp_SeriesSet("MySeries", Date, Time, Value1);
b = gp_SeriesSet("MySeries+1", Date, Time, Value2);

b = gp_SeriesSetStr("MySeries+1", Date, Time, "Value2 =" + NumToStr(Value2, 4));

b = gp_SeriesGet("MySeries", 1, 1, false, MyValue); 

b = gp_SeriesGet("MySeries", 3, 3, false, MyValue); 

b = gp_SeriesGet("MySeries", 3, 3, true, MyValue); 

if gp_SeriesGetDTV(SeriesName, GetIndex1, GetIndex2, true, ResultIndex1, ResultIndex2, 
   MyValue, NextIndex1, NextIndex2) then

• Название серии данных - SeriesName.


• GetIndex1 - первый индекс требуемого элемента серии (как правило, дата).


• GetIndex2 - второй индекс требуемого элемента серии (как правило, время).


• True / False - флаг допустимости использования элемента серии с меньшим индексом, если элемент серии с запрашиваемым индексом отсутствует.


• ResultIndex1 - переменная, в которую необходимо вернуть значение первого индекса найденного элемента серии.


• ResultIndex2 - переменная, в которую необходимо вернуть значение второго индекса найденного элемента серии.


• MyValue - переменная, в которую будет возвращено числовое значение найденного элемента серии.


• NextIndex1 - переменная, в которую будет возвращено значение первого индекса следующего элемента серии, если следующий элемент есть в наличии. Если следующий элемент отсутствует, будет возвращено значение -1.


• NextIndex2 - переменная, в которую будет возвращено значение второго индекса следующего элемента серии, если следующий элемент есть в наличии. Если следующий элемент отсутствует, будет возвращено значение -1.

b =gp_SeriesGetDTV("MySeries", 1, 1, false, Index1, Index2, MyValue, NextIndex1, NextIndex2);

b =gp_SeriesGetDTV("MySeries", 3, 3, false, Index1, Index2, MyValue, NextIndex1, NextIndex2);

b =gp_SeriesGetDTV("MySeries", 3, 3, true, Index1, Index2, MyValue, NextIndex1, NextIndex2);

Txt = gp_SeriesGetStr("MySeries", 1, 1, false);

Txt = gp_SeriesGetStr("MySeries+1", 1, 1, false);

b = gp_SeriesRemove("MySeries", Date, Time);

DefineDLLfunc:"puls.dll", BOOL, "SERIESGET15", LPSTR, INT, INT, BOOL, INT, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat, LPFloat;

If SeriesGet15(wp_SeriesName, date, time, true, 3, 
	&bs1_Price, &bs2_Date, &bs2_Time, &bs2_Price, &bf1_Date, &bf1_Time, &bf1_Price,	
	&Value1, &Value1, &Value1, 
	&b_ModelStatus, &Value1, &Value1, &Value1, &Value1) then begin

DefineDLLfunc:"puls.dll",	LPSTR,	"SERIESGETLIST", LPSTR, INT, INT, BOOL;

txt = SeriesGetList(wp_SeriesName, date, time, true);

Функции для работы с файлами.

if gp_FileOpenForWrite("c:\PulsDemo1.txt") then begin
  b = gp_FileWrite("c:\PulsDemo1.txt", "Hello!");
  b = gp_FileClose("c:\PulsDemo1.txt");
end;

if gp_FileOpenForRead("c:\PulsDemo1.txt") then begin
  txt = "";
  While txt <> "#EOF#" begin
    txt = gp_FileRead("c:\PulsDemo1.txt");
    print("FileRead: ", txt);
  end;
  b = gp_FileClose("c:\PulsDemo1.txt")
end;

if gp_FileOpenForRead("c:\PulsDemo1.txt") then begin
  txt = "";
  While txt  "#EOF#" begin
    txt = gp_FileRead("c:\PulsDemo1.txt");
    print("FileRead: ", txt);
  end;
  b = gp_FileClose("c:\PulsDemo1.txt");
end;

if gp_FileOpen("c:\PulsDemo1.txt") then begin
  b = gp_FileWrite("c:\PulsDemo1.txt", NumToStr(Date, 0) + "," + 
      NumToStr(Time, 0) + "," + NumToStr(c, 4));
  b = gp_FileClose("c:\PulsDemo1.txt");
end;

if gp_FileOpen("c:\PulsDemo1.txt") then begin
  b = gp_FileWrite("c:\PulsDemo1.txt", NumToStr(Date, 0) + "," + 
      NumToStr(Time, 0) + "," + NumToStr(c, 4));
  b = gp_FileClose("c:\PulsDemo1.txt");
end;

Функции для работы с диалоговыми окнами.

if gp_ShowDialog("Хотите изменить значение переменной?", "Да,Нет") = 1 then begin
  {Запрашиваем значение переменной}
  if gp_Input("Введите значение переменной", p) then
    print("Input: ", p);
end;

print("List: ", gp_ShowList("Выберите необходимое действие:", "Buy=Купить | Sell=Продать |-| Exit=Закрыть позиции"));

Первый параметр функции - текст сообщения, который выводится в верхней части окна. Второй параметр функции - перечисление списка вариантов выбора. Вариант выбора состоит из имени и выводимого текста. Например, Buy=Купить означает, что вариант Buy в списке будет представлен текстом Купить.

Варианты разделяются символом |. Выбор варианта пользователь осуществляет нажатием клавиши Enter или двойным кликом по нужной строке. Закрытие окна или нажатие клавиши ESC эквивалентно отказу от выбора варианта.

if gp_ShowDialog("Хотите изменить значение переменной?", "Да,Нет") = 1 then begin
  {Запрашиваем значение переменной}
  if gp_Input("Введите значение переменной", p) then
    print("Input: ", p);
end;

Сервисные функции.

Vars: b(false);
b = gp_LogClear;

Vars: b(false);
b = gp_Log("Hello Puls!");

Функция GetTick.

DefineDLLfunc:"puls.dll", BOOL, "GETTICK", LPSTR, INT, INT, INT, LPInt, LPFloat, LPInt;

...

OrderSellBid = OrderSell;
OS_Bid = OrderSell;
OS_RID = 0;
If c >= OrderSell then
	Value1 = -1
Else
	Value1 = 1;
if GetTick(p_TickBaseFile, Value1, BarDTime1, BarDTime2, &OS_DTime, &OS_BID, &OS_RID) then
	OrderSellBid = OS_Bid;

// Объявление функции
DefineDLLfunc:"puls.dll", BOOL, "GETTICK", LPSTR, INT, INT, INT, LPInt, LPFloat, LPInt;

Vars:

...

// Тиковая оптимизация
wp_TickBase(false),
SeriesHL(""),
NextBarH(0), NextBarL(0),
BarDTime1(0), BarDTime2(0),

// OredrBuy
OB_Bid(0), OB_Rid(0), OB_DTime(0),

// OredrSell
OS_Bid(0), OS_Rid(0), OS_DTime(0),

// OredrSell Stop
SS_Bid(0), SS_Rid(0), SS_DTime(0),

// OredrBuy Stop
BS_Bid(0), BS_Rid(0), BS_DTime(0),

// OredrSell Limit
SL_Bid(0), SL_Rid(0), SL_DTime(0),

// OredrBuy Limit
BL_Bid(0), BL_Rid(0), BL_DTime(0),

If p_TickBase > 0 then begin 
	SeriesHL = "XHL_" + mSymbol() + "_" + NumToStr(barinterval, 0);
	SeriesSave(SeriesHL, true);
end;		

If p_TickBase > 0 then begin
	BarDTime1 = mDTime(Date, Time);
	BarDTime2 = mDTime(Date Next bar, Time Next bar);
	If Currentbar > 1 then
	if wp_TickBase[1] = false or 
		AbsValue(NextBarH - h) > 1 point or 
		AbsValue(NextBarL - L) > 1 points 
	then begin
		SeriesSet(SeriesHL, Date, Time, H);
		SeriesSet(SeriesHL + "+1", Date, Time, L);
	end;
	NextBarH = 0;
	NextBarL = 0;
	SeriesGet(SeriesHL, Date Next bar, Time Next Bar, false, &NextBarH);
	SeriesGet(SeriesHL + "+1", Date next bar, Time Next Bar, false, &NextBarL);
	wp_TickBase = (NextBarH > 0 and NextBarL > 0); 
end;

	If wp_TickBase then
	if OrderBuy <= NextBarH then
	if OrderBuy >= NextBarL then begin
		OB_Bid = OrderBuy;
		OB_RID = 0;
		If c >= OrderBuy then
			Value1 = -1
		Else				
			Value1 = 1;
				
		if GetTick(p_TickBaseFile, Value1, BarDTime1, BarDTime2, &OB_DTime, &OB_Bid, &OB_RID) then 
			OrderBuyBid = OB_Bid;
	end;				
	if OrderBuyBid < c then begin
		Buy ("b") PosSize contracts Next Bar OrderBuyBid limit;
	end else begin
		Buy ("b ") PosSize contracts Next Bar OrderBuyBid stop;

	If wp_TickBase then
	if PosBuyStop <= NextBarH then 
	if PosBuyStop >= NextBarL then begin
		BS_Bid = PosBuyStop;
		BS_RID = OB_RID;
		Value1 = -1;
		if GetTick(p_TickBaseFile, Value1, BarDTime1, BarDTime2, &BS_DTime, &BS_BID, &BS_RID) then 
			PosBuyStop = BS_Bid;
	end;				
	Sell ("Ls+ ") Next Bar PosBuyStop stop;

	If wp_TickBase then
	if PosBuyLimit <= NextBarH then 
	if PosBuyLimit >= NextBarL then begin
		BL_Bid = PosBuyLimit;
		BL_RID = OB_RID;
		Value1 = 1;
		if GetTick(p_TickBaseFile, Value1, BarDTime1, BarDTime2, &BL_DTime, &BL_BID, &BL_RID) then 
			PosBuyLimit = BL_Bid;
	end;				
	Sell ("Li+") Next Bar PosBuyLimit limit;

Вопросы и ответы.

• Когда выполняются функции, в начале бара или в конце?
  
  Выполнение кода всегда выполняется в момент закрытия бара. В тех случаях, когда для стратегий указывается срабатывание внутри бара, вызов происходит многократно, но каждый раз это будет вызов с изменением цены Close.


• Можно ли передавать серии по сети или между разными программами?
  
  Чтобы сделать данные доступными с другого компьютера или программы, придется использовать текстовый файл.


• В чарте индикатором сохраняю серию значений. Другим индикатором в RadarScreen-e пытаюсь читать эту серию. Однако библиотека Puls загружается еще раз. Появляется еще одно окно Puls и иконка в трее. В этом новом окне видно, что запрашиваемая серия пустая, данных там нет. Возможно ли это поправить, чтобы обращение к Puls из RadarScreen приводило к вызову уже существующего экземпляра Puls?
  
  Синхронизации данных между несколькими экземплярами Puls в памяти нет. В TradeStation 9.1 есть специальные классы типа GlobalDictionary, GlobalValue, которые используются для передачи данных между инструментами теханализа внутри платформы.


• Пробовал свои DLL написать под С++, но ProSuite при обращении к ним виснет "мертво". Может есть фишка какая с ProSuite+DLL? Может в заголовках С++ дополнительно чего писать надо?
  
  Необходимая для написания DLL информация есть в Developer Kit для ProSuite 2000i или в справке TradeStation.


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


• Минимальный шаг индексов - целое число. А как хранить тики с указанием секунд и микросекунд?
  
  Просто форматируйте время как целое число. Например, 12:35:01 сохраняйте с индексом 1235010.


• При открытии окна Puls зависает MultiCharts 7. Что с этим делать?
  
  Чтобы MultiCharts версий ниже 8.0 не зависал во время вызова главного окна Puls при старте, в puls.ini укажите:
  
  [Main]
  Tray=0
  
  После запуска MultiCharts, иконка вызова главного окна Puls в системном трее создаваться не будет.