#!/usr/bin/octave -qf

#Jakou práci vykoná zemská tíže při přesunu vody o objemu 500x250x20 m3 o 500m
#níže? Srovnat s denní produkcí energie elektrárny Temelín.

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

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

V_x =  input ("\n Vložte šířku vodního kvádru v metrech: ");
V_y =  input ("\n Vložte délku vodního kvádru v metrech: ");
V_z =  input ("\n Vložte hloubku vodního kvádru v metrech: ");
s =  input ("\n Vložte posun vodního kvádru v metrech: ");

V = V_x * V_y * V_z ;
rho = 999.97 ;
g = 9,81 ;

m = V * rho ;
F = m * g ;
W = F * s ;

W_t = 2*10e9*86400 ;
n = W / W_t;

disp ("\n \n |---------------------------------|\n \n")
disp ("Výsledky:")
printf ("\n Prace zemské tize je rovena  W = %g [J]\n", W)
printf ("\n Ve srovnani s Temelinem je pomer W / W_Temelin %g []\n", n)
disp ("\n \n |---------------------------------|\n \n")