! ***************************************************
! Average Temperature by Matthias Ulmer Juli 2009
! ***************************************************
! Mail: ulmer@ikff.uni-stuttgart.de
!
! Componentname "komponente1" is required
! Prefix "my_" for Workbench-Use
! ***************************************************
/post1

! Count Nodes
cmsel,s,komponente1
nsel,s,all
*get,anzahl,node,,count

! Sum Temperature over all nodes
*dowhile,anzahl
  *get,n1,node,,num,min
  *get,temp_node,node,n1,TEMP
  my_temp_all = my_temp_all + temp_node
  nsel,u,node,,n1
  *get,anzahl,node,,count
*enddo

alls

! Calculate Average Temperatur
cmsel,s,komponente1
nsel,s,all
*get,my_anzahl,node,,count
my_temp_average = my_temp_all / my_anzahl
! ***************************************************