# structural = function(delta,lmbda,w1,w2,w3){ # return (delta/(1. + 1./(w1*lmbda) + 1./(w2*lmbda) + 1./(w3*lmbda))) # } structural = function(delta,dist){ return (delta^dist) }