通达信金牛与庄共舞源码
HH:=HHV(HIGH,15);
LL:=LLV(LOW,15);
HH1:=BARSLAST((HH > REF(HH,1)));
LL1:=BARSLAST((LL < REF(LL,1)));
空头:IF((HH1 > LL1),HH,DRAWNULL),LINETHICK2,COLORGREEN;
多头:IF((HH1 < LL1),LL,DRAWNULL),LINETHICK2,COLORRED;
{PARTLINE((HH1 < LL1),LL),COLORYELLOW;
PARTLINE((HH1 > LL1),HH),COLORBLUE;}
STICKLINE(LL1>=HH1,LOW,HIGH,0,1),COLORRED;
STICKLINE(LL1>=HH1,CLOSE,OPEN,3.2,2),COLORRED;
STICKLINE(LL1<HH1,LOW,HIGH,0,1),COLORGREEN;
STICKLINE(LL1<HH1,CLOSE,OPEN,3.2,2),COLORGREEN;
STICKLINE(CROSS(HH1,LL1),OPEN,CLOSE,3.2,0),COLORGREEN;
STICKLINE(CROSS(LL1,HH1),OPEN,CLOSE,3.2,0),COLORRED;
STICKLINE((CLOSE>OPEN) AND (LL1<HH1),CLOSE,OPEN,3.2,2)COLORGREEN;
STICKLINE((CLOSE>OPEN) AND (LL1>=HH1),CLOSE,OPEN,3.2,2)COLORRED;
STICKLINE((CLOSE<OPEN) AND (LL1<HH1),CLOSE,OPEN,3.2,0)COLORGREEN;
STICKLINE((CLOSE<OPEN) AND (LL1>=HH1),CLOSE,OPEN,3.2,0)COLORRED;
{STICKLINE((HH1 < LL1),O,C,4,1),COLORRED;
STICKLINE((HH1 < LL1),C,H,0.1,1),COLORRED;
STICKLINE((HH1 < LL1),O,L,0.1,1),COLORRED;
STICKLINE((HH1 > LL1),O,C,4,0),COLORCYAN;
STICKLINE((HH1 > LL1),H,C,0.1,1),COLORCYAN;
STICKLINE((HH1 > LL1),O,L,0.1,1),COLORCYAN;}
DRAWTEXT(CROSS(HH1,LL1),HH,'空');
DRAWTEXT(CROSS(LL1,HH1),LL,'多');
{DRAWTEXT(((HH1 < REF(HH1,1)) AND (HH1 < LL1)),LOW,'♂加多');
DRAWTEXT(((LL1 < REF(LL1,1)) AND (HH1 > LL1)),HIGH,'♀加空');};
