function res = simple_mlp_plinderiv(mat)
  res = ones(size(mat));
