*afun,deg


/prep7


ET,114,CIRCU124,3,0
R,114,i1,0,  
ET,214+z2+z2+1,CIRCU124,3,0
R,214+z2+z2+1,i2,0,  

drehzahla=0
zeita=0
!*  
i=0
zeit=zeita

allsel
cedel,all,all,all
cmsel,s,krotor
allsel,below,area
csys,1

agen,,krotor,,,,winkela,,,,1          !   Drehung des Rotors um oben angegebenen Winkel
winkel=winkela

kommutierung.txt


allsel

_cef=.3
cmsel,s,nodeinnen
cmsel,s,elemaussen
cmsel,u,nodeaussen 
CEINTF,_cef, , , , , , ,0,

allsel

/SOL


antyp,0

*if,fronspar,eq,0,then
eqslv,frontal
*else
eqslve,sparse,stoler,-1
*endif

cnvt,a,
cnvt,csg
lnsrch,on
time,zeit

neqit,250

*get,timea,active,0,time,cpu
SOLVE  
*get,timee,active,0,time,cpu
rechzeit=timee-timea
/post1
esel,s,enam,,124
etable,spanng,smisc,1
etable,strom,smisc,2
etable,leistu,nmisc,1

etable,refl
*get,u1e,elem,eeu2,etab,spanng
*get,ue,elem,eeu1,etab,spanng
*get,i1e,elem,eer2,etab,strom
*get,ie,elem,eer1,etab,strom
*get,Pauf1,elem,eeu2,etab,leistu
*get,Perr,elem,eeu1,etab,leistu
*get,PR1,elem,eer2,etab,leistu
*get,PRE,elem,eer1,etab,leistu


/output,U_I_Motor%ausgabe%,lis,,append
*VWrite,i,zeita,winkela,drehzahla,U1e,i1e,ue,ie,rechzeit
(9(g14.6,' '))
/output,term
/output,Pauf_Rotor%ausgabe%,lis,,append
*VWrite,i,zeita,winkela,drehzahla,Pauf1,PR1,rechzeit
(7(g14.6,' '))
/output,term
/output,Pauf_Stator%ausgabe%,lis,,append
*VWrite,i,zeita,winkela,drehzahla,Perr,PRE,rechzeit
(7(g14.6,' '))
/output,term

*Do,iz2,1,z2
*get,ispu%iz2%,elem,espu%iz2%,etab,strom
*EndDo
/output,Ispul%ausgabe%,lis,,append
*VWrite,i,zeita,Winkela,Drehzahla,ispu1,ispu2,ispu3,ispu4,ispu5,ispu6,ispu7,ispu8,ispu9,ispu10,ispu11,ispu12,ispu13,ispu14
(18(g14.6,' '))
/output,term

torqsumo,'kraftrot'
torqmx=tfor2*jochtiefe
torqvw=tfor1*jochtiefe

/output,Drehmoment%ausgabe%,lis,,append
*VWrite,i,zeita,winkela,Drehzahla,torqmx,torqvw
(6(g14.6,' '))
/output,term

/title,Gleichstrommaschine, Drehzahl=%Drehzahl%, Winkel=%winkela%, Zeit=%zeita%
allsel
/show,Plots%ausgabe%,grph,,append
aplot
/show,Plots%ausgabe%,grph,,append
plf2d,51,0,20,1
allsel,below,area
/show,Plots%ausgabe%,grph,,append
PLNSOL,B,SUM,0, 
/show,Plots%ausgabe%,grph,,append
PLESOL, JT,SUM, 0   
csys,1  
NSEL,S,LOC,X,rinnen+jochdicke2+delta/2  
/VSCALE,1,1,0   
/show,Plots%ausgabe%,grph,,append
PLVECT,B, , , ,VECT,ELEM,ON,0   
/show,Plots%ausgabe%,grph,,append
PLVECT,h, , , ,VECT,ELEM,ON,0   
allsel
allsel,below,area
/show,term
luftspaltfeld.txt
/show,term
!
/prep7

allsel
cedel,all,all,all
cmsel,s,krotor
allsel,below,area
csys,1

agen,,krotor,,,,-winkela,,,,1          !   Drehung des Rotors um oben angegebenen Winkel

allsel

ET,114,CIRCU124,3,0
R,114,i1,0,  
ET,214+z2+z2+1,CIRCU124,4,0
R,214+z2+z2+1,u2,0,  

_cef=.3
cmsel,s,nodeinnen
cmsel,s,elemaussen
cmsel,u,nodeaussen 
CEINTF,_cef, , , , , , ,0,

allsel
winkel=0
