奇狐社區論壇 - 如何取得某根K線的數據值？

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 如何取得某根K線的數據值？ (http://www.chiefox.com.tw/bbs/showthread.php?threadid=1622)

由 aswjc 在 2004-09-16 19:42 發表:

如何取得某根K線的數據值？

我想用指標參數來設定某根K線的序號，再用此參數值(K線序號值)來取得這根K線的數據值 (例如：CLOSE or DATE)。
可是，我不知道該怎麼寫？可不可以幫我一下，謝謝！

例如：1要取得從頭數來第500根K線的CLOSE值。
2要取得從頭數來第500根K線的日期值。

由 cgjj 在 2004-09-16 19:55 發表:

GetNo:=500;
UseCC:C;
UseDE:date;
<%
GetNo=FFL.VarData("GetNo")
UseCC=FFL.VarData("UseCC")
UseDE=FFL.VarData("UseDE")
StKNo=FFL.VarStartIndex("UseCC")
EndKNo=ubound(UseCC)
for i=StKNo to EndKNo
UseCC(i)=UseCC(GetNo-1)
UseDE(i)=UseDE(GetNo-1)
next
FFL.VarData("UseCC")=UseCC
FFL.VarData("UseDE")=UseDE
%>

由 aswjc 在 2004-09-16 20:43 發表:

cgjj 總版主：
我把它套上去測試，K線的部份卻看不到了！(垂直作標範圍很大)。

引用:
最初由 cgjj 發表
GetNo:=500;
UseCC:C;
UseDE:date;
<%
GetNo=FFL.VarData("GetNo")
UseCC=FFL.VarData("UseCC")
UseDE=FFL.VarData("UseDE")
StKNo=FFL.VarStartIndex("UseCC")
EndKNo=ubound(UseCC)
for i=StKNo to EndKNo
UseCC(i)=UseCC(GetNo-1)
UseDE(i)=UseDE(GetNo-1)
next
FFL.VarData("UseCC")=UseCC
FFL.VarData("UseDE")=UseDE
%>

由 yyyyyy 在 2004-09-16 21:02 發表:

回覆: 如何取得某根K線的數據值？

引用:
最初由 aswjc 發表
我想用指標參數來設定某根K線的序號，再用此參數值(K線序號值)來取得這根K線的數據值 (例如：CLOSE or DATE)。
可是，我不知道該怎麼寫？可不可以幫我一下，謝謝！

例如：1要取得從頭數來第500根K線的CLOSE值。
2要取得從頭數來第500根K線的日期值。

:( :(

這個程式不知奇狐能用否。
CC:=C;
DD:=DATE;
數據:CC[500];
年日:DD[500];

由 angler 在 2004-09-17 01:12 發表:

这〔　〕 在3.5版是视为普通文字，
可接受为变量的名称；
而在4.0版则是保留字，被内建为已被下定义了，不被接受为变量的名称．
这样就知道3.5版可不可用了．

如果是飞狐的用户，
会了解3.5版与4.0版有那些部份的不同，
某些潜水族就不太了解了．

总版主用的是VBScript语法，不管那一版狐狸，都会接受的．

由 cgjj 在 2004-09-17 01:45 發表:

引用:
最初由 aswjc 發表
cgjj 總版主：
我把它套上去測試，K線的部份卻看不到了！(垂直作標範圍很大)。

因為有繪出線, 所以當價位差距大時就會這樣

將這兩行
UseCC:C;
UseDE:date;

換為這兩行即可解決(不繪出線)
UseCC:C LINETHICK0;
UseDE:date LINETHICK0;

由 aswjc 在 2004-09-18 15:10 發表:

test OK!
謝謝，cgjj 總版主及兩位大大！

引用:
最初由 cgjj 發表
因為有繪出線, 所以當價位差距大時就會這樣

將這兩行
UseCC:C;
UseDE:date;

換為這兩行即可解決(不繪出線)
UseCC:C LINETHICK0;
UseDE:date LINETHICK0;

由 fox1688 在 2004-09-20 09:59 發表:

若已知 K 線主圖上 , 當頁 K 棒起始序號 SYSPARAM(2) ,
K 棒終止序號 SYSPARAM(3) , 請問如何利用上面公式改寫 ?

敬請 cgii 總版主幫忙 ! (因不熟悉 VB 語言)

由 cgjj 在 2004-09-20 10:23 發表:

引用:
最初由 fox1688 發表
若已知 K 線主圖上 , 當頁 K 棒起始序號 SYSPARAM(2) ,
K 棒終止序號 SYSPARAM(3) , 請問如何利用上面公式改寫 ?

敬請 cgii 總版主幫忙 ! (因不熟悉 VB 語言)

GetNo1:=SYSPARAM(2);
GetNo2:=SYSPARAM(3);
UseCC1:C LINETHICK0;
UseDE1:date LINETHICK0;
UseCC2:C LINETHICK0;
UseDE2:date LINETHICK0;
<%
GetNo1=FFL.VarData("GetNo1")
UseCC1=FFL.VarData("UseCC1")
UseDE1=FFL.VarData("UseDE1")
GetNo2=FFL.VarData("GetNo2")
UseCC2=FFL.VarData("UseCC2")
UseDE2=FFL.VarData("UseDE2")
StKNo=FFL.VarStartIndex("UseCC1")
EndKNo=ubound(UseCC1)
for i=StKNo to EndKNo
UseCC1(i)=UseCC1(GetNo1-1)
UseDE1(i)=UseDE1(GetNo1-1)
UseCC2(i)=UseCC2(GetNo2-1)
UseDE2(i)=UseDE2(GetNo2-1)
next
FFL.VarData("UseCC1")=UseCC1
FFL.VarData("UseDE1")=UseDE1
FFL.VarData("UseCC2")=UseCC2
FFL.VarData("UseDE2")=UseDE2
%>

由 fox1688 在 2004-09-20 11:05 發表:

感謝 cgjj 總版主迅速的解答 , 只是我的上述問題 : 少問了期間的最高價 & 最低價如何求得 ?

由 cgjj 在 2004-09-20 11:38 發表:

引用:
最初由 fox1688 發表
感謝 cgjj 總版主迅速的解答 , 只是我的上述問題 : 少問了期間的最高價 & 最低價如何求得 ?

原碼:


GetNo1:=SYSPARAM(2);

GetNo2:=SYSPARAM(3);

UseCC1:C LINETHICK0;

UseDE1:date LINETHICK0;

UseCC2:C LINETHICK0;

UseDE2:date LINETHICK0;

MaxH:High LINETHICK0;

MinL:Low LINETHICK0;

<%

GetNo1=FFL.VarData("GetNo1")

UseCC1=FFL.VarData("UseCC1")

UseDE1=FFL.VarData("UseDE1")

GetNo2=FFL.VarData("GetNo2")

UseCC2=FFL.VarData("UseCC2")

UseDE2=FFL.VarData("UseDE2")

MaxH=FFL.VarData("MaxH")

MinL=FFL.VarData("MinL")

StKNo=FFL.VarStartIndex("UseCC1")

EndKNo=ubound(UseCC1)

ChkMaxH = 0: ChkMinL = MinL(GetNo1)

for i = GetNo1-1 to GetNo2-1

  if MaxH(i)>ChkMaxH then ChkMaxH=MaxH(i)

  if MinL(i)<ChkMinL then ChkMinL=MinL(i)

next

for i=StKNo to EndKNo

  UseCC1(i)=UseCC1(GetNo1-1)

  UseDE1(i)=UseDE1(GetNo1-1)

  UseCC2(i)=UseCC2(GetNo2-1)

  UseDE2(i)=UseDE2(GetNo2-1)

  MaxH(i)=ChkMaxH

  MinL(i)=ChkMinL

next

FFL.VarData("UseCC1")=UseCC1

FFL.VarData("UseDE1")=UseDE1

FFL.VarData("UseCC2")=UseCC2

FFL.VarData("UseDE2")=UseDE2

FFL.VarData("MaxH")=MaxH

FFL.VarData("MinL")=MinL

%>

由 fox1688 在 2004-09-20 12:00 發表:

感謝解答 - 不勝感激 !!

全部時間均為台灣時間, 現在時間為21:43

在這個頁面顯示本主題全部的 12 個文章