#!/usr/bin/octave -qf

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

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

S_x =  input ("\n Zadejte šířku kondenzátoru v metrech: ");
S_y =  input ("\n Zadejte délku kondenzátoru v metrech: ");
d =  input ("\n Zadejte vzdálenost elektrod v kondenzátoru v metrech: ");
U =  input ("\n Zadejte na elektrodách ve voltech: ");

S = S_x * S_y ;
epsilon_r = 7.6 ;
epsilon_0 = 8.854e-12 ;
Q_e = 1.602e-19 ;

C = epsilon_0 * epsilon_r * S/d ;

Q = C * U ;

n = Q /Q_e ;

disp ("\n \n |---------------------------------|\n \n")
disp ("Výsledky:")
printf ("\n Konednzátor má kapacitu %g [F]\n", C)
printf ("\n Q =  %g [C]\n", Q)
printf ("\n Pocet naboju je zhruba %g \n", n)
disp ("\n \n |---------------------------------|\n \n")