#!/usr/bin/octave -qf

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

#Jaká je délka matematického kyvadla s periodou malých kmitů 1s a 1ns na Zemi a
#na Měsíci? Jak se změní perioda ve výtahu, který se pohybuje vzhůru se
#zrychlením 2g?

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

T = input ("\n Periodu kmitů matematického kyvadla v sekundách : ");
a = input ("\n Zrychlení výtahu v G (G=9.80665[ms^-2]) : ");

l_z = (T/(2*pi))^2 * 9.80665;
l_m = (T/(2*pi))^2 * 9.80665/6;
T_v = sqrt(1/(1+a));

disp ("\n \n |---------------------------------|\n \n")
disp ("Výsledky:")
printf ("\n Délka kyvadla na Zemi je %g [m]\n", l_z)
printf ("\n Délka kyvadla na Měsíci je %g [m]\n", l_m)
printf ("\n Perioda kyvadla ve výtahu, pohybujícím se zrychlením %g G  se změní se vztahem T/T_v = %g \n", a,T_v)
disp ("\n Předpokládáme přitom, že výtah ve volném prostoru bez působení jiných sil, resp. že jediné zrychlení působící na kyvadlo ve výtahu je zrychlení výtahu samotné.")
disp ("\n \n |---------------------------------|\n \n")