通达信开心炒股系统（有说明、有图 源码）

看了有的学友转帖了我的“开心炒股系统”指标，因为没有必要的说明，使得很多学友不知道该指标的精妙而与该指标擦边而过。该指标是我大约花了三个月的收集、学习编写才完成的。虽然主要是多个指标合成的，但是也有一些自己的理念融在里面，包括一些典型的选股（多线粘合、拉升、超强选股），还有阶段顶和高位顶的提示，指标中没有未来函数。使用方法在打油诗中已经有说明，具体的含意是：
绿色不参与:指股价处于下跌行情或处于洗盘状态，这时可暂时出来观望。
紫阳快牛B:指出现紫阳时，表示股价接近企稳、要转强了，准备战斗。
紫红紧跟上:指紫阳和拉升信号同时出现时，要及时买入等待拉升。
升浪超强机:指出现超强信号时，是强拉升，如果是在后期，一般是梦寐以求的主升浪来临，更是要拿好手中的股票，不要见一个涨停就出来哦，那样你会后悔不止的。该指标也适合看大盘，指标在4月16日就提示不要参与、需要空仓了，你知道吗？等到紫阳高照以后才进去不迟！

源码---

{开心炒股系统----各种软件通用}
开心易友:=(CLOSE-MA(CLOSE,20))/MA(CLOSE,20)*100;
研制:=IF(开心易友>0,开心易友,0);
STICKLINE(开心易友>0,开心易友,0,3,0),COLORRED;
STICKLINE(开心易友>0 AND C<REF(C,1),开心易友,0,3,0),COLORFF2626;
VARQS3:=EMA(CLOSE,2)-EMA(CLOSE,150);
VARQS4:=EMA(VARQS3,100);
VARQS5:=2*(VARQS3-VARQS4);
VARQS6:=POW(VARQS5,3)*0.1+POW(VARQS5,1);
黑马:=(IF(VARQS5>0.1,VARQS6,0))*3;
黑牛:=(CLOSE-MA(CLOSE,25))/MA(CLOSE,25)*100;
VARQS7:=MA(黑牛,17)+MA(黑牛,17)-REF(MA(黑牛,17),1);
VARQS8:=IF(MA(黑牛,17)<VARQS7,VARQS7,MA(黑牛,17));
行情转:=VARQS8-(EMA(黑牛,17)-VARQS8)*0.98;
Q:=CROSS(黑牛,行情转) AND 黑牛>REF(黑牛,1) AND 行情转<REF(行情转,5);
DRAWTEXT(Q,黑牛,'●'),COLORF00FF0;
不参与:STICKLINE(开心易友<0,开心易友,0,3,0),COLORGREEN;
绿色不参与:0,COLORGREEN;紫阳快牛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,2,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,1.5,0),COLORWHITE;
{以下设置经典选股}
VAR11:=MA(CLOSE,10)-EMA(CLOSE,10)*100;
VAR12:=MA(VAR11,5);
VAR13:=3*(VAR12-VAR11);
拉升:CROSS(VAR13,20),COLORRED;
DRAWTEXT(拉升,-4,'▲'),COLORRED;
{超强信号}
超强信号:=H/MA(H,5)*(1+5/100);
超强▲:CROSS(超强信号,1.15),COLORYELLOW;
R:=IF(超强信号>=1.15,1,0);
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;
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;
长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);
DRAWTEXT(顶,0,'◆'),COLOR00FF00;
不穿零大牛:0,COLORRED;
{抄底逃顶}
VAR222:=LLV(LOW,10);
VAR322:=HHV(HIGH,25);
{阶段卖出:=35}
动力线:=(EMA((CLOSE-VAR222)/(VAR322-VAR222)*4,4))*10;
清仓卖出:=CROSS(35,动力线);
STICKLINE(动力线>REF(动力线,1) ,动力线 ,REF(动力线,1),2,1),COLORYELLOW;
STICKLINE(动力线<=REF(动力线,1) ,动力线 ,REF(动力线,1),2,1),COLOR00FF00;
STICKLINE(清仓卖出,38,39,3,0),COLOR00FF00;
DRAWTEXT(清仓卖出,47,'▼'),COLOR00FF00;
G:=20;M12:=4;M22:=2;Q1:=30;
VAR232:=(CLOSE-LLV(LOW,G))/(HHV(HIGH,G)-LLV(LOW,G))*100;
VAR332:=SMA(VAR232,M12,1);
VAR432:=SMA(VAR332,M22,1);
机构减仓:=(VAR432>82 AND VAR332>89)*20;
临界顶:=(VAR432>85 AND VAR332>95)*20;
DRAWTEXT(机构减仓=20,50,'▼'),COLORF00FF0;
DRAWTEXT(临界顶,60,'▼'),COLORGREEN;