John Miller
Subscriber

 

Hi Dave,

thanks for your support. I added an extra node and some code to delete the surf152 elements of the last step.

I also changed the node selection a little bit to:

cmsel,s,external,nodes     ! Select nodes for esurf
esel,all                               ! Select elements for esurf (including the “external” nodes)
esurf                                  ! Creation of surface elements

it differs from the former version:

cmsel,s,external
esurf,nakt

 

I’m not sure if my current version of nodal and element selection previous to esurf is doing the right thing.

 

The whole script would look like this:

/prep7                                  ! Pre processor
/GOPR

*get,nmax,etyp,,num,max   ! nmax=name of resulting parameter, Entity=etyp aka Element typ,ENTNUM=blank, Item1=num,IT1NUM=max aka maximum number, Item2=blank,IT2NUM=blank
     eakt=nmax+1                 ! maximum element typ number +1
*get,mmax,node,,num,max   ! mmax=name of resulting parameter, Entity=node,ENTNUM=blank, Item1=num,IT1NUM=max aka maximum number, Item2=blank,IT2NUM=blank
     nakt=mmax+1                  ! maximum node number +1

n,nakt,0,0,0                         ! Creation of extra node
et,eakt,surf152                    ! Surf152 Elements
keyopt,eakt,5,1                   ! Extra nodes
keyopt,eakt,9,1                   ! Radiation with form factor real constant
keyopt,eakt,11,1                 ! Nodes DOF-TTOP
r,eakt,1,5.8e-8                    ! Stefan Boltzman constant
mp,emis,eakt,epsilon         ! Emissivity coefficient
mat,eakt                             ! Material assignment
type,eakt                            ! Type assignment
real,eakt                             ! Real constant

esel,s,ename,,surf152       ! Element selection of surf152 elements
cm,ELsurf152,elements     ! Create a component which includes surf152 elements
edele,ELsurf152                ! Deletion of former surf152 elements

cmsel,s,external,nodes     ! Select nodes for esurf
esel,all                               ! Select elements for esurf
esurf                                  ! Creation of surface elements

d,nakt,temp,tamb              ! Temperature of the the extra/space node, Temperature=ambient Temperature
alls
toffst,273                          ! Specifies the temperature offset from absolute zero to zero, 273 for the Celsius system
/solu                                 ! Re-entering the solution

Greetings

John M.