|
回覆: 回覆: 回覆: [求救] 請教版主
引用:
最初由 華陽 發表
謝謝版主
{家數統計}
0;
K值大於50家數:0 LINETHICK1;
K值小於等於50:0 LINETHICK1;
UseNum:=STKCOUNT('上市股票');
FOR SNO:=1 TO UseNum DO BEGIN
UseSTK:=STKFROMBLK('上市股票',SNO);
TMP:=COUNT(STKINDI(UseSTK,'KD.K值大於50',0,6),1);
TMP:=TMP[datacount];
if TMP=1 then K值大於50家數:=K值大於50家數+1;
TMP1:=COUNT(STKINDI(UseSTK,'KD.K值小於等於50',0,6),1);
TMP1:=TMP1[datacount];
if TMP1=1 then K值小於等於50:=K值小於等於50+1;
END;
總家數:UseNum LINETHICK0;
但我想要的是:
1. 家數隨十字游標移動改變
2. 可用於任意週期
3. 畫出指標線
K值大於50家數:C*0 LINETHICK1;
K值小於等於50:C*0 LINETHICK1;
UseNum:=STKCOUNT('上市股票');
FOR SNO:=1 TO UseNum DO BEGIN
UseSTK:=STKFROMBLK('上市股票',SNO);
KDK:=STKINDI(UseSTK,'KD.K',0,6);
tmp:=lbound(KDK); x:=setlbound(KDK,1);
KDK:=if(barpos<tmp or tmp=0,0,KDK);
K值大於50家數:=K值大於50家數+(KDK>50);
K值小於等於50:=K值小於等於50+(KDK<=50);
END;
總家數:UseNum LINETHICK0;
此公式計算負荷重, 不適合於盤中跑
|
2008-05-17 00:36
