!Beispiel aus dem Forum von loopy1983
!bearbeitet Schätzing 13.8.2008
fini
/clear
*abbr,loopy,/input,loopy1983,txt
!--------------------------------------------------------------------------------
/prep7
et,1,226,110 
!et,1,solid69
!---Materialdaten
mp,kxx,1,2 
mp,kxx,2,54 

mp,c,2,793 
mp,c,2,520 

mp,dens,1,5.85e3 
mp,dens,2,5.5e3 

mp,rsvx,1,0.001
mp,rsvx,2,24.5 

!--- Geometrie
!/dev,vector,on
l1=20e-3
l2=5e-3
block,0,l1,0,l1,0,l1
block,0,-l2,0,l1,0,l1
block,l1,l1+l2,0,l1,0,l1


vplot
numstr,volu,100 
vglue,all 
numcmp,all 
/PNUM,VOLU,1
vplot

!---Vernetzen
seltol,1e-12 
meshsize=l2/2

vsel,s,loc,x,-l2/2 
esize,meshsize 
type,1 
mat,2 
mshkey,1 
vmesh,all

vsel,s,loc,x,l1/2 
esize,meshsize 
type,1 
mat,1 
mshkey,1 
vmesh,all

vsel,s,loc,x,l1+l2/2 
esize,meshsize 
type,1 
mat,2 
mshkey,1 
vmesh,all

!---elektrische Parameter
eplot
nsel,s,loc,x,l1+l2 
cp,1,volt,all 
*get,n_ein,node,,num,min
nsel,s,loc,x,-l2 
d,all,volt,0

u1=440 
r1=1e-4 
et,3,circu124,0 
r,3,r1
nsel,all
*get,node_max,node,,num,max
n,node_max+1,l1+2*l2,0,0
type,3 
real,3 

e,node_max+1,n_ein 

d,node_max+1,volt,u1

*get,element_max,elem,,num,max

!------Thermische Randbedingungen------
!allsel
!ic,all,temp,20


!----Lösung
allsel 
/solu 

zeitende=5 
schritte=50 

antype,trans 
outres,all,all 
autots,on 
nsubst,100,200,10
kbc,1 
time,zeitende

solve


!---Auswertung
/post1
plns,temp

/eof

/post26 

nsol,2,2,temp 
esol,3,element_max,,smisc,2,Strom
nsol,4,n_ein,volt
plvar,2 
plvar,3
plvar,4