%% helloWorld.m

sekpaivassa=24*60*60
tau=1.5*sekpaivassa

loppuAika=6*sekpaivassa
%%
t=loppuAika
lopullisetTiedot=1-exp(-t/tau)

disp(['Kurssin lopussa osaan ',num2str(100*lopullisetTiedot),' % Matlabista'])

%% Hello 2
load aloitusAika
who
disp(['Aloin opiskella Matlabia ',alkustr])
%% Hello 3, Vector operations
%{
Calculate how many seconds elapsed since the start of 
class
%}
secPerMin=60
secPerHour=60*secPerMin
secPerDay=24*secPerHour
secPerMonth=30.5*secPerDay
secPerYear=12*secPerMonth

secondConversion=[secPerYear secPerMonth secPerDay ...
    secPerHour secPerMin 1]

nyt=clock
kulunutAika=nyt-alku
length(kulunutAika)

t=kulunutAika*secondConversion'

%% Nykytiedot Matlabista:

k=1-exp(-t/tau)

disp(['Talla hetkella osaan ',num2str(100*k),...
    '% Matlabia'])
%% Exercise: Learning trajectory

tVec=linspace(0,loppuAika,10000);  % Muista (;) !!!
tietoVektori=1-exp(-tVec/tau);  % ... kuin myos !!!
%% When will you know 50% of MATLAB?
minimi=min(abs(tietoVektori-0.5))
ind=find(abs(tietoVektori-0.5)==minimi)
%{
  Nama 2 rivia voidaan hoitaa viela helpommin 
  kayttamalla min-funktion 2-paluuargumenttimuotoa:
%}
[minArvo,minInd]=min(abs(tietoVektori-0.5))
puoliaika=tVec(ind)
puoliaika/secPerDay

disp(['I will know half of MATLAB after '...
    num2str(puoliaika/secPerDay) ' days']);
%% Plot the learning trajectory
t=tVec/secPerDay;
%figure
plot(t,tietoVektori)
grid on
