function collectoreficncyfactorcal
h1=findobj(0,'tag','cef');
m1=findobj(h1,'tag','EditText1');
ulk=get(m1,'string');
ul=str2num(ulk)
m2=findobj(h1,'tag','EditText2');
cbk=get(m2,'string');
cb=str2num(cbk)
m3=findobj(h1,'tag','EditText3');
wk=get(m3,'string');
w=str2num(wk)
m4=findobj(h1,'tag','EditText4');
Dk=get(m4,'string');
D=str2num(Dk)
m5=findobj(h1,'tag','EditText5');
Dik=get(m5,'string');
Di=str2num(Dik)
m6=findobj(h1,'tag','EditText6');
hfk=get(m6,'string');
hf=str2num(hfk)
m7=findobj(h1,'tag','EditText7');
fk=get(m7,'string');
f=str2num(fk)
num=1/ul;
avali=1/(ul*(D+(w-D)*f));
dovomi=1/cb;
sevomi=1/(pi*Di*hf);
den=(avali+dovomi+sevomi)*w*ul;
collectoreffiencyfactor=1/den
msgbox(num2str(collectoreffiencyfactor),'collector efficency factor')
