通达信四区决策阶梯主图指标 源码

VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
买１:=VAR10;
买２:=(VAR11+VAR13+VAR15+VAR17);
卖１:=(VAR12+VAR14+VAR16+VAR18);
B:IF(买１>0 OR 买２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;
DRAWTEXT(买１>0 OR 买２>0,LOW*0.98,'W买'),COLORFFFF00;
S:IF(卖１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;
DRAWTEXT(卖１>0,HIGH*1.02,'W快卖'),COLORGREEN;
DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.98,23) ;
DRAWICON((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.01,14);
{2部分}
高1:=REF(HHV(H,120),3);
低1:=REF(LLV(L,120),3);
H1:=高1-(高1-低1)*0.191;
H2:=高1-(高1-低1)*0.382;
H3:=高1-(高1-低1)*0.5;
H4:=高1-(高1-低1)*0.618;
H5:=高1-(高1-低1)*0.809;
突破:=REF(EMA(C,14),1);
A1X:=(EMA(C,10)-突破)/突破*100;
JZ:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1)),COLORFFFF00,LINETHICK2;
N1:=100;
KD:=BARSLAST(CURRBARSCOUNT=N1);
GD:=CONST(IF(ISLASTBAR=1,HHV(H,KD),0));
DD:=CONST(IF(ISLASTBAR=1,LLV(L,KD),0));
KJ:=GD-DD;
GD4:=IF(CURRBARSCOUNT<=N1/2,GD,DRAWNULL);
DRAWBAND(GD4,RGB(0,200,240),DD+KJ/2,RGB(0,0,0));{该行设置背景色}
ND:=IF(BARSCOUNT(C)>=8,8,BARSCOUNT(C));
AMOV:=VOL*(C+L+H)/3;
MN:=SUM(AMOV,ND)/SUM(VOL,ND);
STICKLINE(A1X>=0,JZ,突破,5,0),COLOR9400D3;
STICKLINE(A1X<0,JZ,突破,5,0),COLOR00CED1;
AAC:=CROSS(A1X,0),LINETHICK0;
BBC:=CROSS(0,A1X),LINETHICK0;
DRAWICON(AAC,JZ*0.98,34);
DRAWICON(BBC,JZ*1.015,35);
LC:= REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
逃顶:=CROSS(82,RSI);
DRAWICON( 逃顶,H*1.01,15);
DRAWTEXT( 逃顶,H*1.01,' ←快跑'),COLORFFFFFF;
平衡:=IF(CURRBARSCOUNT<=N1,DD+KJ/2,DRAWNULL),COLOR00FFFF,NODRAW;
压力:=IF(CURRBARSCOUNT<=N1,GD-KJ*0.191,DRAWNULL),COLORFF00FF,NODRAW;
支撑:=IF(CURRBARSCOUNT<=N1,DD+KJ*0.191,DRAWNULL),COLOR00FF00,NODRAW;
高区:IF(CURRBARSCOUNT<=N1,GD,DRAWNULL),COLORRED,DOTLINE;
低区:IF(CURRBARSCOUNT<=N1,DD,DRAWNULL),COLOR00FF00,DOTLINE;
A1:=BARSLAST(MONTH!=REF(MONTH,1))+1;
月±%:(CLOSE/REF(CLOSE,A1)-1)*100,COLOR00FFFF,NODRAW;
STICKLINE(CURRBARSCOUNT=N1,GD,DD,0,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=N1/2,GD,DD,0,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=1,GD,DD,0,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT<=N1,平衡,平衡,3,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT<=N1/2,压力,压力,3,-1),COLORRED;
STICKLINE(CURRBARSCOUNT<=N1/2,支撑,支撑,3,-1),COLORGREEN;
DRAWKLINE(H,O,L,C);
DRAWTEXT(CURRBARSCOUNT=1,压力,'0.809'),COLOR0000FF;
DRAWTEXT(CURRBARSCOUNT=1,平衡,'0.500'),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=1,支撑,'0.191'),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=N1/2-10,GD-KJ/12,'★★强势区域--急拉减仓★★'),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=N1/2-10,GD-KJ/3,'★★震荡整理--寻机低吸★★'),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=N1/2-10,DD+KJ/3,'★★反弹中轨--逢高休息★★'),COLORFFFF00;
DRAWTEXT(CURRBARSCOUNT=N1/2-10,DD+KJ/10,'★★弱势区域--暂不参与★★'),COLORFFFF00;
C1:=C>=JZ;
C2:=C<JZ;
AA:=C1>=C2 ;
BB:=C2>C1 ;
STICKLINE(AA,C,O,3,0),COLORRED;
STICKLINE(AA,H,L,0,0),COLORRED;
STICKLINE(BB,C,O,3,0),COLOR00FF00;
STICKLINE(BB,H,L,0,0),COLOR00FF00;
{红}
STICKLINE(AA,CLOSE,OPEN,3,0),COLOR000099;
STICKLINE(AA,CLOSE,OPEN,2.2,0),COLOR0000CC;
STICKLINE(AA,CLOSE,OPEN,1.5,0),COLOR0000FF;
STICKLINE(AA,CLOSE,OPEN,0.5,0),COLORCC66FF;
{蓝}
STICKLINE(BB,CLOSE,OPEN,3,0),COLORFF7700;
STICKLINE(BB,CLOSE,OPEN,2.2,0),COLORFF9900;
STICKLINE(BB,CLOSE,OPEN,1.5,0),COLORFFBB00;
STICKLINE(BB,CLOSE,OPEN,0.5,0),COLORCYAN;
MN1:SUM(AMOV,ND)/SUM(VOL,ND),COLORFF0000,LINETHICK3;
NOTEXT1:IF(C>MN1,MN1,DRAWNULL),LINETHICK3,COLOR0000FF;
NOTEXT2:IF(C<MN1,MN1,DRAWNULL),LINETHICK3,COLOR00FFFF;
AAA:= C>MN;
BBB:= C<MN;
DDD:= A1X>=0;
EE:= A1X<0;
TT:=IF(ISLASTBAR,240/FROMOPEN,1);
NN:=120;
HH:=HHV(V*TT,NN);
LL:=LLV(V,NN);
最高:=CONST(HH);
最低:=CONST(LL);
最高2:=CONST(HHV(H,NN));
最低2:=CONST(LLV(L,NN));
PP:=IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,20)),0.9,IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,50)),0.7,0.6)),NODRAW;
RCC1:=最高2*0.9-(最高2-最低2)*PP;
最低3:=MIN(RCC1,最低2);
AAD:=最低3;
STICKLINE(AAA,AAD-0.000*AAD,AAD-0.030*AAD,4,0),COLORRED;
STICKLINE(BBB,AAD-0.005*AAD,AAD-0.025*AAD,4,0),COLOR00DDDD;
STICKLINE(DDD,AAD-0.035*AAD,AAD-0.065*AAD,4,0),COLORDD00DD;
STICKLINE(EE,AAD-0.040*AAD,AAD-0.060*AAD,4,0),COLORAAAAAA;
DRAWTEXT_FIX(1,0.3,0.87,0,'★★[上] 红色--决策短线持股★★★★[下] 粉色--梯形彩块持股★★'),COLORFFFFFF ;

