波段之父板块雷达公式原码
本帖隐藏的内容需要回复才可以浏览
{公称名称: 板块雷达}
input:N(3,1,10);
DRAWGBK((CLOSE > 0),COLORRGB(16,16,88),COLORRGB(16,16,95),1);
VAR1:=0;
DM:='AA';
DMSTR:='AA01';
A0:=STKINDI('BB01','dmc.yy',0,(0 - 1));
大盘中轴:EMA(SUM(A0,3),3),LINETHICK1,colorFFFFFF;
MAX1:=STKINDI(DMSTR,'dmc.yy',0,(0 - 1));
MIN0:=MAX1;
DMS1:=DMSTR;
DMS2:=DMS1;
FOR J=1 to 16 DO
DMSTR:=((DM + IF((J < 10),'0','')) + NUMTOSTR(J,0));
VAR0:=STKINDI(DMSTR,'dmc.yy',0,(0 - 1));
VAR1:=EMA(SUM(VAR0,3),3);
DMS1:=IF((VAR1 > MAX1),DMSTR,DMS1);
MAX1:=IF((VAR1 > MAX1),VAR1,MAX1);
DMS2:=IF((VAR1 < MIN0),DMSTR,DMS2);
MIN0:=IF((VAR1 < MIN0),VAR1,MIN0);
领涨通道:MAX1,colorFF00FF;
领跌通道:MIN0,colorFFFF00;
XT:=((100 * (CLOSE - REF(CLOSE,1))) / REF(CLOSE,1));
雷达:EMA(SUM(XT,N),3),LINETHICK1,colorFF;
DRAWTEXT(ISLASTBAR,0,((('三日领涨:' + DMS1) + ',') + STKNAMEEX(DMS1))),colorFF00FF;
VAR2:=0;
DMM:='AA';
DMMSTR:='AA01';
MAX2:=STKINDI(DMMSTR,'dmc.yy',0,(0 - 1));
MIN1:=MAX2;
DMMS1:=DMMSTR;
DMMS2:=DMMS1;
FOR J=1 to 16 DO
DMMSTR:=((DMM + IF((J < 10),'0','')) + NUMTOSTR(J,0));
VAR2:=STKINDI(DMMSTR,'dmc.yy',0,(0 - 1));
DMMS1:=IF((VAR2 > MAX2),DMMSTR,DMMS1);
MAX2:=IF((VAR2 > MAX2),VAR2,MAX2);
DMMS2:=IF((VAR2 < MIN1),DMMSTR,DMMS2);
MIN1:=IF((VAR1 < MIN1),VAR2,MIN1);
DRAWTEXT(ISLASTBAR,6,((('当日领涨:' + DMMS1) + ',') + STKNAMEEX(DMMS1))),colorFF;
16,colorFF;
(0 - 15),colorFFFF00;
DRAWICON(CROSS(雷达,领涨通道),领涨通道,'T01');
DRAWICON(CROSS(雷达,领涨通道),雷达,'S14');
EXPLAIN(ISLASTBAR,(((' （一）当日领涨及前5名:' + DMMS1) + ':') + STKNAMEEX(DMMS1))),color97BE4;
YYGS:='dmc.yy';
STKSUM1:=STKCOUNT(STKNAMEEX(DMMS1));
variable:DMSTR[0]=0;
DCOUNT:=DATACOUNT;
FOR VAR_INDI=1 to STKSUM1 DO
DM:=STKFROMBLK(STKNAMEEX(DMMS1),VAR_INDI);
DMSTR[VAR_INDI]=DM;
K:=STKINDI(DM,YYGS,0,(0 - 1));
DMSTR[VAR_INDI]=K[DCOUNT];
VAR_PX[VAR_INDI]=K[DCOUNT];
TEMP1:=SORTPOS(35,1,1,STKSUM1);
NUM1:=VAR_PX[1];
DM_MAX1:=VAR_PX[2];
DM_MAX2:=VAR_PX[3];
DM_MAX3:=VAR_PX[4];
DM_MAX4:=VAR_PX[5];
MAX1:=DMSTR[NUM1];
MAX2:=DMSTR[DM_MAX1];
DM_MAX5:=DMSTR[DM_MAX2];
STKSUM3:=DMSTR[DM_MAX3];
DCOUNT2:=DMSTR[DM_MAX4];
EXPLAINEX(ISLASTBAR,((('1:' + DMSTR[NUM1]) + STKNAMEEX(DMSTR[NUM1])) + ':%'),MAX1,2,0),colorFF;
EXPLAINEX(ISLASTBAR,((('2:' + DMSTR[DM_MAX1]) + STKNAMEEX(DMSTR[DM_MAX1])) + ':%'),MAX2,2,0),colorFF;
EXPLAINEX(ISLASTBAR,((('3:' + DMSTR[DM_MAX2]) + STKNAMEEX(DMSTR[DM_MAX2])) + ':%'),DM_MAX5,2,0),colorFF;
EXPLAINEX(ISLASTBAR,((('4:' + DMSTR[DM_MAX3]) + STKNAMEEX(DMSTR[DM_MAX3])) + ':%'),STKSUM3,2,0),colorFF;
EXPLAINEX(ISLASTBAR,((('5:' + DMSTR[DM_MAX4]) + STKNAMEEX(DMSTR[DM_MAX4])) + ':%'),DCOUNT2,2,0),colorFF;
EXPLAIN(ISLASTBAR,((('（二）当日领跌及后3名:' + DMMS2) + ':') + STKNAMEEX(DMMS2))),color97BE4;
DMSTR2:=STKCOUNT(STKNAMEEX(DMMS2));
variable:VAR_INDI2[0]=0;
VAR_PX2:=DATACOUNT;
FOR J=1 to DMSTR2 DO
NUM2:=STKFROMBLK(STKNAMEEX(DMMS2),J);
VAR_INDI2[J]=NUM2;
DM_MIN1:=STKINDI(NUM2,YYGS,0,(0 - 1));
DM2[J]=DM_MIN1[VAR_PX2];
TEMP2[J]=DM_MIN1[VAR_PX2];
DM_MIN2:=SORTPOS(57,1,1,DMSTR2);
DM_MIN3:=TEMP2[DMSTR2];
STKSUM:=TEMP2[(DMSTR2 - 1)];
DMSTR:=TEMP2[(DMSTR2 - 2)];
MIN1:=DM2[DM_MIN3];
VAR_PX:=DM2[STKSUM];
VAR_INDI:=DM2[DMSTR];
EXPLAINEX(ISLASTBAR,((('1:' + VAR_INDI2[DM_MIN3]) + STKNAMEEX(VAR_INDI2[DM_MIN3])) + ':%'),MIN1,2,0),colorFF00;
EXPLAINEX(ISLASTBAR,((('2:' + VAR_INDI2[STKSUM]) + STKNAMEEX(VAR_INDI2[STKSUM])) + ':%'),VAR_PX,2,0),colorFF00;
EXPLAINEX(ISLASTBAR,((('3:' + VAR_INDI2[DMSTR]) + STKNAMEEX(VAR_INDI2[DMSTR])) + ':%'),VAR_INDI,2,0),colorFF00;
EXPLAIN(ISLASTBAR,'---------------------------------------------'),colorFF00;
EXPLAIN(ISLASTBAR,((('（三）三日领涨及前5名:' + DMS1) + ':') + STKNAMEEX(DMS1))),color97BE4;
YYGS:='dmc.yy';
STKSUM4:=STKCOUNT(STKNAMEEX(DMS1));
variable:DMSTR[0]=0;
DCOUNT:=DATACOUNT;
FOR VAR_INDI=1 to STKSUM4 DO
DM:=STKFROMBLK(STKNAMEEX(DMS1),VAR_INDI);
DMSTR[VAR_INDI]=DM;
K:=STKINDI(DM,YYGS,0,(0 - 1));
DM_MIN1:=EMA(SUM(K,N),3);
DMSTR[VAR_INDI]=K[DCOUNT];
VAR_PX[VAR_INDI]=K[DCOUNT];
TEMP1:=SORTPOS(35,1,1,STKSUM4);
NUM1:=VAR_PX[1];
DM_MAX1:=VAR_PX[2];
DM_MAX2:=VAR_PX[3];
DM_MAX3:=VAR_PX[4];
DM_MAX4:=VAR_PX[5];
MAX1:=DMSTR[NUM1];
MAX2:=DMSTR[DM_MAX1];
DM_MAX5:=DMSTR[DM_MAX2];
STKSUM3:=DMSTR[DM_MAX3];
DCOUNT2:=DMSTR[DM_MAX4];
EXPLAINEX(ISLASTBAR,((('1:' + DMSTR[NUM1]) + STKNAMEEX(DMSTR[NUM1])) + ':%'),MAX1,2,0),colorFF00FF;
EXPLAINEX(ISLASTBAR,((('2:' + DMSTR[DM_MAX1]) + STKNAMEEX(DMSTR[DM_MAX1])) + ':%'),MAX2,2,0),colorFF00FF;
EXPLAINEX(ISLASTBAR,((('3:' + DMSTR[DM_MAX2]) + STKNAMEEX(DMSTR[DM_MAX2])) + ':%'),DM_MAX5,2,0),colorFF00FF;
EXPLAINEX(ISLASTBAR,((('4:' + DMSTR[DM_MAX3]) + STKNAMEEX(DMSTR[DM_MAX3])) + ':%'),STKSUM3,2,0),colorFF00FF;
EXPLAINEX(ISLASTBAR,((('5:' + DMSTR[DM_MAX4]) + STKNAMEEX(DMSTR[DM_MAX4])) + ':%'),DCOUNT2,2,0),colorFF00FF;
EXPLAIN(ISLASTBAR,((('（四）三日领跌及后三名:' + DMS2) + ':') + STKNAMEEX(DMS2))),color97BE4;
DMSTR2:=STKCOUNT(STKNAMEEX(DMS2));
variable:VAR_INDI2[0]=0;
VAR_PX2:=DATACOUNT;
FOR J=1 to DMSTR2 DO
NUM2:=STKFROMBLK(STKNAMEEX(DMS2),J);
VAR_INDI2[J]=NUM2;
DM_MIN1:=STKINDI(NUM2,YYGS,0,(0 - 1));
DM2[J]=DM_MIN1[VAR_PX2];
TEMP2[J]=DM_MIN1[VAR_PX2];
DM_MIN2:=SORTPOS(57,1,1,DMSTR2);
DM_MIN3:=TEMP2[DMSTR2];
STKSUM:=TEMP2[(DMSTR2 - 1)];
DMSTR:=TEMP2[(DMSTR2 - 2)];
MIN1:=DM2[DM_MIN3];
VAR_PX:=DM2[STKSUM];
VAR_INDI:=DM2[DMSTR];
EXPLAINEX(ISLASTBAR,((('1:' + VAR_INDI2[DM_MIN3]) + STKNAMEEX(VAR_INDI2[DM_MIN3])) + ':%'),MIN1,2,0),colorFFFF00;
EXPLAINEX(ISLASTBAR,((('2:' + VAR_INDI2[STKSUM]) + STKNAMEEX(VAR_INDI2[STKSUM])) + ':%'),VAR_PX,2,0),colorFFFF00;
EXPLAINEX(ISLASTBAR,((('3:' + VAR_INDI2[DMSTR]) + STKNAMEEX(VAR_INDI2[DMSTR])) + ':%'),VAR_INDI,2,0),colorFFFF00;
EXPLAIN(ISLASTBAR,'★领涨使用强势技术，领跌使用抄底技术★'),colorFF;
VAR_PX2:=STKINDI('AA01','dmc.yy',0,(0 - 1));
VAR_INDI2:=STKINDI('AA02','dmc.yy',0,(0 - 1));
AA01:=STKINDI('AA03','dmc.yy',0,(0 - 1));
AA02:=STKINDI('AA04','dmc.yy',0,(0 - 1));
AA03:=STKINDI('AA05','dmc.yy',0,(0 - 1));
AA04:=STKINDI('AA06','dmc.yy',0,(0 - 1));
AA05:=STKINDI('AA07','dmc.yy',0,(0 - 1));
AA06:=STKINDI('AA08','dmc.yy',0,(0 - 1));
AA07:=STKINDI('AA09','dmc.yy',0,(0 - 1));
AA08:=STKINDI('AA10','dmc.yy',0,(0 - 1));
AA09:=STKINDI('AA11','dmc.yy',0,(0 - 1));
AA10:=STKINDI('AA12','dmc.yy',0,(0 - 1));
AA11:=STKINDI('AA13','dmc.yy',0,(0 - 1));
AA12:=STKINDI('AA14','dmc.yy',0,(0 - 1));
AA13:=STKINDI('AA15','dmc.yy',0,(0 - 1));
AA14:=STKINDI('AA16','dmc.yy',0,(0 - 1));
AA15:=MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(VAR_PX2,VAR_INDI2),AA01),AA02),AA03),AA04),AA05),AA06),AA07),AA08),AA09),AA10),AA11),AA12),AA13),AA14);
AA16:=MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(VAR_PX2,VAR_INDI2),AA01),AA02),AA03),AA04),AA05),AA06),AA07),AA08),AA09),AA10),AA11),AA12),AA13),AA14);
领涨通道1:=IF((VAR_PX2 = AA15),'AA01',IF((VAR_INDI2 = AA15),'AA02',IF((AA01 = AA15),'AA03',IF((AA02 = AA15),'AA04',IF((AA03 = AA15),'AA05',IF((AA04 = AA15),'AA06',IF((AA05 = AA15),'AA07',IF((AA06 = AA15),'AA08',IF((AA07 = AA15),'AA09',IF((AA08 = AA15),'AA10',IF((AA09 = AA15),'AA11',IF((AA10 = AA15),'AA12',IF((AA11 = AA15),'AA13',IF((AA12 = AA15),'AA14',IF((AA13 = AA15),'AA15','AA16')))))))))))))));
DRAWTEXT((VAR_PX2 = AA15),15,'超强\n大盘'),color97BE4;
DRAWTEXT((VAR_PX2 = AA16),(0 - 10),'超强\n大盘'),colorFF00;
DRAWTEXT((VAR_INDI2 = AA15),15,'超强\n小盘'),color97BE4;
DRAWTEXT((VAR_INDI2 = AA16),(0 - 10),'超强\n小盘'),colorFF00;
DRAWTEXT((AA01 = AA15),15,'超强\n中盘'),color87AE3;
DRAWTEXT((AA01 = AA16),(0 - 10),'超强\n中盘'),colorFF00;
DRAWTEXT((AA02 = AA15),15,'极弱\n大盘'),color97BE4;
DRAWTEXT((AA02 = AA16),(0 - 10),'极弱\n大盘'),colorFF00;
DRAWTEXT((AA03 = AA15),15,'极弱\n小盘'),color97BE4;
DRAWTEXT((AA03 = AA16),(0 - 10),'极弱\n小盘'),colorFF00;
DRAWTEXT((AA04 = AA15),15,'极弱\n中盘'),color97BE4;
DRAWTEXT((AA04 = AA16),(0 - 10),'极弱\n中盘'),colorFF00;
DRAWTEXT((AA05 = AA15),15,'强势\n大盘'),color97BE4;
DRAWTEXT((AA05 = AA16),(0 - 10),'强势\n大盘'),colorFF00;
DRAWTEXT((AA06 = AA15),15,'强势\n小盘'),color97BE4;
DRAWTEXT((AA06 = AA16),(0 - 10),'强势\n小盘'),colorFF00;
DRAWTEXT((AA07 = AA15),15,'强势\n中盘'),color97BE4;
DRAWTEXT((AA07 = AA16),(0 - 10),'强势\n中盘'),colorFF00;
DRAWTEXT((AA08 = AA15),15,'弱势\n大盘'),color97BE4;
DRAWTEXT((AA08 = AA16),(0 - 10),'弱势\n大盘'),colorFF00;
DRAWTEXT((AA09 = AA15),15,'弱势\n小盘'),color97BE4;
DRAWTEXT((AA09 = AA16),(0 - 10),'弱势\n小盘'),colorFF00;
DRAWTEXT((AA10 = AA15),15,'弱势\n中盘'),color97BE4;
DRAWTEXT((AA10 = AA16),(0 - 10),'弱势\n中盘'),colorFF00;
DRAWTEXT((AA11 = AA15),15,'波金\n新股'),color97BE4;
DRAWTEXT((AA11 = AA16),(0 - 10),'波金\n新股'),colorFF00;
DRAWTEXT((AA12 = AA15),15,'波金\n龙头'),color97BE4;
DRAWTEXT((AA12 = AA16),(0 - 10),'波金\n龙头'),colorFF00;
DRAWTEXT((AA13 = AA15),15,'中小\n企业'),color97BE4;
DRAWTEXT((AA13 = AA16),(0 - 10),'中小\n企业'),colorFF00;
DRAWTEXT((AA14 = AA15),15,'上证\n50'),color97BE4;
