四力道A（副图 源码）

四力道A   (N 6 1 100 1)
VAR1:=(HHV(HIGH,N)-CLOSE)/(HHV(HIGH,N)-LLV(LOW,N))*1000-700;
VAR2:=SMA(VAR1,N,1)+100;
VAR3:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*10000;
VAR4:=SMA(VAR3,3,1);
VAR5:=SMA(VAR4,3,1)+100;
VAR6:=VAR5-VAR2;
DDDD:IF(VAR6>100,VAR6-100,0);
STICKLINE(REF(DDDD,1)<DDDD,DDDD,REF(DDDD,1),8,0),COLORRED;
STICKLINE(REF(DDDD,1)>DDDD,DDDD,REF(DDDD,1),8,0),COLORGREEN;
partline(DDDD,DDDD>=ref(DDDD,1),rgb(255,0,0),DDDD<ref(DDDD,1),rgb(0,255,255)),linethick2;