[通达信L-2]可以移动的CL-螺旋费波周期

{可以移动的CL-螺旋费波周期}
FBARS:=SYSPARAM(0);
F5:=BARSSINCE(C)=FBARS-1;
VERTLINE(F5),POINTDOT,COLOR996666,LINETHICK1,SHIFT5;
DRAWNUMBER(F5,SYSPARAM(4),5,0),SHIFT5;
FF5:=BARSSINCE(C)=FBARS-5;
VERTLINE(FF5),POINTDOT,COLOR996666,LINETHICK1;
DRAWNUMBER(FF5,SYSPARAM(4),5,0);
F8:=BARSSINCE(C)=FBARS-1;
FF8:=BARSSINCE(C)=FBARS-8;
VERTLINE(F8),POINTDOT,COLOR996666,LINETHICK1,SHIFT8;
DRAWNUMBER(F8,SYSPARAM(4),8,0),SHIFT8;
VERTLINE(FF8),POINTDOT,COLOR996666,LINETHICK1;
DRAWNUMBER(FF8,SYSPARAM(4),8,0);
F13:=BARSSINCE(C)=FBARS-1;
FF13:=BARSSINCE(C)=FBARS-13;
VERTLINE(F13),POINTDOT,COLOR996666,LINETHICK1,SHIFT13;
DRAWNUMBER(F13,SYSPARAM(4),13,0),SHIFT13;
VERTLINE(FF13),POINTDOT,COLOR996666,LINETHICK1;
DRAWNUMBER(FF13,SYSPARAM(4),13,0);
F21:=BARSSINCE(C)=FBARS-1;
FF21:=BARSSINCE(C)=FBARS-21;
VERTLINE(F21),POINTDOT,COLOR996666,LINETHICK1,SHIFT21;
DRAWNUMBER(F21,SYSPARAM(4),21,0),SHIFT21;
VERTLINE(FF21),POINTDOT,COLOR996666,LINETHICK1;
DRAWNUMBER(FF21,SYSPARAM(4),21,0);
F34:=BARSSINCE(C)=FBARS-1;
FF34:=BARSSINCE(C)=FBARS-34;
VERTLINE(F34),POINTDOT,COLOR996666,LINETHICK1,SHIFT34;
DRAWNUMBER(F34,SYSPARAM(4),34,0),SHIFT34;
VERTLINE(FF34),POINTDOT,COLOR996666,LINETHICK1;
DRAWNUMBER(FF34,SYSPARAM(4),34,0);
F55:=BARSSINCE(C)=FBARS-1;
FF55:=BARSSINCE(C)=FBARS-54;
VERTLINE(F55),POINTDOT,COLOR996666,LINETHICK1,SHIFT55;
DRAWNUMBER(F55,SYSPARAM(4),55,0)SHIFT55;
VERTLINE(FF55),POINTDOT,COLOR996666,LINETHICK1;
DRAWNUMBER(FF55,SYSPARAM(4),55,0);
F89:=BARSSINCE(C)=FBARS-1;
FF89:=BARSSINCE(C)=FBARS-88;
VERTLINE(F89),POINTDOT,COLOR996666,LINETHICK1,SHIFT89;
DRAWNUMBER(F89,SYSPARAM(4),89,0),SHIFT89;
VERTLINE(FF89),POINTDOT,COLOR996666,LINETHICK1;
DRAWNUMBER(FF89,SYSPARAM(4),89,0);
F134:=BARSSINCE(C)=FBARS+20;
FF134:=BARSSINCE(C)=FBARS-144;
VERTLINE(F134),POINTDOT,COLOR996666,LINETHICK1,SHIFT124;
DRAWNUMBER(F134,SYSPARAM(4),144,0),SHIFT124;
VERTLINE(FF134),POINTDOT,COLOR996666,LINETHICK1;
DRAWNUMBER(FF134,SYSPARAM(4),144,0);

仅提供源码