 |
jiat
資深會員
註冊日期: Apr 2004
來 自:
文章數量: 119 |
|
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)
|
|
向版主報告此篇 |  |
|
2004-10-14 12:52 |
|
|
| |
|
p0068
資深會員
註冊日期: Jan 2004
來 自: 台中市
文章數量: 564 |
|
回覆: 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)
請問在5分線如何運用30分的kd?
3q3q3q!
__________________
shujenwen
|
|
向版主報告此篇 | |
|
|
2006-11-27 20:07 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|
