dsd1-10 / dsd-08=skill / one

procedure(av()

prog((signal)

signal = (VT("/out1")-average(VT("/out1")))*1e9

dft = dft(signal,0,5u,1024,"Rectangular",1,1)

dft_cl = clip(dft, 30M, 100M)

av_dft = average(mag(dft_cl))

;plot(artWaveformToList(list(av_dft)))

printf("---%L---" av_dft)

return(av_dft)

)

)