test3.di

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

Thu Aug 26 15:34:07 EDT 1999
-----> ## QMG test 3: mesh a dodecahedron


Thu Aug 26 15:34:07 EDT 1999
-----> 

global qmg_data


Thu Aug 26 15:34:07 EDT 1999
-----> gmset dodec [gmoffread $qmg_data/dodec.off]


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

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


Thu Aug 26 15:34:08 EDT 1999
-----> gmsummary $dodec

object type =                  brep
intrinsic dimension =          3
embedded dimension =           3
number of brep prop/vals =     0
global id =                    [none listed]
number of control points =     20
number of top vertices =       20
number of top edges =          30
number of bezier curves =      30
max degree among curves =      1
number of topo. surfaces =     12
number of triangle patches =   36
max degree among triangles =   1
number of quad patches =       0
max u-degree among quads =     0
max v-degree among quads =     0
max total degree among quads = 0
number of chambers =           1

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


Thu Aug 26 15:34:17 EDT 1999
-----> set asp [gmchecktri $dodec $mesh]

Maximum aspect ratio =        31.0902 achieved in
simplex #1176 of topological entity region (3:0) which has vertices 48 313 315 321 
Maximum global side length =  0.4593
Minimum global altitude =     0.00676154
Number of nodes = 323 number of elements = 1210
31.090212219889679
Thu Aug 26 15:34:19 EDT 1999
-----> 

if {[llength [info globals aspprod]]} {
    global aspprod
    set aspprod [expr $aspprod * $asp]
    gmset {numvtx numelt} [gmmeshsize $mesh]
    global meshsizesum
    set meshsizesum [expr $meshsizesum + $numvtx]
}

1215
Thu Aug 26 15:34:19 EDT 1999
-----> 
# ------------------------------------------------------------------


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


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


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


Thu Aug 26 15:34:19 EDT 1999
-----> # concerning this software.


Thu Aug 26 15:34:19 EDT 1999
-----> # ------------------------------------------------------------------


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


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


Thu Aug 26 15:34:19 EDT 1999
-----> # ------------------------------------------------------------------


Thu Aug 26 15:34:19 EDT 1999