Программа расчета контанго/бэквордации между фьючерсом и спотом

 


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

взято на сайте whotrades.com/


 




 

PORTFOLIO_EX Spread_Spot;
DESCRIPTION Spread_Spot;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRMID;

PROGRAM


DELETE_ALL_ITEMS()

Tab=CREATE_MAP()

Punkt=0
Proc=0
Name=""

LineCount=GET_FILE_LEN(«C:\PPP.txt»)

error=""
SecCode1=""& READ_LINE(«C:\PPP.txt»,1, error)
SecCode2=""& READ_LINE(«C:\PPP.txt»,2, error)
SecCode3=""& READ_LINE(«C:\PPP.txt»,3, error)

LP_RTS=0+GET_VALUE(GET_PARAM_EX(«RTSIND»,«RTSI»,«CURRENTVALUE»),«PARAM_VALUE»)
LP_FutRTS=0+GET_VALUE(GET_PARAM_EX(«SPBFUT»,SecCode1,«LAST»),«PARAM_VALUE»)

Punkt=LP_FutRTS-LP_RTS*100
Proc=(LP_FutRTS/(LP_RTS*100)-1)*100

Name=«РТС»

Tab=SET_VALUE(Tab,«Name»,Name)
Tab=SET_VALUE(Tab,«RTSI»,LP_RTS)
Tab=SET_VALUE(Tab,«FutRTS»,LP_FutRTS)
Tab=SET_VALUE(Tab,«Punkt»,Punkt)
Tab=SET_VALUE(Tab,«Proc»,Proc)

ADD_ITEM(1, Tab)

IF Punkt > 0
SET_ROW_COLOR_EX(1,«RGB(140,255,140)», «RGB(140,255,140)», «DEFAULT_COLOR», «DEFAULT_COLOR») '
END IF

IF Punkt < 0
SET_ROW_COLOR_EX(1,«RGB(255,140,140)», «RGB(255,140,140)», «DEFAULT_COLOR», «DEFAULT_COLOR»)
END IF

'===============================================================================================================

LP_SR=0+GET_PARAM(«EQBR»,«SBER03»,«LAST»)
LP_FutSR=0+GET_VALUE(GET_PARAM_EX(«SPBFUT»,SecCode2,«LAST»),«PARAM_VALUE»)

Punkt=LP_FutSR-LP_SR*100
Proc=(LP_FutSR/(LP_SR*100)-1)*100

Name=«Сбер»

Tab=SET_VALUE(Tab,«Name»,Name)
Tab=SET_VALUE(Tab,«RTSI»,LP_SR)
Tab=SET_VALUE(Tab,«FutRTS»,LP_FutSR)
Tab=SET_VALUE(Tab,«Punkt»,Punkt)
Tab=SET_VALUE(Tab,«Proc»,Proc)

ADD_ITEM(1, Tab)

IF Punkt > 0
SET_ROW_COLOR_EX(1,«RGB(140,255,140)», «RGB(140,255,140)», «DEFAULT_COLOR», «DEFAULT_COLOR») '
END IF

IF Punkt < 0
SET_ROW_COLOR_EX(1,«RGB(255,140,140)», «RGB(255,140,140)», «DEFAULT_COLOR», «DEFAULT_COLOR»)
END IF
'================================================================================================================
LP_GZ=0+GET_PARAM(«EQNE»,«GAZP»,«LAST»)
LP_FutGZ=0+GET_VALUE(GET_PARAM_EX(«SPBFUT»,SecCode3,«LAST»),«PARAM_VALUE»)

Punkt=LP_FutGZ-LP_GZ*100
Proc=(LP_FutGZ/(LP_GZ*100)-1)*100

Name=«Газ»

Tab=SET_VALUE(Tab,«Name»,Name)
Tab=SET_VALUE(Tab,«RTSI»,LP_GZ)
Tab=SET_VALUE(Tab,«FutRTS»,LP_FutGZ)
Tab=SET_VALUE(Tab,«Punkt»,Punkt)
Tab=SET_VALUE(Tab,«Proc»,Proc)

ADD_ITEM(1, Tab)

IF Punkt > 0
SET_ROW_COLOR_EX(1,«RGB(140,255,140)», «RGB(140,255,140)», «DEFAULT_COLOR», «DEFAULT_COLOR») '
END IF

IF Punkt < 0
SET_ROW_COLOR_EX(1,«RGB(255,140,140)», «RGB(255,140,140)», «DEFAULT_COLOR», «DEFAULT_COLOR»)
END IF


END_PROGRAM


PARAMETER Name;
PARAMETER_TITLE Назв.;
PARAMETER_DESCRIPTION Назв.;
PARAMETER_TYPE STRING(32);
END

PARAMETER RTSI;
PARAMETER_TITLE Спот;
PARAMETER_DESCRIPTION Спот;
PARAMETER_TYPE NUMERIC(10,2);
END

PARAMETER FutRTS;
PARAMETER_TITLE фьючерс;
PARAMETER_DESCRIPTION Фьючерс;
PARAMETER_TYPE NUMERIC(10,0);
END

PARAMETER Punkt;
PARAMETER_TITLE пункты;
PARAMETER_DESCRIPTION пункты;
PARAMETER_TYPE NUMERIC(10,0);
END

PARAMETER Proc;
PARAMETER_TITLE проц %;
PARAMETER_DESCRIPTION проц %;
PARAMETER_TYPE NUMERIC(10,2);
END

END_PORTFOLIO_EX


 

чтобы поменять инструменты, отредактируйте файл РРР.txt, находящий на диске С:  (содержит три строки название текущих контрактов )

RIM1
SRM1
GZM1






  • хорошо
    -1
    плохо

0 комментариев

Добавить комментарий