1 puts "================"
3 puts "================"
14 OCC332 ${wall_thickness} ${dia1} ${dia2} ${ll} ${major_radius}
33 set props_3 [lprops wallSolid__3]
34 set props_4 [lprops wallSolid__4]
35 set props_5 [lprops wallSolid__5]
36 set props_6 [lprops wallSolid__6]
39 set list [split ${props_3} "\n\t"]
40 set listLength [llength ${list}]
41 if { ${listLength} < 20 } {
42 puts "OCC332 - Error : listLength= ${listLength}"
45 regexp {Mass +: +([-0-9.+eE]+)} $props_3 full CircleLength_3
48 set list [split ${props_4} "\n\t"]
49 set listLength [llength ${list}]
50 if { ${listLength} < 20 } {
51 puts "OCC332 - Error : listLength= ${listLength}"
54 regexp {Mass +: +([-0-9.+eE]+)} $props_4 full CircleLength_4
57 set list [split ${props_5} "\n\t"]
58 set listLength [llength ${list}]
59 if { ${listLength} < 20 } {
60 puts "OCC332 - Error : listLength= ${listLength}"
63 regexp {Mass +: +([-0-9.+eE]+)} $props_5 full CircleLength_5
66 set list [split ${props_6} "\n\t"]
67 set listLength [llength ${list}]
68 if { ${listLength} < 20 } {
69 puts "OCC332 - Error : listLength= ${listLength}"
72 regexp {Mass +: +([-0-9.+eE]+)} $props_6 full CircleLength_6
75 set Pi [expr 2. * asin(1.0)]
76 set TheoryCircleLength_4 [expr ${Pi} * ${dia1}]
77 set TheoryCircleLength_3 [expr ${Pi} * (${dia1} + 2 * ${wall_thickness}) ]
78 set TheoryCircleLength_6 [expr ${Pi} * ${dia2}]
79 set TheoryCircleLength_5 [expr ${Pi} * (${dia2} + 2 * ${wall_thickness}) ]
81 set delta_3 [expr abs(${CircleLength_3} - ${TheoryCircleLength_3}) / ${TheoryCircleLength_3} * 100]
82 set delta_4 [expr abs(${CircleLength_4} - ${TheoryCircleLength_4}) / ${TheoryCircleLength_4} * 100]
83 set delta_5 [expr abs(${CircleLength_5} - ${TheoryCircleLength_5}) / ${TheoryCircleLength_5} * 100]
84 set delta_6 [expr abs(${CircleLength_6} - ${TheoryCircleLength_6}) / ${TheoryCircleLength_6} * 100]
88 if { ${delta_3} > ${maxdelta} } then {puts "OCC332 - Error : delta_3= ${delta_3}"}
89 if { ${delta_4} > ${maxdelta} } then {puts "OCC332 - Error : delta_4= ${delta_4}"}
90 if { ${delta_5} > ${maxdelta} } then {puts "OCC332 - Error : delta_5= ${delta_5}"}
91 if { ${delta_6} > ${maxdelta} } then {puts "OCC332 - Error : delta_6= ${delta_6}"}
93 if { ${delta_3} <= ${maxdelta} && ${delta_4} <= ${maxdelta} && ${delta_5} <= ${maxdelta} && ${delta_6} <= ${maxdelta} } then {
96 puts "CircleLength_3 = ${CircleLength_3}"
97 puts "CircleLength_4 = ${CircleLength_4}"
98 puts "CircleLength_5 = ${CircleLength_5}"
99 puts "CircleLength_6 = ${CircleLength_6}"