26 lines
626 B
Mathematica
26 lines
626 B
Mathematica
|
%%*****************************************************************
|
||
|
|
%% SDPT3: version 4.0
|
||
|
|
%% Copyright (c) 1997 by
|
||
|
|
%% Kim-Chuan Toh, Michael J. Todd, Reha H. Tutuncu
|
||
|
|
%% Last Modified: 16 Sep 2004
|
||
|
|
%%*****************************************************************
|
||
|
|
function [hh,mm,ss] = mytime(t);
|
||
|
|
|
||
|
|
t = round(t);
|
||
|
|
h = floor(t/3600);
|
||
|
|
m = floor(rem(t,3600)/60);
|
||
|
|
s = rem(rem(t,60),60);
|
||
|
|
|
||
|
|
hh = num2str(h);
|
||
|
|
if (h > 0) & (m < 10)
|
||
|
|
mm = ['0',num2str(m)];
|
||
|
|
else
|
||
|
|
mm = num2str(m);
|
||
|
|
end
|
||
|
|
if (s < 10)
|
||
|
|
ss = ['0',num2str(s)];
|
||
|
|
else
|
||
|
|
ss = num2str(s);
|
||
|
|
end
|
||
|
|
%%**********************************************
|