function [f,G]=funlm(W,Inp,Tar,NNP)

[Y,G,E]=ThreeLay(Inp,Tar,W,NNP);
f=Y-Tar;