‹ 返回

7415

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

指标公式

DRAWGBK(CLOSE=CLOSE,COLORRGB(30,30,30),COLORRGB(130,130,130),1);
DRAWGBK(CLOSE>OPEN,COLORRGB(110,0,0),COLORRGB(0,0,0),0);
DRAWGBK(CLOSE<OPEN,COLORRGB(0,110,0),COLORRGB(0,0,0),0);
input:AA(5,1,1000),BB(20,1,1000);
if datacount<BB then exit;
y1:=mod(barpos,BB);
Y2:=if(y1=0,BB-1,y1-1);
Y3:=barslast(Y2=0);
Y4:=barslast(Y2=BB-1);
Y5:=ref(o,Y3);
Y6:=hhv(h,Y3+1)*(Y4=0);
Y7:=llv(if(L=0,100000,L),Y3+1)*(Y4=0);
Y8:=IF(Y3=0,C,0);
Y9:=IF(Y4=0,C,0);
Y10:=IF(Y4=0,Y6,0);
Y11:=IF(Y4=0,Y7,0);
for n=lbound(Y8) to ubound(Y8) do begin
if Y8[n]>0 then begin
for z=n+BB-1 to ubound(Y8) do begin
if Y9[z]>0 then begin
for s=n to z-1 do begin
YC1[s]:=Y9[z];
YH1[s]:=Y10[z];
YL1[s]:=Y11[z];
end;
break;
end;
end;
end;
end;
YXQc1:=C;
YXQh1:=hhv(h,Y2[datacount]+1);
XQL1:=LLV(if(L=0,1000000,L),Y2[datacount]+1);
YXQCC:=if(barpos>datacount-Y2[datacount]-1,YXQc1[datacount],if(Y2=BB-1,C,YC1));
YXQHH:=if(barpos>datacount-Y2[datacount]-1,YXQh1[datacount],if(Y2=BB-1,ref(YH1,1),YH1));
YXQLL:=if(barpos>datacount-Y2[datacount]-1,XQL1[datacount],if(Y2=BB-1,ref(YL1,1),YL1));
if datacount<AA then exit;
Z1:=mod(barpos,AA);
Z2:=if(Z1=0,AA-1,Z1-1);
Z3:=barslast(Z2=0);
Z4:=barslast(Z2=AA-1);
Z5:=ref(o,Z3);
Z6:=hhv(h,Z3+1)*(Z4=0);
Z7:=llv(if(L=0,100000,L),Z3+1)*(Z4=0);
Z8:=IF(Z3=0,C,0);
Z9:=IF(Z4=0,C,0);
Z11:=IF(Z4=0,Z6,0);
Z12:=IF(Z4=0,Z7,0);
for n=lbound(Z8) to ubound(Z8) do begin
if Z8[n]>0 then begin
for z=n+AA-1 to ubound(Z8) do begin
if Z9[z]>0 then begin
for s=n to z-1 do begin
ZC1[s]:=Z9[z];
ZH1[s]:=Z11[z];
ZL1[s]:=Z12[z];
end;
break;
end;
end;
end;
end;
Zzc1:=C;
Zzh1:=hhv(h,Z2[datacount]+1);
ZzL1:=LLV(if(L=0,1000000,L),Z2[datacount]+1);
ZzCC:=if(barpos>datacount-Z2[datacount]-1,Zzc1[datacount],if(Z2=AA-1,C,ZC1));
ZzHH:=if(barpos>datacount-Z2[datacount]-1,Zzh1[datacount],if(Z2=AA-1,ref(ZH1,1),ZH1));
ZzLL:=if(barpos>datacount-Z2[datacount]-1,ZzL1[datacount],if(Z2=AA-1,ref(ZL1,1),ZL1));
FILLRGN(Y2>0 and YXQCC>=Y5,YXQHH,YXQLL),Colorred;
FILLRGN(Y2>0 and YXQCC<Y5,YXQHH,YXQLL),Colorgreen;
FILLRGN(Z2>0 and ZzCC>=Z5,ZzHH,ZzLL),COLORMAGENTA;
FILLRGN(Z2>0 and ZzCC<Z5,ZzHH,ZzLL),COLORCYAN;
//
A:=EMA(CLOSE,3);
B:=EMA(CLOSE,5);
Z:=EMA(CLOSE,15);
�ʱ�:=REF(HHV(A,B),Z);
����:=A;
��ϵ:=MA(����,5);
������Z:=MA(Z,7);
������:=WINNER(CLOSE)*100;
������:=100-������;
WIN1:=COST(85);
WIN2:=COST(15);
��Ʊ������Ԥ��:=MA(������,89)*0.618/50+CLOSE;
��Ʊ�����Ԥ��:=CLOSE-MA(������,60)*0.618/100;
ת�ۼ�����:=REF(CLOSE,2)*2-REF(CLOSE,5);
ת�ۼۺ���:=REF(CLOSE,1)*2-REF(CLOSE,4);
ת�ۼ۴����:=CLOSE*2-REF(CLOSE,3);
��:=HHV(HIGH,0);
��:=LLV(LOW,0);
DCFL:=COST(95);
SCFL:=COST(55);
JCFL:=COST(15);
CH:=COST(5);
DI:=COST(0.38);
M:=58;
X:=3;
P:=SYSPARAM(1);
WS:=BARPOS;
WS1:=IF(WS<M,WS,M);
WSP:=P-WS1+1;
WSP1:=WS1-1;
H1:=HHV(HIGH,WS1);
L1:=LLV(LOW,WS1);
HP:=H1[P];
LP:=L1[P];
HLPX:=(HP-LP)/X;
IF WS1[P]>1 THEN BEGIN
DRAWSL(WS=WSP[P],HP,0,WSP1[P],3),POINTDOT,LINETHICK1;
DRAWSL(WS=WSP[P],LP,0,WSP1[P],3),POINTDOT,LINETHICK1;
DRAWSL(WS=WSP[P],LP+HLPX,0,WSP1[P],3),POINTDOT,LINETHICK1;
DRAWSL(WS=WSP[P],LP+HLPX*2,0,WSP1[P],3),POINTDOT,LINETHICK1,colorAAAAAA;
DRAWNUMBER(WS=WSP[P],HP,HP,2),SHIFT38,colorFF;
DRAWNUMBER(WS=WSP[P],LP,LP,2),SHIFT38,colorFF00;
DRAWNUMBER(WS=WSP[P],LP+HLPX,LP+HLPX,2),SHIFT38,colorFFFF;
DRAWNUMBER(WS=WSP[P],LP+HLPX*2,LP+HLPX*2,2),SHIFT38,colorFFFFFF;
END;
X1:=(CLOSE+LOW+HIGH)/3;
��ս�۷�:=MA(X1,5);
JCZT:=IF(CROSS(��ϵ,������Z),1,0);
SCZT:=IF(CROSS(������Z,��ϵ),2,0);
A:=SYSPARAM(1)=BARPOS;
ʱ��:=IF(A>0,DATE,��ϵ);
MM:=BARSLAST(DATE=ʱ��);
HH:=HHV(HIGH,MM+1);
LL:=LLV(LOW,MM+1);
MID:=(HH+LL)/2;
RENQ:=������Z-(HH-LL)/6;
��Ȩ��ƽ��:=WMA(CLOSE,5);
JNYY:=DMA(��Ȩ��ƽ��,VOL/CAPITAL);
��Z:=EMA(JNYY,3);
ʮZ:=EMA(JNYY,5);
��Z:=EMA(JNYY,7);
ǧZ:=EMA(JNYY,9);
�fZ:=EMA(JNYY,11);
PARTLINE(��Z<REF(��Z,1),��Z),POINTDOT,LINETHICK1,colorFFAA11;
PARTLINE(ʮZ<REF(ʮZ,1),ʮZ),POINTDOT,LINETHICK1,colorFFBB22;
PARTLINE(��Z<REF(��Z,1),��Z),POINTDOT,LINETHICK1,colorFFCC33;
PARTLINE(ǧZ<REF(ǧZ,1),ǧZ),POINTDOT,LINETHICK1,colorFFDD44;
PARTLINE(�fZ<REF(�fZ,1),�fZ),POINTDOT,LINETHICK1,colorFFEE55;
PARTLINE(��Z>REF(��Z,1),��Z),POINTDOT,LINETHICK1,colorFF00FF;
PARTLINE(ʮZ>REF(ʮZ,1),ʮZ),POINTDOT,LINETHICK1,colorFF99FF;
PARTLINE(��Z>REF(��Z,1),��Z),POINTDOT,LINETHICK1,colorFF88FF;
PARTLINE(ǧZ>REF(ǧZ,1),ǧZ),POINTDOT,LINETHICK1,colorFF77FF;
PARTLINE(�fZ>REF(�fZ,1),�fZ),POINTDOT,LINETHICK1,colorFF66FF;
DRAWLINE(SCZT,HH,RENQ,HH,1),LINETHICK1,colorCCDD77;
��ʷ���:=��;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                                                                 ��ʷ���'+NUMTOSTR(��ʷ���[SYSPARAM(1)],2)),ALIGN4,colorFF00FF;
��ʷ���:=��;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                                                                                 ��ʷ���'+NUMTOSTR(��ʷ���[SYSPARAM(1)],2)),ALIGN4,colorFFFFFF;
������:=������;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'������'+NUMTOSTR(������[SYSPARAM(1)],2)),ALIGN5,colorFF00;
����:=������;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                ����'+NUMTOSTR(����[SYSPARAM(1)],2)),ALIGN5,colorFFFFFF;
����Ԥ���:=��Ʊ������Ԥ��;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                ����Ԥ���'+NUMTOSTR(����Ԥ���[SYSPARAM(1)],2)),ALIGN5,colorFF00;
����Ԥ���:=��Ʊ�����Ԥ��;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                                    ����Ԥ���'+NUMTOSTR(����Ԥ���[SYSPARAM(1)],2)),ALIGN5,colorFF00CC;
��90%�ɱ���:=WIN1;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                                                        ��90%�ɱ���'+NUMTOSTR(��90%�ɱ���[SYSPARAM(1)],2)),ALIGN5,colorFF;
��70%�ɱ���:=WIN2;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                                                                           ��70%�ɱ���'+NUMTOSTR(��70%�ɱ���[SYSPARAM(1)],2)),ALIGN5,colorFFFFFF;
�׳�����:=DI;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'�׳�����'+NUMTOSTR(�׳�����[SYSPARAM(1)],2)),ALIGN4,colorFF00CC;
�Ƚ���:=CH;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'               �Ƚ���'+NUMTOSTR(�Ƚ���[SYSPARAM(1)],2)),ALIGN4,colorCCCCFF;
�쵶��:=JCFL;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                             �쵶��'+NUMTOSTR(�쵶��[SYSPARAM(1)],2)),ALIGN4,colorFFFFFF;
Ԥ���:=DCFL;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                         Ԥ���'+NUMTOSTR(Ԥ���[SYSPARAM(1)],2)),ALIGN4,colorFFFF;
����:=SCFL;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'                                                       ����'+NUMTOSTR(����[SYSPARAM(1)],2)),ALIGN4,color3300CC;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2),((h+l)/2),10,0),Coloryellow,linethick2;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*1.01,((h+l)/2)*1.01,2,0),Coloryellow,pointdot,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*1.02,((h+l)/2)*1.02,2,0),Coloryellow,,linethick1,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*1.03,((h+l)/2)*1.03,5,0),Coloryellow,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*1.05,((h+l)/2)*1.05,17,0),Colormagenta,pointdot,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*0.99,((h+l)/2)*0.99,2,0),ColorAFB49C,pointdot,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*0.98,((h+l)/2)*0.98,2,0),,ColorAFB49C,,pointdot,linethick1,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*0.97,((h+l)/2)*0.97,5,0),ColorAFB49C,,pointdot,shift1;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*0.95,((h+l)/2)*0.95,17,0),ColorYELLOW,pointdot,shift1;
DRAWBKBMP(CLOSE>=OPEN or CLOSE<OPEN,'999');
Var1:=(OPEN+LOW+HIGH+CLOSE)/4;
MA1:MA(CLOSE,5);
MA2:MA(CLOSE,13);
MA3:MA(CLOSE,55);
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),COLOR0000FF;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),COLOR0000FF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,0),COLOR0000FF;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),COLORred;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),COLORFFFF00;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,8,0),COLORcyan;
Var32:=CLOSE/REF(CLOSE, 1)>=1.062 AND HIGH/CLOSE<1.005 AND MA(CLOSE, 90)/CLOSE>=1.150;
Var33:=Var32 AND COUNT(Var32, 20)=1 ;
Var34:=(INDEXC-REF(INDEXC, 1))/REF(INDEXC, 1);
Var35:=(CLOSE-REF(CLOSE, 1))/REF(CLOSE, 1);
Var36:=IF(Var34>0.010, 0.900, 1) AND IF(Var34>(-0.025), 1, 1.200);
Var37:=Var36*(Var35-Var34)*100;
Var38:=SUM(Var37, 10);
Var39:=SMA(Var38, 40, 1);
Var310:=Var38>20;
Var311:=CROSS(CLOSE, MA(CLOSE*1.055, 3)) AND CLOSE>OPEN*1.060 AND VOL>=REF(VOL, 1)*1.5 AND CLOSE>=MA(CLOSE, 10);
Var312:=Var310 AND Var311 ;
Var313:=(-100)*(HHV(HIGH, 3)-CLOSE)/(HHV(HIGH, 3)-LLV(LOW, 3));
Var314:= CROSS(Var313, (-87)) AND OPEN=1.090*REF(CLOSE, 1) AND INDEXC>0.980*REF(INDEXC, 1) AND CLOSE<=1.470*LLV(CLOSE, 58);
Var315:=EMA(CLOSE, 12)-EMA(CLOSE, 26);
Var316:=EMA(Var315, 9);
Var317:=2*(Var315-Var316);
Var318:=(CLOSE-LLV(LOW, 9))/(HHV(HIGH, 9)-LLV(LOW, 9))*100;
Var319:=SMA(Var318, 3, 1);
Var320:=SMA(Var319, 3, 1);
Var321:=EMA(IF(Var316>REF(Var316, 1), 1, (-1)), 14)*14;
Var322:=EMA(IF(Var320>REF(Var320, 1), 1, (-1)), 14)*14*2;
Var323:=(MA(CLOSE, 5)/MA(CLOSE, 70)-1)*100;
Var324:=(Var323+Var322+Var321)/3;
Var325:=MA(CLOSE, 80)-MA(CLOSE, 10)/