DRAWGBK(O>C,RGB(0,50,50),RGB(66,0,0),0,'01',0);
N:=13;DO:=150612;DA:=150826;DB:=151117;DC:=160108;
{黄金分割}
高:IF (HIGH>PEAK(1,N,1),HHV(HIGH,N),PEAK(1,N,1))LINETHICK2,COLORBLUE;{最高价}
低:IF (LOW
F0382:(高-低)*0.382+低,DOTLINE,COLORCYAN;
F0500:(高-低)*0.500+低,DOTLINE,COLORWHITE;
F0618:(高-低)*0.618+低,DOTLINE,COLORCYAN;
F0809:(高-低)*0.809+低,DOTLINE,COLORYELLOW;
{三角背景}
趋势下:DRAWLINE(H=HHV(H,N),H,L=LLV(L,N),L,0)LINETHICK2,COLORGREEN;
SX:=REF(趋势下,1)<趋势下;
SS:=DRAWLINE(SX,趋势下,REF(SX,1),REF(趋势下,1),1);
DRAWBAND(SS,RGB(0,0,160),趋势下,RGB(0,0,0));
趋势上:DRAWLINE(L=LLV(L,N),L,H=HHV(H,N),H,0)LINETHICK2,COLORMAGENTA;
JX:=REF(趋势上,1)>趋势上;
JJ:=DRAWLINE(JX,趋势上,REF(JX,1),REF(趋势上,1),1);
DRAWBAND(JJ,RGB(0,0,0),趋势上,RGB(180,0,180));
DRAWKLINE(HIGH,OPEN,LOW,CLOSE) ;
{大资金流向}
超B:=L2_AMO(0,2)/10000.0;
大B:=L2_AMO(1,2)/10000.0;
中B:=L2_AMO(2,2)/10000.0;
小B:=L2_AMO(3,2)/10000.0;
超S:=L2_AMO(0,3)/10000.0;
大S:=L2_AMO(1,3)/10000.0;
中S:=L2_AMO(2,3)/10000.0;
小S:=L2_AMO(3,3)/10000.0;
大资金流向:(超B+大B)-(超S+大S)COLORYELLOW,NODRAW;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE) ;
STICKLINE(大资金流向<0,O,C,2,0),COLORFF3300;
STICKLINE(大资金流向<0,O,C,1.2,0),COLORFF6600;
STICKLINE(大资金流向<0,O,C,0.5,0),COLORFF9900;
STICKLINE(大资金流向>0,O,C,2,0),COLOR0066FF;
STICKLINE(大资金流向>0,O,C,1.2,0),COLOR099FFF;
STICKLINE(大资金流向>0,O,C,0.5,0),COLOR00FFFF;
TL:=1000000+DA;
TH:=1000000+DB;
TC:=1000000+DC;
TO:=1000000+DO;
AL:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(HIGH,TL),REFDATE(LOW,TL));
BH:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(LOW,TH),REFDATE(HIGH,TH));
CZF:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(HIGH,TC),REFDATE(LOW,TC));
DJB:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(LOW,TO),REFDATE(HIGH,TO));
OP:=BH-AL+CZF;
COP:=0.618*(BH-AL)+CZF;
XOP:=IF((1.618*(BH-AL)+CZF)<0,OP,1.618*(BH-AL)+CZF);
TODAY:=DATE;
STICKLINE(DATE=TC,CZF,XOP,0,-1),COLORYELLOW;
DRAWLINE(DATE=TC,COP,DATE=TODAY,COP,1),DOTLINE,COLORYELLOW;
DRAWLINE(DATE=TC,OP,DATE=TODAY,OP,1),DOTLINE,COLORYELLOW;
DRAWLINE(DATE=TC,XOP,DATE=TODAY,XOP,1),DOTLINE,COLORYELLOW;
DRAWTEXT(DATE=TC,COP*1.003,'(COP=0.618)'),COLORYELLOW;
DRAWTEXT(DATE=TC,OP*1.003,'(OP=1.000)'),COLORYELLOW;
DRAWTEXT(DATE=TC,XOP*1.003,'(XOP=1.618)'),COLORYELLOW;
DRAWNUMBER(DATE=TC,COP,COP),COLORYELLOW;
DRAWNUMBER(DATE=TC,OP,OP),COLORYELLOW;
DRAWNUMBER(DATE=TC,XOP,XOP),COLORYELLOW;
DRAWLINE(DATE=TO,DJB,DATE=TL,AL,0)CIRCLEDOT,COLORGREEN;
DRAWLINE(DATE=TL,AL,DATE=TH,BH,0)LINETHICK2,COLORYELLOW;
DRAWLINE(DATE=TH,BH,DATE=TC,CZF,0)LINETHICK2,COLORCYAN;
{区间涨跌}
向上:=TROUGHBARS(2,N,1);
向下:=PEAKBARS(1,N,1);
涨％:=IF(向上<向下,(C/低-1)*100,REF((C/低-1)*100,向下));
跌％:=IF(向下<向上,(C/高-1)*100,REF((C/高-1)*100,向上));
DRAWNUMBER(向上=0,低*0.99,Abs(高-低)),COLORGREEN;
DRAWNUMBER(向下=0,高*1.02,ABS(高-低)),COLORRED;
ZHSJ:=IF(向下<向上,BacKSET(ISLASTBAR,向下),IF(向上<向下,BACKSET(ISLASTBAR,向上),0));
DRAWTEXT(向下<向上 AND crOSS(ZHSJ,0.1),高*1.004,'本 高'),COLORGREEN;
DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),低*1.004,'本 低'),COLORRED;
DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0191*1.003,'80.9%'),COLORYELLOW;
DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0382*1.003,'61.8%'),COLORCYAN;
DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0500*1.003,'50.0%'),COLORWHITE;
DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0618*1.003,'38.2%'),COLORGREEN;
DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0809*1.003,'19.1%'),COLORRED;
DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),高,高)COLORGREEN;
DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0191,F0191)COLORYELLOW;
DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0382,F0382)COLORCYAN;
DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0500,F0500)COLORGREEN;
DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0618,F0618)COLORCYAN;
DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0809,F0809)COLORMAGENTA;
DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),低,低)COLORRED;
DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),高*1.003,'前 高'),COLORGREEN;
DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),低*1.003,'前 低'),COLORRED;
DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0191*1.003,'19.1%'),COLORRED;
DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0382*1.003,'38.2%'),COLORGREEN;
DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0500*1.003,'50.0%'),COLORWHITE;
DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0618*1.003,'61.8%'),COLORCYAN;
DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0809*1.003,'80.9%'),COLORYELLOW;
DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),高,高)COLORGREEN;
DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0809,F0809)COLORYELLOW;
DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0618,F0618)COLORCYAN;
DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0500,F0500)COLORGREEN;
DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0382,F0382)COLORCYAN;
DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0191,F0191)COLORMAGENTA;
DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),低,低)COLORRED;
