‹ 返回

50721

50721 | 查看原文 ↗
🔧 核心通用·带A股选股过滤(核心可用 · 把'去ST/选板块/CODELIKE'那行删掉,美港马加都能跑)
周期:中线用途:只管进单(找买点/选股)(纯多·只做多)
📊 把公式 50721 实时算进主散博弈(纯技术函数;选股/筹码特殊函数会标注不支持) 
🧩 这个指标拆开看 = 哪些"积木"组合的
搭条件的零件
HHV/LLV/REF 等 — 取区间最高最低、引用前N根——搭条件的零件
图上标注买卖点
画线/标注 — 在图上画柱、标买卖点、上色提示(只是显示,不是判断逻辑)
⚠️ A股专属(港股/美股/马股/加密都没有)
去ST/风险股 — 剔除A股ST风险股
⚠️ 这条含 A股专属逻辑(涨停板/龙虎榜/代码板块)——只有大陆A股有这制度,港股、美股、马股、加密统统没有,这部分搬不过去。

指标公式

DRAWRECTREL(0,900,356,1000,RGB(80,80,80));
DA:=YEAR AND MONTH AND DAY;
AAA:=STRCAT(CON2STR(YEAR,0),'��');
AAB:=STRCAT(CON2STR(MONTH,0),'��');
AA33:=STRCAT(CON2STR(DAY,0),'��');
AA4:=STRCAT('��',IF(WEEKDAY=1,'����һ',IF(WEEKDAY=2,'���ڶ�',IF(WEEKDAY=3,'������',IF(WEEKDAY=4,'������',IF(WEEKDAY=5,'������',IF(WEEKDAY=6,'��','��')))))));
AA:=STRCAT(STRCAT(STRCAT(AAA,AAB),STRCAT(AA33,AA4)),'��');
DRAWTEXT_FIX(DA,0.21,0.97,0,AA),COLORRED;
K1:=MOD(DATETODAY(DATE),10);
K2:=MOD(DATETODAY(DATE),12);
TXT1:=IF(K1=0,'��',IF(K1=1,'��',IF(K1=2,'��',IF(K1=3,'��',IF(K1=4,'��',IF(K1=5,'��',IF(K1=6,'��',IF(K1=7,'��',IF(K1=8,'��',IF(K1=9,'��',''))))))))));
TXT2:=IF(K2=0,'����',IF(K2=1,'δ��',IF(K2=2,'����',IF(K2=3,'����',IF(K2=4,'����',IF(K2=5,'����',IF(K2=6,'����',IF(K2=7,'����',IF(K2=8,'����',IF(K2=9,'î��',IF(K2=10,'����',IF(K2=11,'����',''))))))))))));
����:=DATETODAY(DATE)+33225-0.375+1,NODRAW;
����:=INTPART(DATE/10000),NODRAW;
����:=(MOD(INTPART(DATE/100),100)-1)*2,NODRAW;
����:=365.242*����+6.15+15.2226*����-1.9*SIN(0.262*����),NODRAW;
����:=365.242*����+6.15+15.2226*2-1.9*SIN(0.262*2),NODRAW;
���:MOD(����-(����<����)+6,10)+1,NODRAW;
��֧:MOD(����-(����<����)+12,12)+1,NODRAW;
�¸�:MOD(����*12+MOD(INTPART(DATE/100),100)-(����<����)+2,10)+1,NODRAW;
��֧:MOD(����*12+MOD(INTPART(DATE/100),100)-(����<����),12)+1,NODRAW;
TXT3:=IF(�¸�=5,'��',IF(�¸�=6,'��',IF(�¸�=7,'��',IF(�¸�=8,'��',IF(�¸�=9,'��',IF(�¸�=10,'��',IF(�¸�=1,'��',IF(�¸�=2,'��',IF(�¸�=3,'��',IF(�¸�=4,'��',''))))))))));
TXT4:=IF(��֧=7,'����',IF(��֧=8,'δ��',IF(��֧=9,'����',IF(��֧=10,'����',IF(��֧=11,'����',IF(��֧=12,'����',IF(��֧=1,'����',IF(��֧=2,'����',IF(��֧=3,'����',IF(��֧=4,'î��',IF(��֧=5,'����',IF(��֧=6,'����',''))))))))))));
TXT5:=IF(���=5,'��',IF(���=6,'��',IF(���=7,'��',IF(���=8,'��',IF(���=9,'��',IF(���=10,'��',IF(���=1,'��',IF(���=2,'��',IF(���=3,'��',IF(���=4,'��',''))))))))));
TXT6:=IF(��֧=7,'����',IF(��֧=8,'δ��',IF(��֧=9,'����',IF(��֧=10,'����',IF(��֧=11,'����',IF(��֧=12,'����',IF(��֧=1,'����',IF(��֧=2,'����',IF(��֧=3,'����',IF(��֧=4,'î��',IF(��֧=5,'����',IF(��֧=6,'����',''))))))))))));
KK:=MOD(DATETODAY(DATE)-6,60);
X:=INTPART(KK/10);
Ѯ��:=IF(X=0,11,IF(X=1,9,IF(X=2,7,IF(X=3,5,IF(X=4,3,IF(X=5,1,DRAWNULL)))))),NODRAW;
TXT7:=IF(X=0,'�纥��',IF(X=1,'���Ͽ�',IF(X=2,'��δ��',IF(X=3,'���ȿ�',IF(X=4,'��î��',IF(X=5,'�ӳ��',''))))));
BZ:=STRCAT(STRCAT(STRCAT(STRCAT(TXT5,TXT6),', '),STRCAT(STRCAT(STRCAT(TXT3,TXT4),'; '),STRCAT(STRCAT(TXT1,TXT2),', '))),TXT7);
DRAWTEXT_FIX(ISLASTBAR,0.03,0.97,0,BZ),COLORYELLOW;
JG:=IF(�ߵͿ���=1,H,IF(�ߵͿ���=2,L,IF(�ߵͿ���=3,O,IF(�ߵͿ���=4,C,DRAWNULL))));
���:=IF(JG>=10000,INTPART(JG/100),IF(JG>=1000 AND JG<10000,INTPART(JG/10),IF(JG>=100 AND JG<1000,INTPART(JG/10),IF(JG>=10 AND JG<100,INTPART(JG),IF(JG>=10 AND JG<100,INTPART(JG),IF(JG<10,INTPART(JG),DRAWNULL))))));
���:=IF(JG>=10000,FRACPART(JG/100)*10000,IF(JG>=1000 AND JG<10000,FRACPART(JG/10)*1000,IF(JG>=100 AND JG<1000,FRACPART(JG/10)*1000,IF(JG>=10 AND JG<100,FRACPART(JG)*100,IF(JG<10,FRACPART(JG)*100,DRAWNULL)))));
W1:=IF(���>=1000,INTPART(���/1000)+(INTPART(���/100)-INTPART(���/1000)*10)+(INTPART(���/10)-INTPART(���/100)*10)+(���-INTPART(���/10)*10),IF(���>=100 AND ���<1000,INTPART(���/100)+(INTPART(���/10)-INTPART(���/100)*10)+(���-INTPART(���/10)*10),IF(���>=10 AND ���<100,INTPART(���/10)+(���-INTPART(���/10)*10),IF(���<10,���,DRAWNULL))));
W2:=IF(���>=1000,INTPART(���/1000)+(INTPART(���/100)-INTPART(���/1000)*10)+(INTPART(���/10)-INTPART(���/100)*10)+(���-INTPART(���/10)*10),IF(���>=100 AND ���<1000,INTPART(���/100)+(INTPART(���/10)-INTPART(���/100)*10)+(���-INTPART(���/10)*10),IF(���>=10 AND ���<100,INTPART(���/10)+(���-INTPART(���/10)*10),IF(���<10,���,DRAWNULL))));
����:IF(MOD(W1,8)=0,8,MOD(W1,8))COLORWHITE,NODRAW;
����:IF(MOD(W2,8)=0,8,MOD(W2,8))COLORWHITE,NODRAW;
��س:IF(MOD(W1+W2,6)=0,6,MOD(W1+W2,6)),COLORCYAN,NODRAW;
;
DRAWGBK(ISLASTBAR,0,0,0,CON2STR(INTPART(����*100+����*10+��س),0),0);
DRAWRECTREL(357,210,386,880,RGB(50,60,60));
TXTA:=IF(K1=0,'����',IF(K1=1,'����',IF(K1=2 OR K1=3,'�׻�',IF(K1=4 OR K1=5,'����',IF(K1=6 OR K1=7,'����',IF(K1=8 OR K1=9,'��ȸ',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.78,0,TXTA),COLORGREEN;;
TXTB:=IF(K1=0,'����',IF(K1=1,'�׻�',IF(K1=2 OR K1=3,'����',IF(K1=4 OR K1=5,'����',IF(K1=6 OR K1=7,'��ȸ',IF(K1=8 OR K1=9,'����',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.67,0,TXTB),COLORMAGENTA;;
TXTC:=IF(K1=0,'�׻�',IF(K1=1,'����',IF(K1=2 OR K1=3,'����',IF(K1=4 OR K1=5,'��ȸ',IF(K1=6 OR K1=7,'����',IF(K1=8 OR K1=9,'����',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.56,0,TXTC),COLORYELLOW;;
TXTD:=IF(K1=0,'����',IF(K1=1,'����',IF(K1=2 OR K1=3,'��ȸ',IF(K1=4 OR K1=5,'����',IF(K1=6 OR K1=7,'����',IF(K1=8 OR K1=9,'�׻�',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.45,0,TXTD),COLORCYAN;;
TXTE:=IF(K1=0,'����',IF(K1=1,'��ȸ',IF(K1=2 OR K1=3,'����',IF(K1=4 OR K1=5,'����',IF(K1=6 OR K1=7,'�׻�',IF(K1=8 OR K1=9,'����',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.34,0,TXTE),COLORWHITE;;
TXTF:=IF(K1=0,'��ȸ',IF(K1=1,'����',IF(K1=2 OR K1=3,'����',IF(K1=4 OR K1=5,'�׻�',IF(K1=6 OR K1=7,'����',IF(K1=8 OR K1=9,'����',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.23,0,TXTF),COLORBLUE;;
DRAWRECTREL(388,0,999,990,RGB(50,100,140));
DRAWRECTREL(388,0,471,990,RGB(50,50,50));
DRAWRECTREL(471,0,529,990,RGB(50,78,250));
DRAWRECTREL(587,0,645,990,RGB(250,78,50));
DRAWRECTREL(703,0,761,990,RGB(50,78,50));
DRAWRECTREL(817,0,867,990,RGB(250,100,140));
DRAWRECTREL(916,0,960,990,RGB(50,100,250));
;
DRAWRECTREL(388,90,999,90,RGB(250,250,250));
DRAWRECTREL(388,190,999,190,RGB(250,250,250));
DRAWRECTREL(388,290,999,290,RGB(250,250,250));
DRAWRECTREL(388,390,999,390,RGB(250,250,250));
DRAWRECTREL(388,490,999,490,RGB(250,250,250));
DRAWRECTREL(388,590,999,590,RGB(250,250,250));
DRAWRECTREL(388,690,999,690,RGB(250,250,250));
DRAWRECTREL(388,790,999,790,RGB(250,250,250));
DRAWRECTREL(388,890,999,890,RGB(250,250,250));
AX1:=STRCAT(STRCAT(STRCAT(STRCAT('�� ��' ,' ��') ,' ��') ,' ��') ,' ��');
DRAWTEXT_FIX(C>0,0.4,0.015,0,AX1),COLORYELLOW;
AA2:=STRCAT(CON2STR(DAY,0),'��');
DRAWTEXT_FIX(C>0,0.425,0.91,0,AA2),COLORYELLOW;
BB1:=STRCAT(CON2STR(REF(MONTH,1),0),'��');
BB2:=STRCAT(CON2STR(REF(DAY,1),0),'��');
BB3:=STRCAT(BB1,BB2);
DRAWTEXT_FIX(C>0,0.4,0.81,0,BB3),COLORYELLOW;
CC2:=STRCAT(CON2STR(REF(DAY,2),0),'��');
CC3:=STRCAT(BB1,CC2);
DRAWTEXT_FIX(C>0,0.4,0.71,0,CC3),COLORYELLOW;
DD2:=STRCAT(CON2STR(REF(DAY,3),0),'��');
DD3:=STRCAT(BB1,DD2);
DRAWTEXT_FIX(C>0,0.4,0.61,0,DD3),COLORYELLOW;
EE2:=STRCAT(CON2STR(REF(DAY,4),0),'��');
EE3:=STRCAT(BB1,EE2);
DRAWTEXT_FIX(C>0,0.4,0.51,0,EE3),COLORYELLOW;
FF2:=STRCAT(CON2STR(REF(DAY,5),0),'��');
FF3:=STRCAT(BB1,FF2);
DRAWTEXT_FIX(C>0,0.4,0.41,0,FF3),COLORYELLOW;
GG2:=STRCAT(CON2STR(REF(DAY,6),0),'��');
GG3:=STRCAT(BB1,GG2);
DRAWTEXT_FIX(C>0,0.4,0.31,0,GG3),COLORYELLOW;
HH2:=STRCAT(CON2STR(REF(DAY,7),0),'��');
HH3:=STRCAT(BB1,HH2);
DRAWTEXT_FIX(C>0,0.4,0.21,0,HH3),COLORYELLOW;
YY2:=STRCAT(CON2STR(REF(DAY,8),0),'��');
YY3:=STRCAT(BB1,YY2);
DRAWTEXT_FIX(C>0,0.4,0.11,0,YY3),COLORYELLOW;
DRAWTEXT_FIX(C>0,0.4,0.91,0,'����'),COLORRED;
;
�ͼ�1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) ;
�ͼ�2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,1),2),' '),STRCAT(CON2STR(REF(H,1),2),' ')),STRCAT(CON2STR(REF(L,1),2),' ')),CON2STR(REF(C,1),2)) ;
�ͼ�3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,2),2),' '),STRCAT(CON2STR(REF(H,2),2),' ')),STRCAT(CON2STR(REF(L,2),2),' ')),CON2STR(REF(C,2),2)) ;
�ͼ�4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,3),2),' '),STRCAT(CON2STR(REF(H,3),2),' ')),STRCAT(CON2STR(REF(L,3),2),' ')),CON2STR(REF(C,3),2)) ;
�ͼ�5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,4),2),' '),STRCAT(CON2STR(REF(H,4),2),' ')),STRCAT(CON2STR(REF(L,4),2),' ')),CON2STR(REF(C,4),2)) ;
�ͼ�6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,5),2),' '),STRCAT(CON2STR(REF(H,5),2),' ')),STRCAT(CON2STR(REF(L,5),2),' ')),CON2STR(REF(C,5),2)) ;
�ͼ�7:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,6),2),' '),STRCAT(CON2STR(REF(H,6),2),' ')),STRCAT(CON2STR(REF(L,6),2),' ')),CON2STR(REF(C,6),2)) ;
�ͼ�8:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,7),2),' '),STRCAT(CON2STR(REF(H,7),2),' ')),STRCAT(CON2STR(REF(L,7),2),' ')),CON2STR(REF(C,7),2)) ;
�ͼ�9:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,8),2),' '),STRCAT(CON2STR(REF(H,8),2),' ')),STRCAT(CON2STR(REF(L,8),2),' ')),CON2STR(REF(C,8),2)) ;
�м�1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')),STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) ;
�м�2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,1),2),' '),STRCAT(CON2STR(REF(H,1),2),' ')),STRCAT(CON2STR(REF(L,1),2),' ')),CON2STR(REF(C,1),2)) ;
�м�3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,2),2),' '),STRCAT(CON2STR(REF(H,2),2),' ')),STRCAT(CON2STR(REF(L,2),2),' ')),CON2STR(REF(C,2),2)) ;
�м�4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,3),2),' '),STRCAT(CON2STR(REF(H,3),2),' ')),STRCAT