f1baf495 |
1 | puts "============" |
2 | puts "OCC24157" |
3 | puts "============" |
4 | puts "" |
5 | ############################################ |
6 | # Parallelization of assembly part of BO |
7 | ############################################ |
8 | |
9 | set L 300 |
10 | set dL 10 |
11 | set dS 10 |
12 | |
13 | box b $L $L 20 |
14 | explode b f |
15 | copy b_5 b1 |
16 | |
17 | vertex v1 ${dS} -${dL} 0 |
18 | vertex v2 ${dS} [expr ${L}+${dL}] 0 |
19 | edge ex v1 v2 |
20 | |
21 | vertex v1 -${dL} $dS 0 |
22 | vertex v2 [expr ${L}+${dL}] ${dS} 0 |
23 | edge ey v1 v2 |
24 | |
25 | #-------------------------------------------- |
26 | set cx {} |
27 | set N 29 |
28 | set N1 [expr $N+1] |
29 | |
30 | for {set i 0} {$i < $N} {incr i} { |
31 | tcopy ex ex$i |
32 | ttranslate ex$i [expr $i*${dS}] 0 0 |
33 | lappend cx ex$i |
34 | } |
35 | |
36 | for {set i 0} {$i < $N} {incr i} { |
37 | tcopy ey ey$i |
38 | ttranslate ey$i 0 [expr $i*${dS}] 0 |
39 | lappend cx ey$i |
40 | } |
41 | |
42 | pcylinder x 1 2 |
43 | explode x e |
44 | tcopy x_3 ex |
45 | |
46 | for {set i 0} {$i < $N1} {incr i} { |
47 | for {set j 0} {$j < $N1} {incr j} { |
48 | for {set k 0} {$k < 3} {incr k} { |
49 | for {set m 0} {$m < 3} {incr m} { |
50 | tcopy ex ex_${i}_${j}_${k}_${m} |
51 | ttranslate ex_${i}_${j}_${k}_${m} [expr $i*${dS}] [expr $j*${dS}] 0 |
52 | ttranslate ex_${i}_${j}_${k}_${m} [expr 2+${k}*3] [expr 2+${m}*3] 0 |
53 | lappend cx ex_${i}_${j}_${k}_${m} |
54 | } |
55 | } |
56 | } |
57 | } |
58 | |
59 | eval compound $cx b2 |
60 | bclearobjects |
61 | bcleartools |
62 | baddobjects b1 |
63 | baddcompound b2 |
64 | bfillds |
65 | |
f1baf495 |
66 | regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time |
67 | |
f49c3109 |
68 | if { [regexp {Debug mode} [dversion]] } { |
c9fb8529 |
69 | set check_time 50 |
f49c3109 |
70 | } else { |
c9fb8529 |
71 | set check_time 20 |
f49c3109 |
72 | } |
73 | if { $tps_time > $check_time } { |
f1baf495 |
74 | puts "Error: low performance" |
75 | } else { |
76 | puts "OK: high performance" |
77 | } |
78 | |
79 | set 2dviewer 1 |