📝 docs(tsl): archive three benchmark scripts referenced by README
- add scripts/main_board_top50_zf_{claude,codex,qwen3.6-27b}.tsl as produced
- sync round-1 code block and archived filename in README
Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
@@ -0,0 +1,33 @@
|
||||
// 主板股票昨日涨幅排名前 50
|
||||
// 主板成分:上证A股 + 深证A股(getAbkbyDate 支持分号分隔多板块)
|
||||
// “昨天”取当前日期的前一个交易日,避开周末/节假日
|
||||
|
||||
setSysParam(pn_cycle(), cy_day());
|
||||
|
||||
yday := lastTradeDay(date()); // 昨日(最近一个已收盘交易日)
|
||||
prevday := lastTradeDay(yday); // 昨日的前一个交易日
|
||||
|
||||
stocks := getAbkbyDate('上证A股;深证A股', yday);
|
||||
|
||||
result := array();
|
||||
for i, stockid in stocks do
|
||||
begin
|
||||
setSysParam(pn_stock(), stockid);
|
||||
zf := stockZf8(prevday, yday); // prevday 收盘 -> yday 收盘的涨幅(%),即昨日涨幅
|
||||
appendArray(result, array("StockID": stockid, "Zf": zf));
|
||||
end
|
||||
|
||||
sortTableByField(result, "Zf", 0); // 按涨幅逆序
|
||||
|
||||
top50 := array();
|
||||
n := length(result);
|
||||
if n > 50 then
|
||||
begin
|
||||
n := 50;
|
||||
end
|
||||
for i := 0 to n - 1 do
|
||||
begin
|
||||
appendArray(top50, result[i]["StockID"]);
|
||||
end
|
||||
|
||||
return top50;
|
||||
Reference in New Issue
Block a user