奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [求救]exist (http://www.chiefox.com.tw/bbs/showthread.php?threadid=12821)

[求救]exist

即時盤用exist尋找當根k線曾經出現之最高值,如在5分鐘k線中曾經出現k值>d值,即以此最高k值為計算依據即使收盤該k值位大於d值
RR:=if(exist(k[i]>=20,1),1,0);
GG:=max(k[i],20);
KK:=if(RR,GG,k[i]);
mm[i]:=KK[i];end;
放在迴圈中跑會造成電腦嚴重延遲現象,請問該如何修正？

回覆: [求救]exist

引用:

---

最初由 hamson 發表
即時盤用exist尋找當根k線曾經出現之最高值,如在5分鐘k線中曾經出現k值>d值,即以此最高k值為計算依據即使收盤該k值位大於d值
RR:=if(exist(k[i]>=20,1),1,0);
GG:=max(k[i],20);
KK:=if(RR,GG,k[i]);
mm[i]:=KK[i];end;
放在迴圈中跑會造成電腦嚴重延遲現象,請問該如何修正？

---

依板主指示以
HCK:=K>ref(K,1) and K>refx(K,1);
SP:=BARSLAST(HCK);
KH:ref(H,SP);
方式帶入迴圈中並於盤後測試,速度有些微提昇但仍就慢,約延遲1分鐘,顯然在即時盤中會更嚴重拖慢速度,不知版主是否有更好計算更快的寫法來抓"當根k棒"k值的大於d值時之值
以上，還請解惑，祝均安
備註: 電腦cpu是coro2記憶體 2GB 這應該無關吧

引用:

---

最初由 hamson 發表
依板主指示以
HCK:=K>ref(K,1) and K>refx(K,1);
SP:=BARSLAST(HCK);
KH:ref(H,SP);
方式帶入迴圈中並於盤後測試,速度有些微提昇但仍就慢,約延遲1分鐘,顯然在即時盤中會更嚴重拖慢速度,不知版主是否有更好計算更快的寫法來抓"當根k棒"k值的大於d值時之值
以上，還請解惑，祝均安
備註: 電腦cpu是coro2記憶體 2GB 這應該無關吧

---