search for: drawingpoints

...c worth of a 5.5KHz sin wave b) plots 1msec of the resulting 2.5KHz alias and c) plots the 8 sampling points on the 5.5KHz source wave. I think I have found a bug. The script is as follows: #truesamplingfreq <- 1000*5.5 freqin1msec = 5.5 #aliassamplingfreq <- 1000*2.5 aliasfreqin1msec = 2.5 drawingpoints = 10000 time = (0:drawingpoints)/drawingpoints signal = sin(freqin1msec*2*pi*(time)) alias = -sin(aliasfreqin1msec*2*pi*(time)) undersamplinginterval = max(time)/8 seq (0, max(time), by=undersamplinginterval) -> undersamplingtimes undersampled = sin(freqin1msec*2*pi*undersamplingtimes) plot(...