通达信ZIG转向画矩形“炒股不白陪版”主图

求助冷妞妞老师，想请老师编一个公式，具体要求如下，自己画了手工样图请老师参考，谢谢老师辛苦了！
1：zig(3,10)画折线；
2：以zig(3,10)相邻高点和低点的水平距离画横线；（横线实际为上涨或下跌的持续天数）
3：以zig(3,10)相邻高点和低点的垂直距离画竖线；
4：构成连续时空矩形，涨红跌绿；
5：适用通达信；
 一堆未来函数   喜欢下载  不喜欢绕道

源码

A:ZIG(3,10),COLORYELLOW,DOTLINE;
HT:=BARSLAST(A<REF(A,1) AND REF(A,1)>REF(A,2));
LT:=BARSLAST(A>REF(A,1) AND REF(A,1)<REF(A,2));
HH:=HHV(C,LT+1);
LL:=LLV(C,HT+1);
QF1:=BACKSET(HT=0,2);
QF2:=BACKSET(LT=0,2);
Q1:=BARSLAST(CROSS(QF1=1,0.5));
Q2:=BARSLAST(CROSS(QF2=1,0.5));
X1:=REFX(HH,BARSNEXT(Q1=0));
X2:=REFX(LL,BARSNEXT(Q2=0));
DRAWLINE(Q2=0,X1,Q1=0,HH,0),COLORYELLOW;
DRAWLINE(Q2=0,X2,Q1=0,LL,0),COLORYELLOW;
STICKLINE(Q2=0 ,X1,C,0,0),COLORYELLOW;
STICKLINE(Q1=0 ,LL,C,0,0),COLORYELLOW;
DRAWLINE(Q1=0,C,Q2=0,HH,0),COLORYELLOW;
DRAWLINE(Q1=0,X2,Q2=0,LL,0),COLORYELLOW;
STICKLINE(Q2=0 ,HH,C,0,0),COLORYELLOW;
STICKLINE(Q1=0 ,X2,C,0,0),COLORYELLOW;