SetDirectory["FileName" /. NotebookInformation[
              EvaluationNotebook[]] /. FrontEnd`FileName[
              d_List, nam_, ___] :> ToFileName[d]];

dos = {a -> 5. , b -> 4. , c -> 2.5, 
          dk -> 0.3};
φ = << ficka;
Ska = << plochy;
S[i_Integer] := (Ska[[i, 1]]*Ska[[i, 2]] /. dos) /; 
          i < 7;
S[i_Integer] := (Ska[[i, 1]]^2*Pi*4 /. dos) /; 
          i == 7;
ns = 7;
α = Table[2.5, {ns}];
ϵ = Table[0.9, {ns}];
dz = Table[ .45, {ns}];
diz = Table[ .08, {ns}];
λz = Table[ .45, {ns}];
λiz = 
        Append[Table[ .45, {ns - 1}], 0];
Te = Table[-5, {ns}];
Ts = Table[(Subscript[T, i]), {i, ns}];
σ = 5.67*(10^(-8));

Qk[i_Integer] := α[[i]]*
          S[i]*(Ts[[i]] - Tv);
Qrvlastni[i_Integer] := ϵ[[i]]*
          S[i]*σ*(((Ts[[i]] + 273))^4);
Qrdop[i_Integer] := 
        Sum[Qrsum[j]*φ[[j, i]], {j, 1, 
            ns}];
Qrsum[i_Integer] := 
        Qrvlastni[i] + (1 - ϵ[[i]])*Qrdop[i];