通达信〖地量反转〗精准标记放量高点与地量拐点便于捕捉量能切换关键节点源码
本工具通过筹码分布状态，直观呈现当前市场所处区间。界面右上角明确标注“高危”“风险”“安全”“空头”四种状态，帮助您快速把握筹码位置。同时，系统自动绘制量能平台线，精准标记放量高点与地量拐点，便于捕捉量能切换的关键节点。内置的涨跌K线高亮功能，可突出显示大幅波动的K线，辅助识别异动行情。
此外，工具还将测算明日参考支撑位与阻力位，并绘制十周周期的抄底线，为交易决策提供明确的价格参考依据。
{主图源码如下}
N:=75;P:=5;P1:=10;
GSZBGSM1:=4;M2:=18;M3:=80;
GSZBA1:=REF(H,P)=HHV(H,2*P+1);
B1:=FILTER(GSZBA1,P);
GSZBC1:=BACKSET(B1,P+1);
GSZBD1:=FILTER(GSZBC1,P);
GSZBE1:=BACKSET(ISLASTBAR,BARSLAST(GSZBD1)+1);
F1:=GSZBE1>REF(GSZBE1,1);
GSZBA2:=REF(L,P)=LLV(L,2*P+1);
GSZBB2:=FILTER(GSZBA2,P);
GSZBC2:=BACKSET(GSZBB2,P+1);
GSZBD2:=FILTER(GSZBC2,P);
GSZBE2:=BACKSET(ISLASTBAR,BARSLAST(GSZBD2)+1);
GSZBF2:=GSZBE2>REF(GSZBE2,1);
AGSZBA1:=REF(H,P1)=HHV(H,2*P1+1);
BB1:=FILTER(AGSZBA1,P1);
CGSZBC1:=BACKSET(BB1,P1+1);
DGSZBD1:=FILTER(CGSZBC1,P1);
EGSZBE1:=BACKSET(ISLASTBAR,BARSLAST(DGSZBD1)+1);
FF1:=EGSZBE1>REF(EGSZBE1,1);
AGSZBA2:=REF(L,P1)=LLV(L,2*P1+1);
BGSZBB2:=FILTER(AGSZBA2,P1);
CGSZBC2:=BACKSET(BGSZBB2,P1+1);
DGSZBD2:=FILTER(CGSZBC2,P1);
EGSZBE2:=BACKSET(ISLASTBAR,BARSLAST(DGSZBD2)+1);
FGSZBF2:=EGSZBE2>REF(EGSZBE2,1);
STICKLINE(C>=O,C,O,3,0),COLOR000045;
STICKLINE(C>=O,C,O,2.5,0),COLOR000065;
STICKLINE(C>=O,C,O,2,0),COLOR000085;
STICKLINE(C>=O,C,O,1.5,0),COLOR0000A5;
STICKLINE(C>=O,C,O,1,0),COLOR0000C5;
STICKLINE(C>=O,C,O,0.5,0),COLOR0000E5;
STICKLINE(C>=O,H,L,0,0),COLOR0000F5;
STICKLINE(C<O,C,O,3,0),COLOR353500;
STICKLINE(C<O,C,O,2.5,0),COLOR454500;
STICKLINE(C<O,C,O,2,0),COLOR555500;
STICKLINE(C<O,C,O,1.5,0),COLOR656500;
STICKLINE(C<O,C,O,1,0),COLOR757500;
STICKLINE(C<O,C,O,0.5,0),COLOR858500;
STICKLINE(C<O,H,L,0,0),COLOR959500;
高:=REFDATE(HHV(H,N),DATE);
低:=REFDATE(LLV(L,N),DATE);
H1:=高-(高-低)*0.191;
H2:=高-(高-低)*0.382;
H3:=高-(高-低)*0.5;
H4:=高-(高-低)*0.618;
H5:=高-(高-低)*0.809;
DRAWTEXT(CURRBARSCOUNT=1,高,'高'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1,H1,'809'),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,H2,'618'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=1,H3,'中'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=1,H4,'382'),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=1,H5,'191'),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=1,低,'低'),COLORRED;
STICKLINE(CURRBARSCOUNT=13,高,高,100,-1);
STICKLINE(CURRBARSCOUNT=13,H1,H1,100,-1),COLORCYAN;
STICKLINE(CURRBARSCOUNT=13,H2,H2,100,-1),COLORGRAY;
STICKLINE(CURRBARSCOUNT=13,H3,H3,100,-1),COLORYELLOW;
STICKLINE(CURRBARSCOUNT=13,H4,H4,100,-1),COLORLIRED;
STICKLINE(CURRBARSCOUNT=13,H5,H5,100,-1),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=13,低,低,100,-1),COLORRED;
EXP1:EXPMA(CLOSE,GSZBGSM1),LINETHICK2;
EXP2:EXPMA(CLOSE,M2),LINETHICK2;
EXP3:EXPMA(CLOSE,M3),LINETHICK2,COLORGREEN;
TYX3:=MA(REF(HHV((C+L+O+H)/4,30),1),3);
TYX4:=MA((C+L+O+H)/4,13);
TYX5:=EMA((C+L+O+H)/4,21);
STICKLINE(HIGH=LOW AND CLOSE=OPEN AND (CLOSE/REF(CLOSE,1))>1.048,HIGH,LOW,3,0) ,COLORRED;
STICKLINE(HIGH=LOW AND CLOSE=OPEN AND (REF(CLOSE,1)/CLOSE)>1.048,HIGH,LOW,3,0) ,COLOR00FF00;
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.99,1);
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)),H,2);
AZ6:=(3 * (SMA((((CLOSE - (LLV(LOW,27))) / ((HHV(HIGH,27)) - (LLV(LOW,27)))) * 100),5,1))) - (2 * (SMA((SMA((((CLOSE - (LLV(LOW,27))) / ((HHV(HIGH,27)) - (LLV(LOW,27)))) * 100),5,1)),3,1)));
VARC:=(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));
DRAWTEXT((VARC=1),L,'地量反转'),COLORYELLOW;
{副图源码如下}
地量抄底:WINNER(C)*100,NODRAW,COLORWHITE;
DRAWTEXT_FIX(地量抄底>=95 AND ISLASTBAR,0.97,0.97,0,'高危'),COLORRED;
DRAWTEXT_FIX(地量抄底>=80 AND 地量抄底<95 AND ISLASTBAR,0.97,0.97,0,'风险'),COLORYELLOW;
DRAWTEXT_FIX(地量抄底>=50 AND 地量抄底<80 AND ISLASTBAR,0.97,0.97,0,'安全'),COLORGREEN;
DRAWTEXT_FIX(地量抄底<50 AND ISLASTBAR,0.97,0.97,0,'空头'),COLORBLUE;
STICKLINE((CLOSE-REF(CLOSE,1))*100/REF(CLOSE,1)>=(10-0.01*100/REF(CLOSE,1)),O,C,3,0),COLOR0055FF;
STICKLINE((REF(CLOSE,1)-C)*100/REF(CLOSE,1)>=(10-0.01*100/REF(CLOSE,1)),O,C,3,0),COLOR00FF00;
N:=10;
T1:=CONST(HHVBARS(VOL,N));
T0:IF(CURRBARSCOUNT<=N+3,CONST(IF(T1=0,C,REF(CLOSE,T1))),DRAWNULL),COLORFF00FF;
IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT,COLORFF00FF;
DRAWTEXT(ISLASTBAR,T0,' 量能平台'),COLORCC00CC;
M:=10;
Q1:=CONST(REF(HHVBARS(VOL,M),T1+1)+T1+1);
Q0:IF(CURRBARSCOUNT<=T1+M+3 AND CURRBARSCOUNT>=T1+1,CONST(REF(CLOSE,Q1)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=Q1+1,Q0,DRAWNULL),CIRCLEDOT,COLOR00CC00;
GSZBGSM1:=CONST(LLVBARS(VOL,M));
M0:IF(CURRBARSCOUNT<=M+7,CONST(IF(GSZBGSM1=0,O,REF(OPEN,GSZBGSM1))),DRAWNULL);
IF(CURRBARSCOUNT=GSZBGSM1+1,M0,DRAWNULL),CIRCLEDOT;
DRAWTEXT(ISLASTBAR,M0,' 地量反转');
HV:=HHV(VOL,8)=V OR V/REF(VOL,1)>=2;FT:=BARSLAST(HV);
量能平台:IF(HV,C,REF(CLOSE,FT)),COLORYELLOW,LINETHICK2;
DP:=IF(C=INDEXC,0,1);
GJ:=AMOUNT/V/100;
【明日阻力】:L+(GJ-L)+(CLOSE-L),COLORRED,NODRAW;
【明日支撑】:L+(CLOSE-GJ),NODRAW;
年:=YEAR,NODRAW;
月:=MONTH,NODRAW;
星期:=WEEKDAY,NODRAW;
日1:=DATETODAY(DATE);
上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT);
自然日:=日1-DATETODAY(上市日)+1;
ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1)OR TOTALBARSCOUNT-CURRBARSCOUNT=0;
本周第几天:=BARSLAST(ZB)+1;
本月第几天:=BARSLAST(年*100+月!=REF(年*100+月,1))+1;
SZJG1:=REF(CLOSE,本周第几天);
SZJG2:=REF(SZJG1,本周第几天);
SZJG3:=REF(SZJG2,本周第几天);
SZJG4:=REF(SZJG3,本周第几天);
SZJG5:=REF(SZJG4,本周第几天);
SZJG6:=REF(SZJG5,本周第几天);
SZJG7:=REF(SZJG6,本周第几天);
SZJG8:=REF(SZJG7,本周第几天);
SZJG9:=REF(SZJG8,本周第几天);
十周价:=(CLOSE+SZJG1+SZJG2+SZJG3+SZJG4+SZJG5+SZJG6+SZJG7+SZJG8+SZJG9)/10;
抄底:REFDATE(十周价,DATE),COLORYELLOW,LINETHICK1;
DRAWTEXT(ISLASTBAR,抄底,' 抄底线'),COLORYELLOW;
未来函数检测结果如下：
该公式包含未来函数:ZIG
该公式包含未来函数:BACKSET
该公式包含未来函数:WINNER
定制指标公式、软件请联系QQ或微信同号：88652583
N赋值:75
P赋值:5
P1赋值:10
GSZBGSM1赋值:4
M2赋值:18
M3赋值:80
GSZBA1赋值:P日前的最高价=2*P+1日内最高价的最高值
B1赋值:GSZBA1的P日过滤
GSZBC1赋值:若B1则将最近P+1周期置为1
GSZBD1赋值:GSZBC1的P日过滤
GSZBE1赋值:若是否最后一个周期则将最近上次GSZBD1距今天数+1周期置为1
F1赋值:GSZBE1>1日前的GSZBE1
GSZBA2赋值:P日前的最低价=2*P+1日内最低价的最低值
GSZBB2赋值:GSZBA2的P日过滤
GSZBC2赋值:若GSZBB2则将最近P+1周期置为1
GSZBD2赋值:GSZBC2的P日过滤
GSZBE2赋值:若是否最后一个周期则将最近上次GSZBD2距今天数+1周期置为1
GSZBF2赋值:GSZBE2>1日前的GSZBE2
AGSZBA1赋值:P1日前的最高价=2*P1+1日内最高价的最高值
BB1赋值:AGSZBA1的P1日过滤
CGSZBC1赋值:若BB1则将最近P1+1周期置为1
DGSZBD1赋值:CGSZBC1的P1日过滤
EGSZBE1赋值:若是否最后一个周期则将最近上次DGSZBD1距今天数+1周期置为1
FF1赋值:EGSZBE1>1日前的EGSZBE1
AGSZBA2赋值:P1日前的最低价=2*P1+1日内最低价的最低值
BGSZBB2赋值:AGSZBA2的P1日过滤
CGSZBC2赋值:若BGSZBB2则将最近P1+1周期置为1
DGSZBD2赋值:CGSZBC2的P1日过滤
EGSZBE2赋值:若是否最后一个周期则将最近上次DGSZBD2距今天数+1周期置为1
FGSZBF2赋值:EGSZBE2>1日前的EGSZBE2
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR000045
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为2.5,0不为0则画空心柱.,COLOR000065
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR000085
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,COLOR0000A5
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR0000C5
当满足条件收盘价>=开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR0000E5
当满足条件收盘价>=开盘价时,在最高价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR0000F5
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR353500
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为2.5,0不为0则画空心柱.,COLOR454500
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR555500
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,COLOR656500
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR757500
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR858500
当满足条件收阴线时,在最高价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR959500
高赋值:日期日N日内最高价的最高值
低赋值:日期日N日内最低价的最低值
H1赋值:高-(高-低)*0.191
H2赋值:高-(高-低)*0.382
H3赋值:高-(高-低)*0.5
H4赋值:高-(高-低)*0.618
H5赋值:高-(高-低)*0.809
当满足条件到最后交易的周期=1时,在高位置书写文字,画绿色
当满足条件到最后交易的周期=1时,在H1位置书写文字,画青色
当满足条件到最后交易的周期=1时,在H2位置书写文字,画深灰色
当满足条件到最后交易的周期=1时,在H3位置书写文字,画黄色
当满足条件到最后交易的周期=1时,在H4位置书写文字,画淡红色
当满足条件到最后交易的周期=1时,在H5位置书写文字,画洋红色
当满足条件到最后交易的周期=1时,在低位置书写文字,画红色
当满足条件到最后交易的周期=13时,在高和高位置之间画柱状线,宽度为100,-1不为0则画空心柱.
当满足条件到最后交易的周期=13时,在H1和H1位置之间画柱状线,宽度为100,-1不为0则画空心柱.,画青色
当满足条件到最后交易的周期=13时,在H2和H2位置之间画柱状线,宽度为100,-1不为0则画空心柱.,画深灰色
当满足条件到最后交易的周期=13时,在H3和H3位置之间画柱状线,宽度为100,-1不为0则画空心柱.,画黄色
当满足条件到最后交易的周期=13时,在H4和H4位置之间画柱状线,宽度为100,-1不为0则画空心柱.,画淡红色
当满足条件到最后交易的周期=13时,在H5和H5位置之间画柱状线,宽度为100,-1不为0则画空心柱.,画洋红色
当满足条件到最后交易的周期=13时,在低和低位置之间画柱状线,宽度为100,-1不为0则画空心柱.,画红色
输出EXP1:收盘价的GSZBGSM1日指数移动平均,线宽为2
输出EXP2:收盘价的M2日指数移动平均,线宽为2
输出EXP3:收盘价的M3日指数移动平均,线宽为2,画绿色
TYX3赋值:1日前的30日内(收盘价+最低价+开盘价+最高价)/4的最高值的3日简单移动平均
TYX4赋值:(收盘价+最低价+开盘价+最高价)/4的13日简单移动平均
TYX5赋值:(收盘价+最低价+开盘价+最高价)/4的21日指数移动平均
当满足条件最高价=LOWANDCLOSE=OPENAND(收盘价/1日前的收盘价)>1.048时,在最高价和最低价位置之间画柱状线,宽度为3,0不为0则画空心柱. ,画红色
当满足条件最高价=LOWANDCLOSE=OPENAND(1日前的收盘价/收盘价)>1.048时,在最高价和最低价位置之间画柱状线,宽度为3,0不为0则画空心柱. ,COLOR00FF00
当满足条件(收盘价5%的之字转向>1日前的收盘价5%的之字转向)AND(1日前的收盘价5%的之字转向<=2日前的收盘价5%的之字转向)AND(2日前的收盘价5%的之字转向<=3日前的收盘价5%的之字转向)时,在最低价*0.99位置画1号图标
当满足条件(收盘价5%的之字转向<1日前的收盘价5%的之字转向)AND(1日前的收盘价5%的之字转向>=2日前的收盘价5%的之字转向)AND(2日前的收盘价5%的之字转向>=3日前的收盘价5%的之字转向)时,在最高价位置画2号图标
AZ6赋值:(3 * ((((收盘价-(27日内最低价的最低值))/((27日内最高价的最高值)-(27日内最低价的最低值)))*100)的5日[1日权重]移动平均)) - (2 * (((((收盘价-(27日内最低价的最低值))/((27日内最高价的最高值)-(27日内最低价的最低值)))*100)的5日[1日权重]移动平均)的3日[1日权重]移动平均))
VARC赋值:(收盘价5%的之字转向>1日前的收盘价5%的之字转向) AND (1日前的收盘价5%的之字转向<=2日前的收盘价5%的之字转向) AND (2日前的收盘价5%的之字转向<=3日前的收盘价5%的之字转向)
当满足条件(VARC=1)时,在最低价位置书写文字,画黄色
输出地量抄底:以收盘价计算的获利盘比例*100,NODRAW,画白色
当满足条件地量抄底>=95ANDISLASTBAR时,在横轴0.97纵轴0.97位置书写文字,画红色
当满足条件地量抄底>=80AND地量抄底<95ANDISLASTBAR时,在横轴0.97纵轴0.97位置书写文字,画黄色
当满足条件地量抄底>=50AND地量抄底<80ANDISLASTBAR时,在横轴0.97纵轴0.97位置书写文字,画绿色
当满足条件地量抄底<50ANDISLASTBAR时,在横轴0.97纵轴0.97位置书写文字,画蓝色
当满足条件(收盘价-1日前的收盘价)*100/1日前的收盘价>=(10-0.01*100/1日前的收盘价)时,在开盘价和收盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR0055FF
当满足条件(1日前的收盘价-收盘价)*100/1日前的收盘价>=(10-0.01*100/1日前的收盘价)时,在开盘价和收盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR00FF00
N赋值:10
T1赋值:N日内成交量(手)距今天数的最后一日取值设为常数
输出T0:如果到最后交易的周期<=N+3,返回如果T1=0,返回收盘价,否则返回T1日前的收盘价的最后一日取值设为常数,否则返回无效数,COLORFF00FF
如果到最后交易的周期=T1+1,返回T0,否则返回无效数,CIRCLEDOT,COLORFF00FF
当满足条件是否最后一个周期时,在T0位置书写文字,COLORCC00CC
M赋值:10
Q1赋值:T1+1日前的M日内成交量(手)距今天数+T1+1的最后一日取值设为常数
输出Q0:如果到最后交易的周期<=T1+M+3ANDCURRBARSCOUNT>=T1+1,返回Q1日前的收盘价的最后一日取值设为常数,否则返回无效数,COLOR009900
如果到最后交易的周期=Q1+1,返回Q0,否则返回无效数,CIRCLEDOT,COLOR00CC00
GSZBGSM1赋值:M日内成交量(手)距今天数的最后一日取值设为常数
输出M0:如果到最后交易的周期<=M+7,返回如果GSZBGSM1=0,返回开盘价,否则返回GSZBGSM1日前的开盘价的最后一日取值设为常数,否则返回无效数
如果到最后交易的周期=GSZBGSM1+1,返回M0,否则返回无效数,CIRCLEDOT
当满足条件是否最后一个周期时,在M0位置书写文字
HV赋值:8日内成交量(手)的最高值=成交量(手) OR 成交量(手)/1日前的成交量(手)>=2
FT赋值:上次HV距今天数
输出量能平台:如果HV,返回收盘价,否则返回FT日前的收盘价,画黄色,线宽为2
DP赋值:如果收盘价=大盘的收盘价,返回0,否则返回1
GJ赋值:成交额(元)/成交量(手)/100
输出【明日阻力】:最低价+(GJ-最低价)+(收盘价-最低价),画红色,NODRAW
输出【明日支撑】:最低价+(收盘价-GJ),NODRAW
年赋值:年份,NODRAW
月赋值:月份,NODRAW
星期赋值:星期,NODRAW
日1赋值:日期对应的转换天数
上市日赋值:总的周期数-到最后交易的周期日前的日期
自然日赋值:日1-上市日对应的转换天数+1
ZB赋值:(自然日-1日前的自然日)不等于星期-1日前的星期OR 总的周期数-到最后交易的周期=0
本周第几天赋值:上次ZB距今天数+1
本月第几天赋值:上次年*100+月不等于1日前的年*100+月距今天数+1
SZJG1赋值:本周第几天日前的收盘价
SZJG2赋值:本周第几天日前的SZJG1
SZJG3赋值:本周第几天日前的SZJG2
SZJG4赋值:本周第几天日前的SZJG3
SZJG5赋值:本周第几天日前的SZJG4
SZJG6赋值:本周第几天日前的SZJG5
SZJG7赋值:本周第几天日前的SZJG6
SZJG8赋值:本周第几天日前的SZJG7
SZJG9赋值:本周第几天日前的SZJG8
十周价赋值:(收盘价+SZJG1+SZJG2+SZJG3+SZJG4+SZJG5+SZJG6+SZJG7+SZJG8+SZJG9)/10
输出抄底:日期日十周价,画黄色,线宽为1
当满足条件是否最后一个周期时,在抄底位置书写文字,画黄色
