相關標簽:

?

//箱體鱷魚-取自陽光飛狐的鱷魚線解盤

{程序化交易 www.kzuj.com.cn }


CXH1:=(H+L)/2;
AO:=SMA(CXH1,5,1)-SMA(CXH1,34,1),COLOR6699CC;
AC:=SMA((AO-SMA(AO,5,1)),5,1),COLOR6699CC;
x1:=AO>REF(AO,1) and Ac>REF(Ac,1);
x2:=AO<REF(AO,1) and Ac<REF(Ac,1);
Y:=(H+L)/2;
RED:=SMA(Y,8,1);
R2:=REF(RED,5);
KU1:=IF(H=HHV(H,3),1,0);
KD1:=IF(L=LLV(L,3),1,0);
UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0,REF(H,2),REF (H,2+BARSLAST(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0)));
DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(L,2),REF (L,2+BARSLAST(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0)));
下顎:SMA(Y,13,1),SHIFT8,COLORBLUE;
牙齒:SMA(Y,5,1),SHIFT5,COLORRED;
上唇:SMA(Y,3,1),SHIFT3,COLORGREEN;{http://www.kzuj.com.cn}
多:cross(SMA(Y,5,1),SMA(Y,13,1)),colorred,linethick0;
空:cross(SMA(Y,13,1),SMA(Y,5,1)),colorgreen,linethick0;
上張:=下顎>=ref(下顎,1) and 牙齒>=ref(牙齒,1) and 上唇>=ref(上唇,1);
下張:=下顎<ref(下顎,1) and 牙齒<ref(牙齒,1) and 上唇<ref(上唇,1);
上碎:IF(H>=R2,UL,REF(UL,BARSLAST(H>R2))),COLORMAGENTA, linethick0;
下碎:IF(L<=R2,DL,REF(DL,BARSLAST(L<=R2))),COLORCYAN, linethick0;
箱頂:=BARSLAST(ABS(上碎-REF(上碎,1)))<BARSLAST(c>上碎 AND REF (c,1)<REF(上碎,1)),COLORMAGENTA;
STICKLINE(箱頂,上碎,上碎,6,1),COLORMAGENTA;
箱底:=BARSLAST(ABS(下碎-REF(下碎,1)))<BARSLAST(c<下碎 AND REF (c,1)>REF(下碎,1)),COLORCYAN;
STICKLINE(箱底,下碎,下碎,6,1),COLORCYAN;
LC := REF(C,4);
RMI:=SMA(MAX(C-LC,0),7,1)/SMA(ABS(C-LC),7,1)*100;
QS:= HHV(MA(RMI,3),13),Color00ADFF;
RMIMA:= SMA(RMI,3,1),Color009C00;
向上突破有效上碎型:=cross(c,上碎), colorred, linethick0;
向下有效碎型被突破:=cross(下碎,c), colorgreen, linethick0;
AO與AC為多方趨勢:=x1>0, colorred, linethick0;
AO與AC為空方趨勢:=x2>0, colorgreen, linethick0;
買:向上突破有效上碎型=1 and AO與AC為多方趨勢=1, colorred, linethick0;
賣:向下有效碎型被突破=1 and AO與AC為空方趨勢=1, colorgreen, linethick0;
Drawicon(買,LOW*0.99,8);
Drawicon(賣,HIGH*1.01,9);

//大資金活動
CXHE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
CXHF:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
CXH10:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
CXH11:=CXHF<REF(CXH10,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
大資金活動:CXH11 AND COUNT(CXH11,30)=1,COLORFF00FF,LINETHICK0;
DRAWTEXT(大資金活動,LOW*0.95,'大資金活動'),LINETHICK1,COLORFF00FF;

CXH12:=(HIGH+LOW+CLOSE)/3;
CXH13:=(CXH12-MA(CXH12,14))/(0.015*AVEDEV(CXH12,14));
CXH14:=(CXH12-MA(CXH12,70))/(0.015*AVEDEV(CXH12,70));
CXH15:=IF(CXH13>=150 AND CXH13<200 AND CXH14>=150 AND CXH14<200,10,0);
CXH16:=IF(CXH13<=-150 AND CXH13>-200 AND CXH14<=-150 AND CXH14>-200,-10,CXH15);
CXH17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
CXH18:=100-ABS(CXH17);
CXH19:=IF(CXH18<90,CXH18,100);
CXH1A:=IF(CXHE>0,CXHE,0);
CXH1B:=IF(CXH14>=200 AND CXH13>=150,15,IF(CXH14<=-200 AND CXH13<=-150,-15,CXH16))+60;
CXH1C:=CXH1A>48 AND CXH1B>60 AND CXH19<100;
大筆成交:CXH1C AND COUNT(CXH1C,30)=1,colorwhite, linethick0;
DRAWTEXT(大筆成交,LOW*0.95,'大筆成交') COLORWHITE;

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?