|
以下是通达信极品波段公式副图源码测试图）（无源码的请下载附件导入）
{参数描述:N(1,100,3)}
VAR1:=REF(CLOSE,1);
VAR2:=(-100)*(HHV(HIGH,84)-CLOSE)/(HHV(HIGH,84)-LLV(LOW,84));
顶: CROSS(-1,VAR2)*7000,COLORGREEN;
DRAWTEXT(CROSS(0,VAR2),6500,' 顶 ');
VAR3:=SMA(MAX(CLOSE-VAR1,0),7,1)/SMA(ABS(CLOSE-VAR1),7,1)*100;
VAR4:=SMA(MAX(CLOSE-VAR1,0),13,1)/SMA(ABS(CLOSE-VAR1),13,1)*100;
VAR5:=BARSCOUNT(CLOSE);
底: (VAR2<-98)*2000,COLORBLUE;
DRAWTEXT(CROSS(1000,底),2100,' 底 '),COLORGREEN;
VAR6:=(HHV(HIGH,N)-CLOSE)/(HHV(HIGH,N)-LLV(LOW,N))*1000-700;
VAR7:=SMA(VAR6,N,1)+100;
VAR8:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*10000;
VAR9:=SMA(VAR8,3,1);
VARA:=SMA(VAR9,3,1)+100;
VARB:=VARA-VAR7;
VARC:=IF(VARB>100,VARB-100,0);
STICKLINE(REF(VARC,1)<VARC,VARC,REF(VARC,1),8,1),COLORRED;
STICKLINE(REF(VARC,1)>VARC,VARC,REF(VARC,1),8,1),COLORYELLOW;
VARD:=IF((CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>0.98,REF(CLOSE,1),LOW);
VARE:=IF((CLOSE-REF(CLOSE,1))/REF(CLOSE,1)<-0.98,REF(CLOSE,1),HIGH); |
