通达信箱体主图指标 短线顶底多周期共振K线 源码附图

AB:=EMA(((2*C+H+L)/4-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,8);

BA:=EMA(AB,5);

A18:=REFDATE(REF(HHV(H,96),5),DATE);{高}

B1:=REFDATE(REF(LLV(L,96),5),DATE);{低}

DY:=((A18)+(B1))/2;{中}

顶:IF(AB>0 AND AB-BA<=0,A18,A18),DOTLINE,COLORCYAN;

腰:IF(AB>0 AND AB-BA<=0,DY,DY),DOTLINE,COLORCYAN;

底:IF(AB>0 AND AB-BA<=0,B1,B1),DOTLINE,COLORCYAN;

MC:=C#MONTH,NODRAW;

MO1:=IF(DAY<REF(DAY,1),O,DRAWNULL);

MO:=HHV(MO1,DAY),NODRAW;

STICKLINE(MC>=MO,MO,MC,4,-1)COLOR00009C;

STICKLINE(MC<MO,MO,MC,4,-1),COLOR4F2F4F;

AQ:=O#WEEK;B:=C#WEEK;

AAQ:=H#WEEK;BB:=L#WEEK;

STICKLINE(B>=AQ,AAQ,BB,4,0),COLOR00006B;

STICKLINE(B<AQ,AAQ,BB,4,0),COLOR663300;

P:=9;

WH1:=IF(L=LLV(L,P),L,DRAWNULL);

WH2:=CONST(BARSLAST(WH1!=DRAWNULL));

WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));

WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1);

WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));

WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1);

赢:IF(CURRBARSCOUNT<=WH2+10,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL),COLORMAGENTA,LINETHICK2;

DRAWTEXT(ISLASTBAR,赢,' YW'),COLORMAGENTA;

H1:=IF(H=HHV(H,P),H,DRAWNULL);

H2:=CONST(BARSLAST(H1!=DRAWNULL));

H3:=CONST(IF(H2=0,L,REF(L,H2)));

H4:=CONST(REF(BARSLAST(L<H3),H2+1)+H2+1);

H5:=CONST(IF(H4=0,L,REF(L,H4)));

H6:=CONST(REF(BARSLAST(L<H5),H4+1)+H4+1);

损:IF(CURRBARSCOUNT<=H2+10,CONST(IF(H6=0,L,REF(L,H6))),DRAWNULL),COLORGREEN,LINETHICK2;

DRAWTEXT(ISLASTBAR,损,' SW'),COLORGREEN;

{九线}

VAR1:=(2*CLOSE+HIGH+LOW+OPEN)/5;

A1:(EMA(VAR1,3)+EMA(VAR1,6)+EMA(VAR1,12)+EMA(VAR1,24))/4,COLOR0044BB;

A2:EMA(A1,2),COLOR3355BB;

A3:EMA(A2,2),COLOR4455BB;

A4:EMA(A3,2),COLOR5555BB;

A5:EMA(A4,2),COLOR6655BB;

A6:EMA(A5,2),COLOR7755BB;

A7:EMA(A6,2),COLOR8855BB;

DRAWKLINE(H,O,L,C);

STICKLINE(C>=O,C,O,3,0),COLOR1F1AC5;

STICKLINE(C>=O,C,O,1.3,0),COLOR1F1AD5;

STICKLINE(C>=O,C,O,0,0),COLOR1F1AF5;

STICKLINE(C<O,C,O,3,0),COLORBBBB00;

STICKLINE(C<O,C,O,1.3,0),COLORDDDD00;

STICKLINE(C<O,H,L,0,0),COLORFFFF00;

A8:EMA(VAR1,2.78)*1.028,COLORWHITE,LINETHICK1;

A9:MA(OPEN,3.2)*1.028,COLORYELLOW,LINETHICK1;

{涨停显示}

C6:=REF(C,1);

涨停:=IF((C-C6)*100/C6>=(10-0.01*100/C6),1,0);

STICKLINE(涨停,OPEN,CLOSE,2,0),COLORMAGENTA;

STICKLINE(涨停,H,L,0,0),COLORLIRED;

{高位}

