某些人就像偷窥别人洗澡一样
非要想尽办法破解开......板块资金流向公式
现在你看到啦.....你满足了欲望啦...
对你有用吗？
我倒要看看你能优化到什么程度！
我在这里恭候你---优化后的杰作！
有那功夫多研究研究实战
别整天老想着偷窥别人的公式...那没用！ 知道吗！
第一次公开我的龙宝宝...........600125
你不是很能吗
拿出比600125高的收益来
600125
首次买入日 2007-01-29
.........到现在的收益
{公称名称: ☆ 板块资金流向.}
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;
[ 本帖最后由 瞄准庄家 于 2007-4-13 22:51 编辑 ]
