!aus dem Forum von aerosimul !Schätzing, 14.11.2017 !Lufttransformator zwei Wicklungen !harmonische Rechnung finish $/clear *abbr,aerosimul,/input,aerosimul,txt !----Parameter------- radwiin=40e-3 !Radius Wicklung innen radwiau=80e-3 !Radius Wicklung außen howi=12e-3 !Höhe Wicklung abst=30e-3 !Abstand beider Wicklungen radau=120e-3 !Radius außen Betrachtungsraum strom=1 !Speisestrom wizahl=200 !Windungszahl strdi=strom*wizahl/((radwiau-radwiin)*howi) !Stromdichte /prep7 et,1,plane53,,,1 !Wicklung oben !et,2,plane53,3,,1 !Wicklung unten et,2,plane53,,,1 et,3,plane53,,,1 !Luft mp,murx,1,1 !Wicklung oben mp,murx,2,1 !Wicklung unten mp,murx,3,1 !Luft !----Geometrie-------- rectng,radwiin,radwiau,abst/2,abst/2+howi !obere-Wicklung rectng,radwiin,radwiau,-abst/2,-abst/2-howi !---untere-Wicklung pcirc,0,radau,-90,90 !Umgebungsluft aovlap,all numcmp,area !A1: obere Wicklung A2: untere Wicklung A3: Luft !-----Vernetzung------ type,1 mat,1 esize,howi/2 !Elementgröße amesh,1 !-------------- type,2 mat,2 esize,howi/2 !Elementgröße amesh,2 !----Luft---------- type,3 mat,3 esize,howi*1 !Elementgröße amesh,3 !------Randbedingung------- csys,1 !Zylinderkoordinaten nsel,s,loc,x,radau d,all,az,0 csys,0 !----Lasten----- esel,s,mat,,1 !obere Wicklung nsle bfe,all,js,1,,,strdi allsel !----Lösung------ /solu antype,harm frequenz=50 harfr,frequenz solve !------Auswertung----- /post1 set,1,1,1,0 !Realteil plns,b,sum !set,1,1,1,1 !Imaginärteil !plns,b,sum