Buy/Sell Pressure

inputs: len(20),len2(25);

value1=close-low;
value2=high-close;
value3=((value1-value2)/close);

value4=close of data2-low of data2;
value5=high of data2-close of data2;
value6=((value4-value5)/close of data2);

if value3>0 and value6>0 then begin
value7=( value3 - value6);

end;

Plot1(averagefc(value7,len), "SprdRatio" ) ;
plot2(averagefc(averagefc(value7,len),len2),"average");