|
以下是通达信狙击手操盘主图源码（无源码的请下载附件导入）
632233877.png
M2:=9;
XA_1:=IF((CLOSE-REF(CLOSE,1))*100/REF(CLOSE,1)>=9.9 AND OPEN=HIGH AND PERIOD=5,1,0);
XA_2:=BARSLASTCOUNT(XA_1)>=2;
XA_3:=CONST(BARSLAST(XA_2));
水平线:IF(CURRBARSCOUNT<=XA_3+1,CONST(IF(XA_3=0,MAX(CLOSE,OPEN),REF(MAX(CLOSE,OPEN),XA_3))),DRAWNULL),DOTLINE,COLORLIBLUE;
XA_4:=BARSLAST(YEAR!=REF(YEAR,1));
XA_5:=BARSLAST(HHV(VOL,XA_4+1)=VOL);
XA_6:=BARSLAST(LLV(VOL,XA_4+1)=VOL);
STICKLINE(FILTERX(XA_5=0,XA_4+1),OPEN,CLOSE,1,0),COLOR009900;
STICKLINE(FILTERX(XA_6=0,XA_4+1),OPEN,CLOSE,1,0),COLORGREEN;
XA_7:=CONST(XA_5);
天量:IF(CURRBARSCOUNT<=XA_7+3,CONST(IF(XA_7=0,OPEN,REF(OPEN,XA_7))),DRAWNULL),DOTLINE,COLORGREEN;
IF(CURRBARSCOUNT=XA_7+1,天量,DRAWNULL),COLORYELLOW,LINETHICK2;
XA_8:=STRCAT(HYBLOCK,18);
XA_9:=STRCAT(XA_8,DYBLOCK);
XA_10:=STRCAT(DYBLOCK,18);
XA_11:=STRCAT(XA_9,GNBLOCK);
XA_12:=STRCAT(XA_11,18);
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(XA_12,FGBLOCK)),COLORLIMAGENTA;
DRAWBAND(EMA(CLOSE,7),RGB(83,123,68),EMA(CLOSE,13),RGB(155,50,50));
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
DRAWBAND(EMA(CLOSE,13),RGB(83,123,50),EMA(CLOSE,55),RGB(83,123,50));
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
XA_13:=REF(HHV(MAX(HIGH,OPEN),N),M);
XA_14:=REF(LLV(MIN(HIGH,OPEN),N),M);
XA_15:=XA_13-(XA_13-XA_14)*0.191;
XA_16:=XA_13-(XA_13-XA_14)*0.382;
XA_17:=XA_13-(XA_13-XA_14)*0.5;
XA_18:=XA_13-(XA_13-XA_14)*0.618;
XA_19:=XA_13-(XA_13-XA_14)*0.809;
XA_20:=REFDATE(XA_13,DATE);
XA_21:=REFDATE(XA_15,DATE);
XA_22:=REFDATE(XA_16,DATE);
XA_23:=REF(HHVBARS(MAX(CLOSE,OPEN),60),15)+15;
XA_24:=REF(MAX(CLOSE,OPEN),XA_23);
STICKLINE(BARSTATUS=2,XA_24,XA_24,2000,1),COLORRED,LINETHICK2;
XA_25:=CONST(XA_23);
突破干:IF(CURRBARSCOUNT<=XA_25+1,CONST(IF(XA_25=0,MAX(CLOSE,OPEN),REF(MAX(CLOSE,OPEN),XA_25))),DRAWNULL),POINTDOT,COLORGREEN,LINETHICK4;
IF(CURRBARSCOUNT=XA_25+1,突破干,DRAWNULL),POINTDOT,COLORAA00AA,LINETHICK4;
DRAWTEXT(CURRBARSCOUNT=XA_25+1,突破干*1.01,STRCAT(CON2STR(CONST(XA_25+1),0),1)),COLORAA00AA;
操做线:EXPMA(CLOSE,7),COLORYELLOW,LINETHICK2;
支撑线:EXPMA(CLOSE,13),COLORRED,LINETHICK2;
防守线:EXPMA(CLOSE,55),COLORLIRED,LINETHICK2;
生命线:MA(CLOSE,30),DOTLINE,COLORMAGENTA;
海面:EMA(CLOSE,78),COLORWHITE,LINETHICK2;
海平面:EMA(CLOSE,80),COLORBLUE,LINETHICK2;
XA_26:=FILTER(BACKSET(FILTER(REF(LOW,500)=LLV(LOW,2*500+1),500),500+1),500);
XA_27:=FILTER(BACKSET(FILTER(REF(HIGH,25)=HHV(HIGH,2*25+1),25),25+1),25);
XA_28:=REF(CLOSE,BARSLAST(XA_27));
XA_29:=BARSLAST(XA_27)<BARSLAST(XA_26) AND NOT(XA_27);
麒麟:IF(XA_29,XA_28,XA_28),POINTDOT,COLORLIBLUE,LINETHICK3;
STICKLINE(XA_29,XA_28,XA_28,10,(-1)),COLORGREEN;
DRAWTEXT(ISLASTBAR,麒麟,19),COLORLIBLUE;
XA_30:=IF((CLOSE-REF(CLOSE,1))*100/REF(CLOSE,1)>=10-0.01*100/REF(CLOSE,1),1,0);
XA_31:=IF((REF(CLOSE,1)-CLOSE)*100/REF(CLOSE,1)>=10-0.01*100/REF(CLOSE,1),1,0);
STICKLINE(XA_30,OPEN,CLOSE,3,0),COLORAA00AA;
STICKLINE(XA_30,OPEN,CLOSE,1,0),COLORBLACK;
STICKLINE(XA_30,HIGH,LOW,0,1),COLORCC00CC;
STICKLINE(XA_30,OPEN,CLOSE,3,1),COLORCC00CC;
跌停板:STICKLINE(XA_31,OPEN,CLOSE,3,0),COLORFF1100;
STICKLINE(XA_31,OPEN,CLOSE,2.5,0),COLORFF3300;
STICKLINE(XA_31,OPEN,CLOSE,2,0),COLORFF4400;
STICKLINE(XA_31,OPEN,CLOSE,1.5,0),COLORFF5500;
STICKLINE(XA_31,OPEN,CLOSE,1,0),COLORFF6600;
STICKLINE(XA_31,OPEN,CLOSE,0.5,0),COLORFF7700;
STICKLINE(XA_31,LOW,HIGH,0,0),COLORFF7700;
XA_32:=REF((CLOSE-REF(CLOSE,1))/REF(CLOSE,1)<=(-0.03),1) AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>=0.03;
STICKLINE(XA_32,OPEN,CLOSE,2.5,0),COLOR0000A5;
STICKLINE(XA_32,OPEN,CLOSE,2,0),COLOR0000C5;
STICKLINE(XA_32,OPEN,CLOSE,1.5,0),COLOR0000D5;
STICKLINE(XA_32,OPEN,CLOSE,1,0),COLOR0000E5;
STICKLINE(XA_32,LOW,HIGH,0,0),COLOR0000F5;
STICKLINE(XA_32,CLOSE,(OPEN+CLOSE)/2,2.5,0),COLOR008CFD;
XA_33:=(HIGH-REF(CLOSE,1))/REF(CLOSE,1)*100;
XA_34:=(MAX(CLOSE,OPEN)-REF(CLOSE,1))/REF(CLOSE,1)*100;
STICKLINE(XA_33-XA_34>=2.5 AND PERIOD=5 AND CLOSE>OPEN AND MA(CLOSE,5),MAX(CLOSE,OPEN),HIGH,0,0),COLORGREEN;
STICKLINE(XA_33-XA_34>=2.5 AND PERIOD=5 AND CLOSE>OPEN AND MA(CLOSE,5),CLOSE,OPEN,3.1,0),COLORRED;
XA_35:=CLOSE<OPEN AND CLOSE>REF(CLOSE,1);
STICKLINE(XA_35,OPEN,CLOSE,2.8,1),COLOR0000CC;
XA_36:=OPEN>CLOSE AND OPEN>REF(CLOSE,1) AND CLOSE>REF(CLOSE,1);
假阴线:STICKLINE(XA_36,OPEN,CLOSE,2,0),COLORLIRED;
632133217.png
|
