奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 應用交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=33)
-- 分享冰河 KD轉折價 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=2355)

分享冰河 KD轉折價

分享冰河 KD轉折價 + K線

{N=9 M1=3 M2=3}

StickLine( IsUp , CLOSE , HIGH , 0.1 , 0 ) , ColorRed ;
StickLine( IsUp , OPEN , LOW , 0.1 , 0 ) , ColorRed ;
StickLine( IsUp , CLOSE , OPEN , 8 , 1 ) , ColorRed ;
StickLine( IsDown , HIGH , LOW , 0.1 , 0 ) , Color009933 ;
StickLine( IsDown , CLOSE , OPEN , 8 , 0 ) , Color009933;
StickLine( IsEqual and C>=REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , ColorRed ;
StickLine( IsEqual and C>=REF( C , 1 ) , CLOSE , OPEN , 8 , 0 ) , ColorRed ;
StickLine( IsEqual and C<REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , Color009933;
StickLine( IsEqual and C<REF( C , 1 ) , CLOSE , OPEN , 8 , 0 ) , Color009933;
XXy:=Barscount( Close ) ; { 以下是描繪第一個交易日的K線 }
StickLine( ( IsUp or IsEqual ) and ( XXy = 1 ) , CLOSE , HIGH , 0.1 , 0 ) , ColorRed ;
StickLine( ( IsUp or IsEqual ) and ( XXy = 1 ) , CLOSE , LOW , 0.1 , 0 ) , ColorRed ;
StickLine( ( IsUp or IsEqual ) and ( XXy = 1 ) , CLOSE , OPEN , 8 , 1 ) , ColorRed ;
StickLine( IsDown and XXy = 1 , HIGH, LOW, 0.1, 0 ) , Colorgreen;
StickLine( IsDown and XXy = 1 , CLOSE , OPEN , 8 , 0 ) , Colorgreen ;

NHH:=HHV( HIGH , N ) ;
NLL:=LLV( LOW , N ) ;
CC:=CLOSE ;
RSV:=( ( CC - NLL ) / ( NHH - NLL ) ) * 100 ;
K:=SMA( RSV , M1 , 1 ) ;
D:=SMA( K , M2 , 1 ) ;
RR:=( ( CC - NLL ) / ( NHH - NLL ) ) * 100 ;
RK:=REF( K , 1 ) ;
RD:=REF( D , 1 ) ;
X:=( ( NHH - NLL ) * RK ) / 100 + NLL ;
Y:=( ( NHH - NLL ) * ( RD * M1 - RK * ( M1 - 1 ) ) ) / 100 + NLL ;
今關K:X , Linethick1 , ColorRED ;
今關D:Y , Linethick1 , ColorYELLOW ;
今關J:3*Y-2*X COLORFF9933;
NHL:=(NHH+NLL)/2 ;
PARTLINE(NHL,NHL) COLOR0088CC POINTDOT;
PARTLINE(X<Y,X) COLORGREEN;
{
AHH:=HHV( Refx(HIGH,1) , N ) ;
BLL:=LLV( Refx(LOW,1) , N ) ;
KK:=SMA( RSV , M1 , 1 ) ;
DD:=SMA( 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 ;
估明關D:YY, Linethick0 , ColorFFFF00 ;
}