|
如何在條件選股J值由上往下及由下往上來作選股功能
請教版主大大:
如何在組合條件上設定條件選股J值由上往下(紅變綠)及由下往上(綠變紅)來作選股功能.要加入何語法....謝謝......
{Stochastic Indicator KDJ Line , KDJ , 隨機指標KDJ}
RSV:=(收盤價-最低值(最低價,N))/(最高值(最高價,N)-最低值(最低價,N))*100;
K:移動平均(RSV,M1,1),PRECISION0,COLORRED;
RW2:=REF(K,1);
DRAWICON(ISLASTBAR and K>K,K,8),shift1;//翻多
DRAWICON(ISLASTBAR and K<=K,K,9),shift1;//翻空
PARTLINE(K>REF(K,1),K),COLORRED,linethick1;//上漲以紅線表示//
PARTLINE(K<=REF(K,1),K),COLORWHITE,linethick1;//下跌以白線表示//
D:移動平均(K,M2,1),PRECISION0,COLORYELLOW;
J:3*K-2*D,PRECISION0,COLORYELLOW,COLOR0099FF;
RW2:=REF(J,1);
DRAWICON(ISLASTBAR and J>J,J,4),shift1;//翻多
DRAWICON(ISLASTBAR and J=J,J,10),shift1;//翻空
DRAWICON(ISLASTBAR and J<J,J,5),shift1;//翻空
PARTLINE(J>REF(J,1),J),COLORMAGENTA,linethick1;//上漲以紅線表示//
PARTLINE(J=REF(J,1),J),COLORYELLOW,linethick1;//下跌以白線表示//
PARTLINE(J<=REF(J,1),J),COLORGREEN,linethick1;//下跌以白線表示//
VERTLINE(cross(K,D)) linedot COLORRED;
VERTLINE(cross(D,K)) linedot COLORGREEN;
{Stochastic Indicator KDJ Line , KDJ , 隨機指標KDJ}
RSV:=(收盤價-最低值(最低價,N))/(最高值(最高價,N)-最低值(最低價,N))*100;
NHH:=最高值( 最高價 , N ) ;
NLL:=最低值( 最低價 , N ) ;
CC:=收盤價 ;
RSV:=( ( CC - NLL ) / ( NHH - NLL ) ) * 100 ;
JXA:=K-向前引用(K,1)>=0;
畫分段線(JXA=1,K),COLORRED;
{====================================================}
RR:=( ( CC - NLL ) / ( NHH - NLL ) ) * 100 ;
RK:=向前引用( K , 1 ) ;
RD:=向前引用( D , 1 ) ;
X:=( ( NHH - NLL ) * RK ) / 100 + NLL ;
Y:=( ( NHH - NLL ) * ( RD * M1 - RK * ( M1 - 1 ) ) ) / 100 + NLL ;
今關K:X , Linethick0 , ColorFFFF00 ,PRECISION0;
今關D:Y , Linethick0 , ColorFFFF00 ,PRECISION0;
AHH:=最高值( 向後引用(最高價,1) , N ) ;
BLL:=最低值( 向後引用(最低價,1) , N ) ;
KK:=移動平均( RSV , M1 , 1 ) ;
DD:=移動平均( K , M2 , 1 ) ;
<%
VHH=FFL.VarData("AHH")
VLL=FFL.VarData("BLL")
VKK=FFL.VarData("KK")
VDD=FFL.VarData("DD")
LT=UBound( VHH )
for m=0 to LT
VHH( m )=VHH( LT )
VLL( m )=VLL( LT )
VKK( m )=VKK( LT )
VDD( m )=VDD( LT )
next
FFL.VarData("AHH")=VHH
FFL.VarData("BLL")=VLL
FFL.VarData("KK")=VKK
FFL.VarData("DD")=VDD
%>
XX:=( ( AHH - BLL ) * KK ) / 100 + BLL ;
YY:=( ( AHH - BLL ) * ( DD * M1 - KK * ( M1 - 1 ) ) ) / 100 + BLL ;
估明關K:XX, Linethick0 , ColorFFFF00,PRECISION0 ;
估明關D:YY, Linethick0 , ColorFFFF00,PRECISION0;
DRAWTEXT(CROSS(K,D),D,'買') PXDN15 colorred;
DRAWTEXT(CROSS(D,K),k,'賣') PXUP30 colorgreen;
var1:="kdadv.kdadv"(9,3,3,1,0);
DRAWICON(var1=1,1,1),ALIGN5;
DRAWICON(var1=-1,1,2),ALIGN5;
PARTLINE(1,20) COLORCYAN;
PARTLINE(1,50) COLORWHITE;
PARTLINE(1,80) COLORRED;
__________________
小和
|
2011-03-10 06:24
