源码：
jj:=(HIGH+LOW+CLOSE)/3;
 qj0:=vol/IF(HIGH=LOW,4,HIGH-LOW);
 qj1:=qj0*(MIN(OPEN,CLOSE)-LOW);
 qj2:=qj0*(jj-MIN(CLOSE,OPEN));
 qj3:=qj0*(HIGH-MAX(OPEN,CLOSE));
 qj4:=qj0*(MAX(CLOSE,OPEN)-jj);
 DDX:=IF(HIGH=LOW,4*qJ0,((qj1+qj2)-(qj3+qj4)))/sum(vol,10)*100;
 DDY:=((qj2+qj4)-(qj1+qj3))/sum(vol,10)*100;
 DDZ:=((qj1+qj2)-(qj3+qj4))/((qj1+qj2)+(qj3+qj4))*100*17;
 V1:=v/ma(ref(v,1),5);
 V2:=indexv/ma(ref(indexv,1),5);
 v0:=v1/v2;
 ST:=STRFIND(stkname,'ST',1)>0;