Leider kann ich die .mac-Datein nicht anfügen. Deshalb kopiere ich den Quelltext mal schnell hier rein:
1. konz_mesh.mac:
/BATCH
/TITLE, Flusskonzentrator
/PREP7
/com, STEP Elementdefinition
/com,***************************
ET,1,53,,,1 ! Air, defined as element 1
ET,2,INFIN110,0,1,1 ! 0 -- AZ, 1 -- 8-node quadrilateral, 1 -- Axisymmetric
! defined as element 2
ET,3,53,2,,1 ! Current Driven in Copper, defined as element 3
ET,4,53,,,1 ! Fluxconcentrator
ET,5,53,,,1 ! Sensor
/pnum,KP,1 ! Nummerierung von Keypoints durchfuehren
/pnum,LINE,1 ! Nummerierung von Lines durchfuehren
/pnum,AREA,1 ! Nummerierung von Areas durchfuehren
/com, STEP Variablenbelegung
/com,***************************
EMUNIT,MKS ! specifies units to be used for magnetic fields
hll = 50e-2 ! Lufthoehe
hbb = 50e-2 ! Luftbreite
ib = 50e-3 ! Infinity
l = 20e-2 ! Leiterlaenge
fdis= 20e-2 ! Distanz Flusskonzentrator
fb = 1.5e-3 ! Breite des Flusskonzentrators
fh = 2e-3 ! Hoehe des Flusskonzentrators
kb = 0.5e-3 ! Breite des Kerns
kh = 5e-3 ! Hoehe des Kerns
a = 1e-3 ! Mass fuer Extra-Mesh
e_sens=0.075e-3 ! Sensorabstand
/com, STEP Geometriedefinition
/com,***************************
! Luft
k,1,0,hll
k,2,hbb-ib/2,hll
k,3,hbb,hll-ib/2
k,4,hbb,-hll+ib/2
k,5,hbb-ib/2,-hll
k,6,0,-hll
! Infinity
k,7,0,hll+ib
k,8,hbb,hll+ib
k,9,hbb+ib,hll
k,10,hbb+ib,-hll
k,11,hbb,-hll-ib
k,12,0,-hll-ib
! Flusskonzentrator
k,13,0,fdis
k,14,fb,fdis
k,15,kb,fdis+fh
k,16,kb,fdis+fh+kh
k,17,0,fdis+fh+kh
k,18,0,fdis+fh
! Mesh
k,19,0,fdis-a
k,20,fb+a,fdis-a
k,21,fb+a,fdis+fh+kh+a
k,22,0,fdis+fh+kh+a
k,23,0,0 ! Kontrollpunkt im Ursprung, so dass Hinweg besser vernetzt
k,24,kb,fdis+fh+0.05*kh
k,25,0,fdis+fh+0.05*kh
k,26,0,fdis+0.95*fh
k,27,kb+0.05*(fb-kb),fdis+0.95*fh
k,28,kb+0.05*(fb-kb),fdis+fh+0.05*kh
!k,23,0,fdis+fh+kh+10e-2 ! Kontrollpunkt
l,1,2 ! 1
l,2,3 ! 2
l,3,4 ! 3
l,4,5 ! 4
l,5,6 ! 5
l,7,8 ! 6
l,8,9 ! 7
l,9,10 ! 8
l,10,11 ! 9
l,11,12 ! 10
l,1,7 ! 11
l,2,8 ! 12
l,3,9 ! 13
l,4,10 ! 14
l,5,11 ! 15
l,6,12 ! 16
l,6,23 ! 17
l,13,14 ! 18
l,14,27 ! 19
l,24,16 ! 20
l,16,17 ! 21
l,17,25 ! 22
l,26,13 ! 23
l,18,15 ! 24
l,19,20 ! 25
l,20,21 ! 26
l,21,22 ! 27
l,13,19 ! 28
l,22,17 ! 29
l,22,1 ! 30
l,19,23 ! 31
l,15,24 ! 32
l,18,25 ! 33
l,18,26 ! 34
l,27,15 ! 35
l,27,28 ! 36
l,28,24 ! 37
AL,1,12,6,11 ! A1
AL,2,13,7,12 ! A2
AL,3,14,8,13 ! A3
AL,4,15,9,14 ! A4
AL,5,16,10,15 ! A5
A,1,2,3,4,5,6,23,19,20,21,22,1 ! A6 Innenraum: Luft
AL,18,19,35,24,34,23 ! A7
AL,20,21,22,33,24,32 ! A8
A,13,14,27,15,24,16,17,22,21,20,19,13 ! A9
!CYL4,XCENTER,YCENTER,RAD1,THETA1,RAD2,THETA2,DEPTH
!Creates a circular area or cylindrical volume
cyl4,l/2,0,e_sens/2 ! A10
!ASBA, NA1, NA2, SEPO, KEEP1, KEEP2
!Subtracts areas from areas.
asel,S,AREA,,6
asel,A,AREA,,10
asba,all,10,,DELETE,KEEP ! com, schneidet A10 aus A6 heraus
asel,all
/com, STEP Materialeigenschaften
/com,**************************
MP,MURX,1,1 ! air: magnetic relative permeability
MP,RSVX,1,1e1 ! air: electrical resistivity
MP,MURX,3,.9999904 ! copper: magnetic relative permeability
MP,RSVX,3,1.72e-8 ! copper: electrical resistivity
MP,MURX,4,2000 ! nickel: magnetic relative permeability
MP,RSVX,4,7e-8 ! nickel: electrical resistivity
MP,MURX,5,200 ! galfenol: magnetic relative permeability
MP,RSVX,5,1e-6 ! galfenol: electrical resistivity
/com, STEP Attributzuweisung
/com,*************************
asel,S,AREA,,10 ! com Kreisring A9
aatt,3,,3 ! Windung
! com associates attributes
asel,S,AREA,,6 ! com Innenraum A6
aatt,1,,1 ! Luft
asel,S,AREA,,9 ! com Innenraum A9
aatt,1,,1 ! Luft
asel,S,AREA,,1,5,1 ! com Umrandung A1...5
aatt,1,,2 ! Infinity 8-node
asel,S,AREA,,7 ! com Flusskonzentrator
aatt,4,,4
asel,S,AREA,,8 ! com Sensor aus Galvinol
aatt,5,,5
asel,all
/com, STEP Elementgroessenfestlegung
/com,**********************************
lplo
/com, STEP Vernetzung
/com,*******************
/gopr ! Jetzt erscheint wieder alles auf dem Bildschirm.
lsel,all
lsel,s,,,32,35,1 ! com, Kreis
LESIZE,all,e_sens/8
lsel,all
LESIZE,1,ib
LESIZE,6,ib*1.02 ! hbb/(hbb-ib)
LESIZE,2,,,1 ! Ecke rechts oben
LESIZE,13,,,1 ! Ecke rechts oben
LESIZE,7,,,1 ! Ecke rechts oben
LESIZE,12,,,1 ! Ecke rechts oben
LESIZE,3,ib
LESIZE,8,ib*1.1 ! hbb/(hbb-ib)
LESIZE,4,,,1 ! Ecke rechts unten
LESIZE,15,,,1 ! Ecke rechts unten
LESIZE,9,,,1 ! Ecke rechts unten
LESIZE,14,,,1 ! Ecke rechts unten
LESIZE,10,ib*1.02 ! hbb/(hbb-ib)
LESIZE,5,ib
LESIZE,17,ib
lsel,all
LESIZE,21,ib/1000
LESIZE,24,ib/3000
LESIZE,20,ib/1000
LESIZE,22,ib/1000
LESIZE,18,ib/1000 !(900/(fb/kb))
LESIZE,23,ib/1000
LESIZE,19,ib/1000*(sqrt((fb-kb)*(fb-kb)+fh*fh)/fh)
LESIZE,29,ib/1000
LESIZE,25,ib/1000
LESIZE,26,ib/1000
LESIZE,27,ib/1000
LESIZE,28,ib/1000
LESIZE,31,ib/20
LESIZE,32,ib/15000
LESIZE,33,ib/4000
LESIZE,34,ib/4000
LESIZE,35,ib/15000*(sqrt((fb-kb)*(fb-kb)+fh*fh)/fh)
LESIZE,36,ib/15000
LESIZE,37,ib/15000
lsel,all
AMESH,1,11 ! com, generates nodes in area1...11
/pnum,mat,1
eplo
2. konzentrator.mac
/com, STEP Randbedingungen, Speichern
/com,*********************************
/PREP7
lsel,s,,,7 ! Markierung der abgeschraegten Ecken
lsel,a,,,9 ! Markierung der abgeschraegten Ecken
sfl,all,inf
lsel,all
nsel,s,loc,y,-hll-ib
nsel,a,loc,x,hbb+ib
nsel,a,loc,y,hll+ib
sf,all,inf
nsel,all
save
finish
/SOLU
ANTYPE,STATIC
!Create a PLANE53 massive conductor in the finite element model
!with the appropriate degree of freedom option (KEYOPT(1) = 4).
!Define the conductor real constants.
!Select all the nodes of the PLANE53 conductor elements and couple
!them in the CURR degree of freedom and in the EMF degree of freedom.
ESEL,S,MAT,,3 ! GET COIL ELEMENTS
NSLE,S
CP,1,CURR,ALL
CP,1,EMF,ALL
!2.3.1.11. For voltage-fed stranded coil regions:
!CARE Coil cross-sectional area. This constant represents the true physical
!cross-section of the stranded coil regardless of any symmetry modeling considerations.
!TURN Total number of coil turns. This constant represents the total number of winding
!turns in a stranded coil regardless of any symmetry modeling considerations.
!LENG Coil length in Z-direction. For 2-D planar problems, this constant represents the
!true length of the coil and allows for modeling coils of varying length to account
!for proper electrical characterization.
!DIRZ Current direction. This constant assigns a direction to the current flow.
!The current can flow either into the coil or out of the coil. For details, see the
!description of element PLANE53 in the ANSYS Elements Reference.
!FILL Coil fill factor. The fill factor represents the fraction of the coil
!cross-section that the coil windings occupy. This factor affects the coil resistance
!(and you can use it to "adjust" coil resistance).
!Real Constants: CARE, TURN, LENG, DIRZ, FILL,
R,1,4.4E-9,1,,,1
asel,all
bfa,10,JS,,,1E9 !z-component
! *** ERROR ***
! Real constant set 1 undefined but referenced by element 2908.
!*** ERROR *** CP= 165.016 TIME= 15:11:30
! BFE,JS load is not applicable to A-VOLT DOFs. Apply F,AMPS instead.
!4.5. Applying Boundary Conditions and Loads (Excitation)
!Current (AMPS) is a nodal current load that applies only to massive
!(solid) conductor regions with an impressed current. It represents the
!total measurable current flow through the conductor (units of current),
!and is valid only for 2-D planar and axisymmetric models and 3-D models.
!For the 2-D elements PLANE13 and PLANE53, this load requires the AZ, VOLT
!degree of freedom set in the conductor region.
!To apply a uniform current load through a cross-section of the skin-effect
!region, you must couple the VOLT degrees of freedom across that cross-section
!by CP command.
!In 2-D planar and axisymmetric models, simply select all nodes in the skin
!effect region and couple their VOLT DOFs. Use one of the methods below to
!apply the current to a single node in the cross-section:
!Command(s): F,,AMPS
!F,ALL,AMPS,100,0 ! 100 A ! Harmonic Analysis
!F, NODE, Lab, VALUE, VALUE2, NEND, NINC
!*** WARNING *** CP= 61.250 TIME= 14:43:22
!A skin effect analysis for element PLANE53 in analysis type= 0 is
!invalid. Use analysis type=3 (HARMONIC) or analysis type=4 (TRANSIENT).
!MAGSOLV,2 !RSP
nsel,all
esel,all
solve
finish
!/cval,1,0,.001,.005,.02,.1,.5,1
!/cval,1,-0.1,-0.001,.001,.005,.02,.1,.5,1
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP