/Batch, list
/FILENAM, harmo_transi
/prep7

!!!!	Electromagnetic - Struture - Analysis
/TITLE Coupling


!*********TIMES
ftime=300e-6		!Final time
ltime=0		!initialize time
tinc=100e-6		!time increment for hamonic analysis
!delt=2e-6		!maximum delta time step


!!!!!!!!!!!!!!!!!!!!!!!!!EMAG-ENVIRONMENT

!!!!!!!!!!!!ELEMENTDEFINTION

ET,1,PLANE13	! Electkto-Elemente
ET,2,PLANE13

ET,3,0
et,4,0
et,5,0
et,6,0
et,11,0

!	MATERIALDEFINITION


!
!! GEOMETRIEERSTELLUNG

!!!MESH
!MESH -BLECh
!MESH WINDUNGEN
!MESH LUFT


!! CONSTRAINTS elektromagnetische "ENVIRONMENT"


/solu	!Charakterisierung der Lösungsparameter - Harmonisch mit 

ANTYPE,3
HARFREQ,0,18940
NSUBST,5,
KBC,1
EQSLV,ICCG,1e-8
!SAVE
!SOLVE

physics,write,emag
SAVE
FINISH


!!	STRUCTURE-ENVIRONMENT

/prep7
physics,clear

ET,11,PLANE13			!ELEMENTDEFINITION
ET,1,0


ESEL,s,type,,2			!TAUSCHE ET2 mit ET11 - ET11 hat mech. DOFs
EMODIF,ALL,TYpe,11
ALLSEL

ET,2,0

!	MATERIALDEFINITION

! Defintion der Constraints

!	MODELLIERUNG DES ZIEHRINGS

! KONTAKTDEFINITION

!!!*******ENDE KONTAKTMODELLIERUNG

ALLSEL

/solu		!SOLUTION DEFINTION FÜR TRANSIENT
RESCONTRL,DEFINE,ALL,ALL,1
antype,trans
nlgeom,on
trnopt,full
kbc,1
autos,off
deltim,2e-6
outres,all,all
EQSLV,FRONT
!EQSLV,SPAR
CNVTOL,F,,,,0.1		!Convergence based on FORCE only

!!time,300e-6
physics,write,structure

FInish
save


!!!!*************START DES LOOPS


*do,i,1,1	!ftime/tinc - ZUM TESTEN NUR MAL EINE SCHLEIFE

ltime=ltime + tinc

physics,read,emag

/solu

*if,i,gt,1,then

/prep7
LSCLEAR,ALL	!LÖSCHE ALLE KRÄFTE
CPDELE,1,11,,ANY

!!!!WAS ER MACHEN SOLL, WENN BEDINGUNG ERFÜLLT
!!*  
	!VERNETZE NEU
	!SETZE DIE CONSTRAINTS

*endif

/prep7			!TAUSCHE FALLS NOTWENDIG die ELEMENTETYPEN
ESEL,s,type,,11
EMODIF,ALL,TYpe,2
ALLSEL

/solu

solve			!LÖSE DEN HARM. PART
save
finish
!!!!


physics,read,structure

/assign,esav,structure,esav
/assign,emat,structure,emat
/solu
*if,i,gt,1,then

antype,trans,rest

*endif

time,ltime

/solu
LDREAD,FORC,,,,2,,,  !Lesen der Elektromagnetischen Daten



!!************************LÖSCHE KRAFT an ungenutzen KNOTEN



!!!!LÖSCHE UNBENUTZE KRAFT


solve	!LÖSE TRANSIENTEN TEIL
save

finish
/assign,esav
/assign,emat

/prep7
UPGEOM,,LAST,LAST,harmo_transi,rst		!UEBERNEHME DIE NEUE KONTUR

ESEL,s,type,,11
EMODIF,ALL,TYpe,2
ALLSEL

save

*enddo

finish 
save