function stfinefficiencycal
h1=findobj(0,'tag','stfinef');
m1=findobj(h1,'tag','EditText1');
ulk=get(m1,'string');
ul=str2num(ulk)
m2=findobj(h1,'tag','EditText2');
wk=get(m2,'string');
w=str2num(wk)
m3=findobj(h1,'tag','EditText3');
Dk=get(m3,'string');
D=str2num(Dk)
m4=findobj(h1,'tag','EditText4');
DELk=get(m4,'string');
DEL=str2num(DELk)
m5=findobj(h1,'tag','EditText5');
Kk=get(m5,'string');
K=str2num(Kk)
m=(ul/(K*DEL))^(.5);
A=m*(w-D)/2;
F=(tanh(A))/A
msgbox(num2str(F),'STANDARD FIN EFFIENCY')
