!Vorgabe von Ax, Ay, Az
!für ein gewünschtes Bz
!hier soll Bz vorgebbar sein
!kartesisch 3D
!Schätzing  1.7.2009

finish  $/clear
*abbr,B_3D_kar,/input,pro_2_4_1_4_3.inp

!------Parameter--------
abx=1    !Abmessung in x-Richtung 
aby=1    !Abmessung in y-Richtung 
abz=1    !Abmessung in z-Richtung

Bz=2.2   !Flussdichte in z-Richtung

!------Modellerstellung-----------------
/prep7  
et,1,solid97  
mp,murx,1,1  

!----Geometrie-----
/view,,1,2,3
block,-abx/2,abx/2,-abx/2,abx/2,-abx/2,abx/2,

!----Vernetzung----------------
esize,abx/4
vmesh,all
eplot

!----Randbedingungen----
nsel,s,ext
*get,nanz,node,,count
*get,nmin,node,,num,min
narb=nmin

*do,i,1,nanz
  d,narb,ax,1*(-bz/2)*ny(narb),0  
  d,narb,ay,1*(+bz/2)*nx(narb),0  
 narb=ndnext(narb)
*enddo

!-----------------------------
allsel
/solu
antyp,harm
harfre,50
solve
!----------------------
/post1
set,1,1
plns,b,sum