Bitte empfehlen Sie vielleicht eine Verbesserung.
Am ende des Programs gibt es ein fehler: An unexpected error (SIG$SEGV ) has occurred... ANSYS internal data has been corrupted. ANSYS is unable to recover and will terminate.
/post1
set,last
etable,topo,topo
esel,s,etab,topo,0.5,1
fini
/prep7
cm,x,elem
alls
etmax=99999
et,etmax+1,95
type,etmax+1
cmsel,s,x
esel,all
*get,en,elem,,count
*do,i,1,en
*get,emin,elem,,num,min
esel,s,,,emin
nsle,s,corner
*get,ncorner,node,,count
!*do,jj,1,ncorner
*dim,k1,array,ncorner
*do,nj,1,ncorner
*get,n%nj%,elem,emin,node,nj
*get,xcoord,node,n%nj%,loc,x
*get,ycoord,node,n%nj%,loc,y
*get,zcoord,node,n%nj%,loc,z
k,nj,xcoord,ycoord,zcoord
*get,k1(nj),kp,,num,min
*enddo
ksel,s,kp,num,k1
*if,ncorner,eq,4,then
v,k1(1),k1(2),k1(3),k1(4),,,,
*elseif,ncorner,eq,6,then
v,k1(1),k1(2),k1(3),k1(4)k1(5),k1(6),,
*else
v,k1(1),k1(2),k1(3),k1(4),k1(5),k1(6),k1(7),k1(8)
*endif
vsel,a
!*enddo
vsel,a
esel,u,,,emin
kdele,all
*enddo
vsel,all
vglue,all
ksll
ksel,inve
kdel,all
alls
igesout,topo,igs,,1
esel,s,type,,etmax+1
edel,all
etdel,etmax+1
alls
ksll
ksel,inve
!kdel,all
alls
fini
/post1
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP