大智慧BS指标.doc

大智慧BS指标（益盟）买线:=EMA(C,2); 卖线:=EMA(SLOPE(C,21)*20+C,42); BU:=cross(买线,卖线); SEL:=cross(卖线,买线); drawtext(bu,LOW,B),colorred,linethick3;DRAWTEXT(bu,LOW,),Color208FFF,LINETHICK3;DRAWTEXT(sel,HIGH,),ColorFFFF00,LINETHICK3;drawtext(sel,HIGH,S),colorgreen,linethick3;stickline(买线=卖线,low,high,0.1,1),colorred; stickline(买线=卖线,close,open,8,1),colorred; stickline(买线卖线,close,open,8,0),color00ff00; stickline(买线卖线,low,high,0.1,1),color00ff00; stickline(cross(买线,卖线) or cross(卖线,买线),open,close,6,0),colorffff00; 指导线: EMA(EMA(CLOSE,4)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24)/4,2),linethick1,ColorFFffFF; 界: MA(CLOSE,27),linethick1,Color00FFFF; DRAWTEXT(cross(指导线,界),界,),Colorffffff;DRAWTEXT(cross(界,指导线),界,),Color00ffff;大智慧BS指标（益盟）2a:=STSFuncCALSTSL;R1:=STSFuncSTS_RISK1;R2:=STSFuncSTS_RISK2;S1:=STSFuncSTS_STS1;S2:=STSFuncSTS_STS2;TBS:=STSFuncSTS_STSBS;DN:=STSFuncSTS_STSDN;UP:=STSFuncSTS_STSUP;压力位:UP,linethick0,color0000ff,PRECIS2;支撑位:DN,linethick0,color00ff00,PRECIS2;警示位:IF(R10,ABS(R1),IF(R20,ABS(R2),0),linethick0,colorff00ff,PRECIS2;MA5:MA(CLOSE,5),colorFFFFff,PRECIS2;MA10:MA(CLOSE,10),color00FFff,PRECIS2;DRAWLINE(UP0,UP,UPREF(UP,1) OR C=DYNAINFO(7),REF(ABS(UP),1),0),dotline,color0000ff,LINETHICK1;DRAWLINE(DN0,DN,DNREF(DN,1) OR C=DYNAINFO(7),REF(ABS(DN),1),0),dotline,color00ff00,LINETHICK1;DRAWLINE(UP0,-UP,UPREF(UP,1) OR C=DYNAINFO(7),REF(ABS(UP),1),0),color0000ff;DRAWLINE(DN0,-DN,DNREF(DN,1) OR C=DYNAINFO(7),REF(ABS(DN),1),0),color00ff00;DRAWLINE(R10,R1,R1REF(R1,1) OR C=DYNAINFO(7),REF(ABS(R1),1),0),dotline,colorEE88ff;DRAWLINE(R20,R2,R2REF(R2,1) OR C=DYNAINFO(7),REF(ABS(R2),1),0),dotline,colorEE88ff;DRAWLINE(R10,-R1,R1REF(R1,1) OR C=DYNAINFO(7),REF(ABS(R1),1),0),colorEE88ff;DRAWLINE(R20,-R2,R2REF(R2,1) OR C=DYNAINFO(7),REF(ABS(R2),1),0),colorEE88ff;drawbmp(TBS=1,l*0.96,STSbuy1.bmp),align1,valign0;drawbmp(TBS=-1,h*1.07,STSsell1.bmp),align1,valign0;drawbmp(S2=14,l*0.94,STSbuy.bmp),align1,valign0;drawbmp(S2=-14,h*1.09,STSsell.bmp),align1,valign0;drawtext(S10,L,STR(S1),color00FF00,LINETHICK1,align1,valign0;drawtext(S10 and S213,l*0.97,STR(S2),color0000FF,LINETHICK1,align1,valign0;drawtext(S2-13,H*1.06,STR(-S2),color0000FF,LINETHICK1,align1,valign0;drawtext(S2=13,l*0.97,+),color0000FF,LINETHICK1,align1,valign0;drawtext(S2=14,l*0.97,13),color0000FF,LINETHICK1,align1,valign0;drawtext(S2=-13,h*1.06,+),color0000FF,LINETHICK1,align1,valign0;drawtext(S2=-14,h*1.06,13),color0000FF,LINETHICK1,align1,valign0;b:=LTFunc6FORLT2;s11:=LTFunc6LT_S1;hs:=LTFunc6LT_HS;ls:=LTFunc6LT_LS;p1:=LTFunc6LT_P1;upp:=LTFunc6LT_UPP;udd:=LTFunc6LT_UDD;d1:=ema(abs(ddx.ddx),60);d2:=max(ddx.ddx/d1+7.5,7.5);d3:=min(ddx.ddx/d1,10);fb:=if(s11=0,hs,ls);tr0:=ifs(p1=1,明日收盘价 +numtostrn(upp,2)+,出现B点n);tr1:=ifs(s11=1,明日收盘价 +numtostrn(hs,2)+短线买入机会);tr2:=ifs(p1=1,ifs(cross(p1,0),B点,持股),ifs(cross(1,p1),S点,持币);tr3:=ifs(s11=0,向下,向上,);tr4:=3.能量级别:+numtostrn(d3,1)+级;bs:=+datestr(date)+ 买卖点决策系统提示n+1.BS 点:+tr2+,+tr0+2. 短线:+tr3+tr1+n+ +tr4;drawflagtext(1,fb,bs);STICKLINE(p1=1 and c=o and o0,c,o,d2,0),color5454ff;STICKLINE(p1=1 and c=o and o0,c,o,7.5,0),colorblack;STICKLINE(p1=1 and c=o and o0,c,c,7.5,0),color5454ff;STICKLINE(p1=1 and c=o and o0,o,o,7.5,0),color5454ff;STICKLINE(p1=1 and c=o and o0,o,c,7.5,1),color5454ff;STICKLINE(p1=1 and c=o,o,c,7.5,1),color5454ff;STICKLINE(p1=1 and c=o,l,c,0.5,1),color5454ff;STICKLINE(p1=1 and c=o,h,o,0.5,1),color5454ff;STICKLINE(p11 or barscount(c)=o,c,o,7.5,1),colorffff54;STICKLINE(p11 or barscount(c)=o,c,h,0.5,1),colorffff54;STICKLINE(p11 or barscount(c)=o,l,o,0.5,1),colorffff54;drawbmp(p1=1 and ref(p1,1)=0,l,buy1.bmp),align1,valign0;drawbmp(p1=0 and ref(p1,1)=1,h,sell1.bmp),align1,valign2;drawbmp(s11=1 and ref(s11,1)=0 and (p1+ref(p1,1)1,l,bs.bmp),align1,valign0;drawbmp(s11=0 and ref(s11,1)=1 and (p1+ref(p1,1)1,h,ss.bmp),align1,valign2;zg8:=FINANCE2(35);总股lta8:=FINANCE2(36);流通Asy8:=FINANCE2(3);收益sl8:=DYNAINFO(39);市盈率wf8:=FINANCE2(8);未分gj8:=FINANCE2(7);公积;jz8:=FINANCE2(4);净资cw8:=总股:+zg8+ 流通A:+lta8+ 收益:+sy8+ 市盈率:+sl8+ 未分:+wf8+ 公积:+gj8+ 净资:+jz8;DRAWTEXTREL(20,10,BKNAME),Coloryellow;DRAWTEXTREL(20,60,cw8),COLORAAEEEE;I1:=0;flag1:=0;while I1BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)DO IF REF(H,I1)HHV(H,I1+1) THEN BEGIN FLAG1:=1; S1:=I1; I1:=BARSLAST(DISPSTATUS=1); END ELSE I1:=I1+1; STICKLINE(FLAG1,REF(L,S1+1),HHV(H,S1+1),(s1+1)*20,0),ColorC0C0C0,ALIGN1,LAYER7; DRAWTEXT(flag1,REF(L,s1+1),NUMTOSTRN(ref(h,s1+1),2)+-+NUMTOSTRN(hhV(h,S1+1),2),ALIGN2,COLORgreen;I:=0;flag:=0;while IREF(H,I+1) AND REF(H,I+1)LLV(LOW,I+1) THEN BEGIN