通达信二次昌九握手主图附图

周:="050引.CL#WEEK";
isColor周:=if(周<>ref(周,1) or barpos=1,1,0);    {{转折线在每周一 }
DIS0周:=if(barpos=1 or not(isColor周),0,0);
DIS周:=SUM(DIS0周,0);
Num周:=count(isColor周,0)+DIS周;
PD0周:=isColor周 and mod(Num周,4)=0;
PD1周:=isColor周 and mod(Num周,4)=1;
PD2周:=isColor周 and mod(Num周,4)=2;
PD3周:=isColor周 and mod(Num周,4)=3; 
DC0周:=REF(C,BARSLAST(PD0周));
DC1周:=REF(C,BARSLAST(PD1周));
DC2周:=REF(C,BARSLAST(PD2周));
DC3周:=REF(C,BARSLAST(PD3周));
DRAWLINE(PD0周,DC0周,PD1周,DC1周,0),Color0044ff,LINETHICK2,LAYER0;
DRAWLINE(PD1周,DC1周,PD2周,DC2周,0),Color00FFff,LINETHICK2,LAYER0;
DRAWLINE(PD2周,DC2周,PD3周,DC3周,0),ColorFF9900,LINETHICK2,LAYER0;
DRAWLINE(PD3周,DC3周,PD0周,DC0周,0),Color00ff00,LINETHICK2,LAYER0; {  }
这里用到【"050引.CL#WEEK"】其中CL就是收盘价 【CL:C,LINETHICK0;】因为引用就是为了变化周期【050引】名称可以改的.

额的改动：（去掉下面源码，主要是线的问题眼花）

DRAWLINE(PD0周,DC0周,PD1周,DC1周,0),Color0044ff,LINETHICK2,LAYER0;
DRAWLINE(PD1周,DC1周,PD2周,DC2周,0),Color00FFff,LINETHICK2,LAYER0;
DRAWLINE(PD2周,DC2周,PD3周,DC3周,0),ColorFF9900,LINETHICK2,LAYER0;
DRAWLINE(PD3周,DC3周,PD0周,DC0周,0),Color00ff00,LINETHICK2,LAYER0;