想請教該腳本如何修改?

  •   295 
  • 最後發表   love07050618  2025 二月 17
love07050618 發文於   2025/02/17

想請教該腳本如何修改為近十年每年的除息日當日都符合當日漲幅3%以上的?這個腳本是先前看到某個帖子有的，但忘了在哪，謝謝!

 

input:_PriceChangeRatio(3,"當天漲幅大於 X ％");
var:idx(0);

condition1 = GetField("日期", "D") > GetField("除息日期","最新");
condition2 = GetField("除息日期","最新") > 0;

if currentBar = gettotalBar then
    while condition1 and condition2
        if GetField("日期", "D")[idx] > GetField("除息日期","最新") then idx += 1 else break;

ret = condition1 and condition2 and GetField("漲跌幅", "D")[idx] > _PriceChangeRatio;

outputField1(GetField("漲跌幅", "D")[idx],"除息當日漲跌幅");
outputField2(GetField("除息日期","最新"),"除息當日日期");

排序方式: 標準 | 最新
虎科大許教授 發文於   2025/02/17

//這一年以來(250個交易日)，除息日漲幅超過3%的股票。

input: Days(250,"讀取資料");
setTotalBar(Days);
input: _PriceChangeRatio(3,"當天漲幅大於 X ％");
value1 = getBarOffset(GetField("除息日期","最新"));
if value1>=getTotalBar or GetField("除息日期","最新")=0 or value1=0 then return;
condition1 = GetField("漲跌幅", "D")[value1] > _PriceChangeRatio;
if condition1 then ret=1;
outputField1(GetField("漲跌幅", "D")[value1],"除息當日漲跌幅");
outputField2(GetField("除息日期","最新"),"除息當日日期");
outputField3(GetField("日期","D")[value1],"除息當日日期");
outputField4(value1,"K棒相對距離");

  • 按讚來自於
  • youthful
love07050618 發文於   2025/02/17

謝謝教授的解答!!

 

發表回覆
發表新主題
我的發文
我的收藏
分類
Close