test5.di

算断裂的

Thu Aug 26 15:57:07 EDT 1999
-----> ## QMG test 5 -- test a branching crack


Thu Aug 26 15:57:07 EDT 1999
-----> 
global qmg_data


Thu Aug 26 15:57:07 EDT 1999
-----> gmset branchobj [gm_read $qmg_data/branchobj.geo]


Thu Aug 26 15:57:08 EDT 1999
-----> set show 0

0
Thu Aug 26 15:57:08 EDT 1999
-----> if {[llength [info globals interactive]]} {
    set show 1
}


Thu Aug 26 15:57:08 EDT 1999
-----> gmset mesh [gmmeshgen $branchobj show $show]


Thu Aug 26 15:57:08 EDT 1999
-----> 
gmset {branchobj2 mesh2} [gmdouble $branchobj * $mesh]


Thu Aug 26 15:57:09 EDT 1999
-----> 
set asp [gmchecktri $branchobj2 $mesh2]

Maximum aspect ratio =        15.7576 achieved in
simplex #309 of topological entity crackobj (2:0) which has vertices 171 19 172 
Maximum global side length =  0.355317
Minimum global altitude =     0.00904466
Number of nodes = 199 number of elements = 319
15.757575757575809
Thu Aug 26 15:57:09 EDT 1999
-----> gmset {numvtx numelt} [gmmeshsize $mesh2]


Thu Aug 26 15:57:09 EDT 1999
-----> 
if {$show} {
    gmviz $mesh
}


Thu Aug 26 15:57:09 EDT 1999
-----> 
if {[llength [info globals aspprod]]} {
    global aspprod
    set aspprod [expr $aspprod * $asp]
    global meshsizesum
    set meshsizesum [expr $meshsizesum + $numvtx]
}

2593
Thu Aug 26 15:57:09 EDT 1999
-----> 
# ------------------------------------------------------------------


Thu Aug 26 15:57:09 EDT 1999
-----> # Copyright (c) 1999 by Cornell University.  All rights reserved


Thu Aug 26 15:57:09 EDT 1999
-----> # See the accompanying file 'Copyright' for authorship information,


Thu Aug 26 15:57:09 EDT 1999
-----> # the terms of the license governing this software, and disclaimers


Thu Aug 26 15:57:09 EDT 1999
-----> # concerning this software.


Thu Aug 26 15:57:09 EDT 1999
-----> # ------------------------------------------------------------------


Thu Aug 26 15:57:09 EDT 1999
-----> # This file is part of the QMG software.  


Thu Aug 26 15:57:09 EDT 1999
-----> # Version 2.0 of QMG, release date RELDATE.


Thu Aug 26 15:57:09 EDT 1999
-----> # ------------------------------------------------------------------


Thu Aug 26 15:57:09 EDT 1999