Hier mal das Skript zur Verdeutlichung. Ist nicht ganz saube geprogt, aber es läuft.
!****************************************************************************************
!******************* Script zum Erstellen einer Lastverformungskurve ********************
!****************************************************************************************
/post26
alls
cmsel,s,loady ! Fuer Verschiebung bei Lasteinleitung
*GET,cpmin,node,,num,min
alls
cmsel,s,loady ! Fuer Reaktionskraft der Lagerung
*GET,akt,node,,num,min ! Ermittlung der kleinsten selektierten Knotennummer
*GET,anzKn,node,,count ! Ermittlung der selektierten Knotenanzahl
RFORCE,3,akt,F,y,Fy ! Abgreifen der Reaktionskraft der ersten Knotens
*do,i,2,anzKn ! Aufsummierung der Reaktionskraefte
*GET,akt,node,akt,nxth ! Auswaehlen des naechsten selektierten Knotens
RFORCE,4,akt,F,y,Fy_einzeln ! Abgreifen der Reaktionskraft am aktuellen Knoten
add,3,3,4 ! Aufsummieren der Reaktionskraefte
*ENDDO
alls
NSOL,2,cpmin,U,y,Uy_Lasteinleitung ! Abgreifen der Verschiebung am Masterknoten
abs,3,3,,,Fy ! Bilden des Betrages von Variable 2
abs,2,2,,,Uy_Lasteinleintung ! Bilden des Betrages von Variable 3
XVAR,2 ! X-Achse Time
/grid,1 ! type of grid - x und y linien
/axlab,x,Uy der Lasteinleitung
/axlab,y,Reaktionskraft
/xran,defa ! Reset Skalierung x-Achse
/yrange,defa ! Reset Skalierung y-Achse
PLVAR,3, ! Ausgabe der Lastverformungskurve
alls
! Save time history variables to file kv_aktuell.csv
*CREATE,scratch,gui
*DEL,_P26_EXPORT
*DIM,_P26_EXPORT,TABLE,%weg,2
VGET,_P26_EXPORT(1,0),1
VGET,_P26_EXPORT(1,1),2
VGET,_P26_EXPORT(1,2),3
/OUTPUT,'kv','csv','.'
*VWRITE,'TIME','Uy_Lasteinleintung','Fy'
%C, %C, %C
*VWRITE,'0','0','0'
%G, %G, %G
*VWRITE,_P26_EXPORT(1,0),_P26_EXPORT(1,1),_P26_EXPORT(1,2)
%G, %G, %G
/OUTPUT,TERM
*END
/INPUT,scratch,gui
! End of time history save
Gruß
Cpt.Klotz
------------------
TU-Dresden, Fakultät Maschinenbau
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP