「翔博精选指标」支撑高低点线,自动划线（通达信公式 主图 源码

这是自己使用的一个 自动划线的主图公式 

 {公式名称: 支撑高低点线

公式源码:}

VAR1:=REF(HIGH,3)=HHV(HIGH,2*3+1);
VAR2:=FILTER(VAR1,3);
VAR3:=BACKSET(VAR2,3+1);
VAR4:=FILTER(VAR3,3);
VAR5:=REF(LOW,3)=LLV(LOW,2*3+1);
VAR6:=FILTER(VAR5,3);
VAR7:=BACKSET(VAR6,3+1);
VAR8:=FILTER(VAR7,3);
VAR9:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
VAR10:=(HIGH+LOW)/2;
VAR11:=VAR4 AND NOT(VAR8 AND VAR9>=VAR10) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
VAR12:=VAR8 AND NOT(VAR4 AND VAR9<VAR10);
VAR13:=VAR4 AND NOT(VAR8 AND VAR9>=VAR10);
VAR14:=REF(BARSLAST(VAR11),1)+1;
VAR15:=BACKSET(VAR11 AND COUNT(VAR12,VAR14)>0,LLVBARS(IF(VAR12,LOW,10000),VAR14));
VAR16:=VAR15>REF(VAR15,1);
VAR17:=BACKSET(VAR16,2);
VAR18:=VAR17>REF(VAR17,1);
VAR19:=VAR18 OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
VAR20:=REF(BARSLAST(VAR19),1)+1;
VAR21:=BACKSET(VAR19 AND COUNT(VAR13,VAR20)>0,HHVBARS(IF(VAR13,HIGH,0),VAR20));
VAR22:=VAR21>REF(VAR21,1);
VAR23:=BACKSET(VAR22,2);
VAR24:=VAR23>REF(VAR23,1);
DRAWLINE(VAR18,LOW,VAR24,HIGH,0),DOTLINE,COLORWHITE;
DRAWLINE(VAR24,HIGH,VAR18,LOW,0),DOTLINE,COLORWHITE;
VAR25:=BACKSET(ISLASTBAR,MIN(BARSLAST(VAR24),BARSLAST(VAR18))+1);
VAR26:=VAR25>REF(VAR25,1);
DRAWLINE(VAR26,IF(VAR24,HIGH,LOW),ISLASTBAR,IF(BARSLAST(VAR24)>BARSLAST(VAR18),HIGH,LOW),0),DOTLINE,COLORWHITE;
VAR27:=HIGH<REF(HIGH,REF(BARSLAST(VAR24),1)+1);
VAR28:=REF(HIGH,REF(BARSLAST(VAR24),1)+1)>REF(HIGH,REF(BARSLAST(VAR24),1)+2+REF(BARSLAST(VAR24),REF(BARSLAST(VAR24),1)+2));
VAR29:=VAR27 AND VAR28 AND VAR24;
VAR30:=BACKSET(VAR29,REF(BARSLAST(VAR24),1)+2);
VAR31:=VAR30>REF(VAR30,1);
VAR32:=LOW>REF(LOW,REF(BARSLAST(VAR18),1)+1);
VAR33:=REF(LOW,REF(BARSLAST(VAR18),1)+1)<REF(LOW,REF(BARSLAST(VAR18),1)+2+REF(BARSLAST(VAR18),REF(BARSLAST(VAR18),1)+2));
VAR34:=VAR32 AND VAR33 AND VAR18;
VAR35:=BACKSET(VAR34,REF(BARSLAST(VAR18),1)+2);
VAR36:=VAR35>REF(VAR35,1);
DRAWICON(VAR31,HIGH,10);
DRAWICON(VAR36,LOW,12);
VAR37:=VAR31 OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
VAR38:=REF(BARSLAST(VAR37),1)+1;
VAR39:=BACKSET(VAR37 AND COUNT(VAR36,VAR38)>0,LLVBARS(IF(VAR36,LOW,POW(10,20)),VAR38));
VAR40:=VAR39>REF(VAR39,1);
VAR41:=BACKSET(VAR40,2);
VAR42:=VAR41>REF(VAR41,1);
VAR43:=VAR42 OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
VAR44:=REF(BARSLAST(VAR43),1)+1;
VAR45:=BACKSET(VAR43 AND COUNT(VAR31,VAR44)>0,HHVBARS(IF(VAR31,HIGH,-POW(10,20)),VAR44));
VAR46:=VAR45>REF(VAR45,1);
VAR47:=BACKSET(VAR46,2);
VAR48:=VAR47>REF(VAR47,1);
DRAWLINE(VAR48,HIGH,VAR42,LOW,0),COLORGREEN;
DRAWLINE(VAR42,LOW,VAR48,HIGH,0),COLORGREEN;
VAR49:=BACKSET(ISLASTBAR,MIN(BARSLAST(VAR48),BARSLAST(VAR42))+1);
VAR50:=VAR49>REF(VAR49,1);
DRAWLINE(VAR50,IF(VAR48,HIGH,LOW),ISLASTBAR,CLOSE,0),COLORGREEN;
VAR51:=BACKSET(ISLASTBAR,BARSLAST(VAR18)+1);
VAR52:=VAR51>REF(VAR51,1);
VAR53:=BACKSET(VAR52,REF(BARSLAST(VAR18),1)+2);
VAR54:=VAR53>REF(VAR53,1);
DRAWLINE(VAR54,LOW,VAR52,LOW,1),COLORMAGENTA;
VAR55:=BACKSET(ISLASTBAR,BARSLAST(VAR24)+1);
VAR56:=VAR55>REF(VAR55,1);
VAR57:=BACKSET(VAR56,REF(BARSLAST(VAR24),1)+2);
VAR58:=VAR57>REF(VAR57,1);
DRAWLINE(VAR58,HIGH,VAR56,HIGH,1),COLORMAGENTA;