|
以下是通达信起爆点源码副图（无源码的请下载附件导入）
DRAWGBK(O<C,RGB(160,24,240),RGB(56,88,15),0,0);
N:=90;M:=3;
低:=REF(LLV(L,N),M);
低点:=REFDATE(低,DATE);
RRF:低点=L AND ((C-L)>(O-C) OR (O-L)>(C-O)),STICK;
STICKLINE(IF(RRF,-120,0),+12,0,4,0),COLOR000088;
STICKLINE(IF(RRF,-120,0),+12,0,3,0),COLOR0000AA;
STICKLINE(IF(RRF,-120,0),+12,0,2,0),COLOR0000CC;
STICKLINE(IF(RRF,-120,0),+12,0,1.4,0),COLOR0000EE;
STICKLINE(IF(RRF,-120,0),+12,0,0.9,0),COLOR0000EE;
STICKLINE(IF(RRF,-120,0),+12,0,0.3,0),COLORLIMAGENTA;
STICKLINE(IF(RRF,-120,0),+9,0,7,0),COLOR770077;
STICKLINE(IF(RRF,-120,0),+9,0,6,0),COLOR990099;
STICKLINE(IF(RRF,-120,0),+9,0,5,0),COLORBB00BB;
STICKLINE(IF(RRF,-120,0),+9,0,4,0),COLORDD00DD;
STICKLINE(IF(RRF,-120,0),+9,0,3,0),COLORFF00FF;
STICKLINE(IF(RRF,-120,0),+9,0,2,0),COLORDD00DD;
STICKLINE(IF(RRF,-120,0),+6,0,7,0),COLOR003300;
STICKLINE(IF(RRF,-120,0),+6,0,6,0),COLOR005500;
STICKLINE(IF(RRF,-120,0),+6,0,5,0),COLOR007700;
STICKLINE(IF(RRF,-120,0),+6,0,3.5,0),COLOR009900;
STICKLINE(IF(RRF,-120,0),+6,0,2,0),COLOR00CC00;
STICKLINE(IF(RRF,-120,0),+3,0,7,0),COLOR666666;
STICKLINE(IF(RRF,-120,0),+3,0,6,0),COLOR777777;
STICKLINE(IF(RRF,-120,0),+3,0,5,0),COLOR888888;
STICKLINE(IF(RRF,-120,0),+3,0,4,0),COLOR999999;
STICKLINE(IF(RRF,-120,0),+3,0,3,0),COLORDDDDDD;
STICKLINE(IF(RRF,-120,0),+3,0,2,0),COLORFFFFFF;
STICKLINE(IF(RRF,-120,0),-3,0,7,0),COLOR000044;
STICKLINE(IF(RRF,-120,0),-3,0,6,0),COLOR000033;
STICKLINE(IF(RRF,-120,0),-3,0,5,0),COLOR000055;
STICKLINE(IF(RRF,-120,0),-3,0,4,0),COLOR000077;
STICKLINE(IF(RRF,-120,0),-3,0,3,0),COLOR000099;
STICKLINE(IF(RRF,-120,0),-3,0,2,0),COLORLIMAGENTA;
DRAWTEXT(RRF,10.5,''),COLORYELLOW;
DRAWTEXT(RRF,7.5,''),COLORYELLOW;
DRAWTEXT(RRF,4.5,'起'),COLORRED;
DRAWTEXT(RRF,1.5,'爆'),COLORRED;
DRAWTEXT(RRF,-1.5,'点'),COLORYELLOW;
VAR1:=(2*CLOSE+HIGH+LOW)/4;
VAR2:=EXPMA(EXPMA(EXPMA(VAR1,4),4),4);
J: (VAR2-REF(VAR2,1))/REF(VAR2,1)*100, COLORSTICK;
D: MA(J,3);
K: MA(J,1);
DRAWICON(CROSS(D,J),J,2);
DRAWICON(CROSS(J,D),D,1);
独创:0;
743577737.jpg
743400353.rar
(3.77 KB, 下载次数: 0, 售价: 1 金钱)
|
