通达信〖紫紫红〗等7大指标集合指标公式源码分享
本次分享的指标，按类型划分如下：主图类有SY和寥廓江天；副图类包括成交量执行、紫紫红黄柱和尖峰浮筹D；分时部分则包含主图无穷成本与副图PV。此外，还有一个“引用昨收”的指标一并提供。
{主图源码如下}
TM:=1;
CM:=1;
N:=8;
{流通市值（亿）}
流通市值:FINANCE(40)/100000000,NODRAW;
{屏幕下部提示}
涨家:=STRCAT(STRCAT('总上涨：',CON2STR(DYNAINFO(60),0)),' ');
跌家:=STRCAT(STRCAT('总下跌：',CON2STR(DYNAINFO(61),0)),' ');
DRAWTEXT_FIX(ISLASTBAR,0.16,0,0,涨家),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.16,0.1,0,跌家),COLORGREEN;
MA5:=EMA(C,5);
MA10:=EMA(C,10);
MA20:=EMA(C,20);
MA60:=EMA(C,60);
MA120:=EMA(C,120);
MA250:=EMA(C,250);
MAXJ:MAX(MA5,MAX(MA10,MAX(MA20,MAX(MA60,MAX(MA120,MA250)))));
DRAWBAND(MAXJ,RGB(88,0,0),HHV(MA60,240),RGB(0,88,0));
DRAWKLINE(H,O,L,C);
UB5:=HHV(MA5,240);
UB20:=HHV(MA20,240);
UB60:=HHV(MA60,240);
不显示1:=IF(MA5=UB5,UB5,DRAWNULL),COLOR00FFFF,LINETHICK2;
不显示2:=IF(MA20=UB20,UB20,DRAWNULL),COLOR00FFFF,LINETHICK2;
不显示3:=IF(MA60=UB60,UB60,DRAWNULL),COLOR00FFFF,LINETHICK2;
{价格笼子警示-支持涨跌停限制}
{自动识别板块涨跌幅}
STB:=IF(INBLOCK('ST板块'),1,0);
TSB:=IF(INBLOCK('ST板块') AND CODELIKE('30') AND DATE>1200823,1,0);
BK:=IF(CODELIKE('68'),0.2,
IF(CODELIKE('30') AND DATE>1200823,0.2,
IF(CODELIKE('43') OR CODELIKE('83') OR CODELIKE('47'),0.3,
IF(TSB,0.2,
IF(STB,0.05,0.1)))));
{计算涨跌停价格}
ZTJJJ:=ZTPRICE(DYNAINFO(3),BK);
DTJJJ:=DTPRICE(DYNAINFO(3),BK);
基准价:=DYNAINFO(7);
{价格笼子上下限，自动钳制在涨跌停范围内}
笼子上限:IF(基准价*1.02<ZTJJJ,基准价*1.02,ZTJJJ),NODRAW;
笼子下限:IF(基准价*0.98>DTJJJ,基准价*0.98,DTJJJ),NODRAW;
{显示文字标签}
DRAWTEXT_FIX(1,0.02,0,0,STRCAT('笼子上限: ',VAR2STR(笼子上限,2))),COLORRED;
DRAWTEXT_FIX(1,0.02,0.1,0,STRCAT('笼子下限: ',VAR2STR(笼子下限,2))),COLORGREEN;
六十筹码线:=COST(60.00),COLORBLACK,LINETHICK4;
{ 标准深灰色背景 }
{DRAWGBK(C>0, RGB(50,50,50), RGB(50,50,50), 0, '', 0);}
ST:=IF(NAMELIKE('ST') OR NAMELIKE('*ST'),1,0);
ZTB1:=(C+0.01)/REF(C,1)>=1.1 AND H=C;
DTB1:=(C-0.01)/REF(C,1)<=0.9 AND L=C;
ZTB2:=(C+0.01)/REF(C,1)>=1.2 AND H=C;
DTB2:=(C-0.01)/REF(C,1)<=0.8 AND L=C;
ZTB3:=(C+0.01)/REF(C,1)>=1.05 AND H=C;
DTB3:=(C-0.01)/REF(C,1)<=0.95 AND L=C;
TTIME:=(DATE-1000000)>=200824;
VAR1:=IF(CODELIKE('300'),1,0);
VAR2:=IF(CODELIKE('688'),1,0);
ZTB:=IF((VAR1 AND TTIME) OR VAR2,ZTB2,IF(ST,ZTB3,ZTB1));
STICKLINE(ZTB,O,C,2.5,0),COLORMAGENTA;
{DEF-CA}
TYC:=(C+H+L)/3;
VPC:=0.01*AMO/V;
TVR:=0.01*TYC/VPC;
CASK:=IF(BETWEEN(TVR,0,0.05),1,0);
VRPC:=IF(BETWEEN(TVR,0,0.05)=1,VPC,IF(BETWEEN(TVR,0.95,1.05)=1,VPC*100,TYC));
{OP-BK}
LTC:=LLV(TYC,120);
HTC:=HHV(TYC,120);
BKR:=IF(TM=1,254,12);
BKG:=IF(TM=1,255,24);
BKB:=IF(TM=1,255,36);
{DEF-HLM}
FHNP:=(MAX(C,O)+H+L)/3;
FLNP:=(MIN(C,O)+H+L)/3;
FH01:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,1));
FH02:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,5));
FH03:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,10));
FH04:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,15));
FH05:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,20));
FH06:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,25));
FH07:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,30));
FH08:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,35));
FH09:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,40));
FH10:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,45));
FH11:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,50));
FH12:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,55));
FL01:=REF(FLNP,FINDLOWBARS(FLNP,0,120,1));
FL02:=REF(FLNP,FINDLOWBARS(FLNP,0,120,5));
FL03:=REF(FLNP,FINDLOWBARS(FLNP,0,120,10));
FL04:=REF(FLNP,FINDLOWBARS(FLNP,0,120,15));
FL05:=REF(FLNP,FINDLOWBARS(FLNP,0,120,20));
FL06:=REF(FLNP,FINDLOWBARS(FLNP,0,120,25));
FL07:=REF(FLNP,FINDLOWBARS(FLNP,0,120,30));
FL08:=REF(FLNP,FINDLOWBARS(FLNP,0,120,35));
FL09:=REF(FLNP,FINDLOWBARS(FLNP,0,120,40));
FL10:=REF(FLNP,FINDLOWBARS(FLNP,0,120,45));
FL11:=REF(FLNP,FINDLOWBARS(FLNP,0,120,50));
FL12:=REF(FLNP,FINDLOWBARS(FLNP,0,120,55));
FHLM:=REF(FHNP,FINDHIGHBARS(FHNP,0,120,60))/2+REF(FLNP,FINDLOWBARS(FLNP,0,120,60))/2;
{DEF-MTK}
PTK:=IF(PERIOD<5,DAY,IF(PERIOD=5,MONTH,IF(PERIOD=6 OR PERIOD=7,YEAR,DRAWNULL)));
MTK:=IF(PTK=REF(PTK,1),1,0);
MTH:=IF(CM=1,FH02,FH01);
MTL:=IF(CM=1,FL02,FL01);
{OP-CMBK}
{DRAWBAND(
IF(TM=1 AND CM=1, FH02, DRAWNULL),
RGB(200, 230, 200),
IF(TM=1 AND CM=1, FH04, DRAWNULL),
RGB(200, 230, 200)
);}{这是色带，下面用两根线代替，便于显示缺口}
{OP-C2M0}
NOTEXTM1C2H02:IF(TM=1 AND CM=2,FH02,DRAWNULL),DOTLINE,COLORA0C080;
NOTEXTM1C2H04:IF(TM=1 AND CM=2,FH04,DRAWNULL),DOTLINE,COLORD0D8B8;
NOTEXTM1C2H06:IF(TM=1 AND CM=2,FH06,DRAWNULL),DOTLINE,COLORE8E4D4;
NOTEXTM1C2H08:IF(TM=1 AND CM=2,FH08,DRAWNULL),DOTLINE,COLORF4EAE2;
NOTEXTM1C2H10:IF(TM=1 AND CM=2,FH10,DRAWNULL),DOTLINE,COLORF9ECE9;
NOTEXTM1C2H12:IF(TM=1 AND CM=2,FH12,DRAWNULL),DOTLINE,COLORFCEEEE;
NOTEXTM1C2L02:IF(TM=1 AND CM=2,FL02,DRAWNULL),DOTLINE,COLORB080E0;
NOTEXTM1C2L04:IF(TM=1 AND CM=2,FL04,DRAWNULL),DOTLINE,COLORD8B8E8;
NOTEXTM1C2L06:IF(TM=1 AND CM=2,FL06,DRAWNULL),DOTLINE,COLORECD4EC;
NOTEXTM1C2L08:IF(TM=1 AND CM=2,FL08,DRAWNULL),DOTLINE,COLORF6E2EE;
NOTEXTM1C2L10:IF(TM=1 AND CM=2,FL10,DRAWNULL),DOTLINE,COLORFAE9EF;
NOTEXTM1C2L12:IF(TM=1 AND CM=2,FL12,DRAWNULL),DOTLINE,COLORFCEEF0;
NOTEXTM2C2H02:IF(TM=2 AND CM=2,FH02,DRAWNULL),DOTLINE,COLOR524C06;
NOTEXTM2C2H04:IF(TM=2 AND CM=2,FH04,DRAWNULL),DOTLINE,COLOR44380C;
NOTEXTM2C2H06:IF(TM=2 AND CM=2,FH06,DRAWNULL),DOTLINE,COLOR3D2E0F;
NOTEXTM2C2H08:IF(TM=2 AND CM=2,FH08,DRAWNULL),DOTLINE,COLOR3A2810;
NOTEXTM2C2H10:IF(TM=2 AND CM=2,FH10,DRAWNULL),DOTLINE,COLOR382A12;
NOTEXTM2C2H12:IF(TM=2 AND CM=2,FH12,DRAWNULL),DOTLINE,COLOR372512;
NOTEXTM2C2L02:IF(TM=2 AND CM=2,FL02,DRAWNULL),DOTLINE,COLOR720C66;
NOTEXTM2C2L04:IF(TM=2 AND CM=2,FL04,DRAWNULL),DOTLINE,COLOR54183C;
NOTEXTM2C2L06:IF(TM=2 AND CM=2,FL06,DRAWNULL),DOTLINE,COLOR451E36;
NOTEXTM2C2L08:IF(TM=2 AND CM=2,FL08,DRAWNULL),DOTLINE,COLOR3E211C;
NOTEXTM2C2L10:IF(TM=2 AND CM=2,FL10,DRAWNULL),DOTLINE,COLOR3A2218;
NOTEXTM2C2L12:IF(TM=2 AND CM=2,FL12,DRAWNULL),DOTLINE,COLOR382315;
{OP-C2M1}
{OP-KL1}
HZF:=100*(H/REF(C,1)-1);
DP1:=IF(CASK=1 AND HZF>=5,1,0);
DP2:=IF(CASK=0 AND HOD(HZF,240)<=60,1,0);
DPX:=SGN(DP1+DP2);
KXN:=IF(C>O OR (C=O AND C>=REF(C,1)),1,0);
STICKLINE(TM=1 AND KXN=0,H,L,0,0),COLORC0C0A0;
STICKLINE(TM=1 AND KXN=1,H,L,0,1),COLORC0A0C0;
STICKLINE(TM=1 AND KXN=0,C,O,2,0),COLORC0C0A0;
STICKLINE(TM=1 AND KXN=1,C,O,2,0),COLORYELLOW;{C0A0C0}
STICKLINE(TM=2 AND KXN=0,H,L,0,0),COLOR604E3C;
STICKLINE(TM=2 AND KXN=1,H,L,0,1),COLOR805068;
STICKLINE(TM=2 AND KXN=0,C,O,2,0),COLOR604E3C;
STICKLINE(TM=2 AND KXN=1,C,O,2,1),COLOR805068;
{OP-KL2}
STICKLINE(TM=1 AND KXN=0 AND DPX=1,H,L,0,0),COLOR309000;
STICKLINE(TM=1 AND KXN=1 AND DPX=1,H,L,0,1),COLOR4000C0;
STICKLINE(TM=1 AND KXN=0 AND DPX=1,C,O,2,0),COLOR309000;
STICKLINE(TM=1 AND KXN=1 AND DPX=1,C,O,2,1),COLOR4000C0;
STICKLINE(TM=2 AND KXN=0 AND DPX=1,H,L,0,0),COLOR30C000;
STICKLINE(TM=2 AND KXN=1 AND DPX=1,H,L,0,1),COLOR4000FF;
STICKLINE(TM=2 AND KXN=0 AND DPX=1,C,O,2,0),COLOR30C000;
STICKLINE(TM=2 AND KXN=1 AND DPX=1,C,O,2,1),COLOR4000FF;
STICKLINE(ZTB,O,(C+O)/2,2.5,0),COLORMAGENTA;
MA5X:MA(CLOSE,5),COLORRED;
EXP12X:EMA(CLOSE,12),COLORBLUE,LINETHICK3;
EXP26X:EMA(CLOSE,26),COLORFF00FF;
TJ:=(FINANCE(3)=4 OR (DATE>1200822 && FINANCE(3)=3));
TJ3:=(FINANCE(3)=2);
ZTJ:=IF(TJ3,ZTPRICE(REF(CLOSE,1),0.3),IF(TJ,ZTPRICE(REF(CLOSE,1),0.2),ZTPRICE(REF(CLOSE,1),0.1)));
ZT:=(CLOSE>=ZTJ); { 以涨停收盘 }
ZTO:=FINANCE(42)>50 AND EXIST(ZT,N); { 上市满50天,N天存在以涨停收盘 };
{突破60日前高 - 成交量确认}
前高:=REF(HHV(H,26),1);
成交量倍数:=V/MA(V,20)>1.5; {成交量超过20日均量1.5倍}
突破1:=C>前高 AND C>REF(C,1);
突破2:=C>前高 AND ZTO=1;
突破:=突破1 OR 突破2;
{两日过线}
{小牛股线基本上和上轨一致，主要是做突破用，线上买，线下卖}
小牛股线:HHV(EMA(C,5),120),COLOR0099FF,LINETHICK2;
小牛股线1:HHV(EMA(C,5),20),COLOR0099FF,LINETHICK1;
小牛股线2:HHV(EMA(C,5),12),COLOR0099FF,LINETHICK1;
小牛主压:HHV(EMA(C,5),0.5),COLORFFFFFF,LINETHICK1;
UPPER:=EMA(C,20)+2*SQRT(MA(POW((C-EMA(C,20)),2),20));
起爆点:=FILTER(COUNT(CROSS(C,小牛股线),2) AND C>REF(小牛股线,1) AND V/REF(MA(V,5),1)>1.8,5);
DRAWTEXT(起爆点,L*0.99,'起爆点'),COLOR0099FF;
{OP-CMBK}
上轨:=IF(TM=1 AND CM=1, FH02, DRAWNULL),COLORGREEN,LINETHICK2;
下轨:=IF(TM=1 AND CM=1, FH04, DRAWNULL),COLORGREEN,LINETHICK2;
{涨停板}
TJJ:=(FINANCE(3)=4 OR (DATE>1200822 AND FINANCE(3)=3));{条件}
ZTJJ:=IF(TJJ,ZTPRICE(REF(CLOSE,1),0.2),ZTPRICE(REF(CLOSE,1),0.1));{涨停价}
ZTT:=(CLOSE>=ZTJJ);{涨停价收盘}
ZTW:=CONST(BARSLAST(ZTT=1));{涨停位置}
ZTH:=IF(CURRBARSCOUNT<=ZTW+1,CONST(REF(H,ZTW)),DRAWNULL),COLORMAGENTA;{涨停日最高价}
ZTOO:=CONST(REF(O,ZTW));{涨停日开盘价}
ZTL:=CONST(REF(L,ZTW));{涨停日最低价}
{标二分之一位}
STICKLINE(ZT,(H+L)/2,(H+L)/2,3.6,0),COLORBLUE;
{当前涨停板日的二分之一位}
ZT21:IF(CURRBARSCOUNT<=ZTW+1,(ZTH+ZTL)/2,DRAWNULL),COLORYELLOW;
DRAWNUMBER(ISLASTBAR,ZT21,ZT21),COLORYELLOW;
{黄金支撑线}
VAR0A:=EMA(EMA(EMA(CLOSE,2),2),2);
短线:=(MA(VAR0A,13)*0.99);
短线副:=(MA(VAR0A,13)*0.999);
TLAMSENR:=MAX(MAX((HIGH-LOW),ABS((REF(CLOSE,1)-HIGH))),ABS((REF(CLOSE,1)-LOW)));
VAR0B:=MA(TLAMSENR,13);
VAR1A:=(REF(CLOSE,1)-REF(VAR0B,1));
黄金支撑:=(HHV(VAR1A,12)),COLORFFFFFF;
不显:=DRAWTEXT(ISLASTBAR,黄金支撑,VARCAT(VAR2STR(黄金支撑,2),'←金支撑')),COLORFFFFFF;
股价金叉支撑:=CROSS(C,黄金支撑) AND O<黄金支撑;
蓝宝石柱:V/REF(V,1)>=1.8 AND C/REF(C,1)>1.015 AND (C-REF(C,1))/REF(C,1)*100<8 AND 股价金叉支撑,COLORFFBB00,NODRAW;
STICKLINE(蓝宝石柱,OPEN,CLOSE,1,0),COLORFFBB00;{十三姨的黄金柱};
{ 状态转移概率交易系统 }
TH:=0.01; {涨跌幅阈值}
平滑周期:=5; {一次平滑周期}
二次平滑:=3; {二次平滑周期}
建仓阈值:=50; {洗转涨概率阈值}
卖出阈值:=70; {涨转跌概率阈值}
{基础计算}
涨跌幅:=CLOSE/REF(CLOSE,1)-1;
当前状态:=IF(涨跌幅>TH,1,IF(涨跌幅<-TH,-1,0));
{状态转移概率计算}
上涨总次数:=SUM(REF(当前状态,1)=1,N);
下跌总次数:=SUM(REF(当前状态,1)=-1,N);
洗整总次数:=SUM(REF(当前状态,1)=0,N);
涨转涨次数:=SUM(REF(当前状态,1)=1 AND 当前状态=1,N);
涨转跌次数:=SUM(REF(当前状态,1)=1 AND 当前状态=-1,N);
涨转洗次数:=SUM(REF(当前状态,1)=1 AND 当前状态=0,N);
跌转涨次数:=SUM(REF(当前状态,1)=-1 AND 当前状态=1,N);
跌转跌次数:=SUM(REF(当前状态,1)=-1 AND 当前状态=-1,N);
跌转洗次数:=SUM(REF(当前状态,1)=-1 AND 当前状态=0,N);
洗转涨次数:=SUM(REF(当前状态,1)=0 AND 当前状态=1,N);
洗转跌次数:=SUM(REF(当前状态,1)=0 AND 当前状态=-1,N);
洗转洗次数:=SUM(REF(当前状态,1)=0 AND 当前状态=0,N);
涨转涨概率:=IF(上涨总次数>0,涨转涨次数/上涨总次数,0);
涨转跌概率:=IF(上涨总次数>0,涨转跌次数/上涨总次数,0);
涨转洗概率:=IF(上涨总次数>0,涨转洗次数/上涨总次数,0);
跌转涨概率:=IF(下跌总次数>0,跌转涨次数/下跌总次数,0);
跌转跌概率:=IF(下跌总次数>0,跌转跌次数/下跌总次数,0);
跌转洗概率:=IF(下跌总次数>0,跌转洗次数/下跌总次数,0);
洗转涨概率:=IF(洗整总次数>0,洗转涨次数/洗整总次数,0);
洗转跌概率:=IF(洗整总次数>0,洗转跌次数/洗整总次数,0);
洗转洗概率:=IF(洗整总次数>0,洗转洗次数/洗整总次数,0);
红柱顶:=CLOSE*(1+涨转涨概率/10);
红柱底:=CLOSE;
绿柱顶:=CLOSE*(1-跌转跌概率/10);
涨幅值:=(C/REF(C,1)-1)*100<3.6;
基因1:=REF(涨幅值,1)=1 AND REF(涨幅值,2)=1 AND REF(涨幅值,3)=1;
基因2:=REF(L,2)<REF(L,3) AND REF(L,3)<REF(L,4) AND REF(L,4)<REF(L,5);
基因3:=MA5X>REF(MA5X,1);
基因大全:=基因1=1 AND 基因2=1;
预备转升:=REF(红柱顶,1)=REF(红柱底,1) AND 红柱顶>REF(红柱顶,1) AND (红柱顶/红柱底)>1.01 AND 基因1=1;
四十筹码线:=COST(30.00);
金叉筹码:=CROSS(C,六十筹码线) OR CROSS(C+(H-C)/2,六十筹码线);{CROSS(H,六十筹码线)}{C*1.04}
浮筹:=(WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*100,COLORGREEN,LINETHICK1;
锁仓:=100-WINNER(C*0.9)*100,COLORWHITE;
筹码缩口:=浮筹>REF(浮筹,1) AND REF(浮筹,1)>REF(浮筹,2) AND 锁仓<REF(锁仓,1);
{ 有效数据过滤：最近22日必须一直满足TM=1 AND CM=1，否则轨线间断无法判定相等 }
有效22日:=COUNT(TM=1 AND CM=1,22)=22;
有效5日:=COUNT(TM=1 AND CM=1,5)=5;
{ 22个交易日内上轨数值相等（最大值与最小值差<0.001）}
上轨相等:=HHV(上轨,22)-LLV(上轨,22)<0.001;
{ 5个交易日内下轨数值相等 }
下轨相等:=HHV(下轨,5)-LLV(下轨,5)<0.001;
上下轨平行:=上轨相等=1 AND 下轨相等;
{ 选股条件 }
选股:=有效22日 AND 有效5日 AND 上轨相等 AND 下轨相等;
均线比前大:=EXP26X>REF(EXP26X,1);
MV13:=MA(V,13),COLORWHITE;
MV35:=MA(V,35)COLORMAGENTA;
成交均线:=MV13*1.1>MV35 AND MV13>REF(MV13,1);
强势回马枪:预备转升=1 AND 金叉筹码=1 AND 四十筹码线>REF(四十筹码线,1) AND 筹码缩口=1 AND 选股=1 AND 均线比前大=1 AND 成交均线=1,NODRAW;
DRAWTEXT(强势回马枪,LOW*0.98,'回马枪'),COLORYELLOW,LINETHICK2;
{ 以下为新增的实体比例限制条件 }
{ 实体比例 = (收盘价-开盘价) / (涨停价-昨日收盘价) }
实体比例:=(CLOSE-OPEN)/(ZTJ-REF(CLOSE,1));
{ 全实体板：实体比例>=90% 且 以涨停收盘 }
全实体板:=ZT AND 实体比例>=0.81;
{基于ZJL排序}
{最终版 - 买入信号}
{条件：跌幅<-6% + 成交额>10亿 + 站稳20日均线}
{1. 原折价率计算}
折价率:=IF(FINANCE(34)>0.001,(FINANCE(34)-CLOSE)*100.0/FINANCE(34),0);
{2. 当日跌幅}
当日跌幅:=(C/REF(C,1)-1)*100;
{3. 折价得分}
折价得分:=IF(折价率<-400, 0,
IF(折价率<-100, 40 - (ABS(折价率+250)/15), 0));
{4. 跌幅得分}
跌幅得分:=IF(当日跌幅<-8, 15,
IF(当日跌幅<-6, 30 - (ABS(当日跌幅+7)*2.5), 0));
{5. 放量得分}
放量得分:=IF(V/MA(V,5)>2, 15,
IF(V/MA(V,5)>1.5, 10, 0));
{6. 位置得分：必须站稳20日均线}
位置得分:=IF(C>MA(C,20), 15, 0);
{7. 成交额得分}
成交额得分:=IF(AMOUNT/100000000>10, 15, 0);
{8. 总分}
总分:=折价得分 + 跌幅得分 + 放量得分 + 位置得分 + 成交额得分;
{9. 买入信号}
买入信号:=IF(当日跌幅<-6 AND AMOUNT/100000000>10 AND C>MA(C,20), 总分, 0);
牛线240:=HHV(EMA(C,5),240),COLORBLUE,LINETHICK1;
牛线20:=HHV(EMA(C,5),20),COLOR00FF00,LINETHICK2;
有牛:=牛线240=牛线20 OR 牛线20>REF(牛线20,1);
实体板后基于:买入信号>40 AND 有牛=1,NODRAW;{为多看信号，去掉遮盖条件REF(全实体板,1)=1 AND }
DRAWTEXT(实体板后基于,H*0.98,'基于'),COLORYELLOW;
PP1:=PPART(1)*100;
PP10:=PPART(10)*100;
PP11:=PPART(11)*100;
PP20:=PPART(20)*100;
PP21:=PPART(21)*100;
PP30:=PPART(30)*100;
PP31:=PPART(31)*100;
PP60:=PPART(60)*100;
PP61:=PPART(61)*100;
PP100:=PPART(100)*100;
PP101:=PPART(101)*100;
PC10:=(100-PP10);
PC11:=(PP1-PP11);
PC20:=(PP10-PP20);
PC21:=(PP11-PP21);
PC30:=(PP20-PP30);
PC31:=(PP21-PP31);
PC60:=(PP30-PP60);
PC61:=(PP31-PP61);
PC10C:=-(REF(PC10,1)-PC11)*REF(PP10,1)/100;
PC20C:=-(REF(PC20,1)-PC21)*REF(PP20,1)/100;
PC30C:=-(REF(PC30,1)-PC31)*REF(PP30,1)/100;
PC60C:=-(REF(PC60,1)-PC61)*REF(PP60,1)/100;
CT:=(PC10C+PC20C+PC30C+PC60C);
获利比例30:=PWINNER(30,C)*100,COLORRED,LINETHICK2;
强势分界线:=-SUM(CT,30) COLORYELLOW LINETHICK2;
金叉:=CROSS(C,牛线20);
两日内金叉:=金叉=1 OR REF(金叉,1)=1;
低位筹码穿越:=强势分界线<55 AND CROSS(获利比例30,强势分界线);
穿越确认:低位筹码穿越 AND ZTO AND 两日内金叉=1,NODRAW;
DRAWTEXT(穿越确认,H*0.98,'穿越'),COLORYELLOW;
{分时主图源码如下}
{屏幕下部提示}
涨家:=STRCAT(STRCAT('总上涨：',CON2STR(DYNAINFO(60),0)),' ');
跌家:=STRCAT(STRCAT('总下跌：',CON2STR(DYNAINFO(61),0)),' ');
DRAWTEXT_FIX(ISLASTBAR,0.08,0.01,0,涨家),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.8,0.01,0,跌家),COLORGREEN;
DBHS:=V/CAPITAL*100,NODRAW;
{分时图0.00%即昨日收盘价线}
昨收:CONST(DYNAINFO(3)),LINETHICK2,COLOR00FF00;
{以下成本均线高仿}
PC:=(O+C)/2;
V0:=SUM(VOL,0);
WQCB:DMA(PC,VOL/V0),COLORBLUE,DOTLINE,LINETHICK3;
{分时图 - 开盘价全屏横线 - 稳定版}
开盘价:=DYNAINFO(4),COLORFF00FF,LINETHICK2;
不显示:=DRAWNUMBER(CURRBARSCOUNT=1, 开盘价, 开盘价),COLORFF00FF;
{副图1源码如下}
TM:=1;
CM:=1;
N:=1;
VOLUME:VOL,VOLSTICK;
开幅:(OPEN-REF(C,1))/REF(C,1)*100,NODRAW;
今昨比:VOLUME/REF(VOLUME,1),COLORYELLOW,NODRAW;
{突破26日前高 - 成交量确认}
前高:=REF(HHV(H,26),1);
成交量倍数:=V/MA(V,20)>1.5; {成交量超过20日均量1.5倍}
突破1:=C>前高 AND C>REF(C,1);
流通Z:=FINVALUE(266)/100000000,NODRAW,COLORLIBLUE;{单位：亿股}
换手Z:V*100*100/FINANCE(46),NODRAW;{采用真实换手率};
未换手率:=100-换手Z,NODRAW,COLORFFFFFF;
{本文为理想论坛博主「永远龙头」的帖子，转载请注明出处。
原文链接: HTTPS://WWW.55188.COM/THREAD-40579681-1-1.HTML}
{ 通达信盘后量比副图 }
VA:=IF(CLOSE=INDEXC,1,0);
{ 上述VA行仅用于兼容性设置，无实际计算影响，可删除不影响核心结果 }
{ 核心计算：过去5个交易日每分钟平均成交量 }
MV5:=REF(MA(VOL,5),1)/240;
{ 量比：当前总成交量 / (过去5日每分钟平均量 * 今日已开盘分钟数) }
盘后量比:VOL/(MV5*FROMOPEN)COLORFF00FF,NODRAW;
{小牛波段}
{小牛波段}
小牛20:=HHV(EMA(C,5),20),COLORYELLOW,LINETHICK1;
小牛12:=HHV(EMA(C,5),12),COLOR00FF00,LINETHICK1;
合一:=小牛20=小牛12 AND REF(小牛20,1)>REF(小牛12,1);
二日有合一:=合一=1 OR REF(合一,1)=1;
{ 成交量大于45个交易日内最大量 - 选股 }
{ 判断条件：当前量 > 昨日之前的45日最大量 }
HYPER:=VOL >REF(HHV(VOL, 45),1);
小牛角:=ATAN((小牛20/REF(小牛20,1)-1)*100)*180/3.1416;
{紫紫红黄紫中的紫紫红}
{====== 1. 共振紫 ======}
VAR1:=(3*CLOSE+HIGH+LOW+OPEN)/6;
VAR2:=EMA(VAR1,35);
VAR3:=(HHV(VAR2,10)+HHV(VAR2,30)+HHV(VAR2,90))/3;
VAR4:=(LLV(VAR2,10)+LLV(VAR2,30)+LLV(VAR2,90))/3;
VAR5:=(HHV(VAR3,5)+HHV(VAR3,15)+HHV(VAR3,30))/3;
VAR6:=(LLV(VAR4,5)+LLV(VAR4,15)+LLV(VAR4,30))/3;
VAR7:=EXPMA(CLOSE,6);
VAR8:=EXPMA(CLOSE,18);
M1:=500*(VAR7-VAR8)/VAR8+2;
共振追涨紫:=M1>2 AND EMA(EMA(VAR1,2),2)>VAR6 AND (M1>2 AND EMA(EMA(VAR1,2),2)>VAR6)>=REF(M1>2 AND EMA(EMA(VAR1,2),2)>VAR6,1);
{====== 2. 起爆紫 ======}
X_1:=INDEXH;
X_2:=INDEXO;
X_3:=INDEXL;
X_4:=INDEXC;
X_5:=INDEXV;
X_6:=(3*CLOSE+HIGH+LOW+OPEN)/6;
X_7:=EMA(X_6,35);
X_8:=(HHV(X_7,5)+HHV(X_7,15)+HHV(X_7,30))/3;
X_9:=(LLV(X_7,5)+LLV(X_7,15)+LLV(X_7,30))/3;
牛线:=(HHV(X_8,5)+HHV(X_8,15)+HHV(X_8,30))/3;
X_10:=(LLV(X_9,5)+LLV(X_9,15)+LLV(X_9,30))/3;
X_11:=X_4/EMA(X_4,120);
大盘中线:=EMA(EMA(CLOSE,120)*X_11,2);
强势起爆紫:=X_6>=牛线 AND X_6>=大盘中线;
{====== 3. 动能红 ======}
TT:=(2*CLOSE+OPEN+HIGH+LOW)*100;
FF:=TT/EMA(TT,5)-1;
动能2红:=FF>REF(FF,1) AND FF>0;
{====== 最终选股输出：三者同时成立 ======}
紫紫红选股:=共振追涨紫 AND 强势起爆紫 AND 动能2红;
小牛放量:=二日有合一=1 AND HYPER=1 AND 小牛20>REF(小牛20,1) AND 小牛角>40 AND 紫紫红选股=1;
小牛发力:FILTER(小牛放量,2),COLORYELLOW;
STICKLINE(小牛发力,0,VOLUME,3,0),COLORYELLOW;
V5:=MA(VOL, 5),COLORFFFFFF;
V20:=MA(VOL, 20),COLOR00FF00;
不显示:=IF(V20>REF(V20,1),V20,DRAWNULL),COLORYELLOW,LINETHICK2;
{ 盘后交易量副图 }
盘后交易量:GPJYVALUE(25,2,2),NODRAW,COLOR00FF00;
STICKLINE(盘后交易量>0,0,盘后交易量,3,1),COLOR00FF00;
{副图2源码如下}
{ VOLUME PROFILE - 终极修正版V6.7.28（修复一字板 / 无振幅数据丢失BUG） }
{ 外部参数：N N倍数（缺省: 3，范围: 1 - 20） }
N:= 2;
{ === 1. 数据周期锁定 === }
衔印:= PERIOD = 0 && ZSTJJ != 0;
有效周期:= USEDDATANUM; { 修改建议: 此值与屏显K线数保持一致 }
{ === 2. 坐标轴绝对锁定 === }
历史最高:= CONST(REFDATE(HHV(H, 有效周期), DATE));
历史最低:= CONST(REFDATE(LLV(L, 有效周期), DATE));
网格宽度:= (历史最高 - 历史最低) / 29;
{ === 3. 成交量基础换算 === }
市场换算:= IF(SETCODE == 0 || SETCODE == 1 || SETCODE == 2 || SETCODE = 44, 100, 1);
有效量手:= VOL / 市场换算;
分时一字:= 衔印 || (H = L);
{ === 4. 核心算法：28网格成交量分配（已修复一字板BUG） === }
V1:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高) - MAX(L, 历史最高 - 网格宽度)) / (H - L)), 有效周期);
V2:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 2 && C < 历史最高 - 网格宽度, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度) - MAX(L, 历史最高 - 网格宽度 * 2)) / (H - L)), 有效周期);
V3:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 3 && C < 历史最高 - 网格宽度 * 2, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 2) - MAX(L, 历史最高 - 网格宽度 * 3)) / (H - L)), 有效周期);
V4:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 4 && C < 历史最高 - 网格宽度 * 3, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 3) - MAX(L, 历史最高 - 网格宽度 * 4)) / (H - L)), 有效周期);
V5:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 5 && C < 历史最高 - 网格宽度 * 4, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 4) - MAX(L, 历史最高 - 网格宽度 * 5)) / (H - L)), 有效周期);
V6:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 6 && C < 历史最高 - 网格宽度 * 5, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 5) - MAX(L, 历史最高 - 网格宽度 * 6)) / (H - L)), 有效周期);
V7:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 7 && C < 历史最高 - 网格宽度 * 6, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 6) - MAX(L, 历史最高 - 网格宽度 * 7)) / (H - L)), 有效周期);
V8:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 8 && C < 历史最高 - 网格宽度 * 7, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 7) - MAX(L, 历史最高 - 网格宽度 * 8)) / (H - L)), 有效周期);
V9:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 9 && C < 历史最高 - 网格宽度 * 8, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 8) - MAX(L, 历史最高 - 网格宽度 * 9)) / (H - L)), 有效周期);
V10:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 10 && C < 历史最高 - 网格宽度 * 9, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 9) - MAX(L, 历史最高 - 网格宽度 * 10)) / (H - L)), 有效周期);
V11:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 11 && C < 历史最高 - 网格宽度 * 10, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 10) - MAX(L, 历史最高 - 网格宽度 * 11)) / (H - L)), 有效周期);
V12:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 12 && C < 历史最高 - 网格宽度 * 11, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 11) - MAX(L, 历史最高 - 网格宽度 * 12)) / (H - L)), 有效周期);
V13:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 13 && C < 历史最高 - 网格宽度 * 12, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 12) - MAX(L, 历史最高 - 网格宽度 * 13)) / (H - L)), 有效周期);
V14:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 14 && C < 历史最高 - 网格宽度 * 13, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 13) - MAX(L, 历史最高 - 网格宽度 * 14)) / (H - L)), 有效周期);
V15:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 15 && C < 历史最高 - 网格宽度 * 14, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 14) - MAX(L, 历史最高 - 网格宽度 * 15)) / (H - L)), 有效周期);
V16:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 16 && C < 历史最高 - 网格宽度 * 15, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 15) - MAX(L, 历史最高 - 网格宽度 * 16)) / (H - L)), 有效周期);
V17:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 17 && C < 历史最高 - 网格宽度 * 16, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 16) - MAX(L, 历史最高 - 网格宽度 * 17)) / (H - L)), 有效周期);
V18:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 18 && C < 历史最高 - 网格宽度 * 17, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 17) - MAX(L, 历史最高 - 网格宽度 * 18)) / (H - L)), 有效周期);
V19:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 19 && C < 历史最高 - 网格宽度 * 18, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 18) - MAX(L, 历史最高 - 网格宽度 * 19)) / (H - L)), 有效周期);
V20:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 20 && C < 历史最高 - 网格宽度 * 19, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 19) - MAX(L, 历史最高 - 网格宽度 * 20)) / (H - L)), 有效周期);
V21:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 21 && C < 历史最高 - 网格宽度 * 20, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 20) - MAX(L, 历史最高 - 网格宽度 * 21)) / (H - L)), 有效周期);
V22:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 22 && C < 历史最高 - 网格宽度 * 21, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 21) - MAX(L, 历史最高 - 网格宽度 * 22)) / (H - L)), 有效周期);
V23:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 23 && C < 历史最高 - 网格宽度 * 22, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 22) - MAX(L, 历史最高 - 网格宽度 * 23)) / (H - L)), 有效周期);
V24:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 24 && C < 历史最高 - 网格宽度 * 23, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 23) - MAX(L, 历史最高 - 网格宽度 * 24)) / (H - L)), 有效周期);
V25:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 25 && C < 历史最高 - 网格宽度 * 24, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 24) - MAX(L, 历史最高 - 网格宽度 * 25)) / (H - L)), 有效周期);
V26:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 26 && C < 历史最高 - 网格宽度 * 25, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 25) - MAX(L, 历史最高 - 网格宽度 * 26)) / (H - L)), 有效周期);
V27:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 27 && C < 历史最高 - 网格宽度 * 26, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 26) - MAX(L, 历史最高 - 网格宽度 * 27)) / (H - L)), 有效周期);
V28:= SUM(IF(分时一字, IF(C >= 历史最高 - 网格宽度 * 28 && C < 历史最高 - 网格宽度 * 27, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 27) - MAX(L, 历史最高 - 网格宽度 * 28)) / (H - L)), 有效周期);
V29:= SUM(IF(分时一字, IF(C < 历史最高 - 网格宽度 * 28, 有效量手, 0), 有效量手 * MAX(0, MIN(H, 历史最高 - 网格宽度 * 28) - MAX(L, 历史最低)) / (H - L)), 有效周期);
{ === 5. CONST 强制锁定为常量 === }
G1:= CONST(V1); G2:= CONST(V2); G3:= CONST(V3); G4:= CONST(V4); G5:= CONST(V5);
G6:= CONST(V6); G7:= CONST(V7); G8:= CONST(V8); G9:= CONST(V9); G10:= CONST(V10);
G11:= CONST(V11); G12:= CONST(V12); G13:= CONST(V13); G14:= CONST(V14); G15:= CONST(V15);
G16:= CONST(V16); G17:= CONST(V17); G18:= CONST(V18); G19:= CONST(V19); G20:= CONST(V20);
G21:= CONST(V21); G22:= CONST(V22); G23:= CONST(V23); G24:= CONST(V24); G25:= CONST(V25);
G26:= CONST(V26); G27:= CONST(V27); G28:= CONST(V28); G29:= CONST(V29);
{ === 6. 总成交量与累计占比 === }
总成交量:= G1 + G2 + G3 + G4 + G5 + G6 + G7 + G8 + G9 + G10 + G11 + G12 + G13 + G14 + G15 + G16 + G17 + G18 + G19 + G20 + G21 + G22 + G23 + G24 + G25 + G26 + G27 + G28 + G29;
累计1:= G1 / 总成交量; 累计2:= 累计1 + G2 / 总成交量; 累计3:= 累计2 + G3 / 总成交量; 累计4:= 累计3 + G4 / 总成交量; 累计5:= 累计4 + G5 / 总成交量;
累计6:= 累计5 + G6 / 总成交量; 累计7:= 累计6 + G7 / 总成交量; 累计8:= 累计7 + G8 / 总成交量; 累计9:= 累计8 + G9 / 总成交量; 累计10:= 累计9 + G10 / 总成交量;
累计11:= 累计10 + G11 / 总成交量; 累计12:= 累计11 + G12 / 总成交量; 累计13:= 累计12 + G13 / 总成交量; 累计14:= 累计13 + G14 / 总成交量; 累计15:= 累计14 + G15 / 总成交量;
累计16:= 累计15 + G16 / 总成交量; 累计17:= 累计16 + G17 / 总成交量; 累计18:= 累计17 + G18 / 总成交量; 累计19:= 累计18 + G19 / 总成交量; 累计20:= 累计19 + G20 / 总成交量;
累计21:= 累计20 + G21 / 总成交量; 累计22:= 累计21 + G22 / 总成交量; 累计23:= 累计22 + G23 / 总成交量; 累计24:= 累计23 + G24 / 总成交量; 累计25:= 累计24 + G25 / 总成交量;
累计26:= 累计25 + G26 / 总成交量; 累计27:= 累计26 + G27 / 总成交量; 累计28:= 累计27 + G28 / 总成交量; 累计29:= 1;
{ === 7. POC（控制价位）计算 === }
峰值成交量:= MAX(G1, MAX(G2, MAX(G3, MAX(G4, MAX(G5, MAX(G6, MAX(G7, MAX(G8, MAX(G9, MAX(G10,
MAX(G11, MAX(G12, MAX(G13, MAX(G14, MAX(G15, MAX(G16, MAX(G17, MAX(G18, MAX(G19, MAX(G20,
MAX(G21, MAX(G22, MAX(G23, MAX(G24, MAX(G25, MAX(G26, MAX(G27, MAX(G28, G29))))))))))))))))))))))))))));
POC序号:= IF(G1 = 峰值成交量, 1, IF(G2 = 峰值成交量, 2, IF(G3 = 峰值成交量, 3, IF(G4 = 峰值成交量, 4, IF(G5 = 峰值成交量, 5,
IF(G6 = 峰值成交量, 6, IF(G7 = 峰值成交量, 7, IF(G8 = 峰值成交量, 8, IF(G9 = 峰值成交量, 9, IF(G10 = 峰值成交量, 10,
IF(G11 = 峰值成交量, 11, IF(G12 = 峰值成交量, 12, IF(G13 = 峰值成交量, 13, IF(G14 = 峰值成交量, 14, IF(G15 = 峰值成交量, 15,
IF(G16 = 峰值成交量, 16, IF(G17 = 峰值成交量, 17, IF(G18 = 峰值成交量, 18, IF(G19 = 峰值成交量, 19, IF(G20 = 峰值成交量, 20,
IF(G21 = 峰值成交量, 21, IF(G22 = 峰值成交量, 22, IF(G23 = 峰值成交量, 23, IF(G24 = 峰值成交量, 24, IF(G25 = 峰值成交量, 25,
IF(G26 = 峰值成交量, 26, IF(G27 = 峰值成交量, 27, IF(G28 = 峰值成交量, 28, 29))))))))))))))))))))))))))));
POC: 历史最高 - 网格宽度 * (POC序号 - 0.5), COLORRED, LINETHICK2;
{ === 8. 查找 VAH（15 % 累计）、VAL（85 % 累计）—— 全部使用 IF 嵌套 === }
VAH序号:= IF(累计1 >= 0.15, 1, IF(累计2 >= 0.15, 2, IF(累计3 >= 0.15, 3, IF(累计4 >= 0.15, 4, IF(累计5 >= 0.15, 5,
IF(累计6 >= 0.15, 6, IF(累计7 >= 0.15, 7, IF(累计8 >= 0.15, 8, IF(累计9 >= 0.15, 9, IF(累计10 >= 0.15, 10,
IF(累计11 >= 0.15, 11, IF(累计12 >= 0.15, 12, IF(累计13 >= 0.15, 13, IF(累计14 >= 0.15, 14, IF(累计15 >= 0.15, 15,
IF(累计16 >= 0.15, 16, IF(累计17 >= 0.15, 17, IF(累计18 >= 0.15, 18, IF(累计19 >= 0.15, 19, IF(累计20 >= 0.15, 20,
IF(累计21 >= 0.15, 21, IF(累计22 >= 0.15, 22, IF(累计23 >= 0.15, 23, IF(累计24 >= 0.15, 24, IF(累计25 >= 0.15, 25,
IF(累计26 >= 0.15, 26, IF(累计27 >= 0.15, 27, IF(累计28 >= 0.15, 28, 29))))))))))))))))))))))))))));
VAL序号:= IF(累计1 >= 0.85, 1, IF(累计2 >= 0.85, 2, IF(累计3 >= 0.85, 3, IF(累计4 >= 0.85, 4, IF(累计5 >= 0.85, 5,
IF(累计6 >= 0.85, 6, IF(累计7 >= 0.85, 7, IF(累计8 >= 0.85, 8, IF(累计9 >= 0.85, 9, IF(累计10 >= 0.85, 10,
IF(累计11 >= 0.85, 11, IF(累计12 >= 0.85, 12, IF(累计13 >= 0.85, 13, IF(累计14 >= 0.85, 14, IF(累计15 >= 0.85, 15,
IF(累计16 >= 0.85, 16, IF(累计17 >= 0.85, 17, IF(累计18 >= 0.85, 18, IF(累计19 >= 0.85, 19, IF(累计20 >= 0.85, 20,
IF(累计21 >= 0.85, 21, IF(累计22 >= 0.85, 22, IF(累计23 >= 0.85, 23, IF(累计24 >= 0.85, 24, IF(累计25 >= 0.85, 25,
IF(累计26 >= 0.85, 26, IF(累计27 >= 0.85, 27, IF(累计28 >= 0.85, 28, 29))))))))))))))))))))))))))));
P90H序号:= IF(累计1 >= 0.05, 1, IF(累计2 >= 0.05, 2, IF(累计3 >= 0.05, 3, IF(累计4 >= 0.05, 4, IF(累计5 >= 0.05, 5,
IF(累计6 >= 0.05, 6, IF(累计7 >= 0.05, 7, IF(累计8 >= 0.05, 8, IF(累计9 >= 0.05, 9, IF(累计10 >= 0.05, 10,
IF(累计11 >= 0.05, 11, IF(累计12 >= 0.05, 12, IF(累计13 >= 0.05, 13, IF(累计14 >= 0.05, 14, IF(累计15 >= 0.05, 15,
IF(累计16 >= 0.05, 16, IF(累计17 >= 0.05, 17, IF(累计18 >= 0.05, 18, IF(累计19 >= 0.05, 19, IF(累计20 >= 0.05, 20,
IF(累计21 >= 0.05, 21, IF(累计22 >= 0.05, 22, IF(累计23 >= 0.05, 23, IF(累计24 >= 0.05, 24, IF(累计25 >= 0.05, 25,
IF(累计26 >= 0.05, 26, IF(累计27 >= 0.05, 27, IF(累计28 >= 0.05, 28, 29))))))))))))))))))))))))))));
P90L序号:= IF(累计1 >= 0.95, 1, IF(累计2 >= 0.95, 2, IF(累计3 >= 0.95, 3, IF(累计4 >= 0.95, 4, IF(累计5 >= 0.95, 5,
IF(累计6 >= 0.95, 6, IF(累计7 >= 0.95, 7, IF(累计8 >= 0.95, 8, IF(累计9 >= 0.95, 9, IF(累计10 >= 0.95, 10,
IF(累计11 >= 0.95, 11, IF(累计12 >= 0.95, 12, IF(累计13 >= 0.95, 13, IF(累计14 >= 0.95, 14, IF(累计15 >= 0.95, 15,
IF(累计16 >= 0.95, 16, IF(累计17 >= 0.95, 17, IF(累计18 >= 0.95, 18, IF(累计19 >= 0.95, 19, IF(累计20 >= 0.95, 20,
IF(累计21 >= 0.95, 21, IF(累计22 >= 0.95, 22, IF(累计23 >= 0.95, 23, IF(累计24 >= 0.95, 24, IF(累计25 >= 0.95, 25,
IF(累计26 >= 0.95, 26, IF(累计27 >= 0.95, 27, IF(累计28 >= 0.95, 28, 29))))))))))))))))))))))))))));
{ === 9. 获取 VAH 前值及插值计算（REF 使用常量序号）=== }
VAH前值:= IF(VAH序号 = 1, 0,
IF(VAH序号 = 2, 累计1, IF(VAH序号 = 3, 累计2, IF(VAH序号 = 4, 累计3, IF(VAH序号 = 5, 累计4,
IF(VAH序号 = 6, 累计5, IF(VAH序号 = 7, 累计6, IF(VAH序号 = 8, 累计7, IF(VAH序号 = 9, 累计8, IF(VAH序号 = 10, 累计9,
IF(VAH序号 = 11, 累计10, IF(VAH序号 = 12, 累计11, IF(VAH序号 = 13, 累计12, IF(VAH序号 = 14, 累计13, IF(VAH序号 = 15, 累计14,
IF(VAH序号 = 16, 累计15, IF(VAH序号 = 17, 累计16, IF(VAH序号 = 18, 累计17, IF(VAH序号 = 19, 累计18, IF(VAH序号 = 20, 累计19,
IF(VAH序号 = 21, 累计20, IF(VAH序号 = 22, 累计21, IF(VAH序号 = 23, 累计22, IF(VAH序号 = 24, 累计23, IF(VAH序号 = 25, 累计24,
IF(VAH序号 = 26, 累计25, IF(VAH序号 = 27, 累计26, IF(VAH序号 = 28, 累计27, 累计28))))))))))))))))))))))))))));
VAH现值:= IF(VAH序号 = 1, 累计1, IF(VAH序号 = 2, 累计2, IF(VAH序号 = 3, 累计3, IF(VAH序号 = 4, 累计4, IF(VAH序号 = 5, 累计5,
IF(VAH序号 = 6, 累计6, IF(VAH序号 = 7, 累计7, IF(VAH序号 = 8, 累计8, IF(VAH序号 = 9, 累计9, IF(VAH序号 = 10, 累计10,
IF(VAH序号 = 11, 累计11, IF(VAH序号 = 12, 累计12, IF(VAH序号 = 13, 累计13, IF(VAH序号 = 14, 累计14, IF(VAH序号 = 15, 累计15,
IF(VAH序号 = 16, 累计16, IF(VAH序号 = 17, 累计17, IF(VAH序号 = 18, 累计18, IF(VAH序号 = 19, 累计19, IF(VAH序号 = 20, 累计20,
IF(VAH序号 = 21, 累计21, IF(VAH序号 = 22, 累计22, IF(VAH序号 = 23, 累计23, IF(VAH序号 = 24, 累计24, IF(VAH序号 = 25, 累计25,
IF(VAH序号 = 26, 累计26, IF(VAH序号 = 27, 累计27, IF(VAH序号 = 28, 累计28, 累计29))))))))))))))))))))))))))));
VAH: 历史最高 - 网格宽度 * ((VAH序号 - 1) + (0.15 - VAH前值) / MAX(VAH现值 - VAH前值, 0.0001)), COLORYELLOW, DOTLINE;
{ === 10. 获取 VAL 前值及插值计算 === }
VAL前值:= IF(VAL序号 = 1, 0,
IF(VAL序号 = 2, 累计1, IF(VAL序号 = 3, 累计2, IF(VAL序号 = 4, 累计3, IF(VAL序号 = 5, 累计4,
IF(VAL序号 = 6, 累计5, IF(VAL序号 = 7, 累计6, IF(VAL序号 = 8, 累计7, IF(VAL序号 = 9, 累计8, IF(VAL序号 = 10, 累计9,
IF(VAL序号 = 11, 累计10, IF(VAL序号 = 12, 累计11, IF(VAL序号 = 13, 累计12, IF(VAL序号 = 14, 累计13, IF(VAL序号 = 15, 累计14,
IF(VAL序号 = 16, 累计15, IF(VAL序号 = 17, 累计16, IF(VAL序号 = 18, 累计17, IF(VAL序号 = 19, 累计18, IF(VAL序号 = 20, 累计19,
IF(VAL序号 = 21, 累计20, IF(VAL序号 = 22, 累计21, IF(VAL序号 = 23, 累计22, IF(VAL序号 = 24, 累计23, IF(VAL序号 = 25, 累计24,
IF(VAL序号 = 26, 累计25, IF(VAL序号 = 27, 累计26, IF(VAL序号 = 28, 累计27, 累计28))))))))))))))))))))))))))));
VAL现值:= IF(VAL序号 = 1, 累计1, IF(VAL序号 = 2, 累计2, IF(VAL序号 = 3, 累计3, IF(VAL序号 = 4, 累计4, IF(VAL序号 = 5, 累计5,
IF(VAL序号 = 6, 累计6, IF(VAL序号 = 7, 累计7, IF(VAL序号 = 8, 累计8, IF(VAL序号 = 9, 累计9, IF(VAL序号 = 10, 累计10,
IF(VAL序号 = 11, 累计11, IF(VAL序号 = 12, 累计12, IF(VAL序号 = 13, 累计13, IF(VAL序号 = 14, 累计14, IF(VAL序号 = 15, 累计15,
IF(VAL序号 = 16, 累计16, IF(VAL序号 = 17, 累计17, IF(VAL序号 = 18, 累计18, IF(VAL序号 = 19, 累计19, IF(VAL序号 = 20, 累计20,
IF(VAL序号 = 21, 累计21, IF(VAL序号 = 22, 累计22, IF(VAL序号 = 23, 累计23, IF(VAL序号 = 24, 累计24, IF(VAL序号 = 25, 累计25,
IF(VAL序号 = 26, 累计26, IF(VAL序号 = 27, 累计27, IF(VAL序号 = 28, 累计28, 累计29))))))))))))))))))))))))))));
VAL: 历史最高 - 网格宽度 * ((VAL序号 - 1) + (0.85 - VAL前值) / MAX(VAL现值 - VAL前值, 0.0001)), COLORYELLOW, DOTLINE;
{ === 11. 获取 P90H 前值及插值计算 === }
P90H前值:= IF(P90H序号 = 1, 0,
IF(P90H序号 = 2, 累计1, IF(P90H序号 = 3, 累计2, IF(P90H序号 = 4, 累计3, IF(P90H序号 = 5, 累计4,
IF(P90H序号 = 6, 累计5, IF(P90H序号 = 7, 累计6, IF(P90H序号 = 8, 累计7, IF(P90H序号 = 9, 累计8, IF(P90H序号 = 10, 累计9,
IF(P90H序号 = 11, 累计10, IF(P90H序号 = 12, 累计11, IF(P90H序号 = 13, 累计12, IF(P90H序号 = 14, 累计13, IF(P90H序号 = 15, 累计14,
IF(P90H序号 = 16, 累计15, IF(P90H序号 = 17, 累计16, IF(P90H序号 = 18, 累计17, IF(P90H序号 = 19, 累计18, IF(P90H序号 = 20, 累计19,
IF(P90H序号 = 21, 累计20, IF(P90H序号 = 22, 累计21, IF(P90H序号 = 23, 累计22, IF(P90H序号 = 24, 累计23, IF(P90H序号 = 25, 累计24,
IF(P90H序号 = 26, 累计25, IF(P90H序号 = 27, 累计26, IF(P90H序号 = 28, 累计27, 累计28))))))))))))))))))))))))))));
P90H现值:= IF(P90H序号 = 1, 累计1, IF(P90H序号 = 2, 累计2, IF(P90H序号 = 3, 累计3, IF(P90H序号 = 4, 累计4, IF(P90H序号 = 5, 累计5,
IF(P90H序号 = 6, 累计6, IF(P90H序号 = 7, 累计7, IF(P90H序号 = 8, 累计8, IF(P90H序号 = 9, 累计9, IF(P90H序号 = 10, 累计10,
IF(P90H序号 = 11, 累计11, IF(P90H序号 = 12, 累计12, IF(P90H序号 = 13, 累计13, IF(P90H序号 = 14, 累计14, IF(P90H序号 = 15, 累计15,
IF(P90H序号 = 16, 累计16, IF(P90H序号 = 17, 累计17, IF(P90H序号 = 18, 累计18, IF(P90H序号 = 19, 累计19, IF(P90H序号 = 20, 累计20,
IF(P90H序号 = 21, 累计21, IF(P90H序号 = 22, 累计22, IF(P90H序号 = 23, 累计23, IF(P90H序号 = 24, 累计24, IF(P90H序号 = 25, 累计25,
IF(P90H序号 = 26, 累计26, IF(P90H序号 = 27, 累计27, IF(P90H序号 = 28, 累计28, 累计29))))))))))))))))))))))))))));
P90H: 历史最高 - 网格宽度 * ((P90H序号 - 1) + (0.05 - P90H前值) / MAX(P90H现值 - P90H前值, 0.0001)), COLORGREEN, DOTLINE;
{ === 12. 获取 P90L 前值及插值计算 === }
P90L前值:= IF(P90L序号 = 1, 0,
IF(P90L序号 = 2, 累计1, IF(P90L序号 = 3, 累计2, IF(P90L序号 = 4, 累计3, IF(P90L序号 = 5, 累计4,
IF(P90L序号 = 6, 累计5, IF(P90L序号 = 7, 累计6, IF(P90L序号 = 8, 累计7, IF(P90L序号 = 9, 累计8, IF(P90L序号 = 10, 累计9,
IF(P90L序号 = 11, 累计10, IF(P90L序号 = 12, 累计11, IF(P90L序号 = 13, 累计12, IF(P90L序号 = 14, 累计13, IF(P90L序号 = 15, 累计14,
IF(P90L序号 = 16, 累计15, IF(P90L序号 = 17, 累计16, IF(P90L序号 = 18, 累计17, IF(P90L序号 = 19, 累计18, IF(P90L序号 = 20, 累计19,
IF(P90L序号 = 21, 累计20, IF(P90L序号 = 22, 累计21, IF(P90L序号 = 23, 累计22, IF(P90L序号 = 24, 累计23, IF(P90L序号 = 25, 累计24,
IF(P90L序号 = 26, 累计25, IF(P90L序号 = 27, 累计26, IF(P90L序号 = 28, 累计27, 累计28))))))))))))))))))))))))))));
P90L现值:= IF(P90L序号 = 1, 累计1, IF(P90L序号 = 2, 累计2, IF(P90L序号 = 3, 累计3, IF(P90L序号 = 4, 累计4, IF(P90L序号 = 5, 累计5,
IF(P90L序号 = 6, 累计6, IF(P90L序号 = 7, 累计7, IF(P90L序号 = 8, 累计8, IF(P90L序号 = 9, 累计9, IF(P90L序号 = 10, 累计10,
IF(P90L序号 = 11, 累计11, IF(P90L序号 = 12, 累计12, IF(P90L序号 = 13, 累计13, IF(P90L序号 = 14, 累计14, IF(P90L序号 = 15, 累计15,
IF(P90L序号 = 16, 累计16, IF(P90L序号 = 17, 累计17, IF(P90L序号 = 18, 累计18, IF(P90L序号 = 19, 累计19, IF(P90L序号 = 20, 累计20,
IF(P90L序号 = 21, 累计21, IF(P90L序号 = 22, 累计22, IF(P90L序号 = 23, 累计23, IF(P90L序号 = 24, 累计24, IF(P90L序号 = 25, 累计25,
IF(P90L序号 = 26, 累计26, IF(P90L序号 = 27, 累计27, IF(P90L序号 = 28, 累计28, 累计29))))))))))))))))))))))))))));
P90L: 历史最高 - 网格宽度 * ((P90L序号 - 1) + (0.95 - P90L前值) / MAX(P90L现值 - P90L前值, 0.0001)), COLORGREEN, DOTLINE;
{ === 13. 集中度计算 === }
集中度90: CONST((P90H - P90L) / (P90H + P90L) * 100), COLORCYAN, NODRAW;
{ === 14. 成交量分布直方图（全29格绘制，带N系数N）=== }
{ 绘图选择1：线段(默认) }
NOTEXTL1: PLOYLINE(CEILING(有效周期 * G1 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 0.5), COLORGRAY;
NOTEXTL2: PLOYLINE(CEILING(有效周期 * G2 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 1.5), COLORGRAY;
NOTEXTL3: PLOYLINE(CEILING(有效周期 * G3 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 2.5), COLORGRAY;
NOTEXTL4: PLOYLINE(CEILING(有效周期 * G4 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 3.5), COLORGRAY;
NOTEXTL5: PLOYLINE(CEILING(有效周期 * G5 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 4.5), COLORGRAY;
NOTEXTL6: PLOYLINE(CEILING(有效周期 * G6 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 5.5), COLORGRAY;
NOTEXTL7: PLOYLINE(CEILING(有效周期 * G7 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 6.5), COLORGRAY;
NOTEXTL8: PLOYLINE(CEILING(有效周期 * G8 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 7.5), COLORGRAY;
NOTEXTL9: PLOYLINE(CEILING(有效周期 * G9 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 8.5), COLORGRAY;
NOTEXTL10: PLOYLINE(CEILING(有效周期 * G10 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 9.5), COLORGRAY;
NOTEXTL11: PLOYLINE(CEILING(有效周期 * G11 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 10.5), COLORGRAY;
NOTEXTL12: PLOYLINE(CEILING(有效周期 * G12 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 11.5), COLORGRAY;
NOTEXTL13: PLOYLINE(CEILING(有效周期 * G13 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 12.5), COLORGRAY;
NOTEXTL14: PLOYLINE(CEILING(有效周期 * G14 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 13.5), COLORGRAY;
NOTEXTL15: PLOYLINE(CEILING(有效周期 * G15 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 14.5), COLORGRAY;
NOTEXTL16: PLOYLINE(CEILING(有效周期 * G16 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 15.5), COLORGRAY;
NOTEXTL17: PLOYLINE(CEILING(有效周期 * G17 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 16.5), COLORGRAY;
NOTEXTL18: PLOYLINE(CEILING(有效周期 * G18 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 17.5), COLORGRAY;
NOTEXTL19: PLOYLINE(CEILING(有效周期 * G19 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 18.5), COLORGRAY;
NOTEXTL20: PLOYLINE(CEILING(有效周期 * G20 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 19.5), COLORGRAY;
NOTEXTL21: PLOYLINE(CEILING(有效周期 * G21 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 20.5), COLORGRAY;
NOTEXTL22: PLOYLINE(CEILING(有效周期 * G22 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 21.5), COLORGRAY;
NOTEXTL23: PLOYLINE(CEILING(有效周期 * G23 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 22.5), COLORGRAY;
NOTEXTL24: PLOYLINE(CEILING(有效周期 * G24 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 23.5), COLORGRAY;
NOTEXTL25: PLOYLINE(CEILING(有效周期 * G25 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 24.5), COLORGRAY;
NOTEXTL26: PLOYLINE(CEILING(有效周期 * G26 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 25.5), COLORGRAY;
NOTEXTL27: PLOYLINE(CEILING(有效周期 * G27 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 26.5), COLORGRAY;
NOTEXTL28: PLOYLINE(CEILING(有效周期 * G28 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 27.5), COLORGRAY;
NOTEXTL29: PLOYLINE(CEILING(有效周期 * G29 / 总成交量) * N >= CURRBARSCOUNT, 历史最低 + 网格宽度 * 0.5), COLORGRAY;
{ 绘图选择2：柱状图 }
{
STICKLINE(CEILING(有效周期 * G1 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 0.5, 历史最高 - 网格宽度 * 0.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G2 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 1.5, 历史最高 - 网格宽度 * 1.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G3 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 2.5, 历史最高 - 网格宽度 * 2.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G4 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 3.5, 历史最高 - 网格宽度 * 3.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G5 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 4.5, 历史最高 - 网格宽度 * 4.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G6 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 5.5, 历史最高 - 网格宽度 * 5.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G7 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 6.5, 历史最高 - 网格宽度 * 6.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G8 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 7.5, 历史最高 - 网格宽度 * 7.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G9 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 8.5, 历史最高 - 网格宽度 * 8.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G10 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 9.5, 历史最高 - 网格宽度 * 9.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G11 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 10.5, 历史最高 - 网格宽度 * 10.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G12 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 11.5, 历史最高 - 网格宽度 * 11.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G13 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 12.5, 历史最高 - 网格宽度 * 12.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G14 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 13.5, 历史最高 - 网格宽度 * 13.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G15 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 14.5, 历史最高 - 网格宽度 * 14.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G16 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 15.5, 历史最高 - 网格宽度 * 15.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G17 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 16.5, 历史最高 - 网格宽度 * 16.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G18 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 17.5, 历史最高 - 网格宽度 * 17.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G19 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 18.5, 历史最高 - 网格宽度 * 18.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G20 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 19.5, 历史最高 - 网格宽度 * 19.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G21 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 20.5, 历史最高 - 网格宽度 * 20.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G22 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 21.5, 历史最高 - 网格宽度 * 21.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G23 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 22.5, 历史最高 - 网格宽度 * 22.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G24 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 23.5, 历史最高 - 网格宽度 * 23.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G25 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 24.5, 历史最高 - 网格宽度 * 24.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G26 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 25.5, 历史最高 - 网格宽度 * 25.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G27 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 26.5, 历史最高 - 网格宽度 * 26.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G28 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 27.5, 历史最高 - 网格宽度 * 27.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
STICKLINE(CEILING(有效周期 * G29 / 总成交量) * N >= CURRBARSCOUNT, 历史最高 - 网格宽度 * 28.5, 历史最高 - 网格宽度 * 28.5 - 网格宽度 * 0.6, 3, 0), COLORGRAY;
}
{ === 15. 状态面板数据显示 === } {
DRAWTEXT_FIX(ISLASTBAR, 0.01, 0.02, 0, STRCAT('90% 筹码集中度: ', STRCAT(CON2STR(集中度90, 2), '%'))), COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR, 0.01, 0.06, 0, STRCAT('VAH (70%价值上限): ', CON2STR(VAH, 2))), COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR, 0.01, 0.10, 0, STRCAT('VAL (70%价值下限): ', CON2STR(VAL, 2))), COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR, 0.01, 0.14, 0, STRCAT('POC (控制价): ', CON2STR(POC, 2))), COLORRED;
DRAWTEXT_FIX(ISLASTBAR, 0.01, 0.18, 0, STRCAT('90%上限: ', CON2STR(P90H, 2))), COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR, 0.01, 0.22, 0, STRCAT('90%下限: ', CON2STR(P90L, 2))), COLORGREEN;
};
{ === 16. 重新绘制 K 线 === }
TESTSKIP(衔印 = 0);
{ === 16. 重新绘制 K 线（归一化显示，兼容成交量坐标系）=== }
TESTSKIP(衔印 = 0);
NOTEXT收盘: C, COLORC0C0C0, LINETHICK2;
{昨额用引源码如下}
{必需要建一个名为昨额的副图}
A:REF(AMO,1);
{副图4源码如下}
涨停系数:=IF(INBLOCK('北证Ａ股'),0.3,IF(INBLOCK('科创板') OR INBLOCK('创业板'),0.2,0.1));
锁:=(IF(涨停系数>=0.3,{创业板块仍按0.9对待} WINNER(C*0.8), WINNER(C*0.9))*100);{现价下方10%为锁}
锁变:锁-REF(锁,1),COLOR0000FF,LINETHICK3;
换手:=VOL/FINANCE(46)*10000,COLORFFFF00,LINETHICK1;
换变:换手-REF(换手,1),COLORFFFF00,LINETHICK2;
DRAWBAND(锁变,RGB(255,0,0),换变,RGB(255,255,255));{锁变和换变色带};
0,COLOR00FF00;
{选股信号}
TJ:=(FINANCE(3)=4 OR (DATE>1200822 && FINANCE(3)=3));
TJ3:=(FINANCE(3)=2);
ZTJ:=IF(TJ3,ZTPRICE(REF(CLOSE,1),0.3),IF(TJ,ZTPRICE(REF(CLOSE,1),0.2),ZTPRICE(REF(CLOSE,1),0.1)));
ZT:=(CLOSE>=ZTJ); { 以涨停收盘 }
ZTO:=FINANCE(42)>50 AND EXIST(ZT,1); { 上市满50天,N天存在以涨停收盘 };
昨日涨停板:=ZTO=0 AND REF(ZTO,1)=1;
小牛20:=HHV(EMA(C,5),20),COLORYELLOW,LINETHICK1;
小牛12:=HHV(EMA(C,5),12),COLOR00FF00,LINETHICK1;
连续相等1:=小牛20=小牛12 AND REF(小牛20,1)=REF(小牛12,1) AND REF(小牛20,2)=REF(小牛12,2) AND REF(小牛20,3)=REF(小牛12,3);
连续相等2:=REF(小牛20,1)=REF(小牛20,2) AND REF(小牛20,2)=REF(小牛20,3) AND REF(小牛20,3)=REF(小牛20,4);
二次起升:=连续相等1 AND 连续相等2 AND 小牛20>REF(小牛20,1);
{核心变量定义 - 需与原指标保持完全一致}
涨停系数A:=IF(INBLOCK('北证Ａ股'),0.3,IF(INBLOCK('科创板') OR INBLOCK('创业板'),0.2,0.1));
接近涨停系数:=IF(INBLOCK('北证Ａ股'),0.25,IF(INBLOCK('科创板') OR INBLOCK('创业板'),0.18,0.08));
连板系数:=IF(INBLOCK('北证Ａ股'),0.5,IF(INBLOCK('科创板') OR INBLOCK('创业板'),0.75,1));
影线系数:=IF(INBLOCK('北证Ａ股'),0.025,IF(INBLOCK('科创板') OR INBLOCK('创业板'),0.015,0.01));
涨幅系数:=IF(INBLOCK('北证Ａ股'),3,IF(INBLOCK('科创板') OR INBLOCK('创业板'),2,1));
乖离率系数:=IF(INBLOCK('北证Ａ股'),2,IF(INBLOCK('科创板') OR INBLOCK('创业板'),1.5,1));
金叉系数:=IF(INBLOCK('北证Ａ股'),3,IF(INBLOCK('科创板') OR INBLOCK('创业板'),2,1));
涨停真:=C>=ZTPRICE(REF(C,1),涨停系数) AND C=H;
流通自由流比:=CAPITAL*100/FINANCE(46);
总自比:=TOTALCAPITAL*100/FINANCE(46);
十大股东占流比:=FINVALUE(244)/FINVALUE(239);
衰减数:=1/(1-十大股东占流比);
{变量1-6}
VAR1:=(3*CLOSE+HIGH+LOW+OPEN)/6;
VAR2:=EMA(VAR1,35);
VAR3:=(HHV(VAR2,10)+HHV(VAR2,30)+HHV(VAR2,90))/3;
VAR4:=(LLV(VAR2,10)+LLV(VAR2,30)+LLV(VAR2,90))/3;
VAR5:=(HHV(VAR3,5)+HHV(VAR3,15)+HHV(VAR3,30))/3;
VAR6:=(LLV(VAR4,5)+LLV(VAR4,15)+LLV(VAR4,30))/3;
VAR7:=EXPMA(CLOSE,6);
VAR8:=EXPMA(CLOSE,18);
M1:=500*(VAR7-VAR8)/VAR8+2;
共振追涨紫:=M1>2 AND EMA(EMA(VAR1,2),2)>VAR6 AND (M1>2 AND EMA(EMA(VAR1,2),2)>VAR6)>=REF(M1>2 AND EMA(EMA(VAR1,2),2)>VAR6,1);
{大盘中线与牛线}
X_1:=INDEXH;
X_2:=INDEXO;
X_3:=INDEXL;
X_4:=INDEXC;
X_5:=INDEXV;
X_6:=(3*CLOSE+HIGH+LOW+OPEN)/6;
X_7:=EMA(X_6,35);
X_8:=(HHV(X_7,5)+HHV(X_7,15)+HHV(X_7,30))/3;
X_9:=(LLV(X_7,5)+LLV(X_7,15)+LLV(X_7,30))/3;
牛线:=(HHV(X_8,5)+HHV(X_8,15)+HHV(X_8,30))/3;
X_10:=(LLV(X_9,5)+LLV(X_9,15)+LLV(X_9,30))/3;
X_11:=X_4/EMA(X_4,120);
大盘中线:=EMA(EMA(CLOSE,120)*X_11,2);
强势起爆紫:=X_6>=牛线 AND X_6>=大盘中线;
{动能红黄}
TT:=(2*CLOSE+OPEN+HIGH+LOW)*100;
FF:=TT/EMA(TT,5)-1;
动能2红:=FF>REF(FF,1) AND FF>0;
动能2黄:=FF<REF(FF,1) AND FF>0;
{控盘度 (提取原代码第61-81行)}
VARQ1:=DMA(EMA(CLOSE,9),9);
控盘度:=(VARQ1-REF(VARQ1,1))/REF(VARQ1,1)*1000+50;
VARQ2:=100*WINNER(CLOSE*0.95);
高度控盘:=IF(VARQ2>50 AND COST(85)<CLOSE AND 控盘度>0,控盘度,0);
{核心选股条件 - 提取图中的“紫紫红黄紫”}
打板选股:=共振追涨紫 AND 动能2红 AND 控盘度>50 AND 高度控盘>0;
{=======================================}
{ 第一部分：提取最下方“红柱顶线”的数值 }
{=======================================}
回马枪操盘线:=IF(CLOSE>=O,((CLOSE-LOW)/(HIGH-LOW)+(CLOSE-HIGH)/(HIGH-LOW))*VOL,((CLOSE-HIGH)/(HIGH-LOW)+(CLOSE-LOW)/(HIGH-LOW))*VOL);
控盘绝对值:=ABS(SUM(回马枪操盘线,10)/10000);
主力控盘:=IF(控盘绝对值>=1000,控盘绝对值/100,IF(控盘绝对值>=750,控盘绝对值/90,IF(控盘绝对值>=650,控盘绝对值/80,IF(控盘绝对值>=500,控盘绝对值/70,IF(控盘绝对值>=400,控盘绝对值/60,IF(控盘绝对值>=300,控盘绝对值/50,IF(控盘绝对值>=200,控盘绝对值/40,IF(控盘绝对值>=100,控盘绝对值/30,IF(控盘绝对值>=50,控盘绝对值/20,IF(控盘绝对值>=30,控盘绝对值/15,IF(控盘绝对值>=20,控盘绝对值/13,IF(控盘绝对值>=10,控盘绝对值/10,IF(控盘绝对值>=15,控盘绝对值/20,IF(控盘绝对值>=10,控盘绝对值/15,IF(控盘绝对值>=5,控盘绝对值/10,IF(控盘绝对值>=4,控盘绝对值/9,IF(控盘绝对值>=3,控盘绝对值/8,IF(控盘绝对值>=2,控盘绝对值/7,控盘绝对值/5))))))))))))))))));
红柱顶点:=IF(SUM(回马枪操盘线,10)/10000>=0, 主力控盘*0.1, 0); {精确提取红柱顶点高度，绿柱则为0}
动能红柱顶点:=IF(FF>REF(FF,1) AND FF>0, FF, 0); {精确提取动能红柱高度，非红则0}
{=======================================}
{ 第三部分：逐日增大与组合同步判定 }
{=======================================}
{2. 动能红柱逐日增大判定}
动能增大:=动能红柱顶点>0 AND REF(动能红柱顶点,1)>0 AND 动能红柱顶点>REF(动能红柱顶点,1) AND REF(动能红柱顶点,1)>REF(动能红柱顶点,2);
组合二次转升:=昨日涨停板=1 AND 二次起升=1 AND 打板选股=1 AND 动能增大=1;
阴线买入:REF(组合二次转升,1)=1 AND C<O AND 小牛20>REF(小牛20,1),NODRAW;
DRAWTEXT(阴线买入, REF(锁变,1)*0.92, '阴线买入'), COLORYELLOW;
{准确带中绿色买入信号}
{公式名称: 预警指标}
{用法描述: 基于均价、涨跌停、RSI类指标与均线支撑的复合预警}
均线价:=AMOUNT/V/100; {均价:=成交额/成交量/100}
C2:=REF(C,1); {昨日收盘价}
涨停:=IF(REF(C,1)*1.1-C<0.01, 1, 0); {判断是否涨停(涨幅>=9.9%)}
MA13:=MA(C,13), COLORGRAY; {13日均线，灰色}
MA21:=MA(C,21), COLORWHITE; {21日均线，白色}
支撑线:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4; {多周期均线平均}
LC:=REF(CLOSE,1); {用于计算RSI的昨收}
操作线:=SMA(MAX(CLOSE-LC,0),2,1)/SMA(ABS(CLOSE-LC),2,1)*100; {2周期RSI}
趋势线:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100; {14周期RSI}
震仓线:=45; {震仓区下沿}
震仓线2:=50; {震仓区上沿}
逃命线:=80; {超买线}
抄底线:=20; {超卖线}
绝底线:=5; {极度超卖线}
{以下为穿越信号判断}
PP2:=操作线<震仓线2 AND REF(操作线,1)>震仓线2 ; {下穿50}
PP:=操作线<震仓线 AND REF(操作线,1)>震仓线 ; {下穿45}
PP3:=操作线<抄底线 AND REF(操作线,1)>抄底线; {下穿20}
HH:=COUNT(涨停,13)>=1; {13日内存在至少1次涨停}
A:=SMA(L,4,3) ; {低点平滑均线}
绿色买入:IF (((A AND REF(PP,1) AND HH) OR (A AND REF(PP3,1) AND HH)),1,0 ),NODRAW,COLORCYAN;
DRAWTEXT(绿色买入, 锁变*0.96, '买'), COLORCYAN;
DRAWTEXT_FIX(1,0.02,0,0,'绿色买入是准确带中的信号，在在他背后的首次出现，信号极佳。'),COLORCYAN;
{以下部分为左侧区域专用}
底:=(WINNER(C*0.85))*100 ,COLORRED,NODRAW ;
底15:=(WINNER(C*1.15))*100 ,COLORRED,NODRAW ;
{依次替换你的指标的名称，按顺序替换}
X31:=底;
X32:=底15;
X33:=底15;
X34:=底;
X35:=底;
X37:=底15;
X38:=底15;
X39:=底15;
{DRAWRECTREL(0,0, 380, 999.4, RGB(41,36,33));
{DRAWTEXT_FIX(1,0.02,0,0,'涨停板后连续两天在C上收星，在底筹保持高位时出现筹壹，则必涨，后续紧跟出现筹贰则助涨。'),COLORCYAN;}
{DRAWTEXT_FIX(1,0.02,0.15,0,'涨停板最好同时满足威廉红，空绝红，托举红，锁变红，托举保持红为持股期。'),COLORCYAN; }
{DRAWTEXT_FIX(1,0.02,0.3,0,'涨停板同时出现筹1-2-3和底筹大角度上升，且均出现红柱，若连续两天收C上星，则大幅高开。'),COLOR00FF00; }
{DRAWTEXT_FIX(1,0.02,0.6,0,'涨停板底筹一下子上到62，次日小阳线底1明显出现次日继续小阳线，连续三日托举红柱。'),COLORYELLOW;}
{DRAWTEXT_FIX(1,0.02,0.75,0,'含涨停板的8倍量连续多日巨量平台，是走向翻倍大牛的根本基础，再次日底2也出现了。'),COLORYELLOW; };
{副图5源码如下}
涨停系数:=IF(INBLOCK('北证Ａ股'),0.3,IF(INBLOCK('科创板') OR INBLOCK('创业板'),0.2,0.1));
接近涨停系数:=IF(INBLOCK('北证Ａ股'),0.25,IF(INBLOCK('科创板') OR INBLOCK('创业板'),0.18,0.08));
连板系数:=IF(INBLOCK('北证Ａ股'),0.5,IF(INBLOCK('科创板') OR INBLOCK('创业板'),0.75,1));
影线系数:=IF(INBLOCK('北证Ａ股'),0.025,IF(INBLOCK('科创板') OR INBLOCK('创业板'),0.015,0.01));
涨幅系数:=IF(INBLOCK('北证Ａ股'),3,IF(INBLOCK('科创板') OR INBLOCK('创业板'),2,1));
乖离率系数:=IF(INBLOCK('北证Ａ股'),2,IF(INBLOCK('科创板') OR INBLOCK('创业板'),1.5,1));
金叉系数:=IF(INBLOCK('北证Ａ股'),3,IF(INBLOCK('科创板') OR INBLOCK('创业板'),2,1));
涨停真:=C>=ZTPRICE(REF(C,1),涨停系数) AND C=H;
流通自由流比:=CAPITAL*100/FINANCE(46) NODRAW;
总自比:=TOTALCAPITAL*100/FINANCE(46) NODRAW;
十大股东占流比:=FINVALUE(244)/FINVALUE(239);
衰减数:=1/(1-十大股东占流比);
VAR1:=(3*CLOSE+HIGH+LOW+OPEN)/6;
VAR2:=EMA(VAR1,35);
VAR3:=(HHV(VAR2,10)+HHV(VAR2,30)+HHV(VAR2,90))/3;
VAR4:=(LLV(VAR2,10)+LLV(VAR2,30)+LLV(VAR2,90))/3;
VAR5:=(HHV(VAR3,5)+HHV(VAR3,15)+HHV(VAR3,30))/3;
VAR6:=(LLV(VAR4,5)+LLV(VAR4,15)+LLV(VAR4,30))/3;
VAR7:=EXPMA(CLOSE,6);
VAR8:=EXPMA(CLOSE,18);
M1:=500*(VAR7-VAR8)/VAR8+2;
ZZ:=M1>2 AND EMA(EMA(VAR1,2),2)>VAR6;
共振追涨紫:=ZZ AND ZZ>=REF(ZZ,1),NODRAW;
X_1:=INDEXH;
X_2:=INDEXO;
X_3:=INDEXL;
X_4:=INDEXC;
X_5:=INDEXV;
X_6:=(3*CLOSE+HIGH+LOW+OPEN)/6;
X_7:=EMA(X_6,35);
X_8:=(HHV(X_7,5)+HHV(X_7,15)+HHV(X_7,30))/3;
X_9:=(LLV(X_7,5)+LLV(X_7,15)+LLV(X_7,30))/3;
牛线:=(HHV(X_8,5)+HHV(X_8,15)+HHV(X_8,30))/3;
X_10:=(LLV(X_9,5)+LLV(X_9,15)+LLV(X_9,30))/3;
X_11:=X_4/EMA(X_4,120);
大盘中线:=EMA(EMA(CLOSE,120)*X_11,2);
X_12:=X_6>=牛线 AND X_6>=大盘中线;
强势起爆紫:=X_12=1,NODRAW;
TT:=(2*CLOSE+OPEN+HIGH+LOW)*100;
FF:=TT/EMA(TT,5)-1;
动能2红:=FF>REF(FF,1) AND FF>0,NODRAW;
动能2黄:=FF<REF(FF,1) AND FF>0 ,NODRAW;
VARQ1:=DMA(EMA(CLOSE,9),9);
控盘度:=(VARQ1-REF(VARQ1,1))/REF(VARQ1,1)*1000+50,NODRAW;
A10:=CROSS(控盘度,0);
无庄控盘:=IF(控盘度<0,控盘度,0),COLORWHITE,NODRAW;
开始控盘:=IF(A10,5,0),LINETHICK1,COLORBROWN;
有庄控盘:=IF(控盘度>REF(控盘度,1) AND 控盘度>0,控盘度,0),COLORRED,NODRAW;
VARQ2:=100*WINNER(CLOSE*0.95);
高度控盘:=IF(VARQ2>50 AND COST(85)<CLOSE AND 控盘度>0,控盘度,0),COLORFF00FF,NODRAW;
低控盘:=IF(控盘度>50 AND 控盘度<58,控盘度,0),NODRAW,COLORYELLOW;
HJ_1:=CLOSE/REF(CLOSE,1)>=1.098 AND C=H;
HJ_22:=COUNT(HJ_1,2)>=1 AND NOT(COUNT(HJ_1,3)>=2);
妖启:=FILTER(HJ_22,13);
HJ_23:=COUNT(HJ_1,3)>=2 AND NOT(COUNT(HJ_1,4)>=3);
龙头启动:=妖启 AND COUNT(妖启,18)=1 AND (IF(CODELIKE('60'),1,0) OR IF(CODELIKE('00'),1,0)),NODRAW;
妖升:=FILTER(HJ_23,13);
龙头主升:=妖升 AND COUNT(妖升,18)=1 AND (IF(CODELIKE('60'),1,0) OR IF(CODELIKE('00'),1,0)),NODRAW;
主力攻击:=EMA(CLOSE,5);
主力攻击线:=DMA(C,10), NODRAW;
主力控盘线:=EMA(CLOSE, 21),LINETHICK2;
攻击控盘买:=CROSS(主力攻击,主力攻击线)AND REF(主力攻击,1)<REF(主力控盘线,1);
创业板块XG:={主力攻击线>主力控盘线 AND} C>REF(C,1)*1.045 AND C<REF(C,1)*1.07 AND L<主力攻击线 AND IF(CODELIKE('300'),1,0) AND C>主力攻击线;
TTA:=(2*CLOSE+OPEN+HIGH+LOW)*100;
FFA:=TTA/EMA(TTA,4)-1;
趋势动能:=ROUND2(FFA*100,1);
趋势龙头:=CROSS(趋势动能,2) AND 趋势动能>=5 AND IF(CODELIKE('300'),1,0),NODRAW;
紫紫红黄:=共振追涨紫 AND 强势起爆紫 AND 动能2红 AND 控盘度>50 ;
首紫紫红黄:=紫紫红黄 AND REF(紫紫红黄,1)<>1;
首动能2黄:=动能2黄 AND REF(动能2黄,1)<>1;
{公式名称: 擒龙捉妖}
QK_1:=EMA(CLOSE,12)-EMA(CLOSE,26);
QK_2:=EMA(QK_1,9);
QK_3:=QK_1>QK_2;
QK_4:=(CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12))*100;
QK_5:=SMA(QK_4,3,1);
QK_6:=SMA(QK_5,3,1);
QK_7:=QK_5>QK_6;
QK_8:=REF(CLOSE,1);
QK_9:=SMA(MAX(CLOSE-QK_8,0),9,1)/SMA(ABS(CLOSE-QK_8),9,1)*100;
QK_10:=SMA(MAX(CLOSE-QK_8,0),26,1)/SMA(ABS(CLOSE-QK_8),26,1)*100;
QK_11:=QK_9>QK_10;
QK_12:=SMA(QK_4,3,1);
QK_13:=SMA(QK_12,3,1);
QK_14:=QK_12>QK_13;
QK_15:=(MA(CLOSE,3)+MA(CLOSE,9)+MA(CLOSE,12)+MA(CLOSE,26))/4;
QK_16:=CLOSE>QK_15;
QK_17:=CLOSE-REF(CLOSE,1);
QK_18:=100*EMA(EMA(QK_17,9),9)/EMA(EMA(ABS(QK_17),9),3);
QK_19:=100*EMA(EMA(QK_17,26),12)/EMA(EMA(ABS(QK_17),26),12);
QK_20:=QK_18>QK_19;
QK_21:=QK_3 AND QK_7 AND QK_11 AND QK_14 AND QK_16 AND QK_20;
QK_22:=CLOSE-REF(CLOSE,1);
QK_23:=IF(CLOSE-REF(CLOSE,1)>=0,QK_22,0);
QK_24:=REF(CLOSE,1)-CLOSE;
QK_25:=IF(CLOSE-REF(CLOSE,1)<=0,QK_24,0);
QK_26:=SUM(QK_23,90)/SUM(QK_25,90);
QK_27:=100-100/(1+QK_26);
QK_28:=EMA(QK_27,21);
QK_29:=EMA(QK_28,5);
QK_30:=EMA(QK_28,3);
QK_31:=(CLOSE*2+HIGH+LOW)/4;
QK_32:=EMA(QK_31,13)-EMA(QK_31,21);
QK_33:=EMA(QK_32,3);
QK_34:=EMA(QK_32,10);
QK_35:=IF(QK_33>=QK_34,QK_33,QK_34);
QK_36:=IF(QK_34-QK_33,QK_34,QK_33);
QK_37:=EMA(CLOSE,7)-EMA(CLOSE,21);
QK_38:=EMA(0.668*REF(QK_37,1)+0.333*QK_37,1);
QK_39:=IF(QK_37>=QK_38,QK_37,QK_38);
QK_40:=IF(QK_38-QK_37,QK_38,QK_37);
QK_41:=QK_35>QK_36;
QK_42:=QK_35=QK_36;
QK_43:=QK_39>QK_40;
QK_44:=QK_39=QK_40;
QK_45:=QK_44 AND QK_42;
QK_46:=QK_43 AND QK_41;
QK_47:=EMA(CLOSE,5);
QK_48:=EMA(QK_47,0);
QK_49:=HHV(MA(HIGH,3),2);
QK_50:=LLV(MA(HIGH,3),1);
QK_51:=FILTER(QK_48>REF(QK_48,1) AND QK_49<REF(QK_49,1) AND CLOSE>REF(CLOSE,1),11);
QK_52:=QK_51>=1 AND QK_21 AND REF(QK_50=QK_49,1) AND REF(QK_41,1);
QK_53:=MA(CLOSE,10);
QK_54:=MA(CLOSE,54);
QK_55:=(REF(CLOSE,3)-CLOSE)/REF(CLOSE,3)*100>5;
QK_56:=FILTER(QK_55,10);
QK_57:=BARSLAST(QK_56);
QK_58:=REF(HIGH,QK_57+2);
QK_59:=REF(HIGH,QK_57+1);
QK_60:=REF(HIGH,QK_57);
QK_61:=MAX(QK_58,QK_59);
QK_62:=MAX(QK_61,QK_60);
QK_63:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>5;
QK_64:=QK_57<150;
QK_65:=(OPEN-QK_62)/QK_62*100<30;
QK_66:=(CLOSE-LLV(LOW,QK_57))/LLV(LOW,QK_57)*100<50;
QK_67:=(CLOSE-REF(OPEN,5))/REF(OPEN,5)*100<30;
QK_68:=VOL/MA(VOL,5)<3.5;
QK_69:=(CLOSE-REF(CLOSE,89))/REF(CLOSE,89)*100<80;
QK_70:=QK_63 AND QK_64 AND QK_65 AND QK_66 AND QK_67 AND QK_68 AND QK_69;
QK_71:=FILTER(QK_70,15);
QK_72:=(CLOSE-QK_54)/QK_54<0.1;
QK_73:=(CLOSE-QK_53)/QK_53<0.3;
QK_74:=(QK_72=1 AND QK_73=1)*0.2;
QK_75:=(QK_74=0 AND REF(QK_74,1)=0.2 AND REF(COUNT(QK_74=0.2,10)=10,1)=1)*(-0.1);
QK_76:=QK_75=(-0.1);
QK_77:=QK_71 OR QK_76;
QK_78:=DMA(AMOUNT/VOL/100,VOL/CAPITAL);
QK_79:=CLOSE/REF(CLOSE,1)>1.05 AND CLOSE/OPEN>1.05;
QK_80:=VOL/REF(VOL,1)>1.2 AND COUNT(CLOSE>OPEN,1) OR (LOW>REF(HIGH,1) AND COUNT(OPEN>CLOSE,1) AND VOL/REF(VOL,1)>1.2);
QK_81:=MA(CLOSE,5)>MA(CLOSE,10) AND MA(CLOSE,10)>REF(MA(CLOSE,10),1) AND MA(CLOSE,5)>REF(MA(CLOSE,5),1);
QK_82:=100*(1-WINNER(CLOSE));
QK_83:=100-QK_82;
QK_84:=CROSS(QK_83,QK_82);
QK_85:=QK_51>=1 AND QK_84;
QK_86:=QK_84 AND QK_21 AND (CLOSE/REF(CLOSE,1)-1)*100>9.97;
QK_87:=MA(CLOSE,5);
QK_88:=MA(CLOSE,13);
QK_89:=MA(CLOSE,34);
QK_90:=QK_87>REF(QK_87,1) AND QK_88>REF(QK_88,1) AND QK_89>REF(QK_89,1);
QK_91:=EMA(CLOSE,3);
QK_92:=EMA(SLOPE(CLOSE,34)*5+CLOSE,21);
QK_93:=CROSS(QK_91,QK_92);
QK_94:=QK_93 AND REF(QK_50=QK_49,1) AND QK_21 AND REF(QK_41,1);
QK_95:=CROSS(QK_91,QK_92) AND QK_90;
QK_96:=MA(CLOSE,34);
QK_97:=QK_93>0 OR QK_95>0;
QK_98:=CLOSE>QK_96 AND REF(CLOSE,1)<QK_96;
QK_99:=CROSS(CLOSE,MA(CLOSE,250)) AND VOL>=REF(VOL,1)*2;
QK_100:=(CLOSE/REF(CLOSE,1)-1)*100>9.97 AND CROSS(CLOSE,MA(CLOSE,250));
QK_101:=QK_99 OR QK_100 OR QK_98;
QK_102:=QK_97 AND QK_21 AND QK_46 AND REF(QK_41,1);
QK_103:=QK_97 AND QK_21 AND (CLOSE/REF(CLOSE,1)-1)*100>9.97;
QK_104:=QK_50=QK_49 AND REF(QK_49,1)>REF(QK_50,1) AND (CLOSE/REF(CLOSE,1)-1)*100>9.97 AND QK_97;
QK_105:=(3*CLOSE+LOW+OPEN+HIGH)/6;
QK_106:=(20*QK_105+19*REF(QK_105,1)+18*REF(QK_105,2)+17*REF(QK_105,3)+16*REF(QK_105,4)+15*REF(QK_105,5)+14*REF(QK_105,6)+13*REF(QK_105,7)+12*REF(QK_105,8)+11*REF(QK_105,9)+10*REF(QK_105,10)+9*REF(QK_105,11)+8*REF(QK_105,12)+7*REF(QK_105,13)+6*REF(QK_105,14)+5*REF(QK_105,15)+4*REF(QK_105,16)+3*REF(QK_105,17)+2*REF(QK_105,18)+REF(QK_105,20))/210;
QK_107:=MA(QK_106,6);
QK_108:=MA(CLOSE,60);
QK_109:=EMA(SMA((CLOSE-LLV(LOW,19))/(HHV(HIGH,19)-LLV(LOW,19))*100,8,1),3);
QK_110:=MA(SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0)/25000,2);
QK_111:=EMA(QK_110,12);
QK_112:=EMA(QK_110,26);
QK_113:=100*EMA(EMA(QK_17,6),6)/EMA(EMA(ABS(QK_17),6),6);
QK_114:=100*EMA(EMA(QK_17,12),12)/EMA(EMA(ABS(QK_17),12),12);
QK_115:=100*EMA(EMA(QK_17,26),26)/EMA(EMA(ABS(QK_17),26),26);
QK_116:=CLOSE-REF(CLOSE,1);
QK_117:=100*EMA(EMA(QK_116,9),9)/EMA(EMA(ABS(QK_116),9),9);
QK_118:=MA(QK_117,5);
QK_119:=VOL/CAPITAL*100;
QK_120:=MA(QK_119,30)/MA(INDEXA,10)*MA(INDEXA,60);
QK_121:=MA(QK_119,120)/MA(INDEXA,10)*MA(INDEXA,60);
QK_122:=1;
QK_123:=(HIGH+OPEN+LOW+2*CLOSE)/5;
QK_124:=REF(QK_123,1);
QK_125:=MAX(QK_123-QK_124,0);
QK_126:=ABS(QK_123-QK_124);
QK_127:=SMA(QK_125,10,1);
QK_128:=SMA(QK_126,10,1);
QK_129:=COUNT(QK_127/QK_128<0.2,5);
QK_130:=COUNT(LLV(QK_123,10)=QK_123,10);
QK_131:=QK_113>REF(QK_113,1) AND QK_117>REF(QK_117,1) AND CROSS(QK_110,QK_112) AND QK_110>REF(QK_110,1) AND QK_111>REF(QK_111,1) AND QK_112>REF(QK_112,1) AND LOW>QK_106 AND LOW>QK_108;
QK_132:=QK_110>QK_112 AND CROSS(QK_110,QK_111) AND CROSS(QK_117,QK_118);
QK_133:=QK_129>=1 AND QK_130>=1 AND CLOSE>OPEN AND REF(CLOSE,1)>REF(OPEN,1) AND VOL>REF(VOL,1) AND QK_113>QK_115 AND CROSS(QK_110,QK_112);
QK_134:=QK_129>=1 AND QK_130>=1 AND CLOSE>OPEN AND REF(CLOSE,1)>REF(OPEN,1) AND VOL>REF(VOL,1) AND CROSS(QK_113,QK_115) AND QK_110>REF(QK_110,1);
QK_135:=QK_129>=1 AND QK_130>=1 AND CLOSE>OPEN AND REF(CLOSE,1)>REF(OPEN,1) AND VOL>REF(VOL,1) AND QK_110>REF(QK_110,1) AND QK_113>QK_115 AND CROSS(QK_114,QK_115) AND QK_113>REF(QK_113,1) AND QK_114>REF(QK_114,1) AND QK_115>REF(QK_115,1);
QK_136:=QK_110>QK_112 AND QK_117>QK_118 AND CROSS(QK_113,QK_115) AND QK_113>REF(QK_113,1) AND QK_114>REF(QK_114,1) AND QK_115>REF(QK_115,1);
QK_137:=QK_133 OR QK_134 OR QK_135 OR QK_136;
QK_138:=QK_137 AND LOW>QK_106 AND LOW>QK_108;
QK_139:=QK_110>QK_112 AND QK_113>QK_115 AND CROSS(QK_117,QK_118) AND QK_117>REF(QK_117,1) AND QK_118>REF(QK_118,1) AND LOW>QK_106 AND LOW>QK_108;
QK_140:=QK_120<QK_122 AND QK_121<QK_122 AND QK_113>QK_115 AND QK_110>QK_111 AND CROSS(QK_120,QK_121) AND QK_106>=QK_107;
QK_141:=QK_129>=1 AND QK_130>=1 AND CLOSE>OPEN AND REF(CLOSE,1)>REF(OPEN,1) AND VOL>REF(VOL,1) AND QK_110>QK_112 AND QK_117>QK_118 AND QK_106>=QK_107;
QK_142:=(CLOSE-REF(CLOSE,12))/REF(CLOSE,12)*100;
QK_143:=100*VOL/CAPITAL;
QK_144:=CROSS(QK_142,16) AND QK_143>3.5;
QK_145:=CLOSE/REF(CLOSE,1)>1.095 AND HIGH=CLOSE;
QK_146:=REF(EXIST(QK_145,12),1);
QK_147:=(REF(HIGH,1)-REF(CLOSE,1))/REF(HIGH,1)>=0.04 AND REF(CLOSE,1)>REF(OPEN,1);
QK_148:=QK_146 AND QK_147 AND CLOSE>REF(HIGH,1) AND LOW>QK_106 AND LOW>QK_108;
QK_149:=QK_52 AND QK_138;
QK_150:=QK_84 AND QK_97 AND QK_131;
QK_151:=QK_50=QK_49 AND REF(QK_49,1)>REF(QK_50,1);
QK_152:=QK_151 AND QK_139 AND QK_144;
QK_153:=REF(QK_151,1) AND QK_144;
QK_154:=REF(QK_151,1) AND QK_144 AND QK_138;
QK_155:=QK_148 AND QK_144;
QK_156:=REF(QK_84,1) AND QK_144;
QK_157:=REF(QK_84,1) AND QK_131;
QK_158:=EMA(WINNER(CLOSE)*70,5);
QK_159:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,5);
QK_160:=FILTER((CROSS(5,QK_158) AND QK_159<20)*60,10);
DGCM:=CROSS(QK_158,QK_159);
抓牛:=10*(QK_52 OR QK_102 OR QK_94 OR QK_85 OR QK_86 OR QK_104 OR QK_149);
捉妖:=10*(QK_77 AND CLOSE/REF(CLOSE,1)>1.095 AND QK_80 AND QK_79 OR QK_103 OR QK_150 OR QK_152 OR QK_153 OR QK_156 OR QK_155 OR QK_154 OR QK_157);
擒龙:=10*(QK_97 AND QK_84 AND QK_101 AND QK_81);
回马枪操盘线:=IF(CLOSE>=O,((CLOSE-LOW)/(HIGH-LOW)+(CLOSE-HIGH)/(HIGH-LOW))*VOL,((CLOSE-HIGH)/(HIGH-LOW)+(CLOSE-LOW)/(HIGH-LOW))*VOL);
控盘绝对值:=ABS(SUM(回马枪操盘线,10)/10000);
主力控盘:=IF(控盘绝对值>=1000,控盘绝对值/100,IF(控盘绝对值>=750,控盘绝对值/90,IF(控盘绝对值>=650,控盘绝对值/80,IF(控盘绝对值>=500,控盘绝对值/70,IF(控盘绝对值>=400,控盘绝对值/60,IF(控盘绝对值>=300,控盘绝对值/50,IF(控盘绝对值>=200,控盘绝对值/40,IF(控盘绝对值>=100,控盘绝对值/30,IF(控盘绝对值>=50,控盘绝对值/20,IF(控盘绝对值>=30,控盘绝对值/15,IF(控盘绝对值>=20,控盘绝对值/13,IF(控盘绝对值>=10,控盘绝对值/10,IF(控盘绝对值>=15,控盘绝对值/20,IF(控盘绝对值>=10,控盘绝对值/15,IF(控盘绝对值>=5,控盘绝对值/10,IF(控盘绝对值>=4,控盘绝对值/9,IF(控盘绝对值>=3,控盘绝对值/8,IF(控盘绝对值>=2,控盘绝对值/7,控盘绝对值/5))))))))))))))))));
动能价格:=100*(TT/EMA(TT,5)-1);
强动能1:=动能价格>0 AND 动能价格>REF(动能价格,1);
中动能1:=动能价格>0 AND 动能价格<REF(动能价格,1);
无动能1:=动能价格<0 AND 动能价格<REF(动能价格,1);
弱动能1:=动能价格<0 AND 动能价格>REF(动能价格,1);
{========= 仅保留最下面两组柱子 =========}
{动能柱（坐标1附近）}
STICKLINE(强动能1,1,1.78+动能价格*0.258,1,0),COLORRED;
STICKLINE(中动能1,1,1.78+动能价格*0.258,1,0),COLORYELLOW;
STICKLINE(无动能1,1,1.78+动能价格*0.258,2,0),COLORGREEN;
STICKLINE(弱动能1,1,1.78+动能价格*0.258,2,0),COLORFC9D53;
{控盘柱（坐标-0.518附近）}{此信号改为在空绝罗优化中显示了}
不显示1:=STICKLINE(SUM(回马枪操盘线,10)/10000>=0,-0.518,-0.518+主力控盘*0.1,2,0),COLORRED;
不显示2:=STICKLINE(SUM(回马枪操盘线,10)/10000<0,-0.518,-0.518-主力控盘*0.1,2,0),COLORGREEN;
1;
DRAWTEXT_FIX(1,0.02,0,0,'急跌出现轴下绿柱加次日紫柱，是反弹信号，可进场，巨大变化是指筹码，意味着股价可能产生巨大波动。'),COLOR00FF00;
VV:=(HIGH+LOW+CLOSE)/3;
VMA5:=MA(VV,5);
偏离率:(C-VMA5)/VMA5*100,NODRAW;
STICKLINE(偏离率>0.1,-0.5,-0.3,4,0),COLORRED;
STICKLINE(偏离率<0,-0.5,-0.3,4,0),COLOR00FF00;
DRAWTEXT_FIX(1,1,0,0,' 偏离率 '),COLORFF00FF;
{此下为筹码集中2号}
AR:=(WINNER(C*1.1)-WINNER(C*0.9))/WINNER(HHV(H,0))*100,COLOR00FFFF,LINETHICK2;
巨大变化:(REF(AR,1)-AR)>55,COLOR00FF00,NODRAW;
STICKLINE(巨大变化,4.8,5.8,6.0,0),COLOR00FF00;
未来函数检测结果如下：
该公式包含未来函数:WINNER
该公式包含未来函数:PWINNER
该公式包含未来函数:COST
该公式包含未来函数:CAPITAL
该公式包含未来函数:DYNAINFO
该公式包含未来函数:FINANCE
该公式包含未来函数:DHIGH
该公式包含未来函数:DLOW
定制指标公式、软件请联系QQ或微信同号：88652583
- QQ：88652583
- 邮箱：88652583@qq.com
- 工作时间：7:30-21:00
- 微信：88652583或扫描如下二维码
sitemap站点地图
