algorithm (FEM / Genormte Berechnungen/ANSYS)

hallo zusammen
ich arbeite gerade mit ansys Workbench 17. Ich shreibe gerade ein algorithm zur berechnung der Emodul für jedes element.In einem Biegebalken haben jedes Element eine vergleichsdehnung,ich soll die vergleichdehnung auslesen und mit dieser das E Modul für 10 iteration rechnen (mit hilfe einer Gerade gleichnung). Am ende meine ergebnisse Graphisch darstellen. leider funktionert mein Programme nicht. kann jemand mir Helfen ? ich habe alles versuch

E=2000 !Anfangs E-Modul

anz=10 !Anzahl der Durchläufe

kAufb=0
zweitGr=-800e-6

*get,ll,elem,,count !Bestimmung der Anzahl der Elemente
speicher=ll+100 !damit genügend speicherplatz da ist
*dim,dehnung,array,speicher !Array für Emodul
*dim,emodul2,array,speicher
*dim,bild,array,speicher

!------------------Erste Zuweisung der Materialparameter------------------------------------
*do,s,1,ll !Schleife für die Zuweisung der Materialpatrameter

/prep7
mp,ex,s,E
fini
*enddo
fini

*do,durchlauf,1,anz,1 !Durchlaufe
!-------------Lösung--------

/solu
solve
fini
!-----------Auswertung-----------------------------
/post1

etable,test,sene
etable,epsver,epel,eqv

*do,laufvar,1,ll,1 !Durchlauf durch jedes Element

!-----------Auslesen der dehnung ---------------------------- *get,dehnung(laufvar),elem,laufvar,etab,epsver !dehnung wird ausgelesen

if,dehnung(laufvar),le,zweitGr,and,dehnung(laufvar),ge,kAufb,then

Emodul2 =2000000000*dehnung(laufvar)

*endif

/prep7
mp,ex,laufvar,emodul2
bild(laufvar)= emodul2
fini

*enddo
*enddo

/post1
etable,test,sene
fini
*VPUT,bild(1),ELEM,1,ETAB,TEST, , ,2
FINISH

/POST1
PLETAB,TEST,NOAV
/REPLOT,RESIZE

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP