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

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

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