通达信23紫金葫芦瓢源码副图

{公式在线提供：www.gszx.com.cn}

改了一下紫金葫芦，只要正幅度。
 

{23紫金葫芦瓢 }
VAR0:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
VAR3:=SMA(VAR0,3,1);
VAR1:SMA(VAR3,4,1)-10;
VAR4:=(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))*100;
VAR5:=SMA(VAR4,3,1);
{VAR2:=SMA(VAR5,4,1)-90;}
STICKLINE(REF(VAR1,1) 0, CIRCLEDOT;
STICKLINE(REF(VAR1,1)>VAR1,VAR1,REF(VAR1,1),5,0),COLOR00FF00;
{STICKLINE(REF(VAR2,1)>VAR2,VAR2,REF(VAR2,1),10,0),COLOR0000FF;}
{STICKLINE(REF(VAR2,1) 0,COLOR0000FF;
M:=IF(REF(VAR1,1) 买:IF(M=10 AND REF(M,1)=0 AND VAR1<10,48,0),,COLORFFFF00,STICK ;
买2:IF(M=10 AND REF(M,1)=0 AND VAR1>10 AND VAR1<55,88,0),,COLORYELLOW,STICK ;
{选股:IF(VAR1>0 AND VAR1-REF(VAR1,1)>=0 AND VAR1<45,8,0),,COLORYELLOW ;}
RSV:=(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
起动:=EMA(J,6),COLORRED;
{五星级注意:IF(起动>90 AND 起动<=REF(起动,1),-28,0),,COLORFFFF00,STICK ;}
VAR11:=REF(CLOSE,2);
会员专用:=SMA(MAX(CLOSE-VAR11,0),7,1)/SMA(ABS(CLOSE-VAR11),7,1)*100,COLORFFAA66;
VAR12:=REF(CLOSE,1);
VAR13:=SMA(MAX(CLOSE-VAR12,0),7,1)/SMA(ABS(CLOSE-VAR12),7,1)*100;
会员专用逃: IF(会员专用< REF(会员专用,1) AND 会员专用>79,-48,0),STICK,LINETHICK3,COLOR00FF00;
DRAWTEXT(会员专用逃 ,70 ,'逃'),COLORYELLOW,LINETHICK1;
VAR111:=((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100);
VAR112:=SMA(VAR11,9,1);
A:=S