‹ 返回

8509

8509 | 查看原文 ↗
🔧 核心通用·带A股选股过滤(核心可用 · 把'去ST/选板块/CODELIKE'那行删掉,美港马加都能跑)
周期:长线用途:只管进单(找买点/选股)(纯多·只做多)
📊 把公式 8509 实时算进主散博弈(纯技术函数;选股/筹码特殊函数会标注不支持) 
🧩 这个指标拆开看 = 哪些"积木"组合的
★ 看主力(筹码 / 资金)
筹码/成本 COST·WINNER — ★算每股持仓成本分布,判主力建仓/获利盘/控盘度——票在谁手里
① 定方向(趋势)
均线类 MA/EMA — 一段时间的平均价,铺出趋势中枢、看多空排列
② 验量能(量价)
成交量/额 VOL — 量在价先——放量证实突破、缩量过滤假信号
④ 触发(信号扳机)
CROSS 交叉 — 两线金叉/死叉当买卖扳机
突破/计数/过滤 — 突破前高、信号计时与去重
搭条件的零件
HHV/LLV/REF 等 — 取区间最高最低、引用前N根——搭条件的零件
图上标注买卖点
画线/标注 — 在图上画柱、标买卖点、上色提示(只是显示,不是判断逻辑)
⚠️ A股专属(港股/美股/马股/加密都没有)
去ST/风险股 — 剔除A股ST风险股
组合思路:先盯主力筹码/资金(票在谁手里),再用均线/MACD 定方向,再用量能验证真假,再用金叉/突破当买卖扳机。把几件事叠在一起同时成立,才算一个'信号'——叠得越多看着越细,但也越容易过度拟合。 ⚠️ 这条含 A股专属逻辑(涨停板/龙虎榜/代码板块)——只有大陆A股有这制度,港股、美股、马股、加密统统没有,这部分搬不过去。 不过它的'根'在筹码/量价层——这套是普世的,港股美股马股加密都能算;尤其散户多、流通差的市场(如马股小盘、港股仙股)主力筹码更好使。和你的主散博弈/刘彩游龙同源。

指标公式

