

/prep7

*afun,rad
pi=acos(-1)
*afun,deg

/prep7
lin_asyn_kurzw_interl.txt


*Do,im,1,m
ET,50+im,CIRCU124,4,0
R,50+im,u1,2*pi*freq*zeita*180/pi+(im-1)*360/m  
*EndDo


!*  
i=0
zeit=zeita

allsel


zeit=zeita-tstep

*do,itstep,1,tsteps

zeit=zeit+tstep

/prep7

*Do,im,1,m
R,50+im,u1,2*pi*freq*zeit*180/pi+(im-1)*360/m  
*EndDo

/SOL

ANTYPE,3
HARFRQ,freq,0,
NSUBST, ,   
KBC,0   
!*  


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

cnvt,a,
cnvt,csg
lnsrch,on

neqit,250

*get,timea,active,0,time,cpu
SOLVE  
*get,timee,active,0,time,cpu
rechzeit=timee-timea
/post1

SET,last,LAST,1,0, , ,  

esel,s,enam,,124
etable,spanng,smisc,1
etable,strom,smisc,2
etable,leistu,nmisc,1

etable,refl
*get,u1e,elem,elemusp21,etab,spanng
*get,u2e,elem,elemusp22,etab,spanng
*get,u3e,elem,elemusp23,etab,spanng
*get,i1e,elem,elemst21,etab,strom
*get,i2e,elem,elemst22,etab,strom
*get,i3e,elem,elemst23,etab,strom
*get,Pauf1,elem,elemusp21,etab,leistu
*get,Pauf2,elem,elemusp22,etab,leistu
*get,Pauf3,elem,elemusp23,etab,leistu
*get,PR1,elem,elemst21,etab,leistu
*get,PR2,elem,elemst22,etab,leistu
*get,PR3,elem,elemst23,etab,leistu



/output,U_I_Stator%ausgabe%,lis,,append
*VWrite,itstep,zeit,Wega,va,U1e,i1e,u2e,i2e,u3e,i3e,rechzeit
(11(g14.6,' '))
/output,term
/output,Pauf_Stator%ausgabe%,lis,,append
*VWrite,itstep,zeit,Wega,va,Pauf1,Pauf2,Pauf3,PR1,PR2,PR3,rechzeit
(11(g14.6,' '))
/output,term
/output,term

FMAGSUM_L.MAC,'kraftste'
for1x=_for(1,1,2)
for2x=_for(1,1,1)
for1y=_for(1,2,1)
for2y=_for(1,2,2)
formxx=for1x*tiefe
forvwx=for2x*tiefe
formxy=for1y*tiefe
forvwy=for2y*tiefe

/output,Kraft%ausgabe%,lis,,append
*VWrite,itstep,zeit,Wega,va,formxx,forvwx,formxy,forvwy
(8(g14.6,' '))
/output,term

/auto,1
/rep
/title,Kurzstator-Linearmotor-Kaefig, 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   
NSEL,S,LOC,y,-1e-6,1e-6  
/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   
PADEL,ALL   
PATH,lufts1,2,12,6000, 
PPATH,1,0,0,-delta/2,,0,
PPATH,2,0,laenge,-delta/2,,0,
PDEF,by,B,Y,AVG 
/PBC,PATH, ,1   
 /axlab,x,Statorkoordinate in m 
 /axlab,y,B_r  in T
 /grid,1
 /xrange,0,laenge
 /yrange,-luftskal,luftskal
 /GCOL,1,'B (vertikal)'
 /title,Luftspaltfeld des Linearmotors bei t=%zeit%
/show,Plots%ausgabe%,grph,,append
plpath,by
/show,term
!
/prep7

allsel

*enddo

*Do,im,1,m
ET,50+im,CIRCU124,4,0
R,50+im,i1*cos(2*pi*freq*0*180/pi+(im-1)*360/m),0,  
*EndDo

allsel
