‹ 返回3001
🔧 核心通用·带A股选股过滤（核心可用 · 把'去ST/选板块/CODELIKE'那行删掉，美港马加都能跑）
周期：长线用途：只管进单(找买点/选股)（纯多·只做多)
📊 把公式 3001 实时算进主散博弈(纯技术函数;选股/筹码特殊函数会标注不支持)
🧩 这个指标拆开看 = 哪些"积木"组合的
★ 看主力（筹码 / 资金）筹码/成本 COST·WINNER — ★算每股持仓成本分布，判主力建仓/获利盘/控盘度——票在谁手里
① 定方向（趋势）均线类 MA/EMA — 一段时间的平均价，铺出趋势中枢、看多空排列
② 验量能（量价）成交量/额 VOL — 量在价先——放量证实突破、缩量过滤假信号
搭条件的零件HHV/LLV/REF 等 — 取区间最高最低、引用前N根——搭条件的零件
图上标注买卖点画线/标注 — 在图上画柱、标买卖点、上色提示（只是显示，不是判断逻辑）
⚠️ A股专属（港股/美股/马股/加密都没有）代码/板块/题材 — 按代码段、行业、概念、龙头筛选（A股特有）
去ST/风险股 — 剔除A股ST风险股
组合思路：先盯主力筹码/资金（票在谁手里），再用均线/MACD 定方向，再用量能验证真假。把几件事叠在一起同时成立，才算一个'信号'——叠得越多看着越细，但也越容易过度拟合。 ⚠️ 这条含 A股专属逻辑（涨停板/龙虎榜/代码板块）——只有大陆A股有这制度，港股、美股、马股、加密统统没有，这部分搬不过去。 不过它的'根'在筹码/量价层——这套是普世的，港股美股马股加密都能算；尤其散户多、流通差的市场(如马股小盘、港股仙股)主力筹码更好使。和你的主散博弈/刘彩游龙同源。
指标公式
��ҵ������
���������ɸı����ں���Ƚϵ�ָ�꣬�����Աȵ�����������
����ʽ
INPUT:X(1,1,3),ָ��(2,1,15);
TT:=STKTYPE=0 OR STKTYPE=13;
DRAWTEXT(BARPOS=SYSPARAM(2)+5 AND TT,C,'����ʽ����ָ����ʹ�ã����ڸ�����Ӧ��'),COLOREEFF,ALIGN4;
IF TT THEN EXIT;
RQ:=DATE;//ȡ����
Vb:=BLKNAME;
Vl:=STRLEN(Vb);
IF Vl<4 THEN EXIT;
Fs:=CEILING(Vl/5),LINETHICK;
M:=IF(ָ��>FS,FS,ָ��);
n:=1;
VARIABLE:Dt[Fs]=0;
For i=1 TO Fs do begin
Dt[i]:=STRFIND(vb,',',N);
N:=Dt[i]+1;
END;
HY:=RTRIM(LTRIM(IF(M=1,STRLEFT(Vb,Dt[M]-1),STRMID(Vb,Dt[M-1]+1,Dt[M]-Dt[M-1]-1))));
IF Fs>15 THEN BKT:=STRLEFT(Vb,Dt[15]-1); ELSE BKT:=Vb;
DRAWTEXT(SYSPARAM(2)=BARPOS,-0.5,' \n'+BKT),PXDN15,COLORAAAAA0;
//DRAWTEXT(SYSPARAM(2)=BARPOS,0,' \n \n������'+NUMTOSTR(M,0)+'����飺 '+HY),ALIGN4,COLORGREEN;
HYs:=STKCOUNT(HY);//��������
DYZB:=IF(X=1,'HQSJ.ZDF',IF(X=2,'HQSJ.HSH','HQSJ.CC'));//ѡ������ָ��
DAS:=DATACOUNT;
D0:=RQ[DAS];//ȡ�������
variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0;
for k=1 to HYs do begin
DDD:=STKFROMBLK(HY,k);// ȡ�ð���Ա����
DM[k]:=DDD;
TMP:=STKINDI(DDD,DYZB,0,6);
TMPD:=STKINDI(DDD,'HQSJ.DD',0,6);
vcp[k]:=TMP[DAS];
vci[k]:=IF(TMPD[DAS]=D0,TMP[DAS],-1000);//ȥ������ͣ�ƹ�
TP:=TP+IF(vci[k]=-1000,1,0);
end;
PX1:=SORTPOS(vci,1,1,HYs);//��������
//PX2:=SORTPOS(vcp,1,1,HYs);
KHYS:=HYS-TP,LINETHICK;//���ʵ�ʿ��̹�Ʊ
������:KHYS,LINETHICK;
BKXS:='������ҵ: '+HY+' ������������'+NUMTOSTR(HYs,0);
ZF:=IF(X=3,' Ԫ',' %');
LBS:=IF(X=3,'���̼�',IF(X=1,'�ǵ���','������'));
DRAWTEXT(SYSPARAM(2)=BARPOS,8,BKXS),colorffff00;
WZ:=' ';KG:=' ';//INTPART((SYSPARAM(3)-SYSPARAM(2))/6);
WZ2:=STRLEFT(WZ,16);
IF KHYS<2 THEN EXIT;
-2,COLOR;
EXPLAIN(1,LBS+'���ȹ�'),COLORFF00;
EXPLAIN(1,' ��'+STKNAMEEX(DM[vci[1]])+' '+numtostr(vcp[vci[1]],2)+ZF),Coloryellow;
EXPLAIN(1,' ��'+STKNAMEEX(DM[vci[2]])+' '+numtostr(vcp[vci[2]],2)+ZF),Coloryellow;
DRAWTEXT(BARPOS=SYSPARAM(2),5,LBS+'���ȹɣ�'),COLORFF00;
DRAWTEXT(BARPOS=SYSPARAM(2),5,WZ2+' ��'+STKNAMEEX(DM[vci[1]])+' '+STRRIGHT(' '+numtostr(vcp[vci[1]],2),6)+ZF+KG+' ��'+STKNAMEEX(DM[vci[2]])+' '+STRRIGHT(' '+numtostr(vcp[vci[2]],2),6)+ZF),Coloryellow;
IF KHYS<3 THEN EXIT;
EXPLAIN(1,' ��'+STKNAMEEX(DM[vci[3]])+' '+numtostr(vcp[vci[3]],2)+ZF),Coloryellow;
DRAWTEXT(BARPOS=SYSPARAM(2),5,WZ+WZ+' ��'+STKNAMEEX(DM[vci[3]])+' '+STRRIGHT(' '+numtostr(vcp[vci[3]],2),6)+ZF),Coloryellow;
IF KHYS<4 THEN EXIT;
EXPLAIN(1,' ��'+STKNAMEEX(DM[vci[4]])+' '+numtostr(vcp[vci[4]],2)+ZF),Coloryellow;
DRAWTEXT(BARPOS=SYSPARAM(2),5,WZ+WZ+WZ2+' '+' ��'+STKNAMEEX(DM[vci[4]])+' '+STRRIGHT(' '+numtostr(vcp[vci[4]],2),6)+ZF),Coloryellow;
IF KHYS<6 THEN EXIT;
EXPLAIN(1,LBS+'�ͺ��'),COLORFF00;
EXPLAIN(1,' ��'+STKNAMEEX(DM[vci[KHYs]])+' '+numtostr(vcp[vci[KHYs]],2)+ZF+' \n ��'+STKNAMEEX(DM[vci[KHYs-1]])+' '+numtostr(vcp[vci[KHYs-1]],2)+ZF+' \n ��'+
STKNAMEEX(DM[vci[KHYs-2]])+' '+numtostr(vcp[vci[KHYs-2]],2)+ZF+' \n ��'+STKNAMEEX(DM[vci[KHYs-3]])+' '+numtostr(vcp[vci[KHYs-3]],2)+ZF),ColorFFFF00;
DRAWTEXT(BARPOS=SYSPARAM(2),2,LBS+'�ͺ�ɣ�'),COLORFF00;
DRAWTEXT(BARPOS=SYSPARAM(2),2,WZ2+' ��'+STKNAMEEX(DM[vci[KHYs]])+' '+STRRIGHT(' '+numtostr(vcp[vci[KHYs]],2),6)+ZF+KG+' ��'+STKNAMEEX(DM[vci[KHYs-1]])+' '+STRRIGHT(' '+numtostr(vcp[vci[KHYs-1]],2),6)+ZF+KG+' ��'+
STKNAMEEX(DM[vci[KHYs-2]])+' '+STRRIGHT(' '+numtostr(vcp[vci[KHYs-2]],2),6)+ZF+KG+' ��'+STKNAMEEX(DM[vci[KHYs-3]])+' '+STRRIGHT(' '+numtostr(vcp[vci[KHYs-3]],2),6)+ZF),ColorFFFF00;
//
CC:CLOSE;HH:HIGH;LL:LOW;OO:OPEN;
DD:DATE;D0:ref(DD,1);TT:TIME;
ZDF:(CC/REF(CC,1)-1)*100;
HSH:VOL/IF(CAPITAL>0,CAPITAL,SUM(VOL,120))*100;
ǰ��:REF(CC,1);
MA5:MA(CC,5);MA10:MA(CC,10);
P:BARPOS,LINETHICK;
HLL:WINNER(CLOSE);
��:VOL;��:AMOUNT;
LTP:CAPITAL,LINETHICK;
HS:DYNAINFO(37);
FF:C>MA(C,30);
SS:OPENMINUTES(TIME);//��ʱ���̷�����
RH:REF(HH,1);
��:INDEXADV;
��:INDEXDEC;
//�ڻ�
IF STKTYPE=7 THEN ��:OPENINT;
// �������� 0��һ��ʽ�� һ��ǧ����ʦ������������ԣ���ͼ�� ��һ��ʽ�����ƽ���ָ�꣨���ܣ���ʱ6���£���ʲô���⣿�����ǽ��������ö��������|�����Ƽ�|�������� ͨ����423ͨ���š����������ͼ/ѡ�� ���ɱض��ϴ�5 ����ǿ�ƹ� ��������ʦ��Ʒ Դ�� ��ͼ�������︱ͼ���������ָ���õ�COST��������ϲ���¡�ʹ�÷���˵�����������ж�ֱ��...�����������