VAR2:=(REF(HIGH,1)+REF(LOW,1))/2;

VAR3:=MA(CLOSE,20)+2*STD(CLOSE,20);

DRAWTEXT(CROSS(VAR2,VAR3),HIGH*1.045,'↓高'),COLORCYAN;

{逃顶}

VAR7:=REF(C,1);

VAR8:=SMA(MAX(C-VAR7,0),6,1)/SMA(ABS(C-VAR7),6,1)*100;

DRAWTEXT(CROSS(82,VAR8),H*1.025,'↓逃'),COLORCYAN;

{KDJ金叉}

VAR4:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));

VAR5:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));

VAR6:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));

DRAWICON(CROSS(VAR5,MA(VAR6,6)),(LOW - (LOW*0.015)),38);

DRAWICON(CROSS(MA(VAR6,6),VAR4),(HIGH+(HIGH*0.015)),39);

STICKLINE(CROSS("KDJ.K"(3,5,3),"KDJ.D"(3,5,3)),O,C,0.6,0),COLORYELLOW;

STICKLINE(CROSS("KDJ.D"(3,5,3),"KDJ.K"(3,5,3)),O,C,0.6,0),COLORBLUE;

{黑马}

VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);

VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);

DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.95),'★马'),COLORMAGENTA;

DRAWTEXT(FILTER((VAR4AA>90),35),(LOW)*(0.97),'★加'),COLORMAGENTA;

{主力进场}

