% Laminar or mixed laminar/turbulent forced convection over a flat isothermal plate 
function [h, NuL, ReL] = PlateNuT(U,L,ReCrit,mat,Tf)
  [ReL, Pr, kf] = Re(U,L,mat,Tf);                

  NuLam=@(ReL,Pr)0.664*ReL.^0.5.*Pr.^(1/3);      
  NuTurb=@(ReL,Pr)0.0370*ReL.^0.8.*Pr.^(1/3);    

  NuL = MixNu('T',NuLam,NuTurb,ReCrit,ReL,Pr,0); 
  h = NuL.*kf./L;
end
