N:=60;
M:=34;
GSPT1:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
GSPT2:=(2*CLOSE+HIGH+LOW)/4;
GSPT3:=EMA((GSPT2-LLV(LOW,M))/(HHV(HIGH,M)-LLV(LOW,M))*100,13);
GSPT4:=EMA(0.667*REF(GSPT3,1)+0.333*GSPT3,2);
GSPT5:=SMA(GSPT1,20,1);
GSPT6:=SMA(GSPT5,5,1);
STICKLINE(GSPT5-GSPT6>0,GSPT5,GSPT6,4,1),COLORYELLOW;
STICKLINE(GSPT5-GSPT6< 0,GSPT5,GSPT6,4,1),COLORLIBLUE;
STICKLINE(GSPT3-GSPT4>0,GSPT3,GSPT4,2,0),COLORRED;
STICKLINE(GSPT3-GSPT4< 0,GSPT3,GSPT4,2,0),COLORGREEN;
T1:=GSPT3-GSPT4>0 AND GSPT5-GSPT6>0 AND GSPT4>GSPT5;
筹码峰异动:=T1 AND REF(T1,1)=0 AND C>O AND V>REF(V,1);
IF(筹码峰异动,65,0),DOTLINE,COLORRED;
IF(筹码峰异动,60,0),DOTLINE,COLORYELLOW;
IF(筹码峰异动,55,0),DOTLINE,COLORRED;
IF(筹码峰异动,50,0),DOTLINE,COLORYELLOW;
IF(筹码峰异动,45,0),DOTLINE,COLORRED;
IF(筹码峰异动,40,0),DOTLINE,COLORYELLOW;
IF(筹码峰异动,35,0),DOTLINE,COLORRED;
IF(筹码峰异动,30,0),DOTLINE,COLORYELLOW;
IF(筹码峰异动,20,0),DOTLINE,COLORRED;
IF(筹码峰异动,15,0),DOTLINE,COLORYELLOW;
IF(筹码峰异动,10,0),DOTLINE,COLORRED;
