In[]:=
Manipulate[Rey[v],{{v,1.5,"Velocity of Fluid(m/s): "},ControlTypeInputField,FieldSize7},{{roh,1,"Fluid Density (Kg/m^3): "},ControlTypeInputField,FieldSize7},{{dia,0.01,"Hydraulic Diameter (m) "},ControlTypeInputField,FieldSize7},{{muh,0.00089,"Dynamic Viscosity (Kg/ms): "},ControlTypeInputField,FieldSize7},Initialization{Rey[v_]:=(roh*v*dia)/muh}]
Out[]=
