|
{公称名称: ☆ 板块资金流向.}
input:N(1,0,1); DRAWGBK(CLOSE,COLORRGB(5,2,0),COLORRGB(5,2,0),1); variable:WDAY[7]=0; BB:=(BARPOS = SYSPARAM(1)); WDAY[1]='星期日'; WDAY[2]='星期一'; WDAY[3]='星期二'; WDAY[4]='星期三'; WDAY[5]='星期四'; WDAY[6]='星期五'; FY:=YEAR; FM:=MONTH; FD:=DAY; WD:=WEEKDAY; P:=SYSPARAM(1); STR1:=((((((((NUMTOSTR(FY[P],0) + '年') + NUMTOSTR(FM[P],0)) + '月') + NUMTOSTR(FD[P],0)) + '日, ') + WDAY[(WD[P] + 1)]) + ' ') + ' ╭☆╯星.辰.狮.座╭☆╯ .瞄准庄家'); DRAWTEXT((BARPOS = SYSPARAM(2)),CLOSE,(' ' + STR1)),ALIGN4,color87FF; BK:='板块指数'; STKSUM:=STKCOUNT(BK); YYGS:='Y-ZJ.ZJLX'; WZ:=INTPART((((SYSPARAM(3) - SYSPARAM(2)) + 1) / 3)); WZ1:=((SYSPARAM(3) - WZ) = BARPOS); WZ2:=((SYSPARAM(3) - INTPART((WZ * 2.5))) = BARPOS); XX:=(BARPOS = SYSPARAM(1)); variable:DMSTR[0]=0; DCOUNT:=SYSPARAM(1); FOR K=1 to STKSUM DO DM:=STKFROMBLK(BK,K); DMSTR[K]=DM; TEMP1:=STKINDI(DM,YYGS,0,6); VAR_PX[K]=TEMP1[DCOUNT]; VAR_INDI[K]=TEMP1[DCOUNT]; VAR_PX1[K]=TEMP1[(DCOUNT - 1)]; VAR_INDI1[K]=TEMP1[(DCOUNT - 1)]; VAR_PX2[K]=TEMP1[(DCOUNT - 2)]; VAR_INDI2[K]=TEMP1[(DCOUNT - 2)]; NUM1:=SORTPOS(21,1,1,STKSUM); NUM2:=SORTPOS(23,1,1,STKSUM); NUM3:=SORTPOS(25,1,1,STKSUM); DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(' \n \n' + ' ≮当天资金流向后(-8)≯')),ALIGN4,colorFFFFFF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((' \n \n' + ' \n \n') + ' ') + ' 1. ') + STRRIGHT(DMSTR[VAR_INDI[STKSUM]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[STKSUM]]),8))),ALIGN4,colorFFFF00; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((' \n \n' + ' \n \n') + ' \n \n') + ' ') + ' 2. ') + STRRIGHT(DMSTR[VAR_INDI[(STKSUM - 1)]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 1)]]),8))),ALIGN4,colorFFFF00; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((((' \n \n' + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + ' 3. ') + STRRIGHT(DMSTR[VAR_INDI[(STKSUM - 2)]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 2)]]),8))),ALIGN4,colorFFFF00; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((' \n \n' + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + ' 4. ') + STRRIGHT(DMSTR[VAR_INDI[(STKSUM - 3)]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 3)]]),8))),ALIGN4,colorFFFF00; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((((((' \n \n' + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + ' 5. ') + STRRIGHT(DMSTR[VAR_INDI[(STKSUM - 4)]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 4)]]),8))),ALIGN4,colorFFFF00; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((((' \n \n' + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + ' 6. ') + STRRIGHT(DMSTR[VAR_INDI[(STKSUM - 5)]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 5)]]),8))),ALIGN4,colorFFFFCC; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((((((((' \n \n' + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + ' 7. ') + STRRIGHT(DMSTR[VAR_INDI[(STKSUM - 6)]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 6)]]),8))),ALIGN4,colorFFFFCC; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((((((' \n \n' + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + ' 8. ') + STRRIGHT(DMSTR[VAR_INDI[(STKSUM - 7)]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 7)]]),8))),ALIGN4,colorFFFFCC; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(' \n \n' + ' ≮当天资金流向前(+8)≯')),ALIGN4,colorFF00FF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((' \n \n' + ' \n \n') + ' ') + '1. ') + STRRIGHT(DMSTR[VAR_INDI[1]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[1]]),8))),ALIGN4,colorFF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((' \n \n' + ' \n \n') + ' \n \n') + ' ') + '2. ') + STRRIGHT(DMSTR[VAR_INDI[2]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[2]]),8))),ALIGN4,colorFF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((((' \n \n' + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + '3. ') + STRRIGHT(DMSTR[VAR_INDI[3]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[3]]),8))),ALIGN4,colorFF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((' \n \n' + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + '4. ') + STRRIGHT(DMSTR[VAR_INDI[4]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[4]]),8))),ALIGN4,colorFF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((((((' \n \n' + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + '5. ') + STRRIGHT(DMSTR[VAR_INDI[5]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[5]]),8))),ALIGN4,colorFF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((((' \n \n' + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + '6. ') + STRRIGHT(DMSTR[VAR_INDI[6]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[6]]),8))),ALIGN4,colorFFFF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((((((((' \n \n' + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + '7. ') + STRRIGHT(DMSTR[VAR_INDI[7]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[7]]),8))),ALIGN4,colorFFFF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((((((' \n \n' + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + '8. ') + STRRIGHT(DMSTR[VAR_INDI[8]],3)) + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[8]]),8))),ALIGN4,colorFFFF; BK:='板块指数'; STKSUM:=STKCOUNT(BK); YYGS:='Y-ZH.yzdf'; WZ:=INTPART((((SYSPARAM(3) - SYSPARAM(2)) + 1) / 3)); WZ1:=((SYSPARAM(3) - WZ) = BARPOS); WZ2:=((SYSPARAM(3) - INTPART((WZ * 2.5))) = BARPOS); XX:=(BARPOS = SYSPARAM(1)); variable:DMSTR[0]=0; DCOUNT:=SYSPARAM(1); IF (N < 1) THEN FOR K=1 to STKSUM DO DM:=STKFROMBLK(BK,K); DMSTR[K]=DM; TEMP1:=STKINDI(DM,YYGS,0,6); VAR_PX[K]=TEMP1[DCOUNT]; VAR_INDI[K]=TEMP1[DCOUNT]; VAR_PX1[K]=TEMP1[(DCOUNT - 1)]; VAR_INDI1[K]=TEMP1[(DCOUNT - 1)]; VAR_PX2[K]=TEMP1[(DCOUNT - 2)]; VAR_INDI2[K]=TEMP1[(DCOUNT - 2)]; NUM1:=SORTPOS(21,1,1,STKSUM); NUM2:=SORTPOS(23,1,1,STKSUM); NUM3:=SORTPOS(25,1,1,STKSUM); EXPLAIN(XX,'Today-领涨板块 ( % )'),colorFF00FF; EXPLAINEX(XX,(((('1.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[1]])) + '') + ' '),VAR_PX[VAR_INDI[1]],2,0),color87FF; EXPLAINEX(XX,(((('2.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[2]])) + '') + ' '),VAR_PX[VAR_INDI[2]],2,0),color87FF; EXPLAINEX(XX,(((('3.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[3]])) + '') + ' '),VAR_PX[VAR_INDI[3]],2,0),color87FF; EXPLAINEX(XX,(((('4.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[4]])) + '') + ' '),VAR_PX[VAR_INDI[4]],2,0),color87FF; EXPLAINEX(XX,(((('5.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[5]])) + '') + ' '),VAR_PX[VAR_INDI[5]],2,0),color87FF; EXPLAINEX(XX,(((('6.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[6]])) + '') + ' '),VAR_PX[VAR_INDI[6]],2,0),color87FF; EXPLAINEX(XX,(((('7.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[7]])) + '') + ' '),VAR_PX[VAR_INDI[7]],2,0),color87FF; EXPLAINEX(XX,(((('8.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[8]])) + '') + ' '),VAR_PX[VAR_INDI[8]],2,1),color87FF; EXPLAIN(XX,'Today-领跌板块 ( % )'),colorFFFFFF; EXPLAINEX(XX,(((('1.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[STKSUM]])) + '') + ' '),VAR_PX[VAR_INDI[STKSUM]],2,0),colorFFFF00; EXPLAINEX(XX,(((('2.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 1)]])) + '') + ' '),VAR_PX[VAR_INDI[(STKSUM - 1)]],2,0),colorFFFF00; EXPLAINEX(XX,(((('3.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 2)]])) + '') + ' '),VAR_PX[VAR_INDI[(STKSUM - 2)]],2,0),colorFFFF00; EXPLAINEX(XX,(((('4.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 3)]])) + '') + ' '),VAR_PX[VAR_INDI[(STKSUM - 3)]],2,0),colorFFFF00; EXPLAINEX(XX,(((('5.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 4)]])) + '') + ' '),VAR_PX[VAR_INDI[(STKSUM - 4)]],2,0),colorFFFF00; EXPLAINEX(XX,(((('6.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 5)]])) + '') + ' '),VAR_PX[VAR_INDI[(STKSUM - 5)]],2,0),colorFFFF00; EXPLAINEX(XX,(((('7.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 6)]])) + '') + ' '),VAR_PX[VAR_INDI[(STKSUM - 6)]],2,0),colorFFFF00; EXPLAINEX(XX,(((('8.' + ' ') + STKNAMEEX(DMSTR[VAR_INDI[(STKSUM - 7)]])) + '') + ' '),VAR_PX[VAR_INDI[(STKSUM - 7)]],2,0),colorFFFF00; BK:='板块指数'; STKSUM:=STKCOUNT(BK); YYGS:='Y-ZJ.流向涨幅％'; WZ:=INTPART((((SYSPARAM(3) - SYSPARAM(2)) + 1) / 3)); WZ1:=((SYSPARAM(3) - WZ) = BARPOS); WZ2:=((SYSPARAM(3) - INTPART((WZ * 2.5))) = BARPOS); XX:=(BARPOS = SYSPARAM(1)); variable:DMSTR[0]=0; DCOUNT:=SYSPARAM(1); IF (N < 1) THEN FOR K=1 to STKSUM DO DM:=STKFROMBLK(BK,K); DMSTR[K]=DM; TEMP1:=STKINDI(DM,YYGS,0,6); VAR_PX[K]=TEMP1[DCOUNT]; VAR_INDI[K]=TEMP1[DCOUNT]; VAR_PX1[K]=TEMP1[(DCOUNT - 1)]; VAR_INDI1[K]=TEMP1[(DCOUNT - 1)]; VAR_PX2[K]=TEMP1[(DCOUNT - 2)]; VAR_INDI2[K]=TEMP1[(DCOUNT - 2)]; NUM1:=SORTPOS(21,1,1,STKSUM); NUM2:=SORTPOS(23,1,1,STKSUM); NUM3:=SORTPOS(25,1,1,STKSUM); DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(('\n \n' + '\n \n') + ' =当天流向涨幅前(+8)=')),ALIGN4,colorFFFF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((('\n \n' + '\n \n') + ' \n \n') + ' ') + ' 1. ') + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[1]]),8)) + ' ') + NUMTOSTR(VAR_PX[VAR_INDI[1]],2)) + ' ') + '%')),ALIGN4,color87FF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((((((('\n \n' + '\n \n') + ' \n \n') + ' \n \n') + ' ') + ' 2. ') + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[2]]),8)) + ' ') + NUMTOSTR(VAR_PX[VAR_INDI[2]],2)) + ' ') + '%')),ALIGN4,color87FF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((((('\n \n' + '\n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + ' 3. ') + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[3]]),8)) + ' ') + NUMTOSTR(VAR_PX[VAR_INDI[3]],2)) + ' ') + '%')),ALIGN4,color87FF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((((((((('\n \n' + '\n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + ' 4. ') + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[4]]),8)) + ' ') + NUMTOSTR(VAR_PX[VAR_INDI[4]],2)) + ' ') + '%')),ALIGN4,color87FF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((((((('\n \n' + '\n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + ' 5. ') + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[5]]),8)) + ' ') + NUMTOSTR(VAR_PX[VAR_INDI[5]],2)) + ' ') + '%')),ALIGN4,color87FF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((((((((('\n \n' + '\n \n') + '\n \n') + '\n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + ' 6. ') + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[6]]),8)) + ' ') + NUMTOSTR(VAR_PX[VAR_INDI[6]],2)) + ' ') + '%')),ALIGN4,color87FF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((((((((((('\n \n' + '\n \n') + '\n \n') + '\n \n') + '\n \n') + '\n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + ' 7. ') + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[7]]),8)) + ' ') + NUMTOSTR(VAR_PX[VAR_INDI[7]],2)) + ' ') + '%')),ALIGN4,color87FF; DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((((((((((((('\n \n' + '\n \n') + '\n \n') + '\n \n') + '\n \n') + '\n \n') + '\n \n') + '\n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' \n \n') + ' ') + ' 8. ') + ' ') + STRLEFT(STKNAMEEX(DMSTR[VAR_INDI[8]]),8)) + ' ') + NUMTOSTR(VAR_PX[VAR_INDI[8]],2)) + ' ') + '%')),ALIGN4,color87FF; |
|
|
