大智慧操盘手BS指标源码

买入、卖出、压力、支撑等。
 

操盘手BS

买线:=EMA(C,2);
卖线:=EMA(SLOPE(C,21)*20+C,42);  
BU:=cross(买线,卖线);
SEL:=cross(卖线,买线);
drawtext(bu,LOW,'B'),ALIGN1,VALIGN0,colorYELLOW,linethick2;
drawtext(sel,HIGH,'S'),ALIGN1,VALIGN2,colorFFFF00,linethick2;

MA5:ma(c,5),COLORRED,linethick2;
DD5:=MA5<REF(MA5,1);
PARTLINE(MA5,DD5),ColorFFFF00,linethick2;
x:=(3*c+l+o+h)/6;
多空线:(20*x+19*ref(x,1)+18*ref(x,2)+17*ref(x,3)+16*ref(x,4)+15*ref(x,5)+14*ref(x,6)
+13*ref(x,7)+12*ref(x,8)+11*ref(x,9)+10*ref(x,10)+9*ref(x,11)+8*ref(x,12)
+7*ref(x,13)+6*ref(x,14)+5*ref(x,15)+4*ref(x,16)+3*ref(x,17)+2*ref(x,18)+
ref(x,20))/210,coloryellow,linethick2;
DD:=多空线<REF(多空线,1);
PARTLINE(多空线,DD),colorblue,linethick5;
A:=(MA5>多空线);
PARTLINE(多空线,A),COLORYELLOW,POINTDOT;
A1:=(MA5<多空线);
PARTLINE(多空线,A1),COLORWHITE;

DRAWTEXTREL(820,680,'黄金卖点：'+NUMTOSTRN(EMA(c+(h-l)*0.618,3),2 )),LINETHICK2,coloryellow;
DRAWTEXTREL(820,620,'黄金买点：'+NUMTOSTRN(EMA((o+h+l)/3,4),2 )),LINETHICK2,coloryellow;
DRAWTEXTREL(820,750,'昨测今日买点：'+NUMTOSTRN(ref(EMA((o+h+l)/3,4)+((h+l)/2-ref((o+h+l)/3,3))/4,1),2 )),LINETHICK2,colorwhite;
DRAWTEXTREL(820,810,'昨测今日卖点：'+NUMTOSTRN(ref(EMA(c+(h-l)*0.618,3)+(EMA(c+(h-l)*0.618,3)-EMA((o+h+l)/3,4))*0.618,1),2 )),LINETHICK2,colorwhite;

CDP:=(REF(H,1)+REF(L,1)+REF(C,1)*2+O)/5;
E:=CDP;
zl:=2*E-REF(L,1);
zc:=2*E-REF(H,1);
fz:=E-(REF(H,1)-REF(L,1));
ZZ:=CDP+(REF(H,1)-REF(L,1));
drawtextabs(10,80,'低吸:'+ numtostrn(zc,3)),ColorFFFFFF;
drawtextabs(10,60,'中价:'+ numtostrn(E,3)),ColorFFFF10;
drawtextabs(10,40,'高抛:'+ numtostrn(zl,3)),COLORGREEN;
drawtextabs(10,20,'追涨:'+ numtostrn(ZZ,3)),Coloryellow;
drawtextabs(10,100,'杀跌:'+ numtostrn(fz,3)),ColorFF77FF;
STICKLINE(DISPSTATUS=2 ,zl,zl,50,9991),COLORGREEN;
STICKLINE(DISPSTATUS=2 ,zc,zc,50,9991),ColorFFFFFF;
STICKLINE(DISPSTATUS=2 ,E,E,50,9991),ColorFFFF10;
STICKLINE(DISPSTATUS=2 ,fz,fz,50,9991),ColorFF77FF;
STICKLINE(DISPSTATUS=2 ,ZZ,ZZ,50,9991),Coloryellow;

N:=20;
均价:=(3*C+H+L+O)/6;
VAR1:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36;
VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1;
SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1;
SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1;
SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND CLOSE>VAR2 AND CLOSE<VAR1;
SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1) AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);;
SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2;
XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2);
XD2:=VAR1=VAR2 AND CLOSE>VAR1;
SAT:=(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N));

量能饱和度:=IF(SAT>1,1,SAT)*100;
IF BARSTATUS=2 AND SZ1 THEN BEGIN
DRAWTEXTABS(320,25,'调整结束短线介入'),COLORRED;
END
ELSE
IF BARSTATUS=2 AND SZ2 THEN BEGIN
DRAWTEXTABS(320,25,'上升通道走势良好'),COLORRED;
END
ELSE
IF BARSTATUS=2 AND SZ3 THEN BEGIN
DRAWTEXTABS(320,25,'股价偏离注意调整'),COLORRED;
END
ELSE
IF BARSTATUS=2 AND SZ4 THEN BEGIN
DRAWTEXTABS(320,25,'上升通道调整洗盘'),COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND SZ5 THEN BEGIN
DRAWTEXTABS(320,25,'转向特征注意离场'),COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND SZ6 THEN BEGIN
DRAWTEXTABS(320,25,'通道改变坚决离场'),COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND XD1 THEN BEGIN
DRAWTEXTABS(320,25,'下跌通道只宜观望'),COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND XD2 THEN BEGIN
DRAWTEXTABS(320,25,'短期底部准备进入'),COLORYELLOW;