No BSD License
function ubcal h1=findobj(0,'tag','ubf'); m=findobj(h1,'tag','EditText1'); kK=get(m,'string'); k=str2num(kK) ml=findobj(h1,'tag','EditText2'); lK=get(ml,'string'); l=str2num(lK) ub=k/l msgbox(num2str(ub),'back loss coefficient')
Contact us at files@mathworks.com