unitc(varargin)

function varargout = unitc(varargin)
% UNITC            : Gravity unit converter of GrAd (Relative Gravity Observation Process and Adjustment Program)
%
%                    Created by Cuneyt Aydin
%                    Address: Yildiz Teknik Universitesi, Jeodezi ve Fot. Muh. Bolumu, 34349 Besiktas-Istanbul/TURKEY
%                    Tel    : [phone] (2498 ext.)
%                    e-mail : [e-mail] & [e-mail]
%                    web    : www.yildiz.edu.tr/~caydin



if nargin == 0  

	fig = openfig(mfilename,'reuse');
 
	handles = guihandles(fig);
	guidata(fig, handles);
    
    birimler={'m/s^2';'Gal (cm/s^2)';'microm/s^2';'nm/s^2';'mGal';'microGal'};
    set(handles.popupmenu1,'string',birimler);
    
    set(handles.popupmenu2,'string',birimler);
    
	if nargout > 0
		varargout{1} = fig;
	end

elseif ischar(varargin{1}) 

	try
		if (nargout)
			[varargout{1:nargout}] = feval(varargin{:}); 
		else
			feval(varargin{:}); 
		end
	catch
		disp(lasterr);
	end

end



% --------------------------------------------------------------------
function varargout = edit1_Callback(h, eventdata, handles, varargin)
global a1
a1=str2double(get(h,'string'));


% --------------------------------------------------------------------
function varargout = popupmenu1_Callback(h, eventdata, handles, varargin)
global a
a=get(h,'value');


% --------------------------------------------------------------------
function varargout = popupmenu2_Callback(h, eventdata, handles, varargin)
global b
b=get(h,'value');


global a,global b, global a1

if isempty(a)
   b=1;
   break,end
if (a==1)&(b==1)
    a2=a1;
end
if (a==1)&(b==2)
    a2=a1*100;
end
if (a==1)&(b==3)
    a2=a1*10^6;
end
if (a==1)&(b==4)
    a2=a1*10^9;
end
if (a==1)&(b==5)
    a2=a1*10^5;
end
if (a==1)&(b==6)
    a2=a1*10^8;
end
%---------------
if (a==2)&(b==1)
    a2=a1/100;
end
if (a==2)&(b==2)
    a2=a1;
end
if (a==2)&(b==3)
    a2=a1*10^4;
end
if (a==2)&(b==4)
    a2=a1*10^7;
end
if (a==2)&(b==5)
    a2=a1*10^3;
end
if (a==2)&(b==6)
    a2=a1*10^6;
end

%---------------
if (a==3)&(b==1)
    a2=a1*(10^-6);
end
if (a==3)&(b==2)
    a2=a1*(10^-4);
end
if (a==3)&(b==3)
    a2=a1;
end
if (a==3)&(b==4)
    a2=a1*10^3;
end
if (a==3)&(b==5)
    a2=a1*(10^-1);
end
if (a==3)&(b==6)
    a2=a1*100;
end

%---------------
if (a==4)&(b==1)
    a2=a1*(10^-9);
end
if (a==4)&(b==2)
    a2=a1*(10^-7);
end
if (a==4)&(b==3)
    a2=a1*(10^-3);
end
if (a==4)&(b==4)
    a2=a1;
end
if (a==4)&(b==5)
    a2=a1*(10^-4);
end
if (a==4)&(b==6)
    a2=a1/10;
end

%---------------
if (a==5)&(b==1)
    a2=a1*(10^-5);
end
if (a==5)&(b==2)
    a2=a1*(10^-3);
end
if (a==5)&(b==3)
    a2=a1*10;
end
if (a==5)&(b==4)
    a2=a1*10^4;
end
if (a==5)&(b==5)
    a2=a1;
end
if (a==5)&(b==6)
    a2=a1*1000;
end

%---------------
if (a==6)&(b==1)
    a2=a1*(10^-8);
end
if (a==6)&(b==2)
    a2=a1*(10^-6);
end
if (a==6)&(b==3)
    a2=a1*(10^-2);
end
if (a==6)&(b==4)
    a2=a1*10;
end
if (a==6)&(b==5)
    a2=a1*(10^-3);
end
if (a==6)&(b==6)
    a2=a1;
end
clear a1

if (fix(a2*10^3)==0)|(a2>10^9)
set(handles.edit2,'string',a2);clear a2
else
a2=sprintf('%0.4f',a2);
set(handles.edit2,'string',a2);clear a2
end

% --------------------------------------------------------------------
function varargout = edit2_Callback(h, eventdata, handles, varargin)

clear a, clear b


% --------------------------------------------------------------------
function varargout = pushbutton11_Callback(h, eventdata, handles, varargin)

close('GrAd-Unit Converter')