‹ 返回

47017

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

指标公式

DRAWTEXT_FIX(ISLASTBAR,0.848,0,0,'�Ա�VAIGOLD'),COLORRED;
TEXT1:='ë �� ��-------�ǹ�˾���������������ָ�꣬������˾���ͳɱ���������Ҳ�Ǿ����������֣�Խ��Խ�ã�';
TEXT11:='Ӫҵ�����ʣ�-------������ҵ����ռ�����ı��أ�Խ���ұ���һ��ˮƽ���Ϳ��Է��ijֹɣ���ɣ���';
TEXT2:='�� �� ��------��˾ӯ��ռӪ�յı�����������˾���ջ������������������DZ�ҵ�븱ҵ�Ļ����ܺͣ����������';
TEXT3:='���ʲ������ʣ�------��Ӧ��˾Ϊ�ɶ������������������ֵԽ�ߴ����������������Խ�ã���Ͷ���˵ı�֤�̶�Խ�ߣ�';
TEXT4:='�ʲ���ծ���ʣ�------������ҵ�⣬һ�㹫˾��ծ����Խ�ߣ���Ϣ����ѹ����Խ��Խ��ԽҪ�����Դ���';
TEXT5:='�����ʲ�/���ʲ���------�����ʲ�ָһ���ڿɱ��ֵ��ʲ�������ҵ��Ӫ��������Խ����ҵԽ�޷���Ӫ����ʹ��Ӫѹ����ߣ�';
TEXT6:='�����ת�ʣ�------��ֵ������˵����������ܿ죬����ܿ�����ǿ����ֵ�ʹ�����ѹ���������ڷ��գ�';
TEXT7:='Ӧ���ʿ���ת�ʣ�------��ֵԽ�ߣ��ֽ���յ��ٶ�Խ�죬����Ҫע�Ƿ��л�ͬ�������������ʣ�';
TEXT8:='��Ӫ�ֽ������------����ҵȡ�þ�������Ҫ���׺�����Ľ���ֵӦ��Ϊ������Խ��Խ�ã�';
TEXT9:='Ͷ���ֽ������------��˾�����������ʲ����ֽ���������ֵΪ����������˾�������������ͼ��';
TEXT99:='�����ֽ������------��˾��ɶ���ծȨ��֮����ֽ����������Ϊ����������˾������ɶ�/ծȨ��ҪǮ��';
TEXT10:='';
TEXT101:='';
TEXTA1:='';
TEXTA2:='';
TEXTA3:='';
TEXTA:=IF(MN=1,TEXT1,IF(MN=2,TEXT8,''));
TEXTB:=IF(MN=1,TEXT11,IF(MN=2,TEXT9,''));
TEXTC:=IF(MN=1,TEXT2,IF(MN=2,TEXT99,''));
TEXTD:=IF(MN=1,TEXT3,IF(MN=2,TEXT10,''));
TEXTE:=IF(MN=1,TEXT4,IF(MN=2,TEXT101,''));
TEXTF:=IF(MN=1,TEXT5,IF(MN=2,TEXTA1,''));
TEXTG:=IF(MN=1,TEXT6,IF(MN=2,TEXTA2,''));
TEXTH:=IF(MN=1,TEXT7,IF(MN=2,TEXTA3,''));
NN:=0.05;
MM:=0.02;
OO:=0.02;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+NN*0),0,TEXTA),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+NN*1),0,TEXTB),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+2*NN),0,TEXTC),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+3*NN),0,TEXTD),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+NN*4),0,TEXTE),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+NN*5),0,TEXTF),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+6*NN),0,TEXTG),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+7*NN),0,TEXTH),COLORYELLOW;
MO:=0.06;
MP:=0.450;
MQ:=0.005;
DRAWRECTREL(10,425,715,820,RGB(1,1,1)); 
DRAWRECTREL(10,558,715,558.3,RGB(20,90,200)); 
DRAWRECTREL(95,493,715,493.3,RGB(20,90,200)); 
DRAWRECTREL(400,425,400.3,820,RGB(20,90,200)); 
DRAWRECTREL(95,425,95.3,820,RGB(20,90,200));  
YEAR3:=YEAR;
YEAR2:=IF(MONTH<4,YEAR3-1,YEAR3);
YEAR1:=YEAR2-1;
DRAWTEXT_FIX(ISLASTBAR,0.225+MQ,(MP),0,STRCAT(CON2STR(YEAR2,0),'��')),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.525+MQ,(MP),0,STRCAT(CON2STR(YEAR1,0),'��')),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.035+MQ,(MP),0,'����'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.035+MQ,(MP+MO*1),0,'����'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.10+MQ,(MP+MO*1),0,'��Ӫ����(��)'),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.21+MQ,(MP+MO*1),0,'������(��)'),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.31+MQ,(MP+MO*1),0,'���(%)'),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.41+MQ,(MP+MO*1),0,'��Ӫ����(��)'),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.52+MQ,(MP+MO*1),0,'������(��)'),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.61+MQ,(MP+MO*1),0,'���(%)'),COLORLIMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.03+MQ,(MP+MO*2),0,'һ����'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.03+MQ,(MP+MO*3),0,'������'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.03+MQ,(MP+4*MO),0,'������'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.03+MQ,(MP+5*MO),0,'���'),COLORGREEN;
MR:=0.125;
DRAWTEXT_FIX(ISLASTBAR,MR,(MP+MO*2),0,CON2STR(FINONE(74,YEAR2,0331)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MR,(MP+MO*3),0,CON2STR(FINONE(74,YEAR2,0630)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MR,(MP+4*MO),0,CON2STR(FINONE(74,YEAR2,0930)/100000000,2)),COLORYELLOW;
MS:=0.23;
DRAWTEXT_FIX(ISLASTBAR,MS,(MP+MO*2),0,CON2STR(FINONE(96,YEAR2,0331)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MS,(MP+MO*3),0,CON2STR(FINONE(96,YEAR2,0630)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MS,(MP+4*MO),0,CON2STR(FINONE(96,YEAR2,0930)/100000000,2)),COLORYELLOW;
MT:=0.325;
DRAWTEXT_FIX(ISLASTBAR,MT,(MP+MO*2),0,CON2STR(FINONE(202,YEAR2,0331),2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MT,(MP+MO*3),0,CON2STR(FINONE(202,YEAR2,0630),2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MT,(MP+4*MO),0,CON2STR(FINONE(202,YEAR2,0930),2)),COLORYELLOW;
MU:=0.425;
DRAWTEXT_FIX(ISLASTBAR,MU,(MP+MO*2),0,CON2STR(FINONE(74,YEAR1,0331)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MU,(MP+MO*3),0,CON2STR(FINONE(74,YEAR1,0630)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MU,(MP+4*MO),0,CON2STR(FINONE(74,YEAR1,0930)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MU,(MP+5*MO),0,CON2STR(FINONE(74,YEAR1,1231)/100000000,2)),COLORYELLOW;
MV:=0.535;
DRAWTEXT_FIX(ISLASTBAR,MV,(MP+MO*2),0,CON2STR(FINONE(96,YEAR1,0331)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MV,(MP+MO*3),0,CON2STR(FINONE(96,YEAR1,0630)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MV,(MP+4*MO),0,CON2STR(FINONE(96,YEAR1,0930)/100000000,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MV,(MP+5*MO),0,CON2STR(FINONE(96,YEAR1,1231)/100000000,2)),COLORYELLOW;
MW:=0.63;
DRAWTEXT_FIX(ISLASTBAR,MW,(MP+MO*2),0,CON2STR(FINONE(202,YEAR1,0331),2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MW,(MP+MO*3),0,CON2STR(FINONE(202,YEAR1,0630),2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MW,(MP+4*MO),0,CON2STR(FINONE(202,YEAR1,0930),2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,MW,(MP+5*MO),0,CON2STR(FINONE(202,YEAR1,1231),2)),COLORYELLOW;
DRAWRECTREL(15,830,985,830.2,RGB(0,90,90)); 
DRAWRECTREL(15,909,985,909.2,RGB(0,90,90)); 
DRAWRECTREL(15,984,985,984.2,RGB(0,90,90)); 
DRAWRECTREL(246,830,246.2,985,RGB(0,90,90)); 
DRAWRECTREL(495,830,495.2,985,RGB(0,90,90)); 
DRAWRECTREL(746,830,746.2,985,RGB(0,90,90)); 
DRAWTEXT_FIX(ISLASTBAR,0.03,(MM+15*NN+4*OO),0,'������飺'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.262,(MM+15*NN+4*OO),0,'Ӫҵ������(��)��'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.525,(MM+15*NN+4*OO),0,'��Ӫ����ͬ��(��)��'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.775,(MM+15*NN+4*OO),0,'����С�̣�'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.03,(MM+16*NN+5*OO+0.01),0,'�������ڣ�'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.262,(MM+16*NN+5*OO+0.01),0,'���ʲ�������ROE(��)��'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.525,(MM+16*NN+5*OO+0.01),0,'�� �� �� ͬ ��(��)��'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.775,(MM+16*NN+5*OO+0.01),0,'��ͨ��ֵ��'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.12,(MM+15*NN+4*OO),0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.418,(MM+15*NN+4*OO),0,STRCAT(CON2STR(FINVALUE(194),2),' %')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.66,(MM+15*NN+4*OO),0,STRCAT(CON2STR(FINANCE(44),2),' %')),COLORYELLOW;
PP1:=FINANCE(40)/100000000;
PZDX:=IF(PP1>200,'���̹�',IF(PP1<=50,'С�̹�','���̹�'));
DRAWTEXT_FIX(ISLASTBAR,0.87,(MM+15*NN+4*OO),0,PZDX),COLORYELLOW;
SS1:=FINANCE(42);
SS2:=DATETODAY(CONST(DATE));
SS3:=SS2-SS1;
RQ1:=DAYTODATE(SS3)+19000000;
XDATE:=CON2STR(RQ1,0);
DRAWTEXT_FIX(ISLASTBAR,0.12,(MM+16*NN+5*OO+0.01),0,XDATE),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.418,(MM+16*NN+5*OO+0.01),0,STRCAT(CON2STR(FINVALUE(197),2),' %')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.66,(MM+16*NN+5*OO+0.01),0,STRCAT(CON2STR(FINANCE(43),2),' %')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.87,(MM+16*NN+5*OO+0.01),0,STRCAT(CON2STR(FINANCE(40)/100000000,2),' ��Ԫ')),COLORYELLOW;
GD1:=0.725;
GD2:=0.080;
GD3:=0.048;
GD4:=0.01;
GD5:=0.890;
GD6:=0.820;
DRAWRECTREL(720,70,995,820,RGB(1,1,1)); 
DRAWRECTREL(720,315,995,315.4,RGB(20,90,250)); 
DRAWRECTREL(720,420,995,420.4,RGB(20,90,250)); 
DRAWRECTREL(875,420,875.3,820,RGB(20,90,250)); 
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*5+GD4,0,'�����ܼ�����'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*6+GD4,0,'�����ֹܳɣ�'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2,0,STRCAT('�� �� �� �� ���� ',STRCAT(CON2STR(FINVALUE(242),0),' ��'))),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3,0,STRCAT('ʮ �� �� �� �� �ɣ� ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(238)*100,2),' %'))),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*2,0,STRCAT('ʮ�� ��ͨ �ɶ� �ֹɣ� ',STRCAT(CON2STR(FINVALUE(244)/FINVALUE(238)*100,2),' %'))),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*3,0,STRCAT('�� һ �� �� �� �� �ɣ� ',STRCAT(CON2STR(FINVALUE(243)/FINVALUE(238)*100,2),' %'))),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*4,0,STRCAT('��һ����ͨ�ɶ��ֹɣ� ',STRCAT(CON2STR(FINVALUE(265)/FINVALUE(238)*100,2),' %'))),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,GD5,GD2+GD3*5+GD4,0,STRCAT(CON2STR(FINVALUE(246),0),' ��')),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,GD5,GD2+GD3*6+GD4,0,STRCAT(CON2STR(FINVALUE(247)/FINVALUE(238)*100,2),' %')),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*7+GD4,0,STRCAT('QFII�������� ',STRCAT(CON2STR(FINVALUE(248),0),' ��'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*8+GD4,0,STRCAT('ȯ�̻������� ',STRCAT(CON2STR(FINVALUE(250),0),' ��'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*9+GD4,0,STRCAT('���ջ������� ',STRCAT(CON2STR(FINVALUE(252),0),' ��'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*10+GD4,0,STRCAT('����������� ',STRCAT(CON2STR(FINVALUE(254),0),' ��'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*11+GD4,0,STRCAT('�籣�������� ',STRCAT(CON2STR(FINVALUE(256),0