p1:=if(DATATYPE=1,5,if(DATATYPE=2,1,if(DATATYPE=3,5,if(DATATYPE=4,15,if(DATATYPE=5,4,if(DATATYPE=6,5,if(DATATYPE=7,5,if(DATATYPE=8,5,if(DATATYPE=9,5,if(DATATYPE=10,5,20))))))))));
p2:=if(DATATYPE=1,10,if(DATATYPE=2,1,if(DATATYPE=3,10,if(DATATYPE=4,30,if(DATATYPE=5,12,if(DATATYPE=6,10,if(DATATYPE=7,10,if(DATATYPE=8,10,if(DATATYPE=9,10,if(DATATYPE=10,10,20))))))))));
p3:=if(DATATYPE=1,20,if(DATATYPE=2,1,if(DATATYPE=3,20,if(DATATYPE=4,60,if(DATATYPE=5,24,if(DATATYPE=6,30,if(DATATYPE=7,20,if(DATATYPE=8,20,if(DATATYPE=9,20,if(DATATYPE=10,20,20))))))))));
p4:=if(DATATYPE=1,30,if(DATATYPE=2,1,if(DATATYPE=3,30,if(DATATYPE=4,60,if(DATATYPE=5,24,if(DATATYPE=6,60,if(DATATYPE=7,60,if(DATATYPE=8,30,if(DATATYPE=9,20,if(DATATYPE=10,30,20))))))))));
MA1:MA(CLOSE,P1);
MA2:MA(CLOSE,P2);
MA3:MA(CLOSE,P3);
MA4:MA(CLOSE,P4);
GET:ZIG(3,5),colorred;
PL5:=ZIG(3,5);
EN1:=pl5>REF(pl5,1) AND REF(pl5,1)<=REF(pl5,2) AND REF(pl5,2)<=REF(pl5,3);
EX1:=pl5<REF(pl5,1) AND REF(pl5,1)>=REF(pl5,2) AND REF(pl5,2)>=REF(pl5,3);
PL10:=ZIG(3,10);
EN2:=pl10>REF(pl10,1) AND REF(pl10,1)<=REF(pl10,2) AND REF(pl10,2)<=REF(pl10,3);
EX2:=pl10<REF(pl10,1) AND REF(pl10,1)>=REF(pl10,2) AND REF(pl10,2)>=REF(pl10,3);
PL20:=ZIG(3,20);
EN3:=pl20>REF(pl20,1) AND REF(pl20,1)<=REF(pl20,2) AND REF(pl20,2)<=REF(pl20,3);
EX3:=pl20<REF(pl20,1) AND REF(pl20,1)>=REF(pl20,2) AND REF(pl20,2)>=REF(pl20,3);
��ǿ1:=BARSLAST(PL5<REF(PL5,1));
����1:=BARSLAST(PL5>REF(PL5,1));
��ǿ2:=BARSLAST(PL10<REF(PL10,1));
����2:=BARSLAST(PL10>REF(PL10,1));
��ǿ3:=BARSLAST(PL20<REF(PL20,1));
����3:=BARSLAST(PL20>REF(PL20,1));
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,��ǿ2),0);
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,��ǿ2),0);
DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,����2),0);
DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,����2),0);
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,��ǿ3),0);
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,��ǿ3),0);
DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,����3),0);
DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,����3),0);
DRAWTEXT(EN1 AND DTJZ5=1,L*0.98,'��'),COLORFFFF00;
DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'��'),COLORFFFF00;
DRAWTEXT(EN2 AND ZTJZ5=1,L*0.98,'��'),COLORFFFF00;
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'��'),COLOR0000FF;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'��'),COLOR0000FF;
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'��'),COLOR0000FF;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'��'),COLOR0000FF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'��'),COLOR0000FF;
DRAWTEXT(EN2 AND DTJZ10=1,L*0.9,'��'),colorred;
DRAWTEXT(EX2 AND DTJD10=2,H*0.9,'��'),colorred;
DRAWTEXT(EN3 AND ZTJZ10=1,L*0.9,'��'),colorred;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.06,'��'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.94,'��'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.06,'��'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN3 AND ZTJZ10=1,L*0.9,'��'),colorred;
zz:=(o+h+l)/3;
N:=20;
STICKLINE(C>=O,C,O,8,0),COLOR000055;
STICKLINE(C>=O,C,O,6.5,0),COLOR000075;
STICKLINE(C>=O,C,O,5,0),COLOR000095;
STICKLINE(C>=O,C,O,3.5,0),COLOR0000B5;
STICKLINE(C>=O,C,O,2,0),COLOR0000D5;
STICKLINE(C>=O,H,L,0.5,0),COLOR0000F5;
STICKLINE(C<O,C,O,8,0),COLOR303000;
STICKLINE(C<O,C,O,6.5,0),COLOR404000;
STICKLINE(C<O,C,O,5,0),COLOR505000;
STICKLINE(C<O,C,O,3.5,0),COLOR606000;
STICKLINE(C<O,C,O,2,0),COLOR707000;
STICKLINE(C<O,H,L,0.5,0),COLOR808000;
����:=(3*C+H+L+O)/6;
VAR1:=(8*����+7*REF(����,1)+6*REF(����,2)+5*REF(����,3)+4*REF(����,4)+3*REF(����,5)+2*REF(����,6)+REF(����,8))/36;
VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1;
SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1;
SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1;
SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND CLOSE>VAR2 AND CLOSE<VAR1;
SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1) AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);;
SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2;
XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2);
XD2:=VAR1=VAR2 AND CLOSE>VAR1; 
SAT:=(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N));
TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1;
��׮��:=FILTER(TJ1,5);
TJ2:=IF(BARSLAST(��׮��)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(��׮��)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(��׮��)=3 AND CLOSE>REF(HIGH,3),1,0)));
ͻ��:=TJ2=1;
STICKLINE(CLOSE,REF(HIGH,BARSLAST(��׮��)),REF(HIGH,BARSLAST(��׮��)),6,0),COLORCYAN;
STICKLINE(CLOSE,REF(LOW,BARSLAST(��׮��)),REF(LOW,BARSLAST(��׮��)),6,0),COLORYELLOW;
TJ3:=IF(BARSLAST(��׮��)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(��׮��)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(��׮��)=3 AND CLOSE>REF(LOW,3),1,0)));
���취��:=TJ3=1;
����:=���취�� AND ͻ��;
��������:=FILTER(����,3);
DRAWTEXT(��������,L*0.99,'����'),COLORYELLOW;
DRAWRECTREL(0,85,15,380,RGB(30,30,30)),COLORWHITE;
EMA13:=EMA(C,13);
ma30:=ma(c,30);
ma72:=ma(c,72);
ema17:=ema(c,17);
�������:=EMA(WINNER(c)*70,3);
ɢ�����:=EMA((WINNER((c)*1.1)-WINNER((c)*0.9))*70,3);
��������:=ɢ�����-������� ;
��̬�ײ�:=EMA(IF(L<= LLV(l,60),SMA(ABS(L-REF(L,1)),60,1)/SMA(MAX(L-REF(l,1),0),99,1),0)*5,3);
��:=CROSS(�������,��������);
ǿ:=CROSS(�������,ɢ�����);
STICKLINE(��,O,C,8,0),COLORYELLOW;
STICKLINE(��,O,H,0,0),COLORYELLOW;
STICKLINE(��,L,C,0,0),COLORYELLOW;
STICKLINE(ǿ, O,C,8,0),colormagenta;
STICKLINE(ǿ,O,H,0,0),colormagenta;
STICKLINE(ǿ,L,C,0,0),colormagenta;
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
Al:=BACKSET(nnl,hhvBARS(h,lhnh)+1);
Bl:=Al>REF(Al,1);
Al2:=BACKSET(nnl,LLVBARS(L,lhnh)+1);
Bl2:=Al2>REF(Al2,1); 
ǰ��:REF(H,BARSLAST(bl)),PRECIS2,COLORff00ff,LINETHICK2;
DRAWTEXT(nnl,ǰ��,'ǰ�ߣ�'+ǰ��),ALIGN2,COLORGREEN;
ǰ��:REF(L,BARSLAST(Bl2)),PRECIS2,COLORGREEN,LINETHICK2;
DRAWTEXT(nnl,ǰ��*1.009,'ǰ�ͣ� '+ǰ��),ALIGN2,COLORGREEN;
Fl1:((ǰ��-ǰ��)*0.191)+ǰ��,POINTDOT,ColorFF7F93,LINETHICK3;
DRAWTEXT(BARSLAST(Bl)>BARSLAST(Bl2) and nnl,Fl1,'0.236�� '+Fl1),Color938C93;
Fl2:((ǰ��-ǰ��)*0.382)+ǰ��,POINTDOT,Color5E8C93,LINETHICK3;
DRAWTEXT(BARSLAST(Bl)>BARSLAST(Bl2) and nnl,Fl2,'0.382�� '+Fl2),ALIGN2,COLORGREEN;
Fl3:((ǰ��-ǰ��)*0.5)+ǰ��,POINTDOT,COLOR00ffff,LINETHICK4;
DRAWTEXT(nnl,Fl3,'0.5��'+Fl3),ALIGN2,Color918C93;
Fl4:((ǰ��-ǰ��)*0.618)+ǰ��,POINTDOT,Color918C93,LINETHICK3;
DRAWTEXT(BARSLAST(Bl)>BARSLAST(Bl2)and nnl,Fl4,'0.618�� '+Fl4),ALIGN2,COLORGREEN;
Fl5:((ǰ��-ǰ��)*0.809)+ǰ��,POINTDOT,Color918C67,LINETHICK3;
DRAWTEXT(BARSLAST(Bl)>BARSLAST(Bl2) and nnl,Fl5,'0.764�� '+Fl5),ALIGN2,COLORGREEN;
pp:=MAX( BARSLAST(bl),BARSLAST(Bl2))+1;
k1:=pp-1;
k2:=pp-3;
k3:=pp-5;
k4:=pp-8;
k5:=pp-13;
k6:=pp-21;
k7:=pp-34;
k8:=pp-55;
k9:=pp-89;
k10:=pp-144;
k11:=pp-233;
VERTLINE(FILTER(c=ref(c,k1),0) ,1 );
VERTLINE(FILTER(c=ref(c,k2),0) ,1 );
VERTLINE(FILTER(c=ref(c,k3),0),1 );
VERTLINE(FILTER(c=ref(c,k4),0) ,1 );
VERTLINE(FILTER(c=ref(c,k5),0) ,1 );
VERTLINE(FILTER( c=ref(c,k6),0),1 );
VERTLINE(FILTER( c=ref(c,k7),0),1 );
VERTLINE(FILTER(c=ref(c,k8),0),1 );
VERTLINE(FILTER(c=ref(c,k9),0),1 );
VERTLINE(FILTER(c=ref(c,k10),0),1 );
VERTLINE(FILTER(c=ref(c,k11),0),1 );
DRAWTEXT(FILTER(c=ref(c,k1),0),(HHV( h,80 )+LLV(l ,80 ))/2,'1'),COLORred,LINETHICK6;
DRAWTEXT(FILTER( c=ref(c,k2),0),(HHV( h,80 )+LLV(l ,80 ))/2,'3'),COLORred,LINETHICK6;
DRAWTEXT(FILTER(c=ref(c,k3),0),(HHV( h,80 )+LLV(l ,80 ))/2,'5'),COLORGREEN,LINETHICK6;
DRAWTEXT(FILTER(c=ref(c,k4),0),(HHV( h,80 )+LLV(l ,80 ))/2,'8'),COLORred,LINETHICK6;
DRAWTEXT(FILTER(c=ref(c,k5),0),(HHV( h,80 )+LLV(l ,80 ))/2,'13'),COLORred,LINETHICK6;
DRAWTEXT(FILTER(c=ref(c,k6),0),(HHV( h,80 )+LLV(l ,80 ))/2,'21ת'),COLORGREEN,LINETHICK6;
DRAWTEXT(FILTER(c=ref(c,k7),0),(HHV( h,80 )+LLV(l ,80 ))/2,'34'),COLORred,LINETHICK6;
DRAWTEXT(FILTER(c=ref(c,k8),0),(HHV( h,80 )+LLV(l ,80 ))/2,'55'),COLORred,LINETHICK6;
DRAWTEXT(FILTER(c=ref(c,k9),0),(HHV( h,80 )+LLV(l ,80 ))/2,'89'),COLORGREEN,LINETHICK6;
DRAWTEXT(FILTER(c=ref(c,k10),0),(HHV( h,80 )+LLV(l ,80 ))/2,'144'),COLORred,LINETHICK6;
DRAWTEXT(FILTER(c=ref(c,k11),0),(HHV( h,80 )+LLV(l ,80 ))/2,'233'),COLORGREEN,LINETHICK6;
A1:=ref(h,N)=hhv(h,2*N+1); 
B1:=filter(A1,N); 
C1:=backset(B1,N+1); 
D1:=filter(C1,n) or BARSTATUS=2;
A2:=ref(l,N)=llv(l,2*N+1); 
B2:=filter(A2,N);
C2:=backset(B2,N+1); 
D2:=filter(C2,N);
E1:=(ref(llv(l,2*N),1)+ref(hhv(h,2*N),1))/2; E2:=(h+l)/2;
H1:=(D1 AND not(D2 AND E1>=E2)) OR barstatus=2 OR barscount(c)=1;
L1:=(D2 AND not(D1 AND E1<E2));  H2:=D1 AND not(D2 AND E1>=E2);
X1:=ref(barslast(H1),1)+1; F1:=backset(H1 AND count(L1,X1)>0,llvbars
(if(L1,l,10000),X1));
G1:=F1>ref(F1,1); I1:=backset(G1,2); LD:=I1>ref(I1,1);
L2:=LD OR barstatus=2 OR barscount(c)=1;
X2:=ref(barslast(L2),1)+1; F2:=backset(L2 AND count(H2,X2)>0,hhvbars
(if(H2,h,0),X2));
G2:=F2>ref(F2,1); I2:=backset(G2,2); HD:=I