广发金手指 源码

{ 广发证券金手指技术分析法2.0版
作者：田泽民 刘学文

2009年12月10日}

广发金手指:DRAWNULL,NODRAW,COLORRED;
DQZ:=1111230;
版本到期日:DQZ+19000000,NODRAW,COLORWHITE;
DRAWTEXT(DQZ-DATE=5,HIGH*1.10,'软件即将到期，请与广发证券客户经理联系！');

{生命值强弱赋值，弱＝0，强＝1}
强弱:=IF(C>=MA(C,18) AND (MA(C,18)>=REF(MA(C,18),1) OR (MA(C,18)<REF(MA(C,18),1) AND REF(C,1)>=REF(MA(C,18) ,1) AND (REF(MA(C,18),1)>=REF(MA(C,18),2) OR (REF(MA(C,18),1)<REF(MA(C,18),2) AND REF(C,2)>=REF(MA(C,18) ,2) AND (REF(MA(C,18),2)>=REF(MA(C,18),3) OR (REF(MA(C,18),2)<REF(MA(C,18),3) AND REF(C,3)>=REF(MA(C,18) ,3) AND (REF(MA(C,18),3)>=REF(MA(C,18),4) OR (REF(MA(C,18),3)<REF(MA(C,18),4) AND REF(C,4)>=REF(MA(C,18) ,4) AND (REF(MA(C,18),4)>=REF(MA(C,18),5) OR (REF(MA(C,18),4)<REF(MA(C,18),5) AND REF(C,5)>=REF(MA(C,18) ,5) AND (REF(MA(C,18),5)>=REF(MA(C,18),6) OR (REF(MA(C,18),5)<REF(MA(C,18),6) AND REF(C,6)>=REF(MA(C,18) ,6) AND (REF(MA(C,18),6)>=REF(MA(C,18),7) OR (REF(MA(C,18),6)<REF(MA(C,18),7) AND REF(C,7)>=REF(MA(C,18) ,7) AND (REF(MA(C,18),7)>=REF(MA(C,18),8) OR (REF(MA(C,18),7)<REF(MA(C,18),8) AND REF(C,8)>=REF(MA(C,18) ,8) AND (REF(MA(C,18),8)>=REF(MA(C,18),9) OR (REF(MA(C,18),8)<REF(MA(C,18),9) AND REF(C,9)>=REF(MA(C,18) ,9) AND REF(MA(C,18),9)>=REF(MA(C,18),10) )))))))))))))))))),1,0);

{小区间增减赋值，减＝3，增＝4}
VAR1:=EMA(EMA(CLOSE,9),9);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
小区:=IF(控盘>REF(控盘,1),4,3);

{生命值强弱区间K线}
STICKLINE(DATE<=DQZ AND 强弱=0 AND C>=O,C,O,2.8,1),COLORGREEN;
STICKLINE(DATE<=DQZ AND 强弱=0 AND C<O,C,O,2.8,0),COLORGREEN;
STICKLINE(DATE<=DQZ AND 强弱=0,H,IFF(C>=O,C,O),0,0),COLORGREEN;
STICKLINE(DATE<=DQZ AND 强弱=0,L*0.997,IFF(C>=O,O,C),0,0),COLORGREEN;
STICKLINE(DATE<=DQZ AND 强弱=1 AND C>=O,C,O,2.8,1),COLORRED;
STICKLINE(DATE<=DQZ AND 强弱=1 AND C<O,C,O,2.8,0),COLORRED;
STICKLINE(DATE<=DQZ AND 强弱=1,H,IFF(C>=O,C,O),0,0),COLORRED;
STICKLINE(DATE<=DQZ AND 强弱=1,L*0.997,IFF(C>=O,O,C),0,0),COLORRED;

{小区间增减K线}
{弱区间增}
STICKLINE(DATE<=DQZ AND 强弱=0 AND REF(强弱,1)=0 AND 小区=4 AND C>=O,C,O,2.8,1),COLORFFFF10;
STICKLINE(DATE<=DQZ AND 强弱=0 AND REF(强弱,1)=0 AND 小区=4 AND C<O,C,O,2.8,0),COLORFFFF10;
STICKLINE(DATE<=DQZ AND 强弱=0 AND REF(强弱,1)=0 AND 小区=4,H,IFF(C>=O,C,O),0,0),COLORFFFF10;
STICKLINE(DATE<=DQZ AND 强弱=0 AND REF(强弱,1)=0 AND 小区=4,L*0.997,IFF(C>=O,O,C),0,0),COLORFFFF10;
{强区间减}
STICKLINE(DATE<=DQZ AND 强弱=1 AND REF(强弱,1)=1 AND 小区=3 AND C>=O,C,O,2.8,1),COLORYELLOW;
STICKLINE(DATE<=DQZ AND 强弱=1 AND REF(强弱,1)=1 AND 小区=3 AND C<O,C,O,2.8,0),COLORYELLOW;
STICKLINE(DATE<=DQZ AND 强弱=1 AND REF(强弱,1)=1 AND 小区=3,H,IFF(C>=O,C,O),0,0),COLORYELLOW;
STICKLINE(DATE<=DQZ AND 强弱=1 AND REF(强弱,1)=1 AND 小区=3,L*0.997,IFF(C>=O,O,C),0,0),COLORYELLOW;
生命线:IF(强弱=1,MA(C,18),MA(C,18)),COLORRED,LINETHICK2;
X:IF(强弱=0,MA(C,18),DRAWNULL),COLORGREEN,LINETHICK2;

{金手指标志}
DRAWICON(DATE<=DQZ AND 强弱=1 AND REF(强弱,1)=0,LOW*0.95,1);
DRAWICON(DATE<=DQZ AND 强弱=0 AND REF(强弱,1)=1,HIGH*1.05,2);