通达信云溪散人主图（压力支撑）自动划线指标

通达信云溪散人主图（压力支撑）自动划线指标

P:=10;
 云:=REF(HIGH,P)=HHV(HIGH,2*P+1);
 云溪:=FILTER(云,P);
 散人:=BACKSET(云溪,P+1);
 云溪散人:=FILTER(散人,P);{高点}
 压力:REF(HIGH,BARSLAST(云溪散人)),COLORFF00FF,POINTDOT;
 R11:=BACKSET(ISLASTBAR,BARSLAST(云溪散人)+1);
S11:=R11>REF(R11,1);
 压力轨:DRAWLINE(云溪散人,HIGH,S11,HIGH,1),COLORYELLOW;
 AA2:=REF(LOW,P)=LLV(LOW,2*P+1);
 BB2:=FILTER(AA2,P);
 CC2:=BACKSET(BB2,P+1);
 DD2:=FILTER(CC2,P);{低点}
 支撑:REF(LOW,BARSLAST(DD2)),COLOR00FF00,POINTDOT;
 T11:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
 U11:=T11>REF(T11,1);
 支撑轨:DRAWLINE(DD2,LOW,U11,LOW,1),COLORBLUE;
 中轨:(压力轨+支撑轨)/2,COLORWHITE;