#!/usr/bin/octave -qf

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

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

#Za jak dlouho se stočí
#rovina kmitů o 90 stupňů v naší zeměpisné šířce?

phi =  input ("\n Vložte prosím vaši zeměpisnou šířku (pro Brno 49.2) ve stupních : ");
uhel = input ("\n Vložte prosím požadovaný úhel, o který se má Foucaltovo kyvadlo natočit ve stupních : ");

phi_rad = (2*pi*phi) / 360
T_0 = (23*60 + 56)*60 + 04 
omega_0 = 2*pi / T_0 # [rad/sec]
omega = omega_0 * sin(phi_rad)

i = uhel / 360

T = (2*pi) / omega
Ti = T * i;
disp ("\n \n |---------------------------------|\n \n")
disp ("Výsledky:")
printf ("\n Foucaltovo kyvadlo ve v zeměpisné šířce %g natočí o úhel %g [stupňů] za čas %g [sec]\n",phi,uhel,Ti)
disp ("\n \n |---------------------------------|\n \n")