大智慧高低射线加心悦诚服主图未加密选股指标公式源码

{高低射线}
{k线J}
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),colorred{XG51};
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),OPEN,CLOSE,8,0),colorred{XG51};
STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),LOW,HIGH,0.1,0),colorcyan{XG51};
STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),OPEN,CLOSE,8,0),colorcyan{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000066{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000088{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR0000AA{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR0000BB{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR0000CC{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000DD{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000EE{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000FF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF{XG51};
{卖黄金,rsi=80}
LC:=REF(C,1){XG51};
卖黄金:((Sma(MAX((C - LC),0),3,1) / SMA(Abs((C - LC)),3,1)) * 100),LINETHICK0{XG51};
STICKLINE(crOSS(80,卖黄金) AND C<O,H,L,2,0),COLOR00ffff,LAYER0{XG51};
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,12,0 ),COLOR007777,LAYER0{XG51};
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,8,0 ),COLOR009999,LAYER0{XG51};
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,6,0 ),COLOR00BBBB,LAYER0{XG51};
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,4,0 ),COLOR00DDDD,LAYER0{XG51};
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,2 ,0 ),COLOR00ffff,LAYER0;

{1.射线}
x:=BArslAST(DISPSTATUS=1)+1;{XG51};
ah:=hhvall(hhv(h,x));
al:=llvall(llv(l,x));
nnl:=DISPSTATUS=2;

DRAWLINE(h>=ah,ah,AH,ah,1),color0000ff,LINETHICK1{XG51};
DRAWLINE(h>=ah,ah,AL>=L,al,1),color9999ff,LINETHICK1{XG51};
DRAWLINE(h>=ah,ah,aH,ah*0.999,1){XG51};
DRAWLINE(h>=ah,ah,aH,ah*0.997,1){XG51};
DRAWLINE(h>=ah,ah,aH,ah*0.995,1){XG51};
DRAWLINE(h>=ah,ah,aH,ah*0.993,1){XG51};
DRAWLINE(h>=ah,ah,aH,ah*0.991,1){XG51};
DRAWLINE(h>=ah,ah,aH,ah*0.989,1){XG51};
DRAWLINE(h>=ah,ah,aH,ah*0.987,1){XG51};
DRAWLINE(h>=ah,ah,aH,ah*0.984,1){XG51};
DRAWLINE(h>=ah,ah,aH,ah*0.981,1){XG51};
DRAWLINE(h>=ah,ah,aH,ah*0.976,1);

DRAWLINE( al>=l,al,al , al,1),color00ff00,LINETHICK1{XG51};
DRAWLINE(al>=l,al,nnl ,ah,1),color00ffff,LINETHICK1{XG51};
DRAWLINE( al>=l,al,al ,al*1.15,1){XG51};
DRAWLINE( al>=l,al,al ,al*1.09,1){XG51};
DRAWLINE( al>=l,al,al ,al*1.06,1){XG51};
DRAWLINE( al>=l,al,al ,al*1.04,1){XG51};
DRAWLINE( al>=l,al,al ,al*1.03,1){XG51};
DRAWLINE( al>=l,al,al ,al*1.025,1){XG51};
DRAWLINE( al>=l,al,al ,al*1.02,1){XG51};
DRAWLINE( al>=l,al,al ,al*1.015,1){XG51};
DRAWLINE( al>=l,al,al ,al*1.011,1){XG51};
DRAWLINE( al>=l,al,al ,al*1.007,1){XG51};
DRAWLINE( al>=l,al,al ,al*1.003,1){XG51};
{2.黄金比}
ahl:=ah-al{XG51};
q191:=al+ahl*0.191;
q382:=al+ahl*0.382{XG51};
q500:=al+ahl*0.500{XG51};
q618:=al+ahl*0.618{XG51};
q809:=al+ahl*0.809;

DRAWTEXT(nnl,ah,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR0000ff{XG51};
DRAWTEXT(nnl,q809,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00{XG51};
DRAWTEXT(nnl,q618,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00{XG51};
DRAWTEXT(nnl,q500,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORff00ff{XG51};
DRAWTEXT(nnl,q382,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00{XG51};
DRAWTEXT(nnl,q191,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00{XG51};
DRAWTEXT(nnl,al,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR00ff00;

DRAWTEXT(nnl,ah*0.998,'最高价：'+ah+'元'),ALIGN0,Color0047FF,LINETHICK2{XG51};
DRAWTEXT(nnl,q809,'80.9%：' +q809+'元'),ALIGN0,Color00FFff,LINETHICK2{XG51};
DRAWTEXT(nnl,q618,'61.8%：'+q618+'元'),ALIGN0,Color0047FF,LINETHICK2{XG51};
DRAWTEXT(nnl,q500,'50%：'+q500+'元'),ALIGN0,Color00FFff,LINETHICK2{XG51};
DRAWTEXT(nnl,q382,'38.2%：'+q382+'元'),ALIGN0,Color0047FF,LINETHICK2{XG51};
DRAWTEXT(nnl,q191,'19.1%：'+q191+'元'),ALIGN0,Color00FFff,LINETHICK2{XG51};
DRAWTEXT(nnl,al*1.01,'最低价：'+al+'元'),ALIGN0,VALIGN2,Color0047FF,LINETHICK2;

{3.心悦诚服}
bbi:=(2*C+H+L+O/2)/4.5{XG51};
心悦:ema(((SLOPE(BBI,18)*27)+BBI),45),COLOR00FFff,DOTLINE{XG51};
PARTLINE(心悦,心悦>ref(心悦,1),rgb(255,0,0)),LINETHICK4,LAYER0;

诚服:(8*BBI+7*REF(BBI,1)+6*REF(BBI,2)+5*REF(BBI,3)+4*REF(BBI,4)+3*REF(BBI,5)+2*REF(BBI,6)
+1*REF(BBI,7))/36,COLORff00FF,LINETHICK2{XG51};
PARTLINE(诚服,诚服<ref(诚服,1),rgb(0,255,0)),LINETHICK3,LAYER0;
DRAWGBK(心悦>ref(心悦,1),STRIP(RGB(0,0,255),RGB(120,0,80),0)),LAYER0;

{?W=W=W*X~G_5=1~C~N~{?}