procedure( bb_ac_probe(wfI, wfQ) let( (I_p, I_n, Q_p, Q_n, p, n, xvec_p, yvec_p, xvec_n, yvec_n, i, nlen) I_p = wfI I_n = flip( conjugate(I_p) ) Q_p = wfQ Q_n = flip( conjugate(Q_p) )
p = I_p + complex(0.0, 1.0)*Q_p n = I_n + complex(0.0, 1.0)*Q_n
xvec_p = drGetWaveformXVec(p) yvec_p = drGetWaveformYVec(p) xvec_n = drGetWaveformXVec(n) yvec_n = drGetWaveformYVec(n)
nlen = drVectorLength(xvec_n)
for(i, 1, nlen-1 drAddElem( xvec_n, drGetElem(xvec_p, i) ) drAddElem( yvec_n, drGetElem(yvec_p, i) ) ); for drCreateWaveform(xvec_n, yvec_n) ); let ); procedure |