meshing in a Brick20N element

[shankartayal]

How can i do meshing in a Brick20N element. I tried to do it but could not make it. Here is the code :
wipe;
model basic -ndm 3 -ndf 6
file mkdir output ;
nDMaterial ElasticIsotropic 1 2000 .25
set element Brick20N ;
set eleargs "1 10 10 10 .1";
block3D 5 5 1 1 1 $element $eleargs {
1 2500 2500 150
2 -2500 2500 150
3 -2500 -2500 150
4 2500 -2500 150
5 2500 2500 -150
6 -2500 2500 -150
7 -2500 -2500 -150
8 2500 -2500 -150
9 0 2500 150
10 -2500 0 150
11 0 -2500 150
12 2500 0 150
13 0 2500 -150
14 -2500 0 -150
15 0 -2500 -150
16 2500 0 -150
17 2500 2500 0
18 -2500 2500 0
19 -2500 -2500 0
20 2500 -2500 0
}
#taking nodes and elements information as output
for { set i 1 } { $i <= 500} { incr i } {
print output/nodes.txt -node $i
}
for { set i 1 } { $i <= 50} { incr i } {
print output/elements.txt -ele $i
}
Please help me out.

[fmk]

the block3D command only generates 8 noded elements .. you have to create your own tcl script to generate the 20noded bricks. you also want ndf of 3.