//Darbas Nr.1
// Motociklo  greičio ir trinties i kelą koeficientas jam riedint.
//Studentas Irmatas Vilius, EAi35-1
//Kintamieji ir jū reikšmės:
v0 = 10; // Pradinis greitis m/s
s = 120; // Kelias m
v = 0; // Galutinis greitis
g = 10; // Laisvojo kritimo pagreitis m/s
//Duomenų išvedimas
disp('--- Pagrindiniai duomenys ---')
disp('Pradinis greitis = '+string(v0)+'m/s')
disp('Kelias = '+string (s)+'m')
disp('Galutinis greitis = '+string(v)+'m/s')
// Skaičiuojamoji dalis
spg = v^2-v0^2/(2*s);// Stabdymo pagreitis
f =-spg/g; //Trinties jėga
stk = -v0/spg; //Stabdymo kelias
tg=0;
vg=0;
i=0;
//Duomenų rezultatų išvedimas
disp('--- Apskaičiuotas rezultatas ---')
disp('Pagreitis ='+string(spg)+' m/s2')
disp('Trinties jėga į kelią ='+string (f)+'N')
disp('Stabdymo laikas ='+string(stk)+' s')
//Lentelė
disp ('laikas s  greitis m/s2')
for t=0:5:30
    s=120; // kelias
//Jeigu laikas yra 0 tada neskaičiuojame
    if(t==0) then
        v = 0
    else
        v=s/t // greitis
    end
    i=i+1; //Grafiko eil. nr
    tg(i) = t; // Grafiko x ašies generavimas
    vg(i) = v; // Grafiko y ašies generavimas
//Lentelės duomenų išvedimas
mprintf('\n%5.0f\t%6.0f', t, v);
end
    xtitle('greitis nuo laiko','laikas,s','greitis');
    plot(tg,vg);