分时买点决策系统(大智慧)

源码正文：

input:N(60,1,111){XG51};
a1:=INDEXC{XG51};
a2:=INDEXO{XG51};
a3:=DISPstATUS=1{XG51};
a4:=BArslAST(a3){XG51};
a5:=(REF(a1,a4))/(REF(CLOSE,a4)){XG51};
a6:=IF(a3,CLOSE,(REF(CLOSE,a4))){XG51};
a7:=IF(a3,(a1/a5),(REF((a1/a5),a4))){XG51};
a8:=a6-a7{XG51};
a9:=a2/a5{XG51};
a10:=INDEXH/a5{XG51};
a11:=INDEXL/a5{XG51};
a12:=(CLOSE>OPEN)OR((CLOSE=OPEN)AND(CLOSE>(REF(CLOSE,1)))){XG51};
a13:=(a1>a2)OR((a1=a2)AND(a1>(REF(a1,1)))){XG51};
大盘:STICKLINE(a13,(a10 +a8),(a11 +a8),0,0),colorRed{XG51};
STICKLINE(a13,((a1/a5) +a8),(a9 +a8),5,0),colorRed{XG51};
STICKLINE(NOT(a13),(a11+a8),(a10+a8),0,0),colorGreen{XG51};
STICKLINE(NOT(a13),((a1/a5)+a8),(a9+a8),5,0),colorGreen{XG51};
PARTLINE(CLOSE,CLOSE>(a1/a5),RGB(255,0,0)),linethick2,colorRed{XG51};
PARTLINE(CLOSE,CLOSE>(a1/a5)AND(CLOSE<(REF(CLOSE,1))),RGB(255,0,255)),linethick2,colormagenta{XG51};
PARTLINE(CLOSE,(CLOSE>(a1/a5)AND((MA(CLOSE,30))>(REF((MA(CLOSE,30)),1))))AND((MA((a1/a5),30))<(REF((MA((a1/a5),30)),1))),RGB(255,255,0)),linethick2,colorYellow{XG51};
STICKLINE((((REF(a1,1))<(REF(a2,1))) AND(a1>(REF(a1,1)))),((a1/a5)+a8),CLOSE,1,1),Color606060{XG51};
STICKLINE((((REF(a1,1))>(REF(a2,1)))AND(a1<(REF(a1,1)))),((a1/a5)+a8),CLOSE,1,1),Color606060{XG51};
a14:=MA(CLOSE,10){XG51};
a15:=(((ema(CLOSE,5))*7)+((EMA(CLOSE,10))* 3))/10{XG51};
a16:=((SMA((MAX((CLOSE-(REF(CLOSE,1))),0)),6,1))/(SMA(Abs((CLOSE-(REF(CLOSE,1)))),6,1)))* 100{XG51};
DRAWTEXT(((DATE >700101)AND(crOSS(84,a16))),HIGH,'▼'),colorGreen{XG51};
a17:=(((2*CLOSE)+HIGH)+LOW)/4{XG51};
a18:=LLV(LOW,34){XG51};
a19:=HHV(HIGH,34){XG51};
a20:=EMA((((a17-a18)/(a19-a18))*100),6){XG51};
a21:=EMA(((0.667*(REF(a20,1)))+(0.333*a20)),4){XG51};
a22:=LLV(LOW,120){XG51};
a23:=HHV(HIGH,120){XG51};
a24:=a23-a22{XG51};
a25:=HHVBARS(CLOSE,N){XG51};
REF(CLOSE,a25),POINTDOT,ColorFF0000{XG51};
突破:FILTER(((CROSS(CLOSE,((REF(REF(CLOSE,a25),1))*1.001)))AND(REF((a25>= 5),1))),10),POINTDOT,linethick0{XG51};
STICKLINE(突破,(CLOSE*0.99),CLOSE,5,0),ColorF600A9{XG51};
DRAWTEXT((((SUM((突破>0),0))=1)AND 突破),(CLOSE*0.99),'最佳买点'),colorWhite{XG51};
DRAWTEXT((((SUM((突破>0),0))=2)AND 突破),(CLOSE*0.99),'次佳买点'),colorWhite{XG51};
DRAWTEXT((((SUM((突破>0),0))=3)AND 突破),(CLOSE*0.99),'理想买点'),colorWhite{XG51};
DRAWTEXT((((SUM((突破> 0),0))=4)AND 突破),(CLOSE * 0.99),'及格买点'),colorWhite{XG51};
DRAWTEXT((((SUM((突破> 0),0))>=5) AND 突破),(CLOSE * 0.99),'突破'),colorWhite{XG51};
a26:=(CLOSE<(a1/a5))AND(CROSS(80,a16)){XG51};
DRAWICON(a26,CLOSE,8){XG51};
DRAWICON((CLOSE>(a1/a5)AND(CROSS(a16,17))),CLOSE,7){XG51};
DRAWICON((CROSS(a16,10)),CLOSE,7){XG51};
DRAWICON((CROSS(90,a16)),CLOSE,8){XG51};
DRAWICON((CROSS(CLOSE,(a1/a5))),CLOSE,11){XG51};
DRAWTEXT(((IF(((((((COUNT((CLOSE<(REF(CLOSE,1))),8))/8)>0.3) AND(COUNT((a20>a21),3)))AND((REF(LOW,1))=a22))AND(CLOSE> OPEN)),1,0))AND(CROSS(a16,15))),LOW,'★小底'),ColorFF8080{XG51};
a27:=DYNAINFO(3){XG51};
a28:=SMA(CLOSE,2,1){XG51};
a29:=SMA(CLOSE,6,1){XG51};
a30:=2*(a28-a29);

