策略编写代码公式 Perl语言

义铭电器

多空布林线BBIBOLL策略股价一分钟上涨百分之二上涨上穿日BBI线 且日KDJ值K值同时上穿D值 形成金叉 MACD日值白线在黄线之上自动买入四分之一仓位 信号出现是以买入为记号显示在K线 策略当天最多购买两只股票 股票市值在50亿到200亿之间的股票 在没有清仓之前不继续购买当前策略其他股票当天收盘价下跌击穿BBI移动平均线 立即清仓止损 ST股票不执行策略

技术008

INPUT:MINUTE_PERIOD(1,1,60,1); // 一分钟周期
INPUT:BOLL_PERIOD(20,1,100,1); // BBI 布林线参数

// 计算 BBI（布林通道中轨）
BBI := (HHV(H,BOLL_PERIOD) + LLV(L,BOLL_PERIOD) + CLOSE)/3;

// 计算 KDJ
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1);
D:SMA(K,3,1);
J:=3*K-2*D;
// 计算 MACD
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA := EMA(DIFF,9);
MACD := DIFF - DEA;

// 判断股票市值范围和非 ST 标识
IS_VALID_STOCK := (DYNAINFO( 57) >= 50000000000 AND DYNAINFO( 57) <= 200000000000) AND (not(STRICMP(STRLEFT(stkname,2 ),'st') = 0 or STRICMP(STRLEFT(stkname,3 ), '*st') = 0 ));

// 当前价格与昨日收盘价比较
PRICE_CHANGE := (CLOSE - ref(close,1)) / ref(close,1);

// 开仓条件
IF PRICE_CHANGE >= 0.02 AND CLOSE > BBI AND CROSS(K,D) AND MACD > DEA THEN BEGIN
    IF IS_VALID_STOCK  THEN BEGIN // 当天最多购买两只股票
        buy(1, 25%,marketr),PERTRADER; // 以四分之一仓位买入
    END
END

// 平仓条件：当天收盘价下跌击穿 BBI 移动平均线立即清仓止损
IF CLOSE < BBI THEN BEGIN
    sell(1,holding,marketr); // 卖出所有持仓
END



图表没办法控制持仓2只这种操作，图表策略都是当前策略理论持仓没有实际持仓概念