原理解析：
VAR3赋值:240日内最高价最低值
VAR4赋值:100*(CLOSE-VAR3)/VAR3
VAR5赋值:(CLOSE-528日内最低价最低值)/(528日内最高价最高值-528日内最低价最低值)*100
VAR6赋值:(CLOSE-530日内CLOSE最低值)/(530日内CLOSE最高值-530日内CLOSE最低值)*100
VAR7赋值:0
VAR8赋值:SMA(CLOSE-1日前的CLOSE和0较大值,34,1)/SMA(CLOSE-1日前的CLOSE的绝对值,7,1)*100
VAR9赋值:SMA(CLOSE-1日前的CLOSE和0较大值,13,1)/SMA(CLOSE-1日前的CLOSE的绝对值,13,1)*100
VAR10赋值:IF(TROUGHBARS(3,16,1)=0 AND 最高价>最低价+0.04,4,0)
VAR11赋值:ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3)
VAR12赋值:ZIG(3,6)=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3)
VAR13赋值:ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3)
VAR14赋值:ZIG(3,22)=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3)
VAR15赋值:ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3)
VAR16赋值:ZIG(3,51)=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3)
VAR17赋值:ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3)
VAR18赋值:ZIG(3,72)=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3)
VAR19赋值:CLOSE的2日指数移动平均-CLOSE的150日指数移动平均
买１赋值:VAR10
买２赋值:(VAR11+VAR13+VAR15+VAR17)
卖１赋值:(VAR12+VAR14+VAR16+VAR18)
如果买１>0 OR 买２>0返回最低价*0.99否则返回DRAWNULL
当满足条件买１>0 OR 买２>0时,在最低价*0.98和'W买'位置书写文字
如果卖１>0返回最高价*1.01否则返回DRAWNULL
当满足条件卖１>0时,在最高价*1.02和'W快卖'位置书写文字
DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),最低价*0.98,23)
DRAWICON((ZIG(3,5)=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),最高价*1.01,14)
{2部分}高1赋值:REF(120日内H最高值,3)
低1赋值:REF(120日内L最低值,3)
H1赋值:高1-(高1-低1)*0.191
H2赋值:高1-(高1-低1)*0.382
H3赋值:高1-(高1-低1)*0.5
H4赋值:高1-(高1-低1)*0.618
H5赋值:高1-(高1-低1)*0.809
突破赋值:1日前的C的14日指数移动平均
A1X赋值:(C的10日指数移动平均-突破)/突破*100
JZ赋值:IF(A1X>=0,REF(C的10日指数移动平均,上次A1X上穿0距今天数+1),REF(C的10日指数移动平均,BARSLAST(0上穿A1X)+1)),COLORFFFF00, 线宽为2
N1赋值:100
KD赋值:上次CURRBARSCOUNT=N1距今天数
GD赋值:CONST(IF(ISLASTBAR=1,KD日内H最高值,0))
DD赋值:CONST(IF(ISLASTBAR=1,KD日内L最低值,0))
KJ赋值:GD-DD
如果CURRBARSCOUNT<=N1/2返回GD否则返回DRAWNULL
DRAWBAND(GD4,RGB(0,200,240),DD+KJ/2,RGB(0,0,0))
{该行设置背景色}ND赋值:IF(C的有效数据周期数>=8,8,C的有效数据周期数)
AMOV赋值:成交量*(C+L+H)/3
MN赋值:ND的AMOV日累和/ND的成交量日累和
当满足条件A1X>=0时,在JZ和突破之间画柱状线
当满足条件A1X<0时,在JZ和突破之间画柱状线
AAC赋值:A1X上穿0,LINETHICK0
BBC:=0上穿A1X,LINETHICK0
当满足条件AAC时,在JZ*0.98和34之间画图标
当满足条件BBC时,在JZ*1.015和35之间画图标
LC赋值: 1日前的CLOSE
RSI:=SMA(CLOSE-LC和0较大值,6,1)/SMA(CLOSE-LC的绝对值,6,1)*100
逃顶赋值:82上穿RSI
当满足条件 逃顶时,在H*1.01和15之间画图标
当满足条件 逃顶时,在H*1.01和' ←快跑'位置书写文字
如果CURRBARSCOUNT<=N1返回DD+KJ/2否则返回DRAWNULL
如果CURRBARSCOUNT<=N1返回GD-KJ*0.191否则返回DRAWNULL
如果CURRBARSCOUNT<=N1返回DD+KJ*0.191否则返回DRAWNULL
如果CURRBARSCOUNT<=N1返回GD否则返回DRAWNULL
如果CURRBARSCOUNT<=N1返回DD否则返回DRAWNULL
A1赋值:上次MONTH!=1日前的MONTH距今天数+1
输出月±%:(CLOSE/A1日前的CLOSE-1)*100,COLOR00FFFF,NODRAW
当满足条件CURRBARSCOUNT=N1时,在GD和DD之间画柱状线
当满足条件CURRBARSCOUNT=N1/2时,在GD和DD之间画柱状线
当满足条件CURRBARSCOUNT=1时,在GD和DD之间画柱状线
当满足条件CURRBARSCOUNT<=N1时,在平衡和平衡之间画柱状线
当满足条件CURRBARSCOUNT<=N1/2时,在压力和压力之间画柱状线
当满足条件CURRBARSCOUNT<=N1/2时,在支撑和支撑之间画柱状线
DRAWKLINE(H,O,L,C)
当满足条件CURRBARSCOUNT=1时,在压力和'0.809'位置书写文字
当满足条件CURRBARSCOUNT=1时,在平衡和'0.500'位置书写文字
当满足条件CURRBARSCOUNT=1时,在支撑和'0.191'位置书写文字
当满足条件CURRBARSCOUNT=N1/2-10时,在GD-KJ/12和'★★强势区域--急拉减仓★★'位置书写文字
当满足条件CURRBARSCOUNT=N1/2-10时,在GD-KJ/3和'★★震荡整理--寻机低吸★★'位置书写文字
当满足条件CURRBARSCOUNT=N1/2-10时,在DD+KJ/3和'★★反弹中轨--逢高休息★★'位置书写文字
当满足条件CURRBARSCOUNT=N1/2-10时,在DD+KJ/10和'★★弱势区域--暂不参与★★'位置书写文字
C1赋值:C>=JZ
C2赋值:CAA赋值:C1>=C2
BB赋值:C2>C1
当满足条件AA时,在C和O之间画柱状线
当满足条件AA时,在H和L之间画柱状线
当满足条件BB时,在C和O之间画柱状线
当满足条件BB时,在H和L之间画柱状线
当满足条件AA时,在CLOSE和开盘价之间画柱状线
当满足条件AA时,在CLOSE和开盘价之间画柱状线
当满足条件AA时,在CLOSE和开盘价之间画柱状线
当满足条件AA时,在CLOSE和开盘价之间画柱状线
当满足条件BB时,在CLOSE和开盘价之间画柱状线
当满足条件BB时,在CLOSE和开盘价之间画柱状线
当满足条件BB时,在CLOSE和开盘价之间画柱状线
当满足条件BB时,在CLOSE和开盘价之间画柱状线
M输出N1:ND的AMOV日累和/ND的成交量日累和,COLORFF0000, 线宽为3
如果C>MN1返回MN1否则返回DRAWNULL
如果CAAA赋值: C>MN
BBB赋值: CDDD赋值: A1X>=0
EE赋值: A1X<0
如果ISLASTBAR返回240/FROM开盘价否则返回1
NN赋值:120
HH赋值:NN日内V*TT最高值
LL赋值:NN日内V最低值
最高赋值:CONST(HH)
最低赋值:CONST(LL)
最高2:=CONST(NN日内H最高值)
最低2:=CONST(NN日内L最低值)
PP赋值:IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(20日内L最低值),0.9,IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(50日内L最低值),0.7,0.6)),NODRAW
RCC1赋值:最高2*0.9-(最高2-最低2)*PP
最低3:=RCC1和最低2的较小值
AAD:=最低3
当满足条件AAA时,在AAD-0.000*AAD和AAD-0.030*AAD之间画柱状线
当满足条件BBB时,在AAD-0.005*AAD和AAD-0.025*AAD之间画柱状线
当满足条件DDD时,在AAD-0.035*AAD和AAD-0.065*AAD之间画柱状线
当满足条件EE时,在AAD-0.040*AAD和AAD-0.060*AAD之间画柱状线
当满足条件1时,在横轴0.3纵轴0.87位置书写文字