PJ:=(H+L+C)/3;
 V1:=IF(H=L,1,H-MAX(O,C));
 V2:=IF(H=L,1,MAX(C,O)-PJ);
 V3:=IF(H=L,1,MIN(O,C)-L);
 V4:=IF(H=L,1,PJ-MIN(C,O));
 V5:=VOL/IF(H=L,4,H-L);
 V6:=(V1*V5)+(V2*V5);
 V7:=(V3*V5)+(V4*V5);
 WP1:=DYNAINFO(23);
 NP1:=DYNAINFO(22);

 WP2:=IF(ISLASTBAR,V7*240/FROMOPEN,V7);
 NP2:=IF(ISLASTBAR,V6*240/FROMOPEN,V6);
 WP:=IF(ISLASTBAR AND PERIOD=5 ,WP1,WP2);
 NP:=IF(ISLASTBAR AND PERIOD=5 ,NP1,NP2);

日差:WP-NP,LINETHICK0;
周差:SUM(日差,5),NODRAW;
月差:SUM(日差,22),NODRAW;
 STICKLINE(日差>O,0,日差,-1,0),COLORRED;
 STICKLINE(日差<O,0,日差,-1,0),COLORFFFF00;