3.4 3D Stream plot and 3D vector plot of the Curl field.

The following visualizations show a 3D stream plot and 3D vector plot of the Curl field Curl[V(t,x,y,z)
]=Curl[{u(t,x,y,z),v(t,x,y,z),w(t,x,y,z)}
, {x, y, z}] .
In[]:=
ListAnimate[Table[GraphicsColumn[{GraphicsRow[{Show[bmesh["Wireframe"["MeshElementStyle"Directive[FaceForm[Opacity[0.25]],EdgeForm[]]]],Graphics3D[{Opacity[1],dg}],StreamPlot3D[Evaluate[Curl[{xVel[t,x,y,z],yVel[t,x,y,z],zVel[t,x,y,z]},{x,y,z}]],{x,y,z}∈mesh],MeshNone,ViewPoint{1.3,-2.4,2.}],Show[bmesh["Wireframe"["MeshElementStyle"Directive[FaceForm[Opacity[0.25]],EdgeForm[]]]],Graphics3D[{Opacity[1],dg}],VectorPlot3D[Evaluate[Curl[{xVel[t,x,y,z],yVel[t,x,y,z],zVel[t,x,y,z]},{x,y,z}]],{x,y,z}∈mesh],MeshNone,ViewPoint{1.3,2.4,2.}]}],GraphicsRow[{Show[bmesh["Wireframe"["MeshElementStyle"Directive[FaceForm[Opacity[0.25]],EdgeForm[]]]],Graphics3D[{Opacity[1],dg}],StreamPlot3D[Evaluate[Curl[{xVel[t,x,y,z],yVel[t,x,y,z],zVel[t,x,y,z]},{x,y,z}]],{x,y,z}∈mesh],MeshNone,ViewPoint{-3,0.5,0.25}],Show[bmesh["Wireframe"["MeshElementStyle"Directive[FaceForm[Opacity[0.25]],EdgeForm[]]]],Graphics3D[{Opacity[1],dg}],VectorPlot3D[Evaluate[Curl[{xVel[t,x,y,z],yVel[t,x,y,z],zVel[t,x,y,z]},{x,y,z}]],{x,y,z}∈mesh],MeshNone,ViewPoint{3,0.5,0.25}]}]}],{t,0,1.05,0.105}],1]
（Because the file is too large to upload, so the animation output results for screenshots. ）

4. Conclusion

Our conclusion is that the proposed “3D space shuttle wind tunnel test” can describe the flow field and flow situation of the 3D space shuttle model in the wind tunnel under “turbulent” environment. Therefore, we believe that this experiment can provide a detailed understanding of complex flow phenomena and their corresponding flow mechanisms.

Acknowledgements

Many thanks to the Wolfram’s team and their professional guidance!

Reference

[1]. Zhang Hanxin（张涵信）, Shen Mengyu（沈孟育） Complementary Fluid Dynamics —— Fundamentals and Applications of Finite Difference Methods [M] . Beijing: National Defense Industry Press, 2003.