Experimental Abacus: Ne and Ar vs Re (Sphere Falling in an Unbounded Fluid)
Authors: Housam Binous and Ahmed Bellagi
Experimental Abacus: Ne and Ar vs Re (Sphere Falling in an Unbounded Fluid)
Authors: Housam Binous and Ahmed Bellagi
Authors: Housam Binous and Ahmed Bellagi
(*Dragcoefficient:Schiller-Naumanncorrelation--NewtonnumberisdefinedinsedimentationproblemsasPi/8*Cd*)Cd[Reynolds_]:=If[Reynolds<1000,24/Reynolds(1+0.15Reynolds^0.687),0.44]
In[]:=
(*Archimedesnumber*)(*Ar=g*d^3*ρf*(ρs-ρf)/μ^2henceAr=3/4*Cd*Reynolds^2*)Ar[Reynolds_]:=(3/4)Cd[Reynolds]Reynolds^2
In[]:=
(*Log-LogPlot:NevsReynoldsandArvsReynolds*)reMin=0.001;reMax=10^6;LogLogPlot[{Pi/8Cd[Reynolds],Ar[Reynolds]},{Reynolds,reMin,reMax},PlotStyle->{Blue,Red},PlotLegends->Placed[{"Ne=Pi/8*Cd","Ar"},{0.2,0.8}],FrameLabel->{Style["Reynolds",14],Style["Ne & Ar",14]},GridLines->All,PlotRange->All,AspectRatio->1,Frame->True,PlotLabel->"Experimental Abacus: Newton and Archimedes vs Reynolds",ImageSize->400{1,1}]
Out[]=
