奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- iwlin请进，看看是不是你要的，文件大，短信发不 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=1774)

iwlin请进，看看是不是你要的，文件大，短信发不

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

回覆: iwlin请进，看看是不是你要的，文件大，短信发不

引用:

---

最初由 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)

---

__________________
shujenwen