Poyarkov696
0
All posts from Poyarkov696
  Poyarkov696 in Poyarkov696,

Робот-арбитражер

' в реальном времени сравнивает ценыдвух инструментов и выводит значения в файл

PORTFOLIO_EX scaner;
DESCRIPTION scaner;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST ALL_FIRMS;

INCLUDE func_gr.txt;

PROGRAM
NEW_GLOBAL ("MegaMap", 0)
NEW_GLOBAL ("Fiststart", 1)


if Fiststart=1
Fiststart=0
MegaMap=CREATE_MAP ()
Values=CREATE_MAP ()
end if



file_log = "C:\program1\scaner\log.txt" 'Файл для хранения логов.
file_units = "C:\program1\scaner\units.txt" 'файл со списком классов бумаг и их кодов

CurrentHour = GET_VALUE(GET_DATETIME(), "HOUR")
CurrentMin = GET_VALUE(GET_DATETIME(), "MIN")
CurrentSec = GET_VALUE(GET_DATETIME(), "SEC")
CurrentTime = str2num(fTextTime(CurrentHour,CurrentMin,CurrentSec) & "")



IF (CurrentTime > 103500 AND CurrentTime
units_len=GET_FILE_LEN(file_units)
units_len=units_len/2
ni=0
DELETE_ALL_ITEMS()
for ii from 1 to units_len
error=0
ClassCodeList = "" & READ_LINE (file_units, ii*2-1, error)
Instrument = "" & READ_LINE (file_units, ii*2, error)


CurrentHour = GET_VALUE(GET_DATETIME(), "HOUR")
CurrentMin = GET_VALUE(GET_DATETIME(), "MIN")
CurrentSec = GET_VALUE(GET_DATETIME(), "SEC")
if ii=1
price1 = get_param(ClassCodeList,Instrument,"last")
else
price2 = get_param(ClassCodeList,Instrument,"last")
end if
end for
WRITELN(File_Log, CurrentTime & ";" & price1 & ";" & price2 &";" & (price2-price1))



END IF



END_PROGRAM

PARAMETER time;
PARAMETER_TITLE время;
PARAMETER_DESCRIPTION время;
PARAMETER_TYPE string(10);
END

PARAMETER class;
PARAMETER_TITLE класс;
PARAMETER_DESCRIPTION класс;
PARAMETER_TYPE string(10);
END

PARAMETER unit;
PARAMETER_TITLE бумага;
PARAMETER_DESCRIPTION бумага;
PARAMETER_TYPE string(10);
END



PARAMETER price;
PARAMETER_TITLE price;
PARAMETER_DESCRIPTION price;
PARAMETER_TYPE NUMERIC(10,2);
END

PARAMETER bid;
PARAMETER_TITLE bid;
PARAMETER_DESCRIPTION bid;
PARAMETER_TYPE NUMERIC(10,2);
END

PARAMETER offer;
PARAMETER_TITLE offer;
PARAMETER_DESCRIPTION offer;
PARAMETER_TYPE NUMERIC(10,2);
END

PARAMETER speed;
PARAMETER_TITLE speed;
PARAMETER_DESCRIPTION speed;
PARAMETER_TYPE NUMERIC(10,2);
END

PARAMETER accel;
PARAMETER_TITLE accel;
PARAMETER_DESCRIPTION offer;
PARAMETER_TYPE NUMERIC(10,2);
END