xBiom1=60;
xBiom2=40;
tVzduch2=40;
xVzduch2= 30;
(*Podminka: Neprsi dlouho*)
tVzduch1=-20;
xVzduch1= 10;
vahaBiom2 = 500;
vodaOut=250;
(* nejit pod 100% jinak kondenzace vody, kdyz se to stane, zvetsit proudeni vzduchu*)
x2=14; (*odecist z grafu*)
x3= 20;
deltax=x3-x2;
vahaVzduch = (vodaOut/deltax)//N

tmax=75;
x2=00.3

p=((76.7+20)/3600)*vahaVzduch*1000

Clear["Global`*"]

(*dalsi priklad - suseni vzduchu*)
t1=25;
fi1=65;
t2= 18;
fi2=32;

x1=13;
ii1=58.6;
x2=4;
ii2=29;
ii3=10.62;
m=253;
time=3;
pch=(((ii1-ii3))/(3*3600))*m

ptep=(((ii2-ii3))/(3*3600))*m

priktotal=4*pch+1.3*ptep

proud=((priktotal*1000)/(400*(Sqrt[3])))