#!/usr/bin/octave -qf

#zaokrouhleni
output_precision = 15;
#Úloha 
disp ("\n \n |---------------------------------|\n \n")
disp ("Script pro výpočet úloly 7 do")
disp ("VB005 - Panorama fyziky")
disp ("\n \n |---------------------------------|\n \n")
format short g

disp ("Zadejte prosím několik vstupních dat pro:\n")

rychlost_v_mach =  input ("\n Uveďte rychlost pohybu hodin v násobcích rychlosti zvuku : ");
rozdil_i =  input ("\n Uveďte rozdíl, o který se mají hodiny rozcházet v hodinách : ");

rozdil = rozdil_i * 60*60

v_h = rychlost_v_mach * 331.5 ;
v = rychlost_v_mach * v_h;
c = 3e8;

cas = rozdil * sqrt(1-( (v^2) / (c^2))) / (1- sqrt(1-((v^2) / (c^2)))) ;


#Jak dlouho by se musely pohybovat hodiny rychlostí dvojnásobnou rychlosti zvuku
#v atmosféře, aby se rozešly proti hodinám v klidu o 1 hodinu?

disp ("\n \n |---------------------------------|\n \n")
disp ("Výsledky:")
printf ("\n Hodiny se rozejdou za %g [s]\n", cas)
disp ("\n \n |---------------------------------|\n \n")