编程思路破译N1赋值:10 N2赋值:3 N3赋值:6 LXG入赋值:(BIGORDER(1,2)-BIGORDER(2,2))*成交额(元)的5日累和/成交额(元)的5日累和>0.05 LXG出赋值:(BIGORDER(1,2)-BIGORDER(2,2))*成交额(元)的5日累和/成交额(元)的5日累和<-0.05 输出当日成交:成交额(元)*LXG入/10000-成交额(元)*LXG出/10000,画红色,线宽为0 HS赋值:成交量(手)/当前流通股本(手) DD赋值:(LXG入-LXG出) DT赋值:HS*DD*100 输出当日增减度:DT,画绿色,线宽为0 LXG入1赋值:(BIGORDER(1,2)-BIGORDER(2,2))*成交额(元)的5日累和/成交额(元)的5日累和>0.03 LXG出1赋值:(BIGORDER(1,2)-BIGORDER(2,2))*成交额(元)的5日累和/成交额(元)的5日累和<-0.03 输出当日成交1:成交额(元)*LXG入1/10000-成交额(元)*LXG出1/10000,画黄色,线宽为0 当满足条件当日成交1>0时,在0和当日成交1位置之间画柱状线,宽度为4,0不为0则画空心柱.,画黄色 当满足条件当日成交1<0时,在当日成交1和0位置之间画柱状线,宽度为4,0不为0则画空心柱.,画蓝色 当满足条件当日成交>0时,在0和当日成交位置之间画柱状线,宽度为4,0不为0则画空心柱.,画红色 当满足条件当日成交<0时,在当日成交和0位置之间画柱状线,宽度为4,0不为0则画空心柱.,画绿色 DD1赋值:(LXG入1-LXG出1) DT1赋值:HS*DD1*100 输出当日增减度1:DT1,画蓝色,线宽为0 当日成交1赋值:(DT1*当前流通股本(手))*均价/10000 买入手数1赋值:(当前流通股本(手)*DT1)/100 THENBEGINSTR11赋值:'主力净买入:'+NUMTOSTRN(当日成交1,3)+'万元,' STR22赋值: '净买入:'+ NUMTOSTRN(买入手数1,0)+'手,' STR33赋值: '当日增减度1:' + NUMTOSTRN(DT1,3) END THENBEGINSTR11赋值:'主力净卖出:'+ NUMTOSTRN(当日成交1,3)+'万元,' STR22赋值:'净卖出:'+NUMTOSTRN(买入手数1,0)+'手,' STR33赋值:'当日增减度1:'+NUMTOSTRN(DT1,3) END DRAWFLAGTEXT(DT1>=0,当日成交1,STR11+STR22+STR33),画黄色 DRAWFLAGTEXT(DT1<0,当日成交1,STR11+STR22+STR33),画蓝色 QJJ赋值:(成交量(手)/(((最高价-最低价)*2)-(收盘价-开盘价)的绝对值)) XVL赋值:(如果(收阳线),返回(QJJ*(最高价-最低价)),否则返回如果(收阴线),返回(QJJ*((最高价-开盘价)+(收盘价-最低价))),否则返回(成交量(手)/2)+如果(收阳线),返回(0-(QJJ*((最高价-收盘价)+(开盘价-最低价)))),否则返回如果(收阴线),返回(0-(QJJ*(最高价-最低价))),否则返回(0-(成交量(手)/2))) HSL赋值:((XVL/40)/1.15) 主买赋值:HSL的N1日累和 主卖赋值:主买的N3日指数移动平均 输出量柱:主买-主卖,画白色,线宽为1 当满足条件(主买>=主卖)时,在主买和主卖位置之间画柱状线,宽度为8,1不为0则画空心柱.,COLORFF00FF,线宽为2 当满足条件(主买<主卖)时,在主买和主卖位置之间画柱状线,宽度为8,1不为0则画空心柱.,COLORFFFF00,线宽为2 MACD2赋值:(收盘价的30日指数移动平均-1日前的收盘价的30日指数移动平均)/1日前的收盘价的30日指数移动平均*100 DIFF2赋值:MACD2的2日累和的5日指数移动平均 DEA2赋值:DIFF2的5日简单移动平均 MA1赋值:收盘价的5日简单移动平均 MA2赋值:收盘价的10日简单移动平均 MA3赋值:收盘价的20日简单移动平均 一穿三赋值:MA1>开盘价 AND MA2>开盘价 AND MA3>开盘价 AND MA1<收盘价 AND MA2<收盘价 AND MA3<收盘价 AND 收阳线 当满足条件量柱上穿0ANDCOUNT(当日成交1=0,5)=5ANDCOUNT(收盘价<1日前的收盘价,5)>=4时,在0+2位置画1号图标,ALIGN1 当满足条件(量柱上穿0OR(量柱>0AND量柱>1日前的量柱))ANDREF(统计7日中满足当日成交1<0的天数=7,1)AND当日成交1=0时,在0+2位置画9号图标,ALIGN1 当满足条件(1日前的统计5日中满足当日成交1=0的天数=5AND当日成交1<0AND((1日前的主买>=主卖)OR(主买>=主卖)))OR(量柱上穿0ANDREF(统计10日中满足当日成交1=0的天数=10,1)AND当日成交1<0)OR(?日前的量柱时,在0,1)AND量柱>0ANDDIFF2<0ANDREF(DIFF2,1)>2日前的DIFF2ANDDIFF2>1日前的DIFF2AND当日成交1<0ANDREF(当日成交1=0,1))位置画0+2号图标,ALIGN1 当满足条件((1日前的MACD2<0ANDMACD2>0)OR(DIFF2上穿DEA2)OR(1日前的DIFF2上穿DEA2))AND当日成交1>0时,在0+2位置画7号图标,ALIGN1 当满足条件(当日成交1>0AND一穿三)OR(量柱上穿0ANDREF(统计5日中满足当日成交1=0的天数=5,1)AND一穿三)时,在0+2位置画7号图标,ALIGN1 当满足条件(量柱上穿0OR(量柱>0AND量柱>1日前的量柱ANDMACD2>0ANDMACD2<0.33))AND当日成交1>0ANDMACD2>0ANDMACD2<0.6时,在0+2位置画7号图标,ALIGN1 当满足条件量柱上穿0ANDREF(当日成交1=0,1)AND当日成交1<0时,在0+2位置画11号图标,ALIGN1 当满足条件(0上穿量柱OR(量柱<1日前的量柱ANDC>=1日前的收盘价))AND((统计3日中满足当日成交>0的天数>=1)OR(统计3日中满足当日成交1>0的天数>=1))时,在0+2位置画8号图标,ALIGN1 0,DOTLINE,画红色 程序源码 N1:=10;N2:=3;N3:=6; LXG入:=SUM((BIGORDER(1,2)-BIGORDER(2,2))*AMOUNT,5)/SUM(AMOUNT,5)>0.05; LXG出:=SUM((BIGORDER(1,2)-BIGORDER(2,2))*AMOUNT,5)/SUM(AMOUNT,5)<-0.05; 当日成交:AMOUNT*LXG入/10000-AMOUNT*LXG出/10000,COLORRED,LINETHICK0; HS:=VOL/CAPITAL; DD:=(LXG入-LXG出); DT:=HS*DD*100; 当日增减度:DT,COLORGREEN,LINETHICK0; LXG入1:=SUM((BIGORDER(1,2)-BIGORDER(2,2))*AMOUNT,5)/SUM(AMOUNT,5)>0.03; LXG出1:=SUM((BIGORDER(1,2)-BIGORDER(2,2))*AMOUNT,5)/SUM(AMOUNT,5)<-0.03; 当日成交1:AMOUNT*LXG入1/10000-AMOUNT*LXG出1/10000,COLORYELLOW,LINETHICK0; STICKLINE(当日成交1>0,0,当日成交1,4,0),COLORYELLOW; STICKLINE(当日成交1<0,当日成交1,0,4,0),COLORBLUE; STICKLINE(当日成交>0,0,当日成交,4,0),COLORRED; {红柱} STICKLINE(当日成交<0,当日成交,0,4,0),COLORGREEN; {绿柱} DD1:=(LXG入1-LXG出1); DT1:=HS*DD1*100; 当日增减度1:DT1,COLORBLUE,LINETHICK0; 当日成交1:=(DT1*CAPITAL)*DYNAINFO(11)/10000; 买入手数1:=(CAPITAL*DT1)/100; IF (当日成交1>=0)THEN BEGIN STR11:='主力净买入:'+NUMTOSTRN(当日成交1,3)+'万元,'; STR22:= '净买入:'+ NUMTOSTRN(买入手数1,0)+'手,'; STR33:= '当日增减度1:' + NUMTOSTRN(DT1,3); END; IF 当日成交1<0 THEN BEGIN STR11:='主力净卖出:'+ NUMTOSTRN(当日成交1,3)+'万元,'; STR22:='净卖出:'+NUMTOSTRN(买入手数1,0)+'手,'; STR33:='当日增减度1:'+NUMTOSTRN(DT1,3); END; DRAWFLAGTEXT(DT1>=0,当日成交1,STR11+STR22+STR33),COLORYELLOW; DRAWFLAGTEXT(DT1<0,当日成交1,STR11+STR22+STR33),COLORBLUE; QJJ:=(VOL/(((HIGH-LOW)*2)-ABS((CLOSE-OPEN)))); XVL:=(IF((CLOSE>OPEN),(QJJ*(HIGH-LOW)),IF((CLOSE<OPEN),(QJJ*((HIGH-OPEN)+(CLOSE-LOW))),(VOL/2)))+IF((CLOSE>OPEN),(0-(QJJ*((HIGH-CLOSE)+(OPEN-LOW)))),IF((CLOSE<OPEN),(0-(QJJ*(HIGH-LOW))),(0-(VOL/2))))); HSL:=((XVL/40)/1.15); 主买:=SUM(HSL,N1); 主卖:=EMA(主买,N3); 量柱:主买-主卖,COLORWHITE,LINETHICK1; STICKLINE((主买>=主卖),主买,主卖,8,1),COLORFF00FF,LINETHICK2; STICKLINE((主买<主卖),主买,主卖,8,1),COLORFFFF00,LINETHICK2; MACD2:=(EMA(CLOSE,30)-REF(EMA(CLOSE,30),1))/REF(EMA(CLOSE,30),1)*100; DIFF2:=EMA(SUM(MACD2,2),5); DEA2:=MA(DIFF2,5); MA1:=MA(CLOSE,5); MA2:=MA(CLOSE,10); MA3:=MA(CLOSE,20); 一穿三:=MA1>O AND MA2>O AND MA3>O AND MA1<C AND MA2<C AND MA3<C AND CLOSE>OPEN ; DRAWICON(CROSS( 量柱,0) AND COUNT(当日成交1=0,5)=5 AND COUNT(C<REF(C,1),5)>=4,0+2,1),ALIGN1; DRAWICON((CROSS( 量柱,0) OR (量柱>0 AND 量柱>REF(量柱,1))) AND REF(COUNT(当日成交1<0,7)=7,1) AND 当日成交1=0,0+2,9),ALIGN1; DRAWICON((REF(COUNT(当日成交1=0,5)=5,1) AND 当日成交1<0 AND ((REF(主买>=主卖,1)) OR (主买>=主卖))) OR (CROSS( 量柱,0) AND REF(COUNT(当日成交1=0,10)=10,1) AND 当日成交1<0) OR (REF(量柱>0,1) AND 量柱>0 AND DIFF2<0 AND REF(DIFF2,1)>REF(DIFF2,2) AND DIFF2>REF(DIFF2,1) AND 当日成交1<0 AND REF(当日成交1=0,1)),0+2,5),ALIGN1; DRAWICON(((REF(MACD2<0,1) AND MACD2>0) OR (CROSS(DIFF2,DEA2)) OR (REF(CROSS(DIFF2,DEA2),1))) AND 当日成交1>0,0+2,7),ALIGN1; DRAWICON((当日成交1>0 AND 一穿三) OR (CROSS( 量柱,0) AND REF(COUNT(当日成交1=0,5)=5,1) AND 一穿三),0+2,7),ALIGN1; DRAWICON((CROSS( 量柱,0) OR (量柱>0 AND 量柱>REF(量柱,1) AND MACD2>0 AND MACD2<0.33)) AND 当日成交1>0 AND MACD2>0 AND MACD2<0.6,0+2,7),ALIGN1; DRAWICON(CROSS( 量柱,0) AND REF(当日成交1=0,1) AND 当日成交1<0,0+2,11),ALIGN1; DRAWICON((CROSS( 0,量柱) OR (量柱<REF(量柱,1) AND C>=REF(C,1))) AND ((COUNT(当日成交>0,3)>=1) OR (COUNT(当日成交1>0,3)>=1)),0+2,8),ALIGN1; 0,DOTLINE,COLORRED; 该公式包含未来函数:CAPITAL |
|