reflectcal

function reflectcal
h1=findobj(0,'tag','reflectionfactor');
m=findobj(h1,'tag','EditText1');
tetaonek=get(m,'string');
tetaone=str2num(tetaonek)
load a:\data2 
 pop1=findobj(0,'tag','PopupMenu1ref');
 so=get(pop1,'value');
 st=get(pop1,'string');
 %st{so}
 eval(['mat.' st{so}])
 eval(['n=mat.' st{so}])
 tetatwo=(asin(sin(tetaone*pi/(180*n))))*180/pi
 normreflef=((sin((tetatwo-tetaone)*pi/180))^(2))/((sin((tetatwo+tetaone)*pi/180))^(2))
 parreflef=((tan((tetatwo-tetaone)*pi/180))^(2))/((tan((tetatwo+tetaone)*pi/180))^(2))
 msgbox(num2str(normreflef),'normal reflection factor')
 msgbox(num2str(parreflef),'parallel reflection factor')
 msgbox(num2str(tetatwo),'effective incidence angle inside the material cover')