股票论坛

标题: 下面公式请老师改成一个选股预警 [打印本页]

作者: 梦想起飞 时间: 2016-3-1 10:04
标题: 下面公式请老师改成一个选股预警
源码：

OBV:SUM(IF(CLOSE>REF(CLOSE,1),C*V*100,IF(CLOSE<REF(CLOSE,1),-V*C*100,0)),0);

STICKLINE(C>REF(C,1),REF(OBV,1),OBV,2,1),COLORRED;
STICKLINE(C<REF(C,1),REF(OBV,1),OBV,2,1),COLORGREEN;
STICKLINE(C=REF(C,1),REF(OBV,1),OBV,2,1),COLORWHITE;

AB: DRAWLINE(OBV>=HHV(OBV,10),OBV,OBV<=LLV(OBV,3),HHV(OBV,3),1),COLORYELLOW;
DRAWICON(CROSS(OBV,AB),AB,1);
DRAWICON(CROSS(AB,OBV),AB,15);
UPQK:=LOW-REF(HIGH,1);

{STICKLINE(CLOSE>REF(CLOSE,1) AND UPQK>0,REF(OBV,1),OBV,20,1),COLORFF00FF;}
DRAWTEXT(CLOSE>REF(CLOSE,1) AND UPQK>0,OBV,'←跳空');

AA:=OBV>REF(OBV,1) AND REF(OBV,1)>REF(OBV,2) AND REF(OBV,1)<REF(OBV,3) AND IF(REF(OBV,3)<REF(OBV,4),1,IF(REF(OBV,4)<REF(OBV,5),REF(OBV,1)<REF(OBV,4) OR (REF(OBV,2)<REF(OBV,4) AND REF(OBV,3)>=REF(OBV,5)),IF(REF(OBV,5)<REF(OBV,6),1,REF(OBV,6)<REF(OBV,7))));
STICKLINE(AA,REF(OBV,1),REF(OBV,2),2,0),COLORLIMAGENTA;

倍量:=V>REF(V,1)*2;
DRAWTEXT(V>REF(V,1)*2,OBV,'倍量');

TY:=OBV;
AA1:=REF(TY,10)=HHV(TY,2*10+1);
BB1:=FILTER(AA1,10);
C11:=BACKSET(BB1,10+1);
HD:=FILTER(C11,10);
AA2:=REF(TY,10)=LLV(TY,2*10+1);
B21:=FILTER(AA2,10);
CC2:=BACKSET(B21,10+1);
LD:=FILTER(CC2,10);
前期高位:REF(OBV,BARSLAST(HD)),COLOR00FF00,CIRCLEDOT,LINETHICK3;
BB:REF(OBV,BARSLAST(LD)),COLORRED,CIRCLEDOT,LINETHICK3;
DRAWTEXT(CROSS(OBV,前期高位),前期高位,'买入');

HIGHN:=M1;
LOWN:=M2;
HIGHDISPLAY:=0;
LOWDISPLAY:=0;ZGDISPLAY:=0;
MADISPLAY:=0;
A:=REF(OBV,HIGHN)=HHV(OBV,2*HIGHN+1);
QY:=BACKSET(A,HIGHN+1);
CC:=FILTER(QY,HIGHN) AND OBV=HHV(OBV,HIGHN+1);
DRAWICON(CC,OBV*1.02,15);
DDD:=BARSLAST(CC);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(OBV,DDD),OBV);{顶部}
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=CONST(DINGBUTS1);
DINGBU2:=REF(DINGBU1,DDD+1);
MM:=IF(CURRBARSCOUNT>GDCS2,0,1);
高点压力: DRAWLINE(CURRBARSCOUNT=GDCS2,OBV,CURRBARSCOUNT=GDCS1,OBV,1)
COLORGREEN,LINETHICK2;

DRAWTEXT(C<REF(C,1)/1.09,OBV,'V');
DRAWICON(REF(C<REF(C,1)/1.09,1) AND O<REF(C,1),OBV,9);
跌停:=C<REF(C,1)/1.09;
DRAWTEXT(REF(跌停,1) AND C>O,REF(OBV,1),'必须马上买入');

欢迎光临股票论坛 (http://100000w.com/)