在线检测未来函数

把买、卖、全盘穿越做成选股公式

来源:Internet,编辑:股旁网,2012-04-16

编写条件:

编写方法:

 网友求助:

QPCY:=C>REF(C,1)AND 100*WINNER(C)-REF(100*WINNER(C),1)>=30;SX:=IF(DATE>1120630,0,1);
DRAWTEXT(QPCY*SX,C*1.005,'全盘穿越'),COLORGREEN;
STICKLINE(QPCY*SX,O,IF(O<COST(30),COST(30),O),3,0), COLORWHITE;
STICKLINE(QPCY*SX,IF(O<COST(30),COST(30),O),IF(C>COST(50),COST(50),C),3,0), COLORYELLOW ;
STICKLINE(QPCY*SX,IF(C>COST(50),COST(50),C),IF(C>COST(80),COST(80),C),3,0), COLORLIGREEN;
STICKLINE(QPCY*SX,IF(C>COST(79),COST(79),C*0.998),C,3,0), COLORRED ;
M13:MA(C,13);M21:MA(C,21);M120:MA(C,120);M250:MA(C,250);买线:=(C-REF(C,2))/C*100;
卖线:=(买线,7);
BU:=crOSS(买线,卖线);
SEL:=CROSS(卖线,买线);
DRAWTEXT(BU,L*0.97,'买'),COLORRED;
DRAWTEXT(SEL,H*1.02,'卖'),COLORGREEN;
STICKLINE(C>REF(C,1)AND 100*WINNER(C)-REF(100*WINNER(C),1)>=30 ,O,C,2.5,0), COLORRED ;
STICKLINE(C>REF(C,1)AND 100*WINNER(C)-REF(100*WINNER(C),1)>=30 ,H,C,0,0), COLORRED ;
STICKLINE(C>REF(C,1)AND 100*WINNER(C)-REF(100*WINNER(C),1)>=30 ,L,C,0,0), COLORRED;
 
 
解答如下:
QPCY:=C>REF(C,1)AND 100*WINNER(C)-REF(100*WINNER(C),1)>=30;
SX:=IF(DATE>1120630,0,1);
QPCY*SX;
===================================

买线:=(C-REF(C,2))/C*100;
卖线:=(买线,7);
BU:CROSS(买线,卖线);
=============================================
买线:=(C-REF(C,2))/C*100;
卖线:=(买线,7);
SEL:CROSS(卖线,买线);
 

相关文章