DRAWTEXTABS(10,200,'■所属板块：'+BKNAME),ColorYELLOW,linethick1{XG51};
流通盘大小:=FINANCE2(37)/1000000*100{XG51};
DRAWTEXTABS(280,220,'流通盘大小：'+NUMTOSTRN(流通盘大小,2)+'亿'),LINETHICK1,ColorYELLOW;
每股收益:=FINANCE2(3){XG51};
每股市盈率:=DYNAINFO(39){XG51};
每股净资产:=FINANCE2(4){XG51};
销售毛利率:=FINANCE2(12){XG51};
主营收入同比:=FINANCE2(11);
净利润同比增长:=FINANCE2(10){XG51};
DRAWTEXTABS(170,220,'每股收益:'+NUMTOSTRN(每股收益,2)+'元'),COLOR00FF00{XG51};
DRAWTEXTABS(170,240,'每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),COLORWHITE{XG51};
DRAWTEXTABS(170,260,'每股净资产:'+NUMTOSTRN(每股净资产,2)+'元'),COLORWHITE{XG51};
DRAWTEXTABS(20,220,'销售毛利率：'+NUMTOSTRN(销售毛利率,2)+'%'),LINETHICK1,COLOR00FF00{XG51};
DRAWTEXTABS(20,240,'主营收入同比增长：'+NUMTOSTRN(主营收入同比,2)+'%'),LINETHICK1,COLOR00FF00{XG51};
DRAWTEXTABS(20,260,'净利润同比增长：'+NUMTOSTRN(净利润同比增长,2)+'%'),LINETHICK1,COLOR00FF00;

 {X^G!5-1^C^N^{};

源码正文：

这是一个分时副图指标，由2个指标拼装修改而成。因主要是以“分时四段”原码为主，所以就不改名字了，请原作者谅解。个人认为这个指标能较为实观的实时体现个股在分时图上的强弱态势和行情趋势，有一定的参考价值。现与大家一起分享。
（纯属个人观点，仅供参考。）
（1.红色柱代表买进强度，绿色柱代表卖出强度，黄色柱代表庄控股强度，蓝色柱代表洗盘。
2.柱体越长，说明强度越高。
3.桃红色虚线代表高点区，黄色虚线代表控盘区，绿色虚线代表风险区，蓝色虚线代表低点区。
4.当柱体达到控盘区或高点区，上升强度大增的同时也需当心股价冲高回落的可能；当柱体风险区或低点区，说明出货机率大增，但也可能是形成股价低位反弹点。
5.红、绿阴影表示个股所处的强弱趋势。
6.当红色感叹符号图表出现时，表示即将迎来转折点。）

p40:=MIN(COUNT( vol,0 )-1,40 ){XG51};
p80:=MIN(COUNT( VOL,0 )-1,80 ){XG51};
A1:=AMOUNT/VOL/100{XG51};
A2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7{XG51};
A3:=SUM(AMOUNT,p40)/A1/100{XG51};
A4:=SUM(AMOUNT,p80)/A1/100{XG51};
B1:=dma(A2,VOL/A3){XG51};
B2:=Dma(A2,VOL/A4){XG51};
B3:=(CLOSE-B1)/B1*100{XG51};
B4:=(CLOSE-B2)/B2*100{XG51};
控盘:3,coloryellow,dotline,precis0,LINETHICK1{XG51};
高点:7,COLORFF55FF,dotline,precis0,LINETHICK1{XG51};
风险:-3,COLORgreen,dotline,precis0,LINETHICK1{XG51};
低点:-6,COLORFFFF55,dotline,precis0,LINETHICK1{XG51};
回调认同:ema(WMA(C,20),13),COLOR42FFFF,precis2,LINETHICK0{XG51};
分时压力:MA(REF(HHV(C,30),1),2),COLOR55FF55,precis2,LINETHICK0{XG51};
分时支撑:MA(REF(LLV(C,30),1),2),COLOR5555FF,precis2,LINETHICK0{XG51};
stICKLINE(FILTER(C,60)>0,高点,低点,0.5,0),COLOR000088{XG51};
STICKLINE(B4>0,0,B4+2,4,0),COLOR42FFFF{XG51};
STICKLINE(B3>0,0,B3+2,4,0),COLOR6064FB{XG51};
STICKLINE(B3<=0,0,B3-2,4,0),COLOREA7500{XG51};
STICKLINE(B4<0,0,B4-2,4,0),COLOR55FF55{XG51};
MA25:=EMA(CLOSE,25){XG51};
买卖分水岭:=EMA(CLOSE,905){XG51};
FILLRGN(0,B3+2,MA25 > 买卖分水岭,RGB(115,5,2)),PRECIS2,LAYER7{XG51};
FILLRGN(0,B3-2,MA25 < 买卖分水岭,RGB(0,100,50)),PRECIS2,LAYER7{XG51};
DRAWICON(crOSS(MA25,买卖分水岭),高点,6),ALIGN1{X*G!5+1*C*N*{};