浅笑纪念版源码

适用同花顺期货通

源码如下：

趋势:EMA (EMA(C,8),62), COLORAB47BC, LINETHICK4;   //  
趋势向上 := 趋势 > REF(趋势,3);
趋势向下 := 趋势 < REF(趋势,3);
//DRAWCOLORLINE(趋势向上,趋势,COLORAB47BC,COLOR4CAF50),LINETHICK4;
{=== 主价计算 ===}
DA := (3*C+O+H+L)/6;
{=== 周期与参数设置 ===}
周期类型 := BARTYPE;
周期间隔 := BARINTERVAL;
// 均线参数
浅笑5 := 21;   浅笑15 := 21;   浅笑默认 := 20;
夏沫5 := 9;   夏沫15 := 9;    夏沫默认 := 10;

// 根据周期自动选择
浅笑LEN := IF(周期类型=1 AND 周期间隔=5,浅笑5,
             IF(周期类型=1 AND 周期间隔=15,浅笑15,浅笑默认));
夏沫LEN := IF(周期类型=1 AND 周期间隔=5,夏沫5,
             IF(周期类型=1 AND 周期间隔=15,夏沫15,夏沫默认));

// WR参数
WRLEN := IF(周期类型=1 AND 周期间隔=5,14,
           IF(周期类型=1 AND 周期间隔=15,14,14));
超买阈 := IF(周期类型=1 AND 周期间隔=5,80,85);
超卖阈 := IF(周期类型=1 AND 周期间隔=5,20,15);

// 量能参数
LEN := IF(周期类型=1 AND 周期间隔=5,40,
         IF(周期类型=1 AND 周期间隔=15,40,40));
MLEN := IF(周期类型=1 AND 周期间隔=5,10,
          IF(周期类型=1 AND 周期间隔=15,10,10));
UP_T := 2.5;
DN_T := -2.5;

{=== 主趋势结构 ===}
浅笑 := WMA(DA,浅笑LEN);
夏沫 := MA(浅笑,夏沫LEN);
信号 :=浅笑,COLOR42A5F5,LINETHICK2;
多空 : 夏沫,COLORFF8C00,LINETHICK3;
//COLORFF8C00橙色，我喜欢的
涨 := DA>=浅笑 AND 浅笑>=夏沫;
跌 := DA<浅笑 AND 浅笑<夏沫;

{=== WR动能超买超卖提示 ===}
昨收 := REF(CLOSE,1);
WR指标 := SMA(MAX(CLOSE-昨收,0),WRLEN,1)/SMA(ABS(CLOSE-昨收),WRLEN,1)*100;
浅笑浮生 := FILTER(CROSS(WR指标,超卖阈),10);
浮生 := FILTER(CROSS(超买阈,WR指标),10);
动能:wr指标,COLORYELLOW,NODRAW;
{=== 量能确认 ===}

DAA := LOG(VOL);
LOC := WMA(DAA,LEN);
DEV := STD(DAA,LEN);
THRESH_UP := LOC + DEV*UP_T;
THRESH_DN := LOC + DEV*DN_T;
//CLAMP := MAX(MIN(DA,THRESH_DN),THRESH_UP);
CLAMP := MIN(MAX(DA,THRESH_DN),THRESH_UP);
COMP_OUT := ABS(EXP(CLAMP)-EXP(THRESH_UP));
DEN := MA(COMP_OUT,MLEN);
COMP_MA := IF(DEN=0,REF(CLOSE,1),MA(CLOSE*COMP_OUT,MLEN)/DEN);

VWMA := MA(CLOSE*VOL,LEN)/MA(VOL,LEN);
基准线 := VWMA, COLORBLUE;
量价 : MA(VWMA,3), COLOR8BC34A,LINETHICK3;

{=== 买卖信号 ===}
// 拆开逻辑，更清晰
买入 := CROSS(浅笑,夏沫) AND (浅笑>REF(浅笑,1)) AND (C>浅笑);
卖出 := CROSS(夏沫,浅笑) AND (浅笑<ref(浅笑,1)) and=”” (c<浅笑);=”” :=”夏沫;” hl:=”(H+L)/2;” hl=””>信号线 AND ISUP,COLORE60026,1);
DRAWCOLORKLINE(HL>信号线 AND ISDOWN,COLORE60026,0);
DRAWCOLORKLINE(HL<信号线 AND ISUP,COLOR4CAF50,1);     //蓝色COLOR1A73E8
DRAWCOLORKLINE(HL<信号线 AND ISDOWN,COLOR4CAF50,0);   //绿色COLOR2E8B57

// vwap11月19日新增
{
TP := (HIGH + LOW + CLOSE) / 3;  
V_SUM := SUM(VOL * TP, 20);
VOL_SUM := SUM(VOL, 20);
VWAP := V_SUM / VOL_SUM;
Q:VWAP,  COLORRED, LINETHICK2;
}
//
//DRAWTEXT(COMP_OUT > 1.5, LOW, ‘量价背离’), FONTSIZE14, COLORRED;
DRAWTEXT(COMP_OUT > MA(COMP_OUT,20) + 1.5*STD(COMP_OUT,20), LOW, ‘量价背离’), FONTSIZE14, COLORRED;
//12月4新增
PP:=26;
SS:=12;
MM:=9;
DIFF:=EMA(CLOSE,SS)-EMA(CLOSE,PP),COLORFF8D1E;
DEA:=EMA(DIFF,MM),COLORWHITE;
MACD:=2*( DIFF-DEA);
// 计算R并绘制参考线
R:=(HHV(DEA,100)+ABS(LLV(DEA,100)))/2;
// 绘制虚线（点线）
转空:=CROSSDOWN(DIFF,R)
AND  DIFF > 0  AND DEA > 0;
转多:=CROSS(DIFF,-R)
 AND DIFF <0   AND DEA < 0;
DRAWTEXT(转空,L,’▼小心要跌’),COLORLIGREEN;
DRAWTEXT(转多,H,’▲小心要涨’),COLORMAGENTA;
STICKLINE(转空,O,C,COLORLIGREEN,0);
STICKLINE(转多,O,C,COLORMAGENTA,0);

//新增12月4日
STICKLINE(买入,O,C,COLORMAGENTA,0);
STICKLINE(卖出,O,C,COLORLIGREEN,0);
//12月4新增
STICKLINE(浅笑浮生,O,C,COLORMAGENTA,0);
STICKLINE(浮生,O,C,COLORLIGREEN,0);

源码结束。记得用默认浏览器打开。