www.pudn.com > ROLD-EPR.zip > OBJfungrad.m, change:2005-10-10,size:210b


function grad=OBJfungrad(passvec1,passvec2,passvec3,passvec4,phigrad,alpha) 
grad=2*(feval(phigrad,passvec1,alpha)+feval(phigrad,passvec2,alpha)+feval(phigrad,passvec3,alpha)+feval(phigrad,passvec4,alpha));