Listening to the Prusa Mendel frame (and interpreting it) January 13, 2012 08:17PM |
Registered: 13 years ago Posts: 228 |
#define DEFAULT_AXIS_STEPS_PER_UNIT {80,80,3200/1.25,571.428571429} #define DEFAULT_MAX_FEEDRATE {500, 500, 5, 450} #define DEFAULT_MAX_ACCELERATION {900,900,80,10000}
161 Hz (-61 dB ) 826-883 Hz (-58 dB ) 5693 Hz (-78 dB )
Re: Listening to the Prusa Mendel frame (and interpreting it) January 16, 2012 12:26PM |
Registered: 13 years ago Posts: 601 |
Re: Listening to the Prusa Mendel frame (and interpreting it) January 16, 2012 03:53PM |
Registered: 13 years ago Posts: 228 |
Re: Listening to the Prusa Mendel frame (and interpreting it) January 16, 2012 07:58PM |
Registered: 13 years ago Posts: 228 |
U = pi / L * sqroot( E / d )
f = U / 2pi
Re: Listening to the Prusa Mendel frame (and interpreting it) January 18, 2012 07:44AM |
Registered: 13 years ago Posts: 228 |
Sueur J., Aubin T., Simonis C. (2008). Seewave: a free modular tool for sound analysis and synthesis. Bioacoustics, 18: 213-226
G92 X0.0 Y0.0 Z10.0 G1 F1500.0 G1 X80.0 Y80.0 F1500.0 G1 X120.0 Y120.0 G1 X80.0 Y80.0 G1 X120.0 Y120.0 G1 X80.0 Y80.0 G1 X120.0 Y120.0 etc.
# library('seewave') ; # library('tuneR') ; f<-48000 ; y_step_25mms <- readWave("20120117_y_stepper_25mms.wav"); frame_25mms <- readWave("20120117_frame_25mms.wav"); y_step_50mms <- readWave("20120117_y_stepper_50mms.wav"); frame_50mms <- readWave("20120117_frame_50mms.wav"); y_step_100mms <- readWave("20120117_y_stepper_100mms.wav"); frame_100mms <- readWave("20120117_frame_100mms.wav"); y_step_120mms <- readWave("20120117_y_stepper_120_mms.wav"); frame_120mms <- readWave("20120117_frame_120_mms.wav"); sframe25mms <- spec(frame_25mms, f=f); sstep25mms <- spec(y_step_25mms, f=f) ; sframe50mms <- spec(frame_50mms, f=f); sstep50mms <- spec(y_step_50mms, f=f) ; sframe100mms <- spec(frame_100mms, f=f); sstep100mms <- spec(y_step_100mms, f=f) ; sframe120mms <- spec(frame_120mms, f=f); sstep120mms <- spec(y_step_120mms, f=f) ; msframe25mms <- meanspec(frame_25mms, f=f); msstep25mms <- meanspec(y_step_25mms, f=f) ; msframe50mms <- meanspec(frame_50mms, f=f); msstep50mms <- meanspec(y_step_50mms, f=f) ; msframe100mms <- meanspec(frame_100mms, f=f); msstep100mms <- meanspec(y_step_100mms, f=f) ; msframe120mms <- meanspec(frame_120mms, f=f); msstep120mms <- meanspec(y_step_120mms, f=f) ; png(filename="frame_25_mms.png", width=700, height=480, units="px", pointsize=12) fpeaks(meanspec(frame_25mms, PSD = FALSE, main = "frame 25 mm/s"), amp=c(0.02,0.02), freq=200, title=FALSE) title(main = "frame 25 mm/s"); dev.off(); png(filename="frame_50_mms.png", width=700, height=480, units="px", pointsize=12) fpeaks(meanspec(frame_50mms, PSD = FALSE, main = "frame 50 mm/s"), amp=c(0.02,0.02), freq=200, title=FALSE) title(main = "frame 50 mm/s"); dev.off(); png(filename="frame_100_mms.png", width=700, height=480, units="px", pointsize=12) fpeaks(meanspec(frame_100mms, PSD = FALSE, main = "frame 100 mm/s"), amp=c(0.02,0.02), freq=200, title=FALSE) title(main = "frame 100 mm/s"); dev.off(); png(filename="frame_120_mms.png", width=700, height=480, units="px", pointsize=12) fpeaks(meanspec(frame_120mms, PSD = FALSE, main = "frame 120 mm/s"), amp=c(0.02,0.02), freq=200, title=FALSE) title(main = "frame 120 mm/s"); dev.off();
png(filename="diff_25_mms.png", width=700, height=480, units="px", pointsize=12) diffspec(msframe25mms,msstep25mms,f=f, plot=TRUE); title(main = "frame and stepper spectra 25 mm/s"); dev.off(); png(filename="diff_50_mms.png", width=700, height=480, units="px", pointsize=12) diffspec(msframe50mms,msstep50mms,f=f, plot=TRUE); title(main = "frame and stepper spectra 50 mm/s"); dev.off(); png(filename="diff_100_mms.png", width=700, height=480, units="px", pointsize=12) diffspec(msframe100mms,msstep100mms,f=f, plot=TRUE); title(main = "frame and stepper spectra 100 mm/s"); dev.off(); png(filename="diff_120_mms.png", width=700, height=480, units="px", pointsize=12) diffspec(msframe120mms,msstep120mms,f=f, plot=TRUE); title(main = "frame and stepper spectra 120 mm/s"); dev.off();
Re: Listening to the Prusa Mendel frame (and interpreting it) May 31, 2012 10:19PM |
Registered: 15 years ago Posts: 123 |
Re: Listening to the Prusa Mendel frame (and interpreting it) June 01, 2012 10:08AM |
Registered: 12 years ago Posts: 809 |