function [out] = H2(R,c,s)
out=c*R./(s+R);
