?

{開心抄月殳系統}
開心易友:=(CLOSE-MA(CLOSE,20))/MA(CLOSE,20)*100;
研制:=IF(開心易友>0,開心易友,0);
STICKLINE(開心易友>0,開心易友,0,5,0),colorred;
STICKLINE(開心易友>0 and c<ref(c,1),開心易友,0,5,0),ColorFF2626;
CXHQS3:=EMA(CLOSE,2)-EMA(CLOSE,150);
CXHQS4:=EMA(CXHQS3,100);
CXHQS5:=2*(CXHQS3-CXHQS4);
CXHQS6:=POW(CXHQS5,3)*0.1+POW(CXHQS5,1);
黑馬:=(IF(CXHQS5>0.1,CXHQS6,0))*3;
黑牛:=(CLOSE-MA(CLOSE,25))/MA(CLOSE,25)*100;
CXHQS7:=MA(黑牛,17)+MA(黑牛,17)-REF(MA(黑牛,17),1);
CXHQS8:=IF(MA(黑牛,17)<CXHQS7,CXHQS7,MA(黑牛,17));
行情轉:=CXHQS8-(EMA(黑牛,17)-CXHQS8)*0.98;
Q:=cross(黑牛,行情轉) and黑牛>ref(黑牛,1) and 行情轉<ref(行情轉,5);
DRAWTEXT(Q,黑牛,'●'),colorf00ff0;
不參與:stickline(開心易友<0,開心易友,0,5,0),COLORGREEN;{http://www.kzuj.com.cn}
綠色不參與:0,COLORGREEN;{http://www.kzuj.com.cn}紫陽快牛B:0,colorf00ff0;
紫紅緊跟上:0,colorred;升浪超強機:0,coloryellow;
{以下設置三線粘合}
ma1:=ema(c,10);
ma2:=ema(c,20);
ma3:=ema(c,30);
a1:=abs(ma1-ma2)+abs(ma2-ma3);
a2:=a1/c<1/100 and ma1>ref(ma1,1) and ma2>ref(ma2,1);
stickline(a2,0,4,3,0),coloryellow;
{以下設置一陽穿4線}
EMA7:=EMA(CLOSE,7);
EMA14:=EMA(CLOSE,14);
EMA25:=EMA(CLOSE,25);
EMA55:=EMA(CLOSE,55);
a12:=abs(ema7-ema14)+abs(ema14-ema25)+abs(ema25-ema55);
a22:=a1/c<1/100 and ema7>ref(ema7,1) and ema14>ref(ema14,1) and ema25>ref(ema25,1);
極強:CROSS(C,EMA7) AND CROSS(C,EMA14) AND CROSS(C,EMA25) AND CROSS(C,EMA25) AND CROSS(C,EMA55)
AND EMA7>REF(EMA7,1) AND EMA14>REF(EMA14,1) AND EMA25>REF(EMA25,1) AND EMA55>REF(EMA55,1),colorwhite;
stickline(極強,-20,0,2,0),colorwhite;
{以下設置經典選股}
CXH11:=MA(CLOSE,10)-EMA(CLOSE,10)*100;
CXH12:=MA(CXH11,5);
CXH13:=3*(CXH12-CXH11);
拉升:CROSS(CXH13,20),colorred;
drawtext(拉升,-4,'▲'),colorred;
{超強信號}
超強信號:=h/MA(h,5)*(1+5/100);
超強▲:cross(超強信號,1.15),coloryellow;
R:=if(超強信號>=1.15,-20,0),stick,linethick3,coloryellow;
drawtext(R,-4,'▲'),coloryellow;
drawtext(R,-8,'▲'),coloryellow;
drawtext(R,-12,'▲'),coloryellow;
{CD抄底xg}
MA32:=EMA(C,3);
LC1 := REF(CLOSE,1);
RSI4a:=SMA(MAX(CLOSE-LC1,0),4,1)/SMA(ABS(CLOSE-LC1),4,1)*100,linethick1,
COLORff99ff;
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:=(TYP-MA(TYP,500))/(0.015*AVEDEV(TYP,500));
RSV:=(CLOSE-LLV(LOW,500))/(HHV(HIGH,500)-LLV(LOW,500))*100;
MTM:=CLOSE-REF(CLOSE,500);
VV:=(CCI<-100) AND (RSV<20) AND (MTM<0) AND (RSI4a<15);
轉折●:Q,colorf00ff0;粘合:0,coloryellow;
底:if(VV,20,0),stick,COLORGREEN;{http://www.kzuj.com.cn}
長rsva:=(CLOSE-LLV(LOW,89))/(HHV(HIGH,89)-LLV(LOW,89))*100;
長k89a:=SMA(長rsva,3,1);
長d89a:=SMA(長k89a,3,1);
中rsv27a:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
中k27a:=SMA(中rsv27a,3,1);
頂:=if(cross(長d89a,50) and 中k27a>ref(中k27a,1) and 中k27a>70,90,0),color00ff00;
drawtext(頂,0,'◆'),color00ff00;
不穿零大牛:0,colorred;
{抄底逃頂}
CXH222:=LLV(LOW,10);
CXH322:=HHV(HIGH,25);
{階段賣出:=35}
動力線:=(EMA((CLOSE-CXH222)/(CXH322-CXH222)*4,4))*10;
清倉賣出:=CROSS(35,動力線);
STICKLINE(動力線>REF(動力線,1) ,動力線 ,REF(動力線,1),3 ,1),COLOryellow;
STICKLINE(動力線<=REF(動力線,1) ,動力線 ,REF(動力線,1),3 ,1),COLOR00FF00;
stickline(清倉賣出,38,39,10,0),color00ff00;
drawtext(清倉賣出,47,'▼'),color00ff00;
g:=20;m12:=4;m22:=2;q1:=30;
CXH232:=(CLOSE-LLV(LOW,g))/(HHV(HIGH,g)-LLV(LOW,g))*100;
CXH332:=SMA(CXH232,M12,1);
CXH432:=SMA(CXH332,M22,1);
機構減倉:=(CXH432>82 AND CXH332>89)*20,COLORf00ff0;
臨界頂:=(CXH432>85 AND CXH332>95)*20,COLORGREEN;{http://www.kzuj.com.cn}
drawtext(機構減倉,60,'▼'),colorf00ff0;
drawtext(臨界頂,60,'▼'),COLORGREEN;{http://www.kzuj.com.cn}
{程序化交易 www.kzuj.com.cn }

?

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

?