!aus dem Forum von hgoa21

fini
/clear
*abbr,harmonisch1,/input,harmonisch1,txt      
                                                                                                     !
!/vie,,1,2,3
!/vup,,z
/prep7
!/nerr,0
/tit,harmonisch 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,harm
harfre,50
!trnopt,full                            
outres,all,all

nsel,s,loc,x,0
d,all,volt,1000   
allsel
solve



/Post1
set,1,1   !real
plns,volt
ples,js,x
*get,strd_r,elem,1,js,x

set,1,1,,1  !imag
ples,js,x
*get,strd_i,elem,1,js,x

!---Betrag----
strd_b=sqrt(strd_r**2+strd_i**2)
!js_max_harm=0.278e-5

!js_max_trans=0.277e-5