- refactored

2022-06-30 13:32:40 +02:00
parent 77cd5261b1
commit 776932e5d1
144 changed files with 0 additions and 38 deletions
@@ -0,0 +1,17 @@
+% function y = dat2wav(name, fa, nBits, ampthresh)
+%
+
+function y = dat2wav(name, fa, nBits, ampthresh)
+
+datfile = sprintf('%s.dat', name);
+wavfile = sprintf('%s.wav', name);
+
+fid = fopen(datfile,'r');
+data_float = fread(fid, 'float32');
+fclose(fid);
+
+a = max(abs(data_float));
+ks = ampthresh/a;
+
+data = (2^(nBits-1))*ks*data_float;
+wavw16(data,fa,wavfile);
@@ -0,0 +1,16 @@
+% function y = wav2dat(name)
+%
+
+function y = wav2dat(name)
+
+datfile = sprintf('%s.dat', name);
+wavfile = sprintf('%s.wav', name);
+
+[data, fa, fmt] = wavr16(wavfile);
+nBits = fmt(6);
+data_float = 2^-(nBits-1)*data;
+
+fid = fopen(datfile, 'w');
+fwrite(fid, data_float, 'float32');
+fclose(fid);
+