[通达信] 自创精品(画面变美了)

之前发的自编指标图形不太好看，这次改变风格，希望大家喜欢，公式内有别人的东西和我自己的相结合版面完全自己设计的。别光看麻烦大家动手顶一顶，下次才会有更好的东西奉献出来。测试有CAPITAL 未来函数，没关系这是流通盘没啥影响。

 

[color=rgb(192,192,192)]{老钱庄--会心的笑}
VAR1:=LLV(L,10);
VAR2:=HHV(H,25);
趋势线:=EMA((C-VAR1)/(VAR2-VAR1)*4,4);
趋势线1:=SMA(趋势线,3,1);
DRAWBAND(趋势线,RGB(255,0,0),趋势线1,RGB(0,255,0));
高风险区:3,COLORCYAN;
安全区:0,COLORBLUE;
强弱线:1.70,COLORYELLOW,POINTDOT;
价:=EMA(MA((((C-REF(C,1))+(H-REF(H,1))+(L-REF(L,1)))/3)/C,5),1);
价5:=MA(价,5);
量:=EMA(MA((V-REF(V,1))/V,5),1);
量5:=MA(量,5);
角:=1>(ATAN((C/REF(C,1)-1)*100)*180/3.14115926)>-1;
W:=(C/REF(C,1))>1.01;
横盘:=REF(((HHV(价,3)-LLV(价,3))/LLV(价,3)),1)<=(0.00/100) AND REF(((HHV(价5,3)-LLV(价5,3))/LLV(价5,3)),1)<=(0.00/100);
量横盘:=REF(((HHV(量,3)-LLV(量,3))/LLV(量,3)),1)<=(0.00/100) AND REF(((HHV(量5,3)-LLV(量5,3))/LLV(量5,3)),1)<=(0.00/100);
量比:=((量+REF(量,1)+REF(量,2))/(量5+REF(量5,1)+REF(量5,2)))>0.5;
A:=COUNT(0.00<=价<=0.02 AND 0.00<=价5<=0.02,CROSS(价,价5))=1 AND W ,COLORYELLOW ;
ABB:=COUNT(0.00<=价<=0.02 AND 0.00<=价5<=0.02,横盘 AND 量比 AND 量横盘 AND 角)=1 AND W ,COLORRED ;
STICKLINE(A AND ABB,0,1,2,0),COLORGRAY;
逃顶高手:=A AND ABB;
地量一:=MA(V,3)/MA(V,20)<0.4;
地量二:=COUNT(V/(V,20)<0.4,3)=3;   
地量三:=V/MA(V,30)<0.5 AND V/HHV(V,30)<0.2;
AA:=SUMBARS(VOL,CAPITAL);
地量四:=VOL<MA(VOL,AA)/3 ;
地量选股:=(地量一 OR 地量二 OR 地量三 OR 地量四)=1 AND (REF(地量一,1) OR
         REF(地量二,1) OR REF(地量三,1) OR REF(地量四,1))=0;
{地量立柱图}
STICKLINE(A AND ABB AND 地量选股,0,2,6,0),COLORMAGENTA;
DRAWICON(A AND ABB AND 地量选股,1,17);
P1:=5;
P2:=4;
VARA:=LLV(LOW,P1);
VARB:=HHV(HIGH,P1);
K:=MA((CLOSE-VARA)/(VARB-VARA)*100,P2),COLORRED;
D:=MA(0.667*REF(K,1)+0.333*K,2),COLORWHITE;
庄家:=K;
散户:=D;
低吸:=CROSS(庄家,散户) AND 庄家<30;
VAR2D:=(2*CLOSE+HIGH+LOW)/4;
VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1);
VAR4:=LLV(LOW,5);
VAR5:=HHV(HIGH,4);
庄家1:= EMA((VAR2D-VAR4)/(VAR5-VAR4)*100,4)*VAR3{, ,COLORFF9933};
散户1:= EMA(0.667*REF(庄家1,1)+0.333*庄家1,2)*VAR3{, ,COLORWHITE};
短进1:=CROSS(庄家1,散户1) AND 庄家1<50 AND 29<庄家1;
低吸1:=CROSS(庄家1,散户1) AND 庄家1<30;
买入:=逃顶高手 AND 低吸 AND (短进1 OR 低吸1) AND 趋势线>REF(趋势线,1);
{短线买入立柱图}
STICKLINE(买入,0,2,8,0),COLOR888800;
DRAWICON(买入,1,26);
DRAWTEXT(逃顶高手 AND 地量选股,1,'地量'),COLORYELLOW;
DRAWTEXT(买入,1.5,'短线买入'),COLORBROWN;