副图指标源码

这是翻译一个老外的思想，觉得颇有新意。

四条SMMA（8/16/24/32）判断制度方向
 内外轨间距用ATR归一化，输出直方图
 扩张=实心柱，收缩=空心柱
 多头=黄色，空头=蓝色，纠缠/中性=灰色

源码截图如下

文字版如下：

{
 逻辑：
 四条SMMA（8/16/24/32）判断制度方向
 内外轨间距用ATR归一化，输出直方图
 扩张=实心柱，收缩=空心柱
 多头=黄色，空头=蓝色，纠缠/中性=灰色
}
FastOut:=8;    {快速外轨周期}
FastIn:=16;    {快速内轨周期}
SlowIn:=24;    {慢速内轨周期}
SlowOut:=32;   {慢速外轨周期}
ATRLen:=14;    {ATR周期}
NeutGap:=0.48; {中性区间阈值，低于此值视为震荡}
SRC:=(H+L)/2;
V1:=SMMA(SRC,FastOut);  {快速外轨}
M1:=SMMA(SRC,FastIn);   {快速内轨}
M2:=SMMA(SRC,SlowIn);   {慢速内轨}
V2:=SMMA(SRC,SlowOut);  {慢速外轨}
BullAlign:=V1>M1 AND M1>M2 AND M2>V2;
BearAlign:=V1<m1 and="" m1<m2="" m2
Flat:=ABS(AtrSpread)ABS(REF(AtrSpread,1));
{零轴}
DRAWSL(1,0,0,1,2,COLORGRAY);
{多头扩张：黄色实心}
STICKLINE(Bullish AND Expanding,0,AtrSpread,COLORYELLOW,0);
{多头收缩：黄色空心}
STICKLINE(Bullish AND (Expanding=0),0,AtrSpread,COLORYELLOW,1);
{空头扩张：蓝色实心}
STICKLINE(Bearish AND Expanding,0,AtrSpread,COLORBLUE,0);
{空头收缩：蓝色空心}
STICKLINE(Bearish AND (Expanding=0),0,AtrSpread,COLORBLUE,1);
{中性/纠缠：灰色实心}
STICKLINE(Neutral,0,AtrSpread,COLORGRAY,0);
POLYLINE(1,AtrSpread,COLORWHITE);

<m1 and="" m1<m2="" m2

<m1 and="" m1<m2="" m2