qucal

function qucal
h1=findobj(0,'tag','qu');
m=findobj(h1,'tag','EditText1');
TaK=get(m,'string');
Ta=str2num(TaK)
mO=findobj(h1,'tag','EditText2');
TfK=get(mO,'string');
Tf=str2num(TfK)
mI=findobj(h1,'tag','EditText3');
ulk=get(mI,'string');
ul=str2num(ulk)
mII=findobj(h1,'tag','EditText4');
feK=get(mII,'string');
fe=str2num(feK)
mpp=findobj(h1,'tag','EditText5');
wk=get(mpp,'string');
w=str2num(wk)
mppp=findobj(h1,'tag','EditText6');
sk=get(mppp,'string');
s=str2num(sk)
if strcmp(wk,'')|strcmp(TfK,'')|strcmp(TaK,'')|strcmp(ulk,'')strcmp(sk,'')|strcmp(feK,'')
   %msgbox('YOU SHOULD ENTER ALL INFORMATION')
   t=0
else
   qu=w*fe*(s-ul*(Tf-Ta))
   msgbox(num2str(qu),'qu(usefull gain energy)')
   end