相關標簽:

 

發一個自己使用多年并經過多次優化，比較適用的通達信副圖指標《跟莊建倉》，并附圖希望對大家有所幫助。
A01:=DYNAINFO(7);
A03:=BARSCOUNT(CLOSE);
A04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100);
A05:=IF((A03 > 20),A04,0);
A06:=IF((LOW > A01),0,IF((HIGH < A01),1,(((A01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009))));
A07:=DMA(A06,(VOL / CAPITAL)) * 60;
A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 88)),A07,0);
VAR1:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
VAR2:=EMA(VAR1,8);
VAR3:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趨勢:=EMA(VAR3,3)-10;
STICKLINE(趨勢>80,趨勢,80,0,0);
底:(CROSS(趨勢,1.5)),COLORWHITE;
DRAWICON(CROSS(趨勢,1.5),40,1);
DRAWTEXT(CROSS(趨勢,1.5),30,'底');
STICKLINE((A09 > 0 AND (趨勢<20 OR 趨勢>REF(趨勢,1)AND 趨勢<50)),0,A09*0.65,2,0),COLORFFFF00;
((A09 > 0 AND (趨勢<20 OR 趨勢>REF(趨勢,1)AND 趨勢<50))),COLORFFFF00;
機構建倉區:0,LINETHICK0,COLORFFFF00;
VAR4:=(趨勢-REF(趨勢,1))/REF(趨勢,1)*100;
STICKLINE(趨勢<=13,0,16,0,0),COLORWHITE;
白底:IF((趨勢<=13),1,0),COLORWHITE;
{DRAWTEXT(FILTER(趨勢<=8,15),60,'準備現金'),COLORWHITE;}
準備現金:(FILTER(趨勢<=8,15)),COLOR00FF00;
STICKLINE(趨勢<=13 AND VAR4>13,0,50,0,0),COLOR0099FF;
VAR5:=FILTER((趨勢<=13 AND VAR4>13),10);
買入:FILTER((趨勢<=13 AND VAR4>13),10),COLORWHITE;
DRAWTEXT(VAR5,75,'買入'),COLORWHITE;
STICKLINE(趨勢>=90 AND VAR4,0,30,0,0),COLORGRAY;
VAR6:=FILTER((趨勢>=90 AND VAR4),10);
DRAWTEXT(VAR6,40,'清倉'),COLORGRAY;
VAR7:=LLV(LOW,30);
VAR8:=HHV(HIGH,30);
VAR9:=EMA((CLOSE-VAR7)/(VAR8-VAR7)*4,4)*25;
STICKLINE(VAR9>90,100,105,0,2),COLORRED;
VAR10:=(VAR9-LLV(VAR9,4))/(HHV(VAR9,4)-LLV(VAR9,4))*100;
DRAWTEXT(IF(CROSS(VAR9,VAR10) AND VAR9>87,85,0),100,'險'),COLOR00FF00;
{DRAWICON(CROSS(90,VAR9),95,9);}
VAR11:=SMA(ABS(L-REF(L,1)),3,1)/SMA(MAX(L-REF(L,1),0),3,1)*100;
VAR12:=HHV(VAR11,30)*8;
火焰山:=EMA(IF(LOW<=VAR7 AND 趨勢<40,(VAR11+VAR12),0),3)/618,COLORFF00FF,LINETHICK1;
STICKLINE(火焰山>0,0,火焰山*1.2,0,0 ),COLORFF00FF;
VAR13:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7)+MA(C,9))/5;
VAR14:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8)+MA(C,10))/5;
趨勢線: 趨勢,COLORYELLOW;
VAR16:=MAX(EMA(VAR13,2)-EMA(VAR14,5),0)*200;
VAR17:=EMA(VAR16,5);
{波浪峰:VAR17,STICK,COLORFF00FF;}
{STICKLINE(VAR17<REF(VAR17,1),0,VAR17,1,0),COLOR00FF00;}
VAR18:=MA(趨勢線,8);
抄底:IF(CROSS(VAR2,VAR18) AND VAR2<15,100,0),COLOR00FF00;
DRAWTEXT(CROSS(趨勢線,0.8*VAR2)AND 趨勢線>REF(趨勢線,1)AND 趨勢線<50,50,'追漲'),COLORWHITE;
追漲:IF((CROSS(趨勢線,0.8*VAR2)AND 趨勢線>REF(趨勢線,1) AND 趨勢線<50),1,0),COLORWHITE;
{風險區:IF(趨勢>100,趨勢,80),COLORFF00FF;}
趨勢線2:= 3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1), ,COLORFF6666,LINETHICK2;
DRAWTEXT(IF(CROSS(8,趨勢線2),1,0), 100,'$備錢'),COLOR33FFCC,;
備錢:IF(CROSS(8,趨勢線2),1,0),COLORWHITE;
{VAR22:=REF(LOW,1);}
{VAR23:=SMA(ABS(LOW-VAR22),3,1)/SMA(MAX(LOW-VAR22,0),3,1)*100;}
{VAR24:=EMA(IF(CLOSE*1.3,VAR23*10,VAR23/10),3);}
{VAR25:=LLV(LOW,30);}
{VAR26:=HHV(VAR24,30);}
{VAR27:=IF(MA(CLOSE,58),1,0);}
{VAR28:=EMA(IF(LOW<=VAR25,(VAR24+VAR26*2)/2,0),3)/618*VAR27;}
{VAR29:=IF(VAR28>100,100,VAR28);}
{火焰山:(VAR29>-150),COLORFF00FF,LINETHICK1;}
{STICKLINE(VAR29>-150,0,VAR29*1.5,4,0),COLORFF00FF;} {底部柱狀線}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
短買:IF(REF(J,1)<0 AND J>0,40,0),STICK,COLORRED;
STICKLINE(REF(J,1)<0 AND J>0,0,40,3,0),COLORRED;
DRAWTEXT(REF(J,1)<0 AND J>0,40,'短買'),COLORWHITE;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;


DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;