同花顺区间三分割主图选股指标公式源码

同花顺区间三分割主图选股指标公式源码

源码正文：

起点:=60;终点:=10;切换:=5{XG51};
DRAWGBKLAst(1,STRIP(RGB(30,80,220),RGB(130,80,180),1)){XG51};
nx:=CURRBARSCOUNT+1{XG51};
wz:=CURRBARSCOUNT+1=1{XG51};
wx:=CURRBARSCOUNT+1=起点{XG51};
wt:=BArslAST(wx);  
wxz:=IF(wt>=0,1,DRAWNULL){XG51};
QH:=IF(nx>=终点 AND nx<=起点,H,DRAWNULL);
QL:=IF(nx>=终点 AND nx<=起点,L,DRAWNULL){XG51};
XZ:=IF(nx>=终点,1,DRAWNULL){XG51};
//分割计算
ZH:=HHV(QH,0){XG51};
ZL:=LLV(QL,0){XG51};
HXT:=(ZH-ZL){XG51};
J1:=ZH-HXT*0.241{XG51};
J2:=ZH-HXT*0.382{XG51};
J3:=ZH-HXT*0.613{XG51};
J4:=ZH-HXT*0.786{XG51};
JXT:=(ZH-ZL)/8{XG51};
H1:=ZH-JXT*1{XG51};
H2:=ZH-JXT*2{XG51};
H3:=ZH-JXT*3{XG51};
H4:=ZH-JXT*5{XG51};
H5:=ZH-JXT*6{XG51};
H6:=ZH-JXT*7{XG51};
BXT:=(ZH-ZL)/10{XG51};
B1:=ZH-BXT*1{XG51};
B2:=ZH-BXT*2{XG51};
B3:=ZH-BXT*3{XG51};
B4:=ZH-BXT*4{XG51};
B5:=ZH-BXT*6{XG51};
B6:=ZH-BXT*7{XG51};
B7:=ZH-BXT*8{XG51};
B8:=ZH-BXT*9{XG51};
//股票k线
STICKLINE(OPEN,CLOSE ,OPEN,9,0 ),COLOR000000{XG51};
STICKLINE(OPEN>CLOSE ,CLOSE ,OPEN,8,0 ),COLOR007700{XG51};
STICKLINE(OPEN>CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900{XG51};
STICKLINE(OPEN>CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00bb00;    
STICKLINE(OPEN>CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00dd00;  
STICKLINE(OPEN>CLOSE ,HIGH,LOW,1.5 ,0 ),COLOR00ff00{XG51};
STICKLINE(CLOSE>=OPEN ,CLOSE,OPEN,8,0) ,COLOR000077{XG51};
STICKLINE(CLOSE>=OPEN ,CLOSE,OPEN,7,0) ,COLOR000099{XG51};
STICKLINE(CLOSE>=OPEN ,CLOSE,OPEN,5,0) ,COLOR0000bb;    
STICKLINE(CLOSE>=OPEN ,CLOSE,OPEN,3,0) ,COLOR0000dd;    
STICKLINE(CLOSE>=OPEN ,HIGH,LOW,1.5,0 ),COLOR0000FF{XG51};
STICKLINE(HIGH=LOW AND CLOSE>REF(CLOSE,1),HIGH-0.01,HIGH+0.01,8,0 ),COLOR0000FF{XG51};
STICKLINE(HIGH=LOW AND CLOSE<REF(CLOSE,1),HIGH-0.01,HIGH+0.01,8,0 ),COLOR00FF00{XG51};
//分割显示
IF 切换>=1 AND 切换<=3  THEN BEGIN
VERLINE(nx=终点 OR nx=起点,2),COLOR009fff{XG51};
x1:=IF(切换=1,J1,IF(切换=2,H1,IF(切换=3,B1,DRAWNULL))){XG51};
x2:=IF(切换=1,J2,IF(切换=2,H2,IF(切换=3,B2,DRAWNULL))){XG51};
x3:=IF(切换=1,J3,IF(切换=2,H3,IF(切换=3,B3,DRAWNULL))){XG51};
x4:=IF(切换=1,J4,IF(切换=2,H4,IF(切换=3,B4,DRAWNULL))){XG51};
高:BacKSET(IF(wz,ZH,DRAWNULL),起点-1)*wxz,COLORff88ff,LINETHICK2{XG51};
低:BACKSET(IF(wz,ZL,DRAWNULL),起点-1)*wxz,COLORff88ff,LINETHICK2;
中:BACKSET(IF(wz,(ZH+ZL)/2,DRAWNULL),起点-1)*wxz,COLORff88ff;
分1:BACKSET(IF(wz,X1,DRAWNULL),起点-1)*wxz,COLORffff00{XG51};
分2:BACKSET(IF(wz,X2,DRAWNULL),起点-1)*wxz,COLORffff00{XG51};
分3:BACKSET(IF(wz,X3,DRAWNULL),起点-1)*wxz,COLORffff00{XG51};
分4:BACKSET(IF(wz,X4,DRAWNULL),起点-1)*wxz,COLORffff00{XG51};
END{XG51};
IF 切换=2 OR 切换=3  THEN BEGIN
x5:=IF(切换=2,H5,B5){XG51};
x6:=IF(切换=2,H6,B6){XG51};
分5:BACKSET(IF(wz,X5,DRAWNULL),起点-1)*wxz,COLORffff00{XG51};
分6:BACKSET(IF(wz,X6,DRAWNULL),起点-1)*wxz,COLORffff00{XG51};
END{XG51};
IF 切换=3  THEN BEGIN
x7:=B7{XG51};
x8:=B8{XG51};
分7:BACKSET(IF(wz,X7,NULL),起点-1)*wxz,COLORffff00{XG51};
分8:BACKSET(IF(wz,X8,NULL),起点-1)*wxz,COLORffff00{XG51};
END{XG51};
//分割提示
DRAWTEXT(wz,高,'`'+TOSTRING(高,2)+'(高)'),COLORff88ff{XG51};
DRAWTEXT(wz,低,'`'+TOSTRING(低,2)+'(低)'),COLORff88ff{XG51};
DRAWTEXT(wz,中,'`'+TOSTRING(中,2)+'(中)'),COLORff88ff{XG51};
DRAWTEXT(wz,分1,'`'+TOSTRING(分1,2)+'(分1)'),COLORffffff{XG51};
DRAWTEXT(wz,分2,'`'+TOSTRING(分2,2)+'(分2)'),COLORffffff{XG51};
DRAWTEXT(wz,分3,'`'+TOSTRING(分3,2)+'(分3)'),COLORffffff{XG51};
DRAWTEXT(wz,分4,'`'+TOSTRING(分4,2)+'(分4)'),COLORffffff{XG51};
DRAWTEXT(wz,分5,'`'+TOSTRING(分5,2)+'(分5)'),COLORffffff{XG51};
DRAWTEXT(wz,分6,'`'+TOSTRING(分6,2)+'(分6)'),COLORffffff{XG51};
DRAWTEXT(wz,分7,'`'+TOSTRING(分7,2)+'(分7)'),COLORffffff{XG51};
DRAWTEXT(wz,分8,'`'+TOSTRING(分8,2)+'(分8)'),COLORffffff{XG51};
IF 切换=4  THEN BEGIN
AA5:ma(C,5),colorffffff{XG51};
AA10:MA(C,10),color00ffff{XG51};
AA20:MA(C,20),color009fff{XG51};
AA30:MA(C,30),colorffff00{XG51};
AA60:MA(C,60),color0000ff{XG51};
AA120:MA(C,120),color00ff00{XG51};
AA250:MA(C,250),colorff00ff{XG51};
zdx:=MAX(AA5,AA10,AA20,AA30,AA60,AA120,AA250){XG51};
ZXx:=MIN(AA5,AA10,AA20,AA30,AA60,AA120,AA250){XG51};
nhd:=(zdx/ZXx-1)*100{XG51};
中位线:=(AA5+AA10+AA20+AA30+AA60+AA120+AA250)/7{XG51};
PARTLINE(中位线,1,RGB(255,100,255),1,RGB(255,100,255)),LINETHICK2{XG51};
DRAWTEXT(CURRBARSCOUNT+1=1,中位线,'``中位线:'+TOSTRING(中位线,2)+'`\n``粘合度:'+TOSTRING(nhd,2)+'%'),colorff88ff{XG51};
END{XG51};
IF 切换=5 THEN BEGIN
boll:MA(CLOSE,20),COLORcccccc;//曲线属性--输出线性--不输出
PARTLINE(BOLL,BOLL>BOLL[1],RGB(255,0,0),BOLL<=BOLL[1],RGB(0,255,255)){XG51};
UB:BOLL+2*STD(CLOSE,20),COLORff88ff{XG51};
LB:BOLL-2*STD(CLOSE,20),COLOR00FFff{XG51};
DRAWTEXT(CURRBARSCOUNT+1=1,BOLL,'``中轨值:'+TOSTRING(BOLL,2)+'`\n``上下轨比:'+TOSTRING((UB/LB-1)*100,2)+'%'),colorff88ff{XG51};
END{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,1/100,0,0,'选股无忧网【分割图】 当前是'+IF(切换=1,'[黄金分割]',IF(切换=2,'[江恩分割]',
IF(切换=3,'[百分比]',IF(切换=4,'[平均线]','布林线'))))),color00ffff{X~G+5=1~C~N~{};