裸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);
DRAWICON(CROSS(BUY1,SELL1),L-0.1,7);
DRAWICON(CROSS(SELL1,BUY1),H+0.1,8);
|
发表于 2023-8-28 16:45:15
发表于 2023-10-1 14:37:14
