「翔博精选指标」裸K线主图（通达信公式 主图 源码 测试图）

 

源码如下：

{一目了然}

DRAWGBK(C>0,RGB(20,0,28),RGB(20,0,28),0,0,1);

N:=240;

KK:=BARSLAST(CURRBARSCOUNT=N);

GD:=CONST(IF(ISLASTBAR=1,HHV(H,KK),0));

RR:=CONST(IF(ISLASTBAR=1,LLV(L,KK),0));

KJ:=GD-RR;

高:IF(CURRBARSCOUNT<=N,GD,DRAWNULL),COLOR00FFFF,POINTDOT;

压:IF(CURRBARSCOUNT<=N,GD-KJ*0.191,DRAWNULL),COLORFF00FF,NODRAW;

平衡:IF(CURRBARSCOUNT<=N,RR+KJ/2,DRAWNULL),COLOR00FFFF,NODRAW;

支撑:IF(CURRBARSCOUNT<=N,RR+KJ*0.191,DRAWNULL),COLOR00FF00,NODRAW;

低:IF(CURRBARSCOUNT<=N,RR,DRAWNULL),COLOR00FF00,POINTDOT;

天:BARSLAST(L=RR),COLOR00FFFF,NODRAW;

STICKLINE(CURRBARSCOUNT=N,GD,RR,0,-1),COLORGREEN;

STICKLINE(CURRBARSCOUNT=N,GD,RR,0,-1),COLORGREEN;

STICKLINE(CURRBARSCOUNT=1,GD,RR,0,-1),COLORGREEN;

STICKLINE(CURRBARSCOUNT<=N,平衡,平衡,3,-1),COLORWHITE;

STICKLINE(CURRBARSCOUNT<=N,压,压,3,-1),COLORRED;

STICKLINE(CURRBARSCOUNT<=N,支撑,支撑,3,-1),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=1,压,'0.809'),COLOR0000FF;

DRAWTEXT(CURRBARSCOUNT=1,平衡,'0.500'),COLORFFFFFF;

DRAWTEXT(CURRBARSCOUNT=1,支撑,'0.191'),COLOR00FFFF;

A:=EMA(C,21)COLORBLUE,LINETHICK3;

B:=A<REF(A,1);

HY:=IF(B-1,A,DRAWNULL)COLORRED,LINETHICK3;

AA:=EMA(C,3) > EMA(C,21);

BB:=EMA(C,3) < EMA(C,21);

CC:= EMA(C,3) > EMA(C,8);

CC1:=EMA(C,3) < EMA(C,8);

STICKLINE(AA,L,H,0,0),COLOR0088EE;{金色}

STICKLINE(AA,CLOSE,OPEN,3,0),COLOR0055AA;

STICKLINE(AA,CLOSE,OPEN,2.8,0),COLOR0066BB;

STICKLINE(AA,CLOSE,OPEN,2.5,0),COLOR0077CC;

STICKLINE(AA,CLOSE,OPEN,2.2,0),COLOR0088DD;

STICKLINE(AA,CLOSE,OPEN,1.7,0),COLOR0099EE;

STICKLINE(AA,CLOSE,OPEN,1.2,0),COLOR00AAFF;

STICKLINE(AA,CLOSE,OPEN,0.7,0),COLOR00CCFF;

STICKLINE(AA,CLOSE,OPEN,0.2,0),COLOR00FFFF;

STICKLINE(BB,H,L,0,1),COLORGREEN;{绿色}

STICKLINE(BB,C,O,3.2,0),COLOR006600;

STICKLINE(BB,C,O,2.6,0),COLOR008800;

STICKLINE(BB,C,O,1.9,0),COLOR00AA00;

STICKLINE(BB,C,O,1.1,0),COLOR00CC00;

STICKLINE(BB,C,O,0.3,0),COLOR00FF00;

STICKLINE(BB AND CC,H,L,0,1),COLORFF55FF;{紫色}

STICKLINE(BB AND CC,C,O,3.2,0),COLOR880088;

STICKLINE(BB AND CC,C,O,2.6,0),COLORAA00AA;

STICKLINE(BB AND CC,C,O,1.9,0),COLORCC00CC;

STICKLINE(BB AND CC,C,O,1.1,0),COLOREE00EE;

STICKLINE(BB AND CC,C,O,0.3,0),COLORFF44FF;

STICKLINE(AA AND CC1,H,L,0,1),COLORFF8800;{蓝色}

STICKLINE(AA AND CC1,C,O,3.2,0),COLORFF2200;

STICKLINE(AA AND CC1,C,O,2.6,0),COLORFF4400;

STICKLINE(AA AND CC1,C,O,1.9,0),COLORFF6600;

STICKLINE(AA AND CC1,C,O,1.1,0),COLORFF8800;

STICKLINE(AA AND CC1,C,O,0.3,0),COLORFFAA00;

DRAWTEXT(CURRBARSCOUNT=N/2+9,GD-KJ/12,'★强势区域--急拉减仓!'),COLOR00FFFF;

DRAWTEXT(CURRBARSCOUNT=N/2+9,GD-KJ/3,'●震荡整理--寻机低吸!'),COLOR00FF00;

DRAWTEXT(CURRBARSCOUNT=N/2+9,RR+KJ/3,'◆反弹中轨--逢高休息!'),COLORFFFFFF;

DRAWTEXT(CURRBARSCOUNT=N/2+9,RR+KJ/10,'■弱势区域--暂不参与!'),COLORFFFF00;

 

STICKLINE(BARSLAST(CURRBARSCOUNT=3)>=0,REF(C,BARSLAST(CURRBARSCOUNT=3)),REF(C,BARSLAST(CURRBARSCOUNT=3)),6,-1),COLORYELLOW;

AAA:=BARSLAST(DATE!=REF(DATE,1));

前天收:=REF(C,AAA+2)COLORWHITE;

{}

{高点突破};

BDGD:=C=HHV(C,13);

GDSJ:=BARSLAST(FILTER(CROSS(0.8,BDGD),2))+1;

高点:REF(C,GDSJ),COLORFF00FF,POINTDOT;

突破:CROSS(C,REF(高点,1)),COLOR00FFFF,POINTDOT,NODRAW;

STICKLINE(GDSJ<=6,高点,高点,3,0),COLORFF00FF;

DRAWTEXT(突破,LOW,'↑突买'),COLOR00FFFF;

DRAWICON(CROSS(C,HHV(突破,'↑突买')),L,1);

DRAWICON(CROSS(C,HHV(高点,120)),L,1);

{}

{主题概念}

ZZ1:=STRCAT(HYBLOCK,'----');   

Z2:=STRCAT(ZZ1,FGBLOCK);

Z3:=STRCAT(Z2,DYBLOCK);   

Z4:=STRCAT(Z3,'----');   

DRAWTEXT_FIX(1,0.00,0.06,0,'    主题概念：')COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.07,0.06,0,STRCAT(Z4,GNBLOCK)),COLORCYAN;

DRAWTEXT_FIX(1,0.07,0.24,0,EXTERNSTR(0,14))COLORYELLOW;

DRAWTEXT_FIX(1,0.00,0.12,0,'   金色持股  /   紫色反弹  /   蓝色洗盘  /   绿色持币')COLORLIRED;

{};

{金财神SB}

M5:=MA(CLOSE,5);

M10:=MA(CLOSE,10);

M30:=MA(CLOSE,30);

VR1:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25);

VAR2:=HIGH-REF(HIGH,1);

VAR3:=REF(LOW,1)-LOW;

VAR4:=SUM(IF(VAR2>0 AND VAR2>VAR3,VAR2,0),25);

VAR5:=SUM(IF(VAR3>0 AND VAR3>VAR2,VAR3,0),25);

VAR6:=VAR4*100/VR1;

VAR7:=VAR5*100/VR1;

VAR8:=MA(ABS(VAR7-VAR6)/(VAR7+VAR6)*100,15);

VAR9:=(VAR8+REF(VAR8,15))/2;

BUY1:=ZIG(3,10);

SELL1:=MA(BUY1,2);