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

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

源码---

{开心炒股系统----各种软件通用}
开心易友:=(CLOSE-MA(CLOSE,20))/MA(CLOSE,20)*100;
研制:=IF(开心易友>0,开心易友,0);
STICKLINE(开心易友>0,开心易友,0,3,0),COLORRED;
STICKLINE(开心易友>0 AND C 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) 行情转:=VARQS8-(EMA(黑牛,17)-VARQS8)*0.98;
Q:=CROSS(黑牛,行情转) AND 黑牛>REF(黑牛,1) AND 行情转 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,'▲'),COL