奇狐社區論壇 (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=1750)

快刀手总版请进

看看这个日周月KD

看不到圖

我看不到圖,不知您是不是要把日周月kd作成同一圖並轉到主圖上去作成一組一組區塊

引用:

---

最初由 jiat 發表
看看这个日周月KD

---

看了圖

您的副圖2中看來只有繪日周月的一個K值並沒有繪出他的D值，因設計者他的操作我想他會引用前一周的數值應該有他的判定價值，了解他的思路，比較重要，繪日周月的方式我己寄出給您了，至於您的副圖2因為我不了解他的思路所以也沒有任何的想法可以提供，我想如果您有了思路，可以貼在論壇上，會比較快得到答案，因為修一棟別人造的的房子比自己再造一棟新的還累，修古蹟不就是如此嗎？

請問

快刀手總版主大大:你好!
在日線中去調用,週月的KD-k值,請問如何把他平滑化?
~謝謝~

我也在想如何做

我也在想要如何去平滑它， 因為當他是一週的K值引用在日線上，當然同一周的交易週期會是同一個價位並沒有所謂平滑的問題，如果真的要去平滑它那經過您人為處理過的值就和本意不同了，但如果真的要作到平順您可以思考一下在分筆下記錄所有日周月的走勢路徑，到時才可能會是比較真的值。

那上圖中的副圖2如何做到?

快刀手兄,不要被指標的名稱日周月三個字混淆了,問題不在引用周期,這公式完全是由日線數據計算出來的.
END端只看表像不知原碼所以被誤導很久囉

二位大大抱歉我也是由日線數據計算出來的
我以為大大有更好的方法933不變謝謝二位大大
不過下面的圖是如何作到

1.先确定已导入公式"周K"及"月K"
2.由于使用了"周K"及"月K",会有使用未到数据的问题.
3.如需在分钟线中使用,参照"周K","月K",改动一下日KD部分就可.


日RSV := (CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
日K : SMA(日RSV,M1,1),COLORGREEN;
日D : SMA(日K,M2,1),COLORGREEN;
{J : 3*K-2*D}

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;}

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;}

下面的公式是被上面的公式调用的，送给快刀手总版以及全部的社区的朋友，愿社区越来越红火

感謝 !jiat大大的分享.....

感謝分享

感謝jiat大大無私分享；一弟虛心學習再度感謝

在分钟线下用的日线kdj
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)

引用N倍周期K线.

引用N倍周期K线.