奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 請教這公式少ㄌ什麼引導公式 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=7671)

請教這公式少ㄌ什麼引導公式

圖示(因為不會貼圖)

http://www.chiefox.com.tw/bbs/showt...15&pagenumber=1


好像少ㄌ引導公式
做不出來kd(周)請敎
WEEKC := "周K.收";
WEEKH := "周K.高";
WEEKL := "周K.低";

周RSV := (WEEKC-LLV(WEEKL,N))/(HHV(WEEKH,N)-LLV(WEEKL,N))*100;
周K : SMA(周RSV,M1,1),COLORYELLOW;
周D : SMA(周K,M2,1),COLORYELLOW;
{J : 3*K-2*D;}
做不出來kd(周)請敎

好像少ㄌ引導公式
做不出來kd(月)請敎
MONC := "月K.收";
MONH := "月K.高";
MONL := "月K.低";

月RSV := (MONC-LLV(MONL,N))/(HHV(MONH,N)-LLV(MONL,N))*100;
月K : SMA(月RSV,M1,1),COLORRED;
月D : SMA(月K,M2,1),COLORRED;
{J : 3*K-2*D;}

DD:=DATEDIFF(700104,DATE)/1;
WW:=INTPART(DD);

NEWW := IF(WW>REF(WW,1),1,0);
WEEKC := C;
WEEKH := H;
WEEKL := L;
CC := C;
HH := H;
LL := L;
<%

NW = FFL.VarData( "NEWW" )

CL = FFL.VarData("CC")
HI = FFL.VarData("HH")
LO = FFL.VarData("LL")
WC = FFL.VarData( "WEEKC" )
WH = FFL.VarData( "WEEKH" )
WL = FFL.VarData( "WEEKL" )

LASTVAR=UBOUND(CL)
J = 0 '记周K线个数
TEMPH=HI(0)
TEMPL=LO(0)

FOR I = 0 TO LASTVAR
'确定周最低价、最高价
IF NW(I) = 0 THEN
IF HI(I) > TEMPH THEN
TEMPH = HI(I)
END IF
IF LO(I) < TEMPL THEN
TEMPL = LO(I)
END IF
END IF

'确定周收盘价
IF ( NW(I) = 1 ) AND ( I > 0 ) Then '每周第一天时
WC(J) = CL(I-1) '取前一天收盘价,则为上周收盘价
WH(J) = TEMPH
WL(J) = TEMPL
J = J + 1 '周K线数加1
TEMPH = HI(I)
TEMPL = LO(I)
END IF
NEXT

FOR I = J TO LASTVAR
WC(I) = 0
WH(I) = 0
WL(I) = 0
NEXT

FOR I = 0 TO J-1 ' 周K线数量比日线数据少,把数据从前面移到后面
WC(LASTVAR-J+I+1) = WC(I)
WC(I)=0
WH(LASTVAR-J+I+1) = WH(I)
WH(I)=0
WL(LASTVAR-J+I+1) = WL(I)
WL(I)=0
NEXT

FFL.VarStartIndex("WEEKC")=LASTVAR-J
FFL.VarStartIndex("WEEKH")=LASTVAR-J
FFL.VarStartIndex("WEEKL")=LASTVAR-J
FFL.VarData("WEEKC")=WC
FFL.VarData("WEEKH")=WH
FFL.VarData("WEEKL")=WL
%>
RSV:=(WEEKC-LLV(WEEKL,N))/(HHV(WEEKH,N)-LLV(WEEKL,N))*100;
K:SMA(RSV,M1,1);
D:SMA(K,M2,1)

__________________
E-Trader World 交易世界、
Plurk、
Facebook、
Twitter
(EQ:情緒智商) & (HD:習慣領域)才是主導成功交易的重要關鍵。
「存於一個人自身的真相非常簡單，然而人們卻總是追求深奧的真理。」，金融交易亦是如此。