DRAWGBK(C>0, RGB(0,0,0),RGB(0,10,10),0,'0',0);
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
DING:=MAX(O,C);{实顶}
DI:=MIN(O,C);{实底}
{}
CURR:=CURRBARSCOUNT;
TCH:=CONST(FINDHIGH(H,0,120*10,1));
GTT:=CONST(BARSLAST(TCH=H))+1;
SX跌H:=CONST(IF(GTT=1,H,REF(H,GTT-1)));
BCL:=CONST(FINDLOW(L,0,120*10,1));
DTT:=CONST(BARSLAST(BCL=L))+1;
SX涨L:=CONST(IF(DTT=1,L,REF(L,DTT-1)));
GTHT:=IF(DTT>GTT,DTT,GTT);
STICKLINE(CURRBARSCOUNT=GTT,SX跌H,SX涨L,0,-1),COLOR556600;
{低点上下画线}
L0:=1.05;HA:=50;HHA:=100;
TY:=L;
A1:=REF(TY,10)=HHV(TY,2*10+1);
B5:=FILTER(A1,10);
C5:=BACKSET(B5,10+1);
HD:=FILTER(C5,10);
A2:=REF(TY,10)=LLV(TY,2*10+1);
B6:=FILTER(A2,10);
C6:=BACKSET(B6,10+1);
LD:=FILTER(C6,10);
前期低位:=REF(L,BARSLAST(LD)),COLOR00FF00,POINTDOT;
LH:=前期低位*L0;
低点实体底价:REF(DI,BARSLAST(CROSS(BACKSET(ISLASTBAR,BARSLAST(LLV(前期低位,HA)=L)+1),0.5))),DOTLINE,COLOR556600;
高点实顶价:REF(DING,BARSLAST(CROSS(BACKSET(ISLASTBAR,BARSLAST(HHV(H,HHA)=H)+1),0.5))),DOTLINE,COLOR556600,LINETHICK1;
{}
半分位 高点实顶价+低点实体底价)/2,COLORWHITE,NODRAW;
上三一位 MAX(高点实顶价,低点实体底价)-MIN(高点实顶价,低点实体底价))*2/3+MIN(高点实顶价,低点实体底价),COLORYELLOW,NODRAW;
下三一位 MAX(高点实顶价,低点实体底价)-MIN(高点实顶价,低点实体底价))/3+MIN(高点实顶价,低点实体底价),COLORCYAN,NODRAW;
DRAWTEXT(CURRBARSCOUNT=1,半分位,VARCAT(VARCAT('●',VAR2STR(半分位,2)),'$')),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=1,上三一位,VARCAT(VARCAT('●',VAR2STR(上三一位,2)),'$')),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=1,下三一位,VARCAT(VARCAT('●',VAR2STR(下三一位,2)),'$')),COLOR556600;
IF(CURRBARSCOUNT<GTT+1 AND CURRBARSCOUNT>1,CONST(半分位),DRAWNULL),DOTLINE,COLOR556600;
IF(CURRBARSCOUNT<GTT+1 AND CURRBARSCOUNT>1,CONST(上三一位),DRAWNULL),DOTLINE,COLOR556600;
IF(CURRBARSCOUNT<GTT+1 AND CURRBARSCOUNT>1,CONST(下三一位),DRAWNULL),DOTLINE,COLOR556600;
|