求助老师帮我写个代码

liyuan0050

你好老师，我的诉求是用MACD，当零轴上方的红柱比前一根变短时，文字提示“弱”，并带上声音提醒。                                               当零轴下方的蓝柱比前一根变短时，文字提示“强”，并带上声音提醒。
                                               
                                               能在K线收线时在K线上“文字提示和声音提醒”吗？

技术008

INPUT: P(26,20,100,8); // MACD长周期参数
INPUT: S(12,5,40,4); // MACD短周期参数
INPUT: M(9,2,60,6); // MACD信号线周期

DIFF : EMA(CLOSE,S) - EMA(CLOSE,P); // 计算DIFF
DEA  : EMA(DIFF,M); // 计算DEA
MACD1 : 2*(DIFF-DEA), COLORSTICK; // 计算MACD柱

//判断MACD柱线变化
PREV_MACD := REF(MACD1,1); //前一根K线的MACD柱值

//红柱变短判断
RED_WEAK := MACD1 > 0 AND MACD1 < PREV_MACD;
//蓝柱变短判断
BLUE_STRONG := MACD1 < 0 AND MACD1 > PREV_MACD;

//K线收线时提示
IF 1 THEN BEGIN
    IF RED_WEAK THEN BEGIN
        DRAWTEXT(HIGH*0.98, "弱", COLORRED); //在K线高价附近绘制“弱”
        speak(1,'弱'); //播放“弱”声音
    END;
    IF BLUE_STRONG THEN BEGIN
        DRAWTEXT(LOW*1.02, "强", COLORBLUE); //在K线低价附近绘制“强”
        speak(1,'强'); //播放“强”声音
    END;
END