!aus dem Forum von hgoa21

fini
/clear
*abbr,transient1,/input,transient1,txt      
                                                                                                     !
!/vie,,1,2,3
!/vup,,z
/prep7
!/nerr,0
/tit,transient 50 Hz

et,1,230

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

breit=1
rect,0,breit,0,1

!---Vernetzung-----
esize,0.1
amesh,1
nsel,s,loc,x,breit
d,all,volt,0

allsel

!------Lösung--------
/solu
anty,trans
!trnopt,full                            
outres,all,all
kbc,1
endzeit=1/50*22.25/10
schritte=40*22.25/10
pi=4*atan(1)

*do,ii,0,schritte     
time,ii*endzeit/schritte+1e-12
arg=sin(2*pi*50*(ii*endzeit/schritte+1e-12))
nsel,s,loc,x,0
d,all,volt,1000*arg   
allsel
solve
*enddo


/Post1
plns,volt

/post26
nsol,2,node(0,0,0),volt,aa
esol,4,1,,js,x
plva,2
plva,4

!js_max_trans=0.277e-5