打印本文
關(guān)閉窗口
相關(guān)標(biāo)簽:
?
都說:姜老的辣,有時新姜也很提味啊,.....咱潛水有時日,叫'新一手',也不知是屬'新姜'還是'老姜',反正新姜也好,老姜也好,都要用上公式,感覺有點(diǎn)依靠,咱就發(fā)一個'十日箱體'吧,'老姜'閃過,'新姜'提提味吧,....
原理解析：
源碼：
?
ST:=(CLOSE/OPEN+1)*100;
ZF:=(C/REF(C,1)+1)*100;
SX1:=ST>3 AND ST=HHV(ST,5);
SX2:=ZF>3 AND ZF=HHV(ZF,5);
SX3:=ZF>=9 AND CLOSE=HIGH;
S:=IF(SX1 OR SX2 OR SX3,1,0),COLOR0000FF;
DYSJ:=WEEKDAY;
監(jiān)測:=IF(DYSJ<=13 AND COUNT(C>REF(L,DYSJ),DYSJ)>=DYSJ+1,DYSJ,0),COLOR00FFFF;
關(guān)注:=IF(DYSJ>=5 AND COUNT(H>REF(H,DYSJ),5)>=5,REF(H,DYSJ),REF(H,DYSJ)),COLOR00FFFF;
監(jiān)測②:=IF(關(guān)注=REF(L,DYSJ),REF(L,DYSJ),REF(L,DYSJ)),COLORFFFFFF;
STICKLINE(監(jiān)測,監(jiān)測②,監(jiān)測②,3,0),COLOR00FFFF;
BF1:=LOW<關(guān)注*1.01 AND COUNT(LOW<關(guān)注*1.01,監(jiān)測)=1;
BF2:=LOW<關(guān)注 AND COUNT(LOW<關(guān)注,監(jiān)測)=1;
BF:=IF(BF1 OR BF2,1,0),COLOR00FF00;
{以下設(shè)置主圖顯示方式}
支撐:STICKLINE(監(jiān)測,關(guān)注,關(guān)注,6,0),COLORFF00FF;
STICKLINE(C>0,關(guān)注,關(guān)注,5,-1),COLORFFFFFF;
HHJSJDA:=(2.97*CLOSE+OPEN+LOW+HIGH)/6;
HHJSJDB:=(20*HHJSJDA+19*REF(HHJSJDA,1)+18*REF(HHJSJDA,2)+17*REF(HHJSJDA,3)+16*REF(HHJSJDA,4)+15*REF(HHJSJDA,5)+14*REF(HHJSJDA,6)
+13*REF(HHJSJDA,7)+12*REF(HHJSJDA,8)+11*REF(HHJSJDA,9)+10*REF(HHJSJDA,10)+9*REF(HHJSJDA,11)+8*REF(HHJSJDA,12)
+7*REF(HHJSJDA,13)+6*REF(HHJSJDA,14)+5*REF(HHJSJDA,15)+4*REF(HHJSJDA,16)+3*REF(HHJSJDA,17)+2*REF(HHJSJDA,18)+
REF(HHJSJDA,20))/210,COLORYELLOW;
HHJSJDC:=MA(HHJSJDB,5),COLORWHITE;
//DRAWBAND(MA(HHJSJDB,1),RGB(96,50,96),MA(HHJSJDB,5),RGB(15,96,96));
FILLRGN(MA(HHJSJDB,1)>MA(HHJSJDB,5),MA(HHJSJDB,1)+0.05,MA(HHJSJDB,5)),colorgreen;
FILLRGN(MA(HHJSJDB,1)<MA(HHJSJDB,5),MA(HHJSJDB,1)-0.05,MA(HHJSJDB,5)),colormagenta;
【箱頂】:PEAK(HIGH,10,1)*0.98,colorred,linethick2;
【箱底】:TROUGH(LOW,10,1)*1.02,colorcyan,linethick2;
YY1:=C>MA(C,11) AND OPEN<MA(C,11);
YY3:=C>MA(C,33) AND OPEN<MA(C,33);
YY5:=C>MA(C,55) AND OPEN<MA(C,55);
DRAWTEXT(YY1 AND YY5 AND YY3,LOW-0.1,'一\n陽\n三\n線'),COLORRED;
A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
A4:=SMA(A3,3,1);
A5:=SMA(A4,3,1);
A6:=3*A4-2*A5;
A7:=C-REF(C,1);
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
買:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));
STICKLINE(買,OPEN,CLOSE,2,0),COLORYELLOW;
{XU:PEAK(C,IF(PERIOD<5,5,10),1)*0.999,COLORFFCC99,LINETHICK1;
XD:TROUGH(C,IF(PERIOD<5,5,10),1)*0.998,COLORFF99CC,LINETHICK1;
XH:=(XU-XD)/XD*100;
XDU:=IF(EMA(EMA(EMA(C,2),2),2)>REF(EMA(EMA(EMA(C,2),2),2),1),XD,XU);
XR:=(C-XDU)/XDU*100;
XTB:=XD!=REF(XD,2) && XD=REF(XD,1);
XTS:=XU!=REF(XU,2) && XU=REF(XU,1);
DRAWICON(XTB,MIN(XD,L)*0.991,1);
DRAWTEXT(XTB,MIN(XD,L)*0.995,'升點(diǎn)!滿倉'),COLOR0000DD;
DRAWICON(XTS,MAX(XU,H)*1.006,2);
DRAWTEXT(XTS,MIN(XU,H)*1.008,'跌點(diǎn)!清倉')COLOR00DD00;
上升段:DRAWLINE(XTB,MIN(LLV(L,1),XD),XTS,MAX(HHV(H,1),XU),0)
COLOR000099,LINETHICK2;{XTBL}
下跌段:DRAWLINE(XTS,MAX(HHV(H,1),XU),XTB,MIN(LLV(L,1),XD),0)
COLOR009900,LINETHICK2;{XTSL};}
VAR2X:=TROUGHBARS(3,15,1)<10;
VAR3X:=PEAKBARS(3,15,1)<10;
VAR4X:=IF(VAR2X=1,50,0);
VAR5X:=IF(VAR3X=1,50,0);
底部:=IF(VAR4X=50,10,0);
多頭能量:=0,COLORWHITE,LINETHICK2;
買入:=IF(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,50,0),COLOR0000CC,LINETHICK2;
{買入延遲線:底部,LINETHICK1 ,COLOR00CCFF;}
STICKLINE(買入=50,H*1.1,L*0.97,4,0);
DRAWTEXT(買入=50,L*0.965,'神\n踹'),COLORGREEN;操:=MA(c,5);
分界:HHV(操,13),LINETHICK2,COLORffb9cc;
BIAS1:=MA((CLOSE-MA(CLOSE,13))/MA(CLOSE,13),3)*100,COLORWHITE;
BIAS3:=MA((CLOSE-MA(CLOSE,27))/MA(CLOSE,27),3)*100,COLORFF00FF,LINETHICK2;
操作區(qū):=IF(BIAS3<0,BIAS3,0),COLORRED,LINETHICK3;
觀望區(qū):=IF(BIAS3>0,BIAS3,0),COLORGREEN,LINETHICK3;VAR2K:=TROUGHBARS(3,15,1)<10;
VAR3K:=PEAKBARS(3,15,1)<10;
VAR4K:=IF(VAR2K=1,50,0);
VAR5K:=IF(VAR3K=1,50,0);
TJ1K:=觀望區(qū)<REF(觀望區(qū),1) OR 觀望區(qū)-REF(觀望區(qū),1)<REF(觀望區(qū),1)-REF(觀望區(qū),2);
TJ2K:=操作區(qū)>REF(操作區(qū),1);
頂:=IF(TJ1K AND VAR5K=50,15,0),STICK,LINETHICK1,COLORGREEN;
底:=IF(TJ2K AND VAR4K=50,10,0),STICK,LINETHICK1,COLORRED;
DRAWICON(TJ1K AND VAR5K=50,HHV(H,10)+0.1,5);
DRAWICON(TJ2K AND VAR4K=50,LLV(L,10)-0.06,4);
STICKLINE(TJ1K AND VAR5K=50,HHV(H,10),HHV(H,10)-0.1,3,1),COLORGREEN;
STICKLINE(TJ2K AND VAR4K=50,LLV(L,10),LLV(L,10)+0.1,3,1),COLORRED;
Var1:=EMA(C,3);
Var2:=EMA(C,5);
Var3:=EMA(C,10);
Var4:=EMA(C,20);
Var5:=EMA(C,30);
Var6:=(Var2+Var3+Var4+Var5)/4;
Var7:=(Var6-REF(Var6,15))/REF(Var6,15)*100;
Var8:=(Var6-REF(Var6,15))/REF(Var6, 15)*100;
Var9:=EMA(Var7,8);
STICKLINE(Var7<1*REF(Var7,1),h,l,0.5,0),COLORBLUE;
STICKLINE(Var7<1*REF(Var7,1),o,c,8,0),COLORBLUE;
STICKLINE(Var7>1*REF(Var7,1),h,l,0.5,0),COLORRED;
STICKLINE(Var7>1*REF(Var7,1),o,c,8,0),COLORRED;
STICKLINE(Var7<1*REF(Var7,1) AND Var9>1*REF(Var9,1),h,l,0.5,0),COLORGREEN;
STICKLINE(Var7<1*REF(Var7,1) AND Var9>1*REF(Var9,1),o,c,8,0),COLORGREEN;
買進(jìn)價:=((c-ref(ma(c,6),1))/6+ma(c,6))*1.004;
買進(jìn)條件:=cross(c,買進(jìn)價) and 買進(jìn)價>ref(買進(jìn)價,1);
STICKLINE(買進(jìn)條件,h,l,0.5,0),colorwhite,linethick2;
STICKLINE(買進(jìn)條件,o,c,8,0),colorwhite,linethick2;
加碼價:=((c-ref(ma(c,18),1))/18+ma(c,18))*1.004;
加碼條件:=cross(c,加碼價) and 加碼價>ref(加碼價,1);
STICKLINE(加碼條件,h,l,0.5,0),coloryellow,linethick2;
STICKLINE(加碼條件,o,c,8,0),coloryellow,linethick2;
{來源:www.kzuj.com.cn 程序化交易}
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?