Energie=5.000*1.2*3600;
Print["energie v aku je ",Energie," J"]
c=4186;
ΔT=(100-10);
Solve[m*c*ΔT==Energie]

Print["potrebny vykon je ",((0.2*c*30)/1000)," kW"]

Epotencialni=85*9.81*5000;
EjedenLitr=1750*1000;
(Epotencialni/EjedenLitr)

Needs["VectorAnalysis`"]

SetCoordinates[Cartesian[x,y,z]];

Div[λ*Grad[T[x]]]

DSolve[{T''[x]==0,T[0]==T1,T[d]==T2},T[x],x]

q=λ*((T1-T2)/d)/.{T1->15,T2->-5,d->0.45,λ->0.8}

S=1;
d1=0.45;
d2=0.1;
λ1=0.8;
λ2=0.04;
Rth1=(d1/(λ1*S));
Rth2=(d2/(λ2*S));
T1=15;T2=-5;
Q=((T1-T2)/(Rth1+Rth2));
((q*S)/Q)
T3=T1-Q*Rth1
T3=T1-Q*Rth2