function [new_oxy,Soc,Voffset,A,B,C,E]= oxy_fit_none( ...
	volt,OXSAT,temp,press,sta,bot_oxy, ...
		Soc,Voffset,A,B,C,E);
%OXY_FIT_NONE - oxygen coeffs from volt and botOx (no trend)

% $Revision: 1.6 $
% $Date: 2008/04/09 14:20:33 $
% $Id: oxy_fit_none.m,v 1.6 2008/04/09 14:20:33 duncombe Exp duncombe $

x=[volt OXSAT temp press];
beta(1,1)=Soc;
beta(1,2)=Voffset;
beta(1,3)=A;
beta(1,4)=B;
beta(1,5)=C;
beta(1,6)=E;
beta0=non_lin_fit(x,bot_oxy,'oxygen_fit_new_equation',beta);
Soc=beta0(1);
Voffset=beta0(2);
A=beta0(3);
B=beta0(4);
C=beta0(5);
E=beta0(6);

new_oxy=(Soc.*(volt+Voffset)).*...
	(1.0+(A.*temp)+(B.*temp.^2)+(C.*temp.^3)).*OXSAT.*exp((E.*press)./(temp+273.15));

return;

