通達信大盤均價頂?shù)字笜斯?/h1>

通達信大盤均價頂?shù)字笜斯剑?/p>

R:=4;
V1:=(C*2+H+L+O)/5; {均價}
V2:=EMA(V1,13)-EMA(V1,34);{MACD.DIFF}
V3:=EMA(V2,5); {MACD.DEA}
V4:=(V2-V3)*100; {MACD.MACD}
主力撤:=IF(V4<=0,V4,0){,COLORBLUE個股};
主力進:=IF(V4>=0,V4,0){,COLORFF00FF個股};
V8:=(INDEXC*2+INDEXH+INDEXL+INDEXO)/5;{大盤均價}
V9:=EMA(V8,13)-EMA(V8,34); {INDEX.DIFF}
VA:=EMA(V9,5); {INDEX.DEA}
VB:=(V9-VA)/2; {INDEX.MACD}
V11:=3*SMA((C-LLV(L,13))/(HHV(H,13)-LLV(L,13))*100,5,1)-2*SMA(SMA((C-LLV(L,13))/(HHV(H,13)-LLV(L,13))*100,5,1),3,1);{引用個股"KDJ.J"}
V12:=3*SMA((C-LLV(L,60))/(HHV(H,60)-LLV(L,60))*100,5,1)-2*SMA(SMA((C-LLV(L,60))/(HHV(H,60)-LLV(L,60))*100,5,1),3,1);{引用個股"KDJ.J"}
V13:=3*SMA((C-LLV(L,120))/(HHV(H,120)-LLV(L,120))*100,5,1)-2*SMA(SMA((C-LLV(L,120))/(HHV(H,120)-LLV(L,120))*100,5,1),3,1);{引用個股"KDJ.J"}
陽光:EMA(V11,3),COLORYELLOW,LINETHICK2;
空氣:EMA(V12,3),COLORDD00FF;
雨露:EMA(V13,3),COLORWHITE;
DV11:=3*SMA((INDEXC-LLV(INDEXL,60))/(HHV(INDEXH,60)-LLV(INDEXL,60))*100,5,1)-2*SMA(SMA((INDEXC-LLV(INDEXL,60))/(HHV(INDEXH,60)-LLV(INDEXL,60))*100,5,1),3,1);
自然環(huán)境:EMA(DV11,13),COLORCYAN,LINETHICK2;
稻草人:空氣<=10,LINETHICK0,COLOREECC99;
STICKLINE(空氣<=10,0,15,3,0),COLOREECC99;
麥田:空氣<=10 AND (陽光<=10 OR 自然環(huán)境<=10),LINETHICK0,COLOR00EEAA;
STICKLINE(空氣<=10 AND (陽光<=10 OR 自然環(huán)境<=10),0,20,2,0),COLOR00EEAA;
早熟:空氣<=10 AND (陽光<=10 OR 自然環(huán)境<=10) AND 雨露<=10,LINETHICK0,COLORMAGENTA;
STICKLINE(空氣<=10 AND (陽光<=10 OR 自然環(huán)境<=10) AND 雨露<=10,0,25,1,0),COLORMAGENTA;
光合作用:陽光<=10 AND 空氣<=10 AND 自然環(huán)境<=10 AND 雨露<=10,LINETHICK0,COLORRED;
STICKLINE(陽光<=10 AND 空氣<=10 AND 自然環(huán)境<=10 AND 雨露<=10,0,30,0.5,0),COLORRED;
AA:=FILTER((空氣<=10),15);
XX:=FILTER(空氣<=10 AND 自然環(huán)境<=10,15);
{DRAWTEXT (AA,30,'稻草人'),COLORCC9900;
DRAWTEXT (XX,40,'麥田'),COLOR00AAAA; }
BB:= (空氣<=10 AND V12>10) AND FILTER((空氣<=10 AND V12>10),10);
烏鴉:空氣>=90 AND 空氣>REF(空氣,1),COLORFFFF00,LINETHICK0;
STICKLINE(烏鴉,100,95,15,1),COLORFFFF00;
暴風雨:空氣>=90 AND 自然環(huán)境>=90,COLORGREEN,LINETHICK0;
STICKLINE(暴風雨,100,95,10,0),COLORGREEN;
收割:FILTER(空氣>90 AND 空氣<REF(空氣,1) AND 主力進<REF(主力進,1),8);
DRAWTEXT( 收割,90,'收割'),COLORYELLOW;
IF(陽光<=10,陽光,DRAWNULL),LINETHICK3,COLOR0000FF;
IF(陽光>=90,陽光,DRAWNULL),LINETHICK3,COLORFF0000;
STICKLINE(自然環(huán)境<=10,100,95,10,0),COLORRED;
DRAWTEXT(FILTER(自然環(huán)境<=10,8),90,'農(nóng)耕?'),COLORRED;

通達信大盤均價頂?shù)字笜斯?/strong>實例圖解：