您現在的位置:程序化交易>> 期貨公式>> 金字塔等>> 金字塔模型>>正文內容

金字塔自動分類板塊[金字塔模型]

IF ISLASTBAR THEN
BEGIN

Y:=YEAR;
YY:=STRRIGHT(NUMTOSTR(Y,0),2);
MT:=MONTH;?//真實月份

DY:=STRCAT(YY,NUMTOSTREX(MT,0,2));
SIZETEST:=OPTIONSIZE(\'QQ510050\',STRTONUM(DY),0);?//取合約數量
M:=IF(SIZETEST>0,MT,IF(MT<12,MT+1,1));?//合約數量大于0則當月未到期,否則下月成當月
當月:=STRCAT(YY,NUMTOSTREX(M,0,2));
次月:=IF(M=12,STRCAT(STRRIGHT(NUMTOSTR(Y+1,0),2),\'01\'),STRCAT(YY,NUMTOSTREX(M+1,0,2)));
XJY:=IF(M=2 OR M=3 OR M=4,6,IF(M=5 OR M=6 OR M=7,9,IF(M=8 OR M=9 OR M=10,12,3)));
下季月:=IF(M>10,STRCAT(STRRIGHT(NUMTOSTR(Y+1,0),2),\'03\'),STRCAT(YY,NUMTOSTREX(XJY,0,2)));
GJY:=IF(M=2 OR M=3 OR M=4,9,IF(M=5 OR M=6 OR M=7,12,IF(M=8 OR M=9 OR M=10,3,6)));
隔季月:=IF(M>10,STRCAT(STRRIGHT(NUMTOSTR(Y+1,0),2),\'06\'),STRCAT(YY,NUMTOSTREX(GJY,0,2)));

CLEARBLOCK(\'50當月\');
CLEARBLOCK(\'50次月\');
CLEARBLOCK(\'50下季月\');
CLEARBLOCK(\'50隔季月\');
?
?
SIZEDY:=OPTIONSIZE(\'QQ510050\',STRTONUM(當月),0);?//取當月合約數量
FOR I = 1 TO SIZEDY DO
BEGIN
?ADDTOBLOCK(OPTIONLABEL(I),\'50當月\');
END

SIZECY:=OPTIONSIZE(\'QQ510050\',STRTONUM(次月),0);?//取次月合約數量
FOR I = 1 TO SIZECY DO
BEGIN
?ADDTOBLOCK(OPTIONLABEL(I),\'50次月\');
END

SIZEXJY:=OPTIONSIZE(\'QQ510050\',STRTONUM(下季月),0);?//取下季月合約數量
FOR I = 1 TO SIZEXJY DO
BEGIN
?ADDTOBLOCK(OPTIONLABEL(I),\'50下季月\');
END

SIZEGJY:=OPTIONSIZE(\'QQ510050\',STRTONUM(隔季月),0);?//取隔季月合約數量
FOR I = 1 TO SIZEGJY DO
BEGIN
?ADDTOBLOCK(OPTIONLABEL(I),\'50隔季月\');
END

OPOBYPRIRCE(\'QQ510050\',2.2,0,0,1);

?

IF ISLASTBAR THEN MSGOUT(1,OPOBYPRIRCE(\'QQ510050\',2.25,0,0,1));

END

 

有思路,想編寫各種指標公式,程序化交易模型,選股公式,預警公式的朋友

可聯系技術人員 QQ: 511411198  有需要幫忙請點擊這里留言?。?!進行 有償 編寫!不貴!點擊查看價格!

 


【字體: 】【打印文章】【查看評論

相關文章

    沒有相關內容
  排列五千神机器人软件