test9.di

算断裂的

Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 
lappend surflist s_bottom {} \
	{ebottomcirc ebottom0 ebottom1 ebottom2 ebottom3 ebottom4 ebottom5} \
	{} $patches

s_bottom {} {ebottomcirc ebottom0 ebottom1 ebottom2 ebottom3 ebottom4 ebottom5} {} {{bezier_quad 3 1 36 37 38 39 0 1 2 3} {bezier_quad 3 1 39 40 41 42 3 4 5 6} {bezier_quad 3 1 42 43 44 45 6 7 8 9} {bezier_quad 3 1 45 46 47 48 9 10 11 12} {bezier_quad 3 1 48 49 50 51 12 13 14 15} {bezier_quad 3 1 51 52 53 36 15 16 17 0}}
Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 

# top surface


Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> set patches {}


Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> for {set j 0} {$j < 6} {incr j} {
    set nextj [expr ($j+1)%6]
    lappend patches [list bezier_quad 3 1 [expr 54+3*$j] \
	    [expr 55+3*$j] [expr 56+3*$j] [expr 54+3*$nextj] \
	    [expr 3*$j+18] [expr 3*$j+19] [expr 3*$j+20] [expr 3*$nextj+18]]
}


Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 
lappend surflist s_top {} \
	{etopcirc etop0 etop1 etop2 etop3 etop4 etop5} \
	{} $patches

s_bottom {} {ebottomcirc ebottom0 ebottom1 ebottom2 ebottom3 ebottom4 ebottom5} {} {{bezier_quad 3 1 36 37 38 39 0 1 2 3} {bezier_quad 3 1 39 40 41 42 3 4 5 6} {bezier_quad 3 1 42 43 44 45 6 7 8 9} {bezier_quad 3 1 45 46 47 48 9 10 11 12} {bezier_quad 3 1 48 49 50 51 12 13 14 15} {bezier_quad 3 1 51 52 53 36 15 16 17 0}} s_top {} {etopcirc etop0 etop1 etop2 etop3 etop4 etop5} {} {{bezier_quad 3 1 54 55 56 57 18 19 20 21} {bezier_quad 3 1 57 58 59 60 21 22 23 24} {bezier_quad 3 1 60 61 62 63 24 25 26 27} {bezier_quad 3 1 63 64 65 66 27 28 29 30} {bezier_quad 3 1 66 67 68 69 30 31 32 33} {bezier_quad 3 1 69 70 71 54 33 34 35 18}}
Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 
# inner surface


Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 
set patches {}


Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> for {set j 0} {$j < 6} {incr j} {
    set nextj [expr ($j+1)%6]
    lappend patches [list bezier_quad 3 1 [expr 3*$j] \
	    [expr 3*$j+1] [expr 3*$j+2] [expr 3*$nextj] \
	    [expr 3*$j+18] [expr 3*$j+19] [expr 3*$j+20] [expr 3*$nextj+18]]
}


Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 
lappend surflist s_inner {} {ebottomcirc etopcirc} {} $patches

s_bottom {} {ebottomcirc ebottom0 ebottom1 ebottom2 ebottom3 ebottom4 ebottom5} {} {{bezier_quad 3 1 36 37 38 39 0 1 2 3} {bezier_quad 3 1 39 40 41 42 3 4 5 6} {bezier_quad 3 1 42 43 44 45 6 7 8 9} {bezier_quad 3 1 45 46 47 48 9 10 11 12} {bezier_quad 3 1 48 49 50 51 12 13 14 15} {bezier_quad 3 1 51 52 53 36 15 16 17 0}} s_top {} {etopcirc etop0 etop1 etop2 etop3 etop4 etop5} {} {{bezier_quad 3 1 54 55 56 57 18 19 20 21} {bezier_quad 3 1 57 58 59 60 21 22 23 24} {bezier_quad 3 1 60 61 62 63 24 25 26 27} {bezier_quad 3 1 63 64 65 66 27 28 29 30} {bezier_quad 3 1 66 67 68 69 30 31 32 33} {bezier_quad 3 1 69 70 71 54 33 34 35 18}} s_inner {} {ebottomcirc etopcirc} {} {{bezier_quad 3 1 0 1 2 3 18 19 20 21} {bezier_quad 3 1 3 4 5 6 21 22 23 24} {bezier_quad 3 1 6 7 8 9 24 25 26 27} {bezier_quad 3 1 9 10 11 12 27 28 29 30} {bezier_quad 3 1 12 13 14 15 30 31 32 33} {bezier_quad 3 1 15 16 17 0 33 34 35 18}}
Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 
# six outer surfaces


Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> for {set j 0} {$j < 6} {incr j} {
    set nextj [expr ($j+1)%6]
    lappend surflist s_outer$j {} [list ebottom$j etop$j eside$j eside$nextj] \
	    {} [list [list bezier_quad 1 1 [expr 3*$j+36] [expr 3*$nextj+36] \
	    [expr 3*$j+54] [expr 3*$nextj+54]]]
}


Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 
#crack surface


Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 
lappend surflist crack {} {ecrk0 ecrk1 ecrk2} {} {{bezier_triangle 1 72 73 74}}

s_bottom {} {ebottomcirc ebottom0 ebottom1 ebottom2 ebottom3 ebottom4 ebottom5} {} {{bezier_quad 3 1 36 37 38 39 0 1 2 3} {bezier_quad 3 1 39 40 41 42 3 4 5 6} {bezier_quad 3 1 42 43 44 45 6 7 8 9} {bezier_quad 3 1 45 46 47 48 9 10 11 12} {bezier_quad 3 1 48 49 50 51 12 13 14 15} {bezier_quad 3 1 51 52 53 36 15 16 17 0}} s_top {} {etopcirc etop0 etop1 etop2 etop3 etop4 etop5} {} {{bezier_quad 3 1 54 55 56 57 18 19 20 21} {bezier_quad 3 1 57 58 59 60 21 22 23 24} {bezier_quad 3 1 60 61 62 63 24 25 26 27} {bezier_quad 3 1 63 64 65 66 27 28 29 30} {bezier_quad 3 1 66 67 68 69 30 31 32 33} {bezier_quad 3 1 69 70 71 54 33 34 35 18}} s_inner {} {ebottomcirc etopcirc} {} {{bezier_quad 3 1 0 1 2 3 18 19 20 21} {bezier_quad 3 1 3 4 5 6 21 22 23 24} {bezier_quad 3 1 6 7 8 9 24 25 26 27} {bezier_quad 3 1 9 10 11 12 27 28 29 30} {bezier_quad 3 1 12 13 14 15 30 31 32 33} {bezier_quad 3 1 15 16 17 0 33 34 35 18}} s_outer0 {} {ebottom0 etop0 eside0 eside1} {} {{bezier_quad 1 1 36 39 54 57}} s_outer1 {} {ebottom1 etop1 eside1 eside2} {} {{bezier_quad 1 1 39 42 57 60}} s_outer2 {} {ebottom2 etop2 eside2 eside3} {} {{bezier_quad 1 1 42 45 60 63}} s_outer3 {} {ebottom3 etop3 eside3 eside4} {} {{bezier_quad 1 1 45 48 63 66}} s_outer4 {} {ebottom4 etop4 eside4 eside5} {} {{bezier_quad 1 1 48 51 66 69}} s_outer5 {} {ebottom5 etop5 eside5 eside0} {} {{bezier_quad 1 1 51 36 69 54}} crack {} {ecrk0 ecrk1 ecrk2} {} {{bezier_triangle 1 72 73 74}}
Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 
set brepl [list $gm_brep_type_code 3 3 {} $cplist $vertlist $edgelist \
	$surflist {hexnutcrack {} {s_bottom s_top s_inner \
	s_outer0 s_outer1 s_outer2 s_outer3 s_outer4 s_outer5 crack crack} \
	{} {}}]

brep_v2.0 3 3 {} {1.0 0.0 -.3 1.0000000000000002 0.3568220897730896 -.3 0.80901699437494801 0.68761435889789313 -.3 0.50000000000000089 0.86602540378443815 -.3 0.19098300562505391 1.0444364486709834 -.3 -0.19098300562505077 1.0444364486709841 -.3 -0.49999999999999828 0.8660254037844396 -.3 -0.80901699437494579 0.68761435889789557 -.3 -0.99999999999999911 0.35682208977309243 -.3 -1.0 2.7869958944826134e-015 -.3 -1.0000000000000011 -0.35682208977308688 -.3 -0.80901699437495012 -0.68761435889789069 -.3 -0.50000000000000344 -0.8660254037844366 -.3 -0.19098300562505705 -1.0444364486709827 -.3 0.19098300562504739 -1.0444364486709845 -.3 0.49999999999999545 -0.86602540378444126 -.3 0.80901699437494368 -0.68761435889789813 -.3 0.99999999999999778 -0.35682208977309615 -.3 1.0 0.0 .3 1.0000000000000002 0.3568220897730896 .3 0.80901699437494801 0.68761435889789313 .3 0.50000000000000089 0.86602540378443815 .3 0.19098300562505391 1.0444364486709834 .3 -0.19098300562505077 1.0444364486709841 .3 -0.49999999999999828 0.8660254037844396 .3 -0.80901699437494579 0.68761435889789557 .3 -0.99999999999999911 0.35682208977309243 .3 -1.0 2.7869958944826134e-015 .3 -1.0000000000000011 -0.35682208977308688 .3 -0.80901699437495012 -0.68761435889789069 .3 -0.50000000000000344 -0.8660254037844366 .3 -0.19098300562505705 -1.0444364486709827 .3 0.19098300562504739 -1.0444364486709845 .3 0.49999999999999545 -0.86602540378444126 .3 0.80901699437494368 -0.68761435889789813 .3 0.99999999999999778 -0.35682208977309615 .3 1.7 0.0 -.3 1.4166666666666672 0.49074772881118162 -.3 1.1333333333333342 0.98149545762236323 -.3 0.85000000000000153 1.4722431864335448 -.3 0.28333333333333532 1.4722431864335457 -.3 -0.28333333333333083 1.4722431864335466 -.3 -0.84999999999999709 1.4722431864335472 -.3 -1.1333333333333313 0.98149545762236667 -.3 -1.4166666666666656 0.49074772881118611 -.3 -1.7 5.4928446773655488e-015 -.3 -1.4166666666666685 -0.49074772881117706 -.3 -1.1333333333333373 -0.98149545762235968 -.3 -0.85000000000000586 -1.4722431864335421 -.3 -0.28333333333333977 -1.4722431864335448 -.3 0.28333333333332628 -1.4722431864335475 -.3 0.84999999999999221 -1.4722431864335501 -.3 1.1333333333333282 -0.98149545762237045 -.3 1.4166666666666641 -0.49074772881119072 -.3 1.7 0.0 .3 1.4166666666666672 0.49074772881118162 .3 1.1333333333333342 0.98149545762236323 .3 0.85000000000000153 1.4722431864335448 .3 0.28333333333333532 1.4722431864335457 .3 -0.28333333333333083 1.4722431864335466 .3 -0.84999999999999709 1.4722431864335472 .3 -1.1333333333333313 0.98149545762236667 .3 -1.4166666666666656 0.49074772881118611 .3 -1.7 5.4928446773655488e-015 .3 -1.4166666666666685 -0.49074772881117706 .3 -1.1333333333333373 -0.98149545762235968 .3 -0.85000000000000586 -1.4722431864335421 .3 -0.28333333333333977 -1.4722431864335448 .3 0.28333333333332628 -1.4722431864335475 .3 0.84999999999999221 -1.4722431864335501 .3 1.1333333333333282 -0.98149545762237045 .3 1.4166666666666641 -0.49074772881119072 .3 -1.3 0 0 -1.1 0.05 0 -1.23 .17 .05} {vbottom0 {} {} {} {{vertex 36}} vbottom1 {} {} {} {{vertex 39}} vbottom2 {} {} {} {{vertex 42}} vbottom3 {} {} {} {{vertex 45}} vbottom4 {} {} {} {{vertex 48}} vbottom5 {} {} {} {{vertex 51}} vtop0 {} {} {} {{vertex 54}} vtop1 {} {} {} {{vertex 57}} vtop2 {} {} {} {{vertex 60}} vtop3 {} {} {} {{vertex 63}} vtop4 {} {} {} {{vertex 66}} vtop5 {} {} {} {{vertex 69}} vcrk0 {} {} {} {{vertex 72}} vcrk1 {} {} {} {{vertex 73}} vcrk2 {} {} {} {{vertex 74}}} {ebottom0 {} {vbottom0 vbottom1} {} {{bezier_curve 1 36 39}} ebottom1 {} {vbottom1 vbottom2} {} {{bezier_curve 1 39 42}} ebottom2 {} {vbottom2 vbottom3} {} {{bezier_curve 1 42 45}} ebottom3 {} {vbottom3 vbottom4} {} {{bezier_curve 1 45 48}} ebottom4 {} {vbottom4 vbottom5} {} {{bezier_curve 1 48 51}} ebottom5 {} {vbottom5 vbottom0} {} {{bezier_curve 1 51 36}} etop0 {} {vtop0 vtop1} {} {{bezier_curve 1 54 57}} etop1 {} {vtop1 vtop2} {} {{bezier_curve 1 57 60}} etop2 {} {vtop2 vtop3} {} {{bezier_curve 1 60 63}} etop3 {} {vtop3 vtop4} {} {{bezier_curve 1 63 66}} etop4 {} {vtop4 vtop5} {} {{bezier_curve 1 66 69}} etop5 {} {vtop5 vtop0} {} {{bezier_curve 1 69 54}} eside0 {} {vbottom0 vtop0} {} {{bezier_curve 1 36 54}} eside1 {} {vbottom1 vtop1} {} {{bezier_curve 1 39 57}} eside2 {} {vbottom2 vtop2} {} {{bezier_curve 1 42 60}} eside3 {} {vbottom3 vtop3} {} {{bezier_curve 1 45 63}} eside4 {} {vbottom4 vtop4} {} {{bezier_curve 1 48 66}} eside5 {} {vbottom5 vtop5} {} {{bezier_curve 1 51 69}} ebottomcirc {} {} {} {{bezier_curve 3 0 1 2 3} {bezier_curve 3 3 4 5 6} {bezier_curve 3 6 7 8 9} {bezier_curve 3 9 10 11 12} {bezier_curve 3 12 13 14 15} {bezier_curve 3 15 16 17 0}} etopcirc {} {} {} {{bezier_curve 3 18 19 20 21} {bezier_curve 3 21 22 23 24} {bezier_curve 3 24 25 26 27} {bezier_curve 3 27 28 29 30} {bezier_curve 3 30 31 32 33} {bezier_curve 3 33 34 35 18}} ecrk0 {} {vcrk0 vcrk1} {} {{bezier_curve 1 72 73}} ecrk1 {} {vcrk1 vcrk2} {} {{bezier_curve 1 73 74}} ecrk2 {} {vcrk2 vcrk0} {} {{bezier_curve 1 74 72}}} {s_bottom {} {ebottomcirc ebottom0 ebottom1 ebottom2 ebottom3 ebottom4 ebottom5} {} {{bezier_quad 3 1 36 37 38 39 0 1 2 3} {bezier_quad 3 1 39 40 41 42 3 4 5 6} {bezier_quad 3 1 42 43 44 45 6 7 8 9} {bezier_quad 3 1 45 46 47 48 9 10 11 12} {bezier_quad 3 1 48 49 50 51 12 13 14 15} {bezier_quad 3 1 51 52 53 36 15 16 17 0}} s_top {} {etopcirc etop0 etop1 etop2 etop3 etop4 etop5} {} {{bezier_quad 3 1 54 55 56 57 18 19 20 21} {bezier_quad 3 1 57 58 59 60 21 22 23 24} {bezier_quad 3 1 60 61 62 63 24 25 26 27} {bezier_quad 3 1 63 64 65 66 27 28 29 30} {bezier_quad 3 1 66 67 68 69 30 31 32 33} {bezier_quad 3 1 69 70 71 54 33 34 35 18}} s_inner {} {ebottomcirc etopcirc} {} {{bezier_quad 3 1 0 1 2 3 18 19 20 21} {bezier_quad 3 1 3 4 5 6 21 22 23 24} {bezier_quad 3 1 6 7 8 9 24 25 26 27} {bezier_quad 3 1 9 10 11 12 27 28 29 30} {bezier_quad 3 1 12 13 14 15 30 31 32 33} {bezier_quad 3 1 15 16 17 0 33 34 35 18}} s_outer0 {} {ebottom0 etop0 eside0 eside1} {} {{bezier_quad 1 1 36 39 54 57}} s_outer1 {} {ebottom1 etop1 eside1 eside2} {} {{bezier_quad 1 1 39 42 57 60}} s_outer2 {} {ebottom2 etop2 eside2 eside3} {} {{bezier_quad 1 1 42 45 60 63}} s_outer3 {} {ebottom3 etop3 eside3 eside4} {} {{bezier_quad 1 1 45 48 63 66}} s_outer4 {} {ebottom4 etop4 eside4 eside5} {} {{bezier_quad 1 1 48 51 66 69}} s_outer5 {} {ebottom5 etop5 eside5 eside0} {} {{bezier_quad 1 1 51 36 69 54}} crack {} {ecrk0 ecrk1 ecrk2} {} {{bezier_triangle 1 72 73 74}}} {hexnutcrack {} {s_bottom s_top s_inner  s_outer0 s_outer1 s_outer2 s_outer3 s_outer4 s_outer5 crack crack}  {} {}}
Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 
gmset hexobj [gmrndcolor [gm_list2obj $brepl]]


Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 
set show 0

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


Thu Sep 02 18:11:00 Eastern Daylight Time 1999
-----> 
gmset mesh [gmmeshgen $hexobj show $show tol 1e-12]


Thu Sep 02 18:13:08 Eastern Daylight Time 1999
-----> gmset {hexobj2 mesh2} [gmdouble $hexobj * $mesh]


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

Maximum aspect ratio =        72.4505 achieved in
simplex #1265 of topological entity hexnutcrack (3:0) which has vertices 3 349 487 490 
Maximum global side length =  0.780871
Minimum global altitude =     0.00196405
Number of nodes = 803 number of elements = 3330
72.450541127472874
Thu Sep 02 18:13:10 Eastern Daylight Time 1999
-----> gmset {numvtx numelt} [gmmeshsize $mesh2]


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

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


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


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


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


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


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


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


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


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


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