|
Listening to the Prusa Mendel frame (and interpreting it) January 13, 2012 08:17PM |
Registered: 15 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: 15 years ago Posts: 601 |
|
Re: Listening to the Prusa Mendel frame (and interpreting it) January 16, 2012 03:53PM |
Registered: 15 years ago Posts: 228 |
|
Re: Listening to the Prusa Mendel frame (and interpreting it) January 16, 2012 07:58PM |
Registered: 15 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: 15 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: 17 years ago Posts: 123 |
|
Re: Listening to the Prusa Mendel frame (and interpreting it) June 01, 2012 10:08AM |
Registered: 14 years ago Posts: 809 |