郎少
发表于 2010-4-20 11:31
DRAWTEXTABS(10,10,'主力趋势--'),COLORYELLOW,linethick2;<BR>DRAWTEXTABS(83,10,'紫色进场'),COLORFF00FF,linethick2;<BR>DRAWTEXTABS(140,10,'蓝色出局'),COLORFFFF00,linethick2;<BR>当日成交:amount*BIGORDER(1,2)/10000-amount*BIGORDER(2,2)/10000,colorWhite,linethick0;<BR>stickline(当日成交>0,0,当日成交,5,0),colorred;<BR>stickline(当日成交<0,当日成交,0,5,0),colorgreen;<BR>HS:=vol/capital;<BR>DD:=(BIGORDER(1,2)-BIGORDER(2,2));<BR>DT:=HS*DD*100;<BR>当日增减度:DT,linethick0;<BR>当日成交:=(DT*capital)*DYNAINFO(11)/10000;<BR>买入手数:=(capital*DT)/100;<BR>if (当日成交>=0)then <BR>begin<BR>Str1:='主力净买入：'+NUMTOSTRN(当日成交,3)+'万元,';<BR>Str2:= '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';<BR>Str3:= '当日增减度：' + NUMTOSTRN(DT,3);<BR>end;<BR>if 当日成交<0 then <BR>begin<BR>Str1:='主力净卖出：'+ NUMTOSTRN(当日成交,3)+'万元,';<BR>Str2:='净卖出：'+NUMTOSTRN(买入手数,0)+'手,';<BR>Str3:='当日增减度：'+NUMTOSTRN(DT,3);<BR>end;<BR>DRAWFLAGTEXT(DT>=0,当日成交,Str1+str2+str3),COLORRED;<BR>DRAWFLAGTEXT(DT<0,当日成交,Str1+str2+str3),COLORGREEN;<BR>QJJ:=(VOL/(((HIGH-LOW)*2)-ABS((CLOSE-OPEN))));<BR>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)))));<BR>HSL:=((XVL/40)/1.15);<BR>主买:=SUM(HSL,N1);<BR>主卖:=EMA(主买,N3);<BR>量柱:主买-主卖,colorWhite,linethick1;<BR>STICKLINE((主买>=主卖),主买,主卖,8,1),COLORFF00FF,LINETHICK2;STICKLINE((主买<主卖),主买,主卖,8,1),COLORFFFF00,LINETHICK2;<BR>DRAWICON(CROSS( 量柱,0)and
巴山
发表于 2010-4-20 12:41
<FIELDSET><LEGEND><B>郎少 </B>于 2010-4-20 11:31:30 在大作中提到</LEGEND>DRAWTEXTABS(10,10,'主力趋势--'),COLORYELLOW,linethick2;<BR>DRAWTEXTABS(83,10,'紫色进场'),COLORFF00FF,linethick2;<BR>DRAWTEXTABS(140,10,'蓝色出局'),COLORFFFF00,linethick2;<BR>当日成交:amount*BIGORDER(1,2)/10000-amount*BIGORDER(2,2)/10000,colorWhite,linethick0;<BR>stickline(当日成交>0,0,当日成交,5,0),colorred;<BR>stickline(当日成交<0,当日成交,0,5,0),colorgreen;<BR>HS:=vol/capital;<BR>DD:=(BIGORDER(1,2)-BIGORDER(2,2));<BR>DT:=HS*DD*100;<BR>当日增减度:DT,linethick0;<BR>当日成交:=(DT*capital)*DYNAINFO(11)/10000;<BR>买入手数:=(capital*DT)/100;<BR>if (当日成交>=0)then <BR>begin<BR>Str1:='主力净买入：'+NUMTOSTRN(当日成交,3)+'万元,';<BR>Str2:= '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';<BR>Str3:= '当日增减度：' + NUMTOSTRN(DT,3);<BR>end;<BR>if 当日成交<0 then <BR>begin<BR>Str1:='主力净卖出：'+ NUMTOSTRN(当日成交,3)+'万元,';<BR>Str2:='净卖出：'+NUMTOSTRN(买入手数,0)+'手,';<BR>Str3:='当日增减度：'+NUMTOSTRN(DT,3);<BR>end;<BR>DRAWFLAGTEXT(DT>=0,当日成交,Str1+str2+str3),COLORRED;<BR>DRAWFLAGTEXT(DT<0,当日成交,Str1+str2+str3),COLORGREEN;<BR>QJJ:=(VOL/(((HIGH-LOW)*2)-ABS((CLOSE-OPEN))));<BR>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)))));<BR>HSL:=((XVL/40)/1.15);<BR>主买:=SUM(HSL,N1);<BR>主卖:=EMA(主买,N3);<BR>量柱:主买-主卖,colorWhite,linethick1;<BR>STICKLINE((主买>=主卖),主买,主卖,8,1),COLORFF00FF,LINETHICK2;STICKLINE((主买<主卖),主买,主卖,8,1),COLORFFFF00,LINETHICK2;<BR>DRAWICON(CROSS( 量柱,0)an
财旺
发表于 2010-4-20 16:35
STICKLINE(T2,量1,量3,5,0),COL
页:
[1]