#!/usr/bin/octave -qf

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

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

m =  input ("\n Zadejte hmotnost uhlikovych kouli v kilogramech : ");
r =  input ("\n Zadejte vzdalenost uhlikovych kouli v metrech : ");
s =  input ("\n Zadejte vzdalenost o kterou se maji koule priblizit v metrech : ");

G = 6.67e-11;
k = 8.99e9;
Q_e = 1.602e-19;

Q_1 = Q_2 = 5e22 * m*1000*Q_e ;

F_e =(k * Q_1 * Q_2)/ (r^2);
a = F_e / (2*m);

t = sqrt( (2*s) / a);

F_g = (G * m * m) / (r^2);

n = F_e / F_g;



disp ("\n \n |---------------------------------|\n \n")
disp ("Výsledky:")
printf ("\n Dané 2 koule na sebe působí elektrickou silou %g [N]\n", F_e)
printf ("\n Dané 2 koule na sebe působí gravitační silou %g [N]\n", F_g)
printf ("\n Poměr elektrické ke gravitační síle vychází n= %g\n", n)
printf ("\n O vzdálenost %g [m] se přiblíží za čas  %g [sec] \n", s,t)
disp ("\n \n |---------------------------------|\n \n")