fini
/clear
                                                                                                              !
/vie,,1,2,3
/vup,,z
/prep7
/nerr,0
/tit,transient 50 Hz

et,1,230

mp,perx,1,1
mp,rsvx,1,1e20

rect,0,1,0,1


asel,,,,1     
aatt,1
esize,0.1
mshk,0
mshape,2,2d
amesh,1
lsel,s,line,,2
nsll
d,all,volt,0

allsel


endzeit=1/50*22.25
kbc,1
schritte=40*22.25
pi=4*atan(1)


*dim,max_e,array,10000,12,1


*do,ii,0,schritte
                /solu                                                                                
                anty,trans,new
                trnopt,full                                                                                                                                               
                outres,all,all

                time,ii*endzeit/schritte+1e-12
                kbc,1
                arg=sin(2*pi*50*(ii*endzeit/schritte+1e-12))
                lsel,s,line,,4
                nsll
                d,all,volt,1000*arg                                                                                                                              
                allsel
                ic,all,volt,0
                solve

                save,,,,all
                /Post1

                max_e(ii+1,1)=ii*endzeit/schritte+1e-12


                max_e(ii+1,5)=1000*arg

                asel,s,area,,1
                esla
                nsel,r,loc,x,0,0.05
                esln
                *get,Strom,elem,,count
                *get,startn_Strom,elem,,num,min
                etab,J_s,Js,sum
                etab,J_t,Jt,sum
                etab,J_c,Jc,sum

                J_sges=0
                J_tges=0
                J_cges=0

                *do,i,startn_Strom,Strom+startn_Strom-1
                              ee=i
                              *get,e,elem,ee,etab,J_s
                              J_sges=J_sges+e*0.1
                              *get,e,elem,ee,etab,J_t
                              J_tges=J_tges+e*0.1
                              *get,e,elem,ee,etab,J_c
                              J_cges=J_cges+e*0.1

                *enddo
                max_e(ii+1,6)=j_sges
                max_e(ii+1,7)=j_tges
                max_e(ii+1,8)=j_cges
                parsav,all,variable,mac
                
*enddo
save,,,,all