function utcal
h1=findobj(0,'tag','utf');
m=findobj(h1,'tag','EditText1');
NK=get(m,'string');
N=str2num(NK)
h2=findobj(0,'tag','collectorf');
mL=findobj(h2,'tag','EditText1');
bk=get(mL,'string');
b=str2num(bk)
mO=findobj(h1,'tag','EditText2');
EGK=get(mO,'string');
EG=str2num(EGK)
mI=findobj(h1,'tag','EditText3');
EPK=get(mI,'string');
EP=str2num(EPK)
mII=findobj(h1,'tag','EditText4');
TaK=get(mII,'string');
Ta=str2num(TaK)
mpp=findobj(h1,'tag','EditText5');
Tpmk=get(mpp,'string');
Tpm=str2num(Tpmk)
mcc=findobj(h1,'tag','EditText6');
hwk=get(mcc,'string');
hw=str2num(hwk)
f=(1+0.089*hw-0.1166*hw*EP)*(1+0.07866*N);
if (0<=b<=70)
c=520*(1-0.000051*(b^2))
else
b=70
c=520*(1-0.000051*(b^2))
end
e=0.43*(1-(100/Tpm));
a=(((Tpm-Ta)/(N+f))^e)*(c/Tpm);
b=(N/a)+(1/hw);
avali=1/b
sigma=.568*(10^(-8));
num=sigma*(Tpm+Ta)*((Tpm)^2+(Ta)^2);
ss=EP+0.00591*N*hw;
sss=1/ss;
denum=sss+((2*N+f-1+(0.133*EP))/EG)-N
dovomi=(num/denum)
ut=(avali+dovomi)*1.9436
msgbox(num2str(ut),'top loss coefficient')