VAR9:=((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100);

VAR10:=SMA(VAR9,3,1);

VAR11:=SMA(VAR10,3,1);

VAR12:=SMA(VAR11,3,1);

主力出现:DRAWICON(CROSS(VAR11,VAR12) AND (VAR11<40),L*0.98,23);

{突破追涨}

A10:=HHV(H,73);

A11:=LLV(L,73);

M1:=MA(C,13);

M2:=MA(C,36);

M3:=MA(C,73);

K1:=(0.618*A10+0.382*A11),COLORGREEN;

K2:=(0.5*A10+0.5*A11),COLORGREEN;

K3:=(0.382*A10+0.618*A11),COLORGREEN;

K4:=(0.191*A10+0.809*A11),COLORRED;

K5:=(0.809*A10+0.191*A11),COLORRED;

牛:=V=HHV(V,64) AND V>REF(V,1)*1.5;

单阳:=C AND 牛;

单阳收:=C;

单阳开:=O;

高不破价:=REF(C,BARSLAST(单阳));

前高:=HHV(高不破价,13);

STICKLINE(前高,高不破价,高不破价,5,0)DOTLINE,COLORBLUE;

突破:=CROSS(C,前高) AND C>MA(C,36) AND (C-O)/O>0.030 AND MA(C,13)>REF(MA(C,13),1) AND C>K5;

DRAWTEXT(CROSS(C,前高) AND C>MA(C,36) AND (C-O)/O>0.035 AND MA(C,13)>REF(MA(C,13),1) AND MA(C,36)>REF(MA(C,36),1) ,L*1.00,'☆突') ,COLORMAGENTA;

DRAWTEXT(单阳 >REF(单阳,1) AND (C-O)/O>0.0455,L*1.00,'★追') ,COLORMAGENTA;

所属地域:DRAWTEXT_FIX(ISLASTBAR ,0.05,0.01,1,DYBLOCK),COLORYELLOW;

所属行业:DRAWTEXT_FIX(ISLASTBAR ,0.06,0.01,0,HYBLOCK),COLORYELLOW;

低:IF(CURRBARSCOUNT<=WH2+1,IF(L=LLV(L,P),L*0.98,DRAWNULL),DRAWNULL),COLORRED,CIRCLEDOT,LINETHICK6;

高:IF(CURRBARSCOUNT<=H2+1,IF(H=HHV(H,P),H*1.012,DRAWNULL),DRAWNULL),COLORGREEN,CIRCLEDOT,LINETHICK6;

原理解析：
AB赋值:EMA(((2*C+H+L)/4-30日内最低价最低值)/(30日内最高价最高值-30日内最低价最低值)*100,8)
BA赋值:AB的5日指数移动平均
A18赋值:REFDATE(REF(96日内H最高值,5),DATE)
{高}
B1赋值:REFDATE(REF(96日内L最低值,5),DATE)
{低}
DY赋值:((A18)+(B1))/2
如果AB>0 AND AB-BA<=0返回A18否则返回A18
如果AB>0 AND AB-BA<=0返回DY否则返回DY
如果AB>0 AND AB-BA<=0返回B1否则返回B1
MC赋值:C#MONTH,NODRAW
MO1赋值:IF(DAY<1日前的DAY,O,DRAWNULL)
MO赋值:DAY日内MO1最高值,NODRAW
当满足条件MC>=MO时,在MO和MC之间画柱状线
当满足条件MC AQ赋值:O#WEEK
B赋值:C#WEEK
477219283918219224AQ赋值:H#WEEK
BB赋值:L#WEEK
当满足条件B>=AQ时,在477219283918219224AQ和BB之间画柱状线
当满足条件B P赋值:9
WH1赋值:IF(L=P日内L最低值,L,DRAWNULL)
WH2赋值:CONST(上次WH1!=DRAWNULL距今天数)
WH3赋值:CONST(IF(WH2=0,H,WH2日前的H))
WH4赋值:CONST(REF(上次H>WH3距今天数,WH2+1)+WH2+1)
WH5赋值:CONST(IF(WH4=0,H,WH4日前的H))
WH6赋值:CONST(REF(上次H>WH5距今天数,WH4+1)+WH4+1)
输出赢:IF(CURRBARSCOUNT<=WH2+10,CONST(IF(WH6=0,H,WH6日前的H)),DRAWNULL),画洋红色,LINETHICK2
当满足条件ISLASTBAR时,在赢和' YW'位置书写文字
H1赋值:IF(H=P日内H最高值,H,DRAWNULL)
H2赋值:CONST(上次H1!=DRAWNULL距今天数)
H3赋值:CONST(IF(H2=0,L,H2日前的L))
H4赋值:CONST(REF(上次L H5赋值:CONST(IF(H4=0,L,H4日前的L))
H6赋值:CONST(REF(上次L 输出损:IF(CURRBARSCOUNT<=H2+10,CONST(IF(H6=0,L,H6日前的L)),DRAWNULL),画绿色,LINETHICK2
当满足条件ISLASTBAR时,在损和' SW'位置书写文字
{九线}
VAR1赋值:(2*收盘价+最高价+最低价+OPEN)/5
输出A1:(VAR1的3日指数移动平均+VAR1的6日指数移动平均+VAR1的12日指数移动平均+VAR1的24日指数移动平均)/4,COLOR0044BB
输出A2:A1的2日指数移动平均,COLOR3355BB
输出A3:A2的2日指数移动平均,COLOR4455BB
输出A4:A3的2日指数移动平均,COLOR5555BB
输出A5:A4的2日指数移动平均,COLOR6655BB
输出A6:A5的2日指数移动平均,COLOR7755BB
输出A7:A6的2日指数移动平均,COLOR8855BB
DRAWKLINE(H,O,L,C)
当满足条件C>=O时,在C和O之间画柱状线
当满足条件C>=O时,在C和O之间画柱状线
当满足条件C>=O时,在C和O之间画柱状线
当满足条件C当满足条件C当满足条件C 输出A8:VAR1的2.78日指数移动平均*1.028,画白色,LINETHICK1
输出A9:OPEN的3.2日简单移动平均*1.028,画黄色,LINETHICK1
{涨停显示}
C6赋值:1日前的C
涨停赋值:IF((C-C6)*100/C6>=(10-0.01*100/C6),1,0)
当满足条件涨停时,在OPEN和收盘价之间画柱状线
当满足条件涨停时,在H和L之间画柱状线
{高位}
VAR2赋值:(1日前的最高价+1日前的最低价)/2
VAR3赋值:收盘价的20日简单移动平均+2*收盘价的20估算标准差
DRAWTEXT(VAR2上穿VAR3,最高价*1.045,'↓高'),画青色
{逃顶}
VAR7赋值:1日前的C
VAR8赋值:SMA(C-VAR7和0较大值,6,1)/SMA(C-VAR7的绝对值,6,1)*100
DRAWTEXT(82上穿VAR8,H*1.025,'↓逃'),画青色
{KDJ金叉}
VAR4赋值:(100 - ((90 * (14日内最高价最高值 - 收盘价)) / (14日内最高价最高值 - 14日内最低价最低值)))
VAR5赋值:(100 - ((90 * (14日内最高价最高值 - 收盘价)) / (14日内最高价最高值 - 14日内最低价最低值)))
VAR6赋值:(100 - MA(((100 * (6日内最高价最高值 - 收盘价)) / (6日内最高价最高值 - 6日内最低价最低值)),34))
DRAWICON(CROSS(VAR5,VAR6的6日简单移动平均),(最低价 - (最低价*0.015)),38)
DRAWICON(CROSS(VAR6的6日简单移动平均,VAR4),(最高价+(最高价*0.015)),39)
STICKLINE(CROSS("KDJ.K"(3,5,3),"KDJ.D"(3,5,3)),O,C,0.6,0),画黄色
STICKLINE(CROSS("KDJ.D"(3,5,3),"KDJ.K"(3,5,3)),O,C,0.6,0),COLORBLUE
{黑马}
VAR3AA:=IF((收盘价>1日前的收盘价),88,0)
VAR4AA赋值:IF(((收盘价)/(1日前的收盘价)>1.05) AND ((最高价)/(收盘价)<1.01) AND (VAR3AA>0),91,0)
DRAWTEXT(FILTER((VAR4AA>90),45),(最低价)*(0.95),'★马'),画洋红色
DRAWTEXT(FILTER((VAR4AA>90),35),(最低价)*(0.97),'★加'),画洋红色
{主力进场}
VAR9赋值:((收盘价-27日内最低价最低值)/(27日内最高价最高值-27日内最低价最低值))*(100)
VAR9的3日[1日权重]移动平均
VAR10的3日[1日权重]移动平均
VAR11的3日[1日权重]移动平均
输出主力出现:DRAWICON(VAR11上穿VAR12 AND (VAR11<40),L*0.98,23)
{突破追涨}
A10:=73日内H最高值
A11:=73日内L最低值
M1赋值:C的13日简单移动平均
M2赋值:C的36日简单移动平均
M3赋值:C的73日简单移动平均
K1赋值:(0.618*A10+0.382*A11),画绿色
K2赋值:(0.5*A10+0.5*A11),画绿色
K3赋值:(0.382*A10+0.618*A11),画绿色
K4赋值:(0.191*A10+0.809*A11),画红色
K5赋值:(0.809*A10+0.191*A11),画红色
牛赋值:V=64日内V最高值 AND V>1日前的V*1.5
单阳赋值:C AND 牛
单阳收:=C
单阳开:=O
高不破价赋值:REF(C,上次单阳距今天数)
前高赋值:13日内高不破价最高值
当满足条件前高时,在高不破价和高不破价之间画柱状线
突破赋值:C上穿前高 AND C>C的36日简单移动平均 AND (C-O)/O>0.030 AND C的13日简单移动平均>REF(C的13日简单移动平均,1) AND C>K5
DRAWTEXT(C上穿前高 AND C>C的36日简单移动平均 AND (C-O)/O>0.035 AND C的13日简单移动平均>REF(C的13日简单移动平均,1) AND C的36日简单移动平均>REF(C的36日简单移动平均,1) ,L*1.00,'☆突') ,画洋红色
DRAWTEXT(单阳 >1日前的单阳 AND (C-O)/O>0.0455,L*1.00,'★追') ,画洋红色
当满足条件ISLASTBAR 时,在横轴0.05纵轴0.01位置书写文字
当满足条件ISLASTBAR 时,在横轴0.06纵轴0.01位置书写文字
输出低:IF(CURRBARSCOUNT<=WH2+1,IF(L=P日内L最低值,L*0.98,DRAWNULL),DRAWNULL),画红色,CIRCLEDOT,LINETHICK6
输出高:IF(CURRBARSCOUNT<=H2+1,IF(H=P日内H最高值,H*1.012,DRAWNULL),DRAWNULL),画绿色,CIRCLEDOT,LINETHICK6