      disp('     ');
t=input('Air Tempeature, C     = ');
h=input('Relative humidity, %  = ');
A=[];
%for t=24:0.1:30;
%   for h=70:100;
      x=[t h];
      q=qair(x);
      w=1.61*q/(1-.61*q/1000);
      disp('     ');
      disp(['Calibration mole ratio = ' num2str(w) ' mmole/mole']); 
      disp('     ');
%      A=[A
%         x q w];
%   end;
%end;
%A