




The domain is - a disk centered at (-1,0) with a radius of 0.5; - a great ellipse centered at (2,0) with a X-axis lenght of 0.5 and Y-axis lenght of 1.0; - a small ellipse centered at (2,0) with a X-axis lenght of 0.1 and Y-axis lenght of 0.5; - a corridor between the balls with a radius of 0.2; The mesh has 6347 vertices, 24724 nodes or degrees of freedom (dof), 12030 triangles.![]()
The initial conditions around the point (2.3,0) are defined by a user's function: DefFunc temperature0( t, x, y, z, nty, nuob ); if 2.1Results: CONVERGENCE after 21 ITERATIONS MAX|U(N)|= 2.16577 At NODE XYZ=( 2.29057, -0.850032E-01 ) ||Un|| = 0.598213E-01 ||Un-Un-1||/||Un||= 0.479523E-03 | Un |H1 = 0.153415 | Hn-Hn-1 |/| Hn |= 0.463385E-03 J=ENERGY = 0.588403E-02 ||En-En-1||/||En||= 0.926986E-03 |RESIDU0|= 0.948523E-07 Max|RESIDUE Un(P)|= 0.948281E-07 Scaling Factor = (1/U)**(1/(P-1))= 0.131113278
![]()
The initial conditions around the point (2,0.75): DefFunc temperature0( t, x, y, z, nty, nuob ); if y>0.5 et abs(x-xc2)<0.2 then temperature0 = 1.0; else temperature0 = 0.0; endif; EndFunc; At point (2,0.75) temperature0=1.00001 Results: CONVERGENCE after 154 ITERATIONS MAX|U(N)|= 2.15873 At NODE XYZ=( 2.03546, 0.747884 ) ||Un|| = 0.600030E-01 ||Un-Un-1||/||Un||= 0.00000 | Un |H1 = 0.152818 | Hn-Hn-1 |/| Hn |= 0.00000 J=ENERGY = 0.587512E-02 ||En-En-1||/||En||= 0.00000 |RESIDU0|= 0.667051E-05 Max|RESIDUE Un(P)|= 0.667051E-05 Scaling Factor = (1/U)**(1/(P-1))= 1.
![]()
The initial conditions around the point (1.71,0): DefFunc temperature0( t, x, y, z, nty, nuob ); DefVar r; r=sqrt((x-1.71)**2+y**2); if r<0.3 then temperature0 = 1.0; else temperature0 = 0.0; endif; EndFunc; At point (1.71,0) temperature0=1.00001 Results: CONVERGENCE after 138 ITERATIONS MAX|U(N)|= 2.16453 At NODE XYZ=( 1.65689, 0.294089E-02 ) ||Un|| = 0.612721E-01 ||Un-Un-1||/||Un||= 0.998909E-03 | Un |H1 = 0.153463 | Hn-Hn-1 |/| Hn |= 0.154950E-04 J=ENERGY = 0.588775E-02 ||En-En-1||/||En||= 0.309892E-04 |RESIDU0|= 0.643943E-05 Max|RESIDUE Un(P)|= 0.643774E-05 Scaling Factor = (1/U)**(1/(P-1))= 0.425304024
![]()
The initial conditions around the point (0.31,0): DefFunc temperature0( t, x, y, z, nty, nuob ); if -0.51+0.05Results: CONVERGENCE after 53 ITERATIONS MAX|U(N)|= 2.18230 At NODE XYZ=( 0.270527, 0.214300E-02 ) ||Un|| = 0.597973E-01 ||Un-Un-1||/||Un||= 0.679739E-03 | Un |H1 = 0.153316 | Hn-Hn-1 |/| Hn |= 0.489756E-03 J=ENERGY = 0.587646E-02 ||En-En-1||/||En||= 0.979393E-03 |RESIDU0|= 0.222410E-04 Max|RESIDUE Un(P)|= 0.222012E-04 Scaling Factor = (1/U)**(1/(P-1))= 0.74283237
![]()
The initial conditions around the point (-0.953,0): DefFunc temperature0( t, x, y, z, nty, nuob ); if -0.953-0.5Results: CONVERGENCE after 21 ITERATIONS MAX|U(N)|= 2.16432 At NODE XYZ=( -0.989058, 0.499843E-02 ) ||Un|| = 0.641153E-01 ||Un-Un-1||/||Un||= 0.00000 | Un |H1 = 0.153614 | Hn-Hn-1 |/| Hn |= 0.00000 J=ENERGY = 0.588185E-02 ||En-En-1||/||En||= 0.00000 |RESIDU0|= 0.175929E-04 Max|RESIDUE Un(P)|= 0.175929E-04 Scaling Factor = (1/U)**(1/(P-1))= 1.
![]()




