魔方最少还原步数方法:波段之父板块雷达公式原码 - 指标公式 - 波段是金 股票论坛 波段操盘王|主力密道线|波...

波段之父板块雷达公式原码本帖隐藏的内容需要回复才可以浏览
{公称名称: 板块雷达}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   DODMSTR:=((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   DODMMSTR:=((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   DODM:=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   DONUM2:=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   DODM:=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   DONUM2:=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;DRAWTEXT((AA14 = AA16),(0 - 10),'上证\n50'),colorFF00;
复制代码
{本文来源：波金论坛 http://jsxgw.5d6d.com/bbs.php}