以下是通达信钱隆血路藏花源码

REFLINE: 0, 20, 50, 80, 100;
 TR2 := SMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),7,1);
 HD := HIGH-REF(HIGH,1);
 LD := REF(LOW,1)-LOW;
 DMP:= SMA(IF(HD>0 AND HD>LD,HD,0),7,1);
 DMM:= SMA(IF(LD>0 AND LD>HD,LD,0),7,1) ; 

 PDI: DMP*100/TR2 ;
 MDI: DMM*100/TR2 ;
 ADX: SMA(ABS(MDI-PDI)/(MDI+PDI)*100,7,1) ;
 ADXR:(ADX+REF(ADX,6))/2 ;