通达信时间价格分割主图指标(源码)

高点:=15;
低点:=10;
时间:=1;
价格:=1;
purc:=CONST(FINDHIGH(H,0,高点*10,1));
plz:=CONST(BARSLAST(purc=H))+1;
顶x:=CONST(IF(plz=1,H,REF(H,plz-1)));
qqt:=CONST(FINDLOW(L,0,低点*10,1));
pll:=CONST(BARSLAST(qqt=L))+1;
低x:=CONST(IF(pll=1,L,REF(L,pll-1)));
AAZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*0.809),DRAWNULL);
ABZ:=ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*0.5);
ACZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*0.618),DRAWNULL);
ADZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*0.382),DRAWNULL);
AEZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*0.236),DRAWNULL);
AFZ:=ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*1);
AGZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*1.809),DRAWNULL);
AHZ:=ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*1.5);
AIZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*1.618),DRAWNULL);
AJZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*1.382),DRAWNULL);
AKZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*1.236),DRAWNULL);
ALZ:=ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*2);
AMZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*2.236),DRAWNULL);
ANZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*2.382),DRAWNULL);
AOZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*2.5),DRAWNULL);
APZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*2.618),DRAWNULL);
AQZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*2.809),DRAWNULL);
ARZ:=IF(时间=1,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*3),DRAWNULL);
ASZ:=ROUND(IF(plz>pll,plz,pll));
STICKLINE(CURRBARSCOUNT=AAZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=ABZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=ACZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=ADZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=AEZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=AFZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=AGZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=AHZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=AIZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=AJZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=AKZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=ALZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=AMZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=ANZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=AOZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=APZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=AQZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=ARZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=ASZ,顶x,低x,0,0),COLORMAGENTA;
QAZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*1/8),DRAWNULL);
QBZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*2/8),DRAWNULL);
QCZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*3/8),DRAWNULL);
QDZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*4/3),DRAWNULL);
QEZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*5/8),DRAWNULL);
QGZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*6/8),DRAWNULL);
QHZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*7/8),DRAWNULL);
QIZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*9/8),DRAWNULL);
QJZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*1/3),DRAWNULL);
QKZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*2/3),DRAWNULL);
QMZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*10/8),DRAWNULL);
QNZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*11/8),DRAWNULL);
QOZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*5/3),DRAWNULL);
QPZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*13/8),DRAWNULL);
QQZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*14/8),DRAWNULL);
QRZ:=IF(时间=2,ROUND(IF(plz>pll,plz,pll)-ABS(plz-pll)*15/8),DRAWNULL);
STICKLINE(CURRBARSCOUNT=QAZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QBZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QCZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QDZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QEZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QGZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QHZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QIZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QJZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QKZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QMZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QNZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QOZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QPZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QQZ,顶x,低x,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=QRZ,顶x,低x,0,0),COLORMAGENTA;
DRAWKLINE(H,O,L,C);
天xx线:顶x,COLORMAGENTA;
地xx线:低x,COLORMAGENTA;
NOTEXT1:地xx线+(天xx线-地xx线)*0.5,COLORMAGENTA,DOTLINE;
NOTEXT2:IF(价格=1,地xx线+(天xx线-地xx线)*0.236,DRAWNULL),COLORMAGENTA,DOTLINE;
NOTEXT3:IF(价格=1,地xx线+(天xx线-地xx线)*0.382,DRAWNULL),COLORMAGENTA,DOTLINE;
NOTEXT4:IF(价格=1,地xx线+(天xx线-地xx线)*0.618,DRAWNULL),COLORMAGENTA,DOTLINE;
NOTEXT5:IF(价格=1,地xx线+(天xx线-地xx线)*0.809,DRAWNULL),COLORMAGENTA,DOTLINE;
NOTEXT6:IF(价格=2,地xx线+(天xx线-地xx线)*1/8,DRAWNULL),COLORMAGENTA,DOTLINE;
NOTEXT7:IF(价格=2,地xx线+(天xx线-地xx线)*2/8,DRAWNULL),COLORMAGENTA,DOTLINE;
NOTEXT8:IF(价格=2,地xx线+(天xx线-地xx线)*3/8,DRAWNULL),COLORMAGENTA,DOTLINE;
NOTEXT10:IF(价格=2,地xx线+(天xx线-地xx线)*5/8,DRAWNULL),COLORMAGENTA,DOTLINE;
NOTEXT11:IF(价格=2,地xx线+(天xx线-地xx线)*6/8,DRAWNULL),COLORMAGENTA,DOTLINE;
NOTEXT12:IF(价格=2,地xx线+(天xx线-地xx线)*7/8,DRAWNULL),COLORMAGENTA,DOTLINE;
NOTEXT13:IF(价格=2,地xx线+(天xx线-地xx线)*1/3,DRAWNULL),COLORMAGENTA,DOTLINE;
NOTEXT14:IF(价格=2,地xx线+(天xx线-地xx线)*2/3,DRAWNULL),COLORMAGENTA,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=AAZ,顶x*0.98,'0.809')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=ABZ,顶x*0.98,'0.500')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=ACZ,顶x*0.98,'0.618')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=ADZ,顶x*0.98,'0.382')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=AEZ,顶x*0.98,'0.236')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=AFZ,顶x*0.98,'1.00')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=AGZ,顶x*0.98,'1.809')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=AHZ,顶x*0.98,'1.500')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=AIZ,顶x*0.98,'1.618')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=AJZ,顶x*0.98,'1.382')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=AKZ,顶x*0.98,'1.236')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=ALZ,顶x*0.98,'2.00')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=AMZ,顶x*0.98,'2.236')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=ANZ,顶x*0.98,'2.382')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=AOZ,顶x*0.98,'2.500')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=APZ,顶x*0.98,'2.618')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=AQZ,顶x*0.98,'2.809')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=ARZ,顶x*0.98,'3.00')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=ASZ,顶x*0.98,'0.00')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QAZ,顶x*0.98,'1/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QBZ,顶x*0.98,'2/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QCZ,顶x*0.98,'3/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QDZ,顶x*0.98,'4/3')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QEZ,顶x*0.98,'5/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QGZ,顶x*0.98,'6/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QHZ,顶x*0.98,'7/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QIZ,顶x*0.98,'9/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QJZ,顶x*0.98,'1/3')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QKZ,顶x*0.98,'2/3')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QMZ,顶x*0.98,'10/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QNZ,顶x*0.98,'11/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QOZ,顶x*0.98,'5/3')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QPZ,顶x*0.98,'13/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QQZ,顶x*0.98,'14/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=QRZ,顶x*0.98,'15/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT1,'0.500')COLORRED;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT2,'0.236')COLORRED;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT3,'0.382')COLORRED;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT4,'0.618')COLORRED;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT5,'0.809')COLORRED;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT6,'1/8')COLORRED;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT7,'2/8')COLORRED;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT8,'3/8')COLORRED;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT10,'5/8')COLORRED;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT11,'6/8')COLORRED;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT12,'7/8')COLORRED;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT13,'1/3')COLORRED;
DRAWTEXT(CURRBARSCOUNT=3,NOTEXT14,'2/3')COLORRED;