地量反转,看懂筹码与量能变化源码分享

【参考截图】：--

今天和大家分享一套融合量能、筹码、价格位置的通达信技术工具 —— 地量反转指标。这套工具整合筹码状态识别、量能平台标记、地量信号、支撑阻力、十周参考底线，方便复盘时综合观察。

指标右上角标注筹码所处区间状态：高危、风险、安全、空头。自动画出量能平台线，标记放量高点、地量拐点，识别量能切换节点，同时高亮波动较大的 K 线。工具还可测算参考支撑、阻力位置，绘制十周周期参考底线。

仅作技术学习研究，信号仅供参考，不代表后市走向。公式依赖完整本地 K 线数据，导入后请下载全部历史数据，通达信主图叠加即可使用。实操需要结合大盘、板块综合研判。温馨提示：工具仅提供技术数据分析参考，不构成任何交易操作建议。

1️⃣【主图公式-源码】

N:=75;P:=5;P1:=10;

ZBGSHJM1:=4;M2:=18;M3:=80;

ZBGSHJA1:=REF(H,P)=HHV(H,2*P+1);

B1:=FILTER(ZBGSHJA1,P);

ZBGSHJC1:=BACKSET(B1,P+1);

ZBGSHJD1:=FILTER(ZBGSHJC1,P);

ZBGSHJE1:=BACKSET(ISLASTBAR,BARSLAST(ZBGSHJD1)+1);

F1:=ZBGSHJE1>REF(ZBGSHJE1,1);

ZBGSHJA2:=REF(L,P)=LLV(L,2*P+1);

ZBGSHJB2:=FILTER(ZBGSHJA2,P);

ZBGSHJC2:=BACKSET(ZBGSHJB2,P+1);

ZBGSHJD2:=FILTER(ZBGSHJC2,P);

ZBGSHJE2:=BACKSET(ISLASTBAR,BARSLAST(ZBGSHJD2)+1);

ZBGSHJF2:=ZBGSHJE2>REF(ZBGSHJE2,1);

AZBGSHJA1:=REF(H,P1)=HHV(H,2*P1+1);

BB1:=FILTER(AZBGSHJA1,P1);

CZBGSHJC1:=BACKSET(BB1,P1+1);

DZBGSHJD1:=FILTER(CZBGSHJC1,P1);

EZBGSHJE1:=BACKSET(ISLASTBAR,BARSLAST(DZBGSHJD1)+1);

FF1:=EZBGSHJE1>REF(EZBGSHJE1,1);

AZBGSHJA2:=REF(L,P1)=LLV(L,2*P1+1);

BZBGSHJB2:=FILTER(AZBGSHJA2,P1);

CZBGSHJC2:=BACKSET(BZBGSHJB2,P1+1);

DZBGSHJD2:=FILTER(CZBGSHJC2,P1);

EZBGSHJE2:=BACKSET(ISLASTBAR,BARSLAST(DZBGSHJD2)+1);

FZBGSHJF2:=EZBGSHJE2>REF(EZBGSHJE2,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,ZBGSHJM1),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;

1️⃣【副图公式-源码】

地量抄底: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;

ZBGSHJM1:=CONST(LLVBARS(VOL,M));

M0:IF(CURRBARSCOUNT<=M+7,CONST(IF(ZBGSHJM1=0,O,REF(OPEN,ZBGSHJM1))),DRAWNULL);

IF(CURRBARSCOUNT=ZBGSHJM1+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;

1️⃣【选股指标公式-源码】

无

✅如果需要公式tn6文件可以在后台发「  公式  」自动获取本页相关内容，该公式仅限学习交流，不构成投资建议。