test6.di

来自「算断裂的」· DI 代码 · 共 101 行

Thu Sep 02 18:10:43 Eastern Daylight Time 1999
-----> ## QMG test 6 -- test a surface crack in a 3D cube


Thu Sep 02 18:10:43 Eastern Daylight Time 1999
-----> 
global qmg_data


Thu Sep 02 18:10:43 Eastern Daylight Time 1999
-----> gmset crackcube [gm_read $qmg_data/crackcube.geo]


Thu Sep 02 18:10:43 Eastern Daylight Time 1999
-----> set show 0

0
Thu Sep 02 18:10:43 Eastern Daylight Time 1999
-----> if {[llength [info globals interactive]]} {
    set show 1
}


Thu Sep 02 18:10:43 Eastern Daylight Time 1999
-----> gmset mesh [gmmeshgen $crackcube curve "(const 1)" show $show]


Thu Sep 02 18:10:54 Eastern Daylight Time 1999
-----> 
gmset {crackcube2 mesh2} [gmdouble $crackcube * $mesh]


Thu Sep 02 18:10:54 Eastern Daylight Time 1999
-----> 
set asp [gmchecktri $crackcube2 $mesh2]

Maximum aspect ratio =        29.5587 achieved in
simplex #272 of topological entity r (3:0) which has vertices 51 49 101 146 
Maximum global side length =  0.519615
Minimum global altitude =     0.0110315
Number of nodes = 191 number of elements = 691
29.558690691673213
Thu Sep 02 18:10:55 Eastern Daylight Time 1999
-----> gmset {numvtx numelt} [gmmeshsize $mesh2]


Thu Sep 02 18:10:55 Eastern Daylight Time 1999
-----> 
if {[llength [info globals aspprod]]} {
    global aspprod
    set aspprod [expr $aspprod * $asp]
}

244843107.98203719
Thu Sep 02 18:10:55 Eastern Daylight Time 1999
-----> 
if {[llength [info globals meshsizesum]]} {
    global meshsizesum
    set meshsizesum [expr $meshsizesum + $numvtx]
}

2784
Thu Sep 02 18:10:55 Eastern Daylight Time 1999
-----> 
# ------------------------------------------------------------------


Thu Sep 02 18:10:55 Eastern Daylight Time 1999
-----> # Copyright (c) 1999 by Cornell University.  All rights reserved


Thu Sep 02 18:10:55 Eastern Daylight Time 1999
-----> # See the accompanying file 'Copyright' for authorship information,


Thu Sep 02 18:10:55 Eastern Daylight Time 1999
-----> # the terms of the license governing this software, and disclaimers


Thu Sep 02 18:10:55 Eastern Daylight Time 1999
-----> # concerning this software.


Thu Sep 02 18:10:55 Eastern Daylight Time 1999
-----> # ------------------------------------------------------------------


Thu Sep 02 18:10:55 Eastern Daylight Time 1999
-----> # This file is part of the QMG software.  


Thu Sep 02 18:10:55 Eastern Daylight Time 1999
-----> # Version 2.0 of QMG, release date September 3, 1999.


Thu Sep 02 18:10:55 Eastern Daylight Time 1999
-----> # ------------------------------------------------------------------


Thu Sep 02 18:10:55 Eastern Daylight Time 1999