/post1
alls
! Anzahl der Knoten im Bauteil wird ermittelt
nsle,u,mid                          ! Mittenknoten werden deselektiert
*get,anzahlnode,node,,count


! Vorspannungen und zugehörige Nodennummer werden in ein array gespeichert
! gewünschte Spannungsart (hier 1. Hauptspannung)
! pro Node wird ausgelesen
*dim,Vorspannung,array,anzahlnode,1
*dim,Spannungsunterschied,array,anzahlnode,1
! Lastschritt für die
! Vorspannung wird geladen
 set,first
 n1=0
 cm,y,nodes
 cmsel,s,y
   *do,j,1,anzahlnode

    n1=ndnext(n1)                    ! nächster Knoten im Set wird gewählt
     *get,VorSp,node,n1,s,1          ! Spannung wird ausgelesen
                                     ! aktuelle Knotennummer wird übergeben
      Vorspannung(j,1)=VorSp         ! Spannung wird übergeben
   *enddo
    n1=0
! Lastschritt für die
! Betriebslastsituation wird geladen
  set,last
  cmsel,s,y
   *do,j,1,anzahlnode

     n1=ndnext(n1)
     *get,Betriebsspannung,node,n1,s,1

! Die Verschiebung in x-Richtung wird überschrieben (!!!!) mit der
! Spannungsdifferenz aus Betriebsspannung-Vorspannung pro Node

   Spannungsunterschied(j,1)=Betriebsspannung-Vorspannung(j,1)
! Hier wird die Verschiebung in x-Richtung
! mit der Spannungsdifferenz überschrieben
*VPUT,Spannungsunterschied(j,1),node,n1,U,x

*enddo

! Skalierung wird abgeschaltet
 /DSCALE,1,OFF

! Contourplot der Spannungsdifferenz
   plnsol,u,x,0