別名: 引用指標
所屬類別: 控制語句

引用任意股票任意週期的任意指標輸出
用法:
STKINDI(STKLABEL,INDINAME,INDITYPE,PERIOD)
INDITYPE為指標類型，有效值範圍為(0-2)，依次表示技術指標、條件選股、交易系統公式;
PERIOD為週期類型，有效值範圍為(-1-11)，依次表示:
當前週期、分筆成交、1分鐘、5分鐘、15分鐘、30分鐘、60分鐘、日、周、月、年、多日、多分鐘
例如：STKINDI('1A0001','MA.MA1',0,DATAPERIOD);
----------------------------------------------------------------------------------------------------------

1. 如我想用35分鍾級數看盤,則有效值範圍為(-1-11)，並沒有
35分這級數應該要如何,設才可看到35分這級數指標(我的主畫面 是5分級數)
2.我將有 PERIOD 效值範圍為切到11,將主畫面切到日線等級,結果引用的指標級數是多分鐘級數但不知道是哪各多分鐘級數(是5分或1分或其他),希望我寫的版主看的董

在管理-系統選項
key上你要的時間單位就可以引用了

Dear King,
我想在大盤5分K 圖上看到90分K的KD之k值.

公式如下-
K90:STKINDI(STKLABEL,'KD.K',0,11);
問題1-
以 6/28/04為例-
最後一筆90分k棒
的正確k值=40.2
為何左下標示k值=61.51 ?

問題2-
區間k棒為何都是54支(一日) 呢?
不是應該是18支k棒嗎???

TKS.

dxn 附帶上了此圖片:

此問題目前正在查原因(多分鐘線有點問題)

目前可用下列方法解決此問題

(下面的程式有錯勿用, 請用最後發表的)
K5:="kd.k";
de:=date;
K90:c*0;
<%
K5=FFL.VarData("K5")
K90=FFL.VarData("K90")
de=FFL.VarData("de")
stno=FFL.VarStartIndex("K5")
endno=ubound(K5)
no=0
for i = stno to endno
no=no+1
if i=endno then ckset=true else ckset=(no=18 or de(i)<>de(i+1))
if ckset=true then
for j=i-no+1 to i
K90(j)=K5(i)
next
no=0
end if
next
FFL.VarData("K90")=K90
FFL.VarStartIndex("K90")=1
%>

感謝 cgjj 兄.

Dear Cgjj,

7/1/04 5分線最後一筆
K值
32.36 (您的公式) 與
85.84 (原公式) 不一致 ?

dxn 附帶上了此圖片:

之前是用收盤價來測所以沒問題
KD無法以5分值為去推算90分
因為帶入的數不同
必須用vbs 完全接手奇狐所有算KD的命令
模擬90分K的高,低,收
這恐怕很不容易
需花點時間研究

已開發完成

cgjj 附帶上了此圖片:

使用 N,M1,M2 三個參數

原碼:


de:=date;

cc5:=c;

hh5:=h;

ll5:=l;

K90:c*0;

<%

N=FFL.VarData("N")

M1=FFL.VarData("M1")

de=FFL.VarData("de")

cc5=FFL.VarData("cc5")

ll5=FFL.VarData("ll5")

hh5=FFL.VarData("hh5")

K90=FFL.VarData("K90")

stno=FFL.VarStartIndex("cc5")

endno=ubound(cc5)

redim hh90(endno),ll90(endno), kk90(endno)

ckno=0: Kno=0: K90SK=0

for i = stno to endno

  ckno=ckno+1

  if i=endno then ckset=true else ckset=(ckno=18 or de(i)<>de(i+1))

  if ckset=true then

    ll90(Kno)=ll5(i): hh90(Kno)=hh5(i)

    for j=i-ckno+1 to i

      if ll5(j)<ll90(Kno) then ll90(Kno)=ll5(j)

      if hh5(j)>hh90(Kno) then hh90(Kno)=hh5(j)

    next     

    if N = 0 then StnoN = 0 else StnoN=Kno-N+1

    if StnoN<0 then StnoN=0

    hhvh=hh90(StnoN):llvl=ll90(StnoN)

    for j=StnoN+1 to Kno

      if hh90(j)>hhvh then hhvh = hh90(j)

      if ll90(j)<llvl then llvl = ll90(j)

    next

    if hhvh-llvl<>0 then RSV=((cc5(i)-llvl)/(hhvh-llvl))*100 

    if Kno=0 then 

       KK90(Kno)=RSV: K90SK = i

    else 

       KK90(Kno)=(1*RSV+(M1-1)*KK90(Kno-1))/M1       

    end if

    for j=i-ckno+1 to i

      K90(j)=KK90(Kno)

    next

    Kno=Kno+1

    ckno=0

  end if

next

FFL.VarData("K90")=K90

FFL.VarStartIndex("K90")=K90SK+1

%>

附件: K90.ALG
此文件已被下載 288 次。

Dear Cgjj,

謝謝您的VBS. 真是厲害.

請問如何進一步利用參數設定來控制它顯示K值的曲線 或不顯示K值的曲線 . TKS.

可利用這個函數來完成

改變指標線粗細
例如：ma1:ma(close,5),linethick3;
LINETHICK0 表示不畫出指標線，不影響坐標，但可在頂部顯示數值

今早測試了昨日發佈的最新 4.0 Beta 版
STKINDI 函數引用多分鐘數據的問題(Bug)
已被修正了

謝謝 Cgjj 兄, 也感謝 一休 前輩 全部團隊的努力. 辛苦了.

引用:

---

最初由 cgjj 發表
今早測試了昨日發佈的最新 4.0 Beta 版
STKINDI 函數引用多分鐘數據的問題(Bug)
已被修正了

---