通达信灾后自救专用版主图选股

股市从6.15开始这一波大跌称其为”股灾“一点不过分。于是乎想到写一个指标看看能不能帮助大家在股灾过后进行自救时提供一些参考。
 主图指标主要针对6月份开始下跌那一天开始，标注了您的股票至今亏损多少？亏损后又回本多少？方便您对照其他个股看看自己的票在这一波下跌中的亏损与其他个股比较看看。然后 根据黄金分割线画出最高点到最低点的主要支撑 阻力线方便您在今后的自救日子里参考买进卖出。这个指标之所以专用，因为画线只针对这一波高点开始画线，分割也只到这一波低点，运用恰当  相信能够帮助您在今后几个月的自救日子里高抛低吸争取在最快的日子里收回成本。亏损只是一个数字，不要在意了。接下来一步一个脚印慢慢的您就会继续收获股市。考虑有些同学可能提前出来了，还想介入其他股票 于是写了一个选股。仅做参考吧。放正心态，从头再来。胜利一定属于坚韧不拔的人。

{主图}

HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);
 T:=HHVBARS(HH,0);
 TT:=BARSLAST(L=LLV(L,T+1));
 T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);
 XL:=REFX(L,BARSNEXT(T1=0));
亏损:(REF(C,TT)-REF(C,T+1))/REF(C,T+1)*100  NODRAW;
 ZF:=(C-REF(C,T+1))/REF(C,T+1)*100;
回本:ZF COLORMAGENTA,NODRAW;
高位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,HH,ISLASTBAR,REF(HH,T),0),COLORYELLOW;
 NOTEXT1:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)*0.382+XL,ISLASTBAR,REF((HH-XL)*0.382+XL,T),0),DOTLINE,COLORGREEN;
 NOTEXT2:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)*0.618+XL,ISLASTBAR,REF((HH-XL)*0.618+XL,T),0),DOTLINE,COLORLIMAGENTA;
低位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,XL,ISLASTBAR,REF(L,T1),0),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT1*1.04,VARCAT(VARCAT('第一阻力：',VAR2STR(NOTEXT1,2)),'元')),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT2*1.04,VARCAT(VARCAT('第二阻力：',VAR2STR(NOTEXT2,2)),'元')),COLORLIMAGENTA;

 {选股}

HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);
 T:=HHVBARS(HH,0);
 TT:=BARSLAST(L=LLV(L,T+1));
 T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);
 H1:=REF(H,T);
 H2:=(REF(H,T)-REF(L,T1))*0.382+REF(L,T1);
 H3:=(REF(H,T)-REF(L,T1))*0.618+REF(L,T1);
 XG:CROSS(C,H1) OR CROSS(C,H2) OR CROSS(C,H3);