New answers tagged

0

All credit goes to Simon Woods. Simple mathematical modelling of a sound with graphical representation and playback. Sound synthesis done in plain Wolfram Language. Wu! I suggest to leave "Envelope lenght" slider where is at. Don't take the "Frequency" values seriously; my impression is there's something there to be fixed yet. segment[t_, t1_, t2_, a1_, ...


12

First let me observe that your coding style makes debugging difficult, I highly recommend breaking giant expressions into manageable pieces. Second, in the code below I have used a different definition for the segments. Your version: $y=(x-x_1)^{curvature}\frac{y_2-y_1}{x_2-x_1}+y_1$ does not give an amplitude of $y_2$ at $x=x_2$ if $curvature\neq1$. I ...


1

Have a look at, Music Package MUSIC PACKAGE TUTORIAL Sound and Sonification Signal Processing Sound The Representation of Sound << Music` Play[Sin[2 \[Pi] Aflat4 t] + Sin[2 \[Pi] Eflat5 t], {t, 0, 0.2}] And a verry nice external Site The Physics Hypertextbook N.B.: The distinction between music and noise is mathematical form. Music is ordered ...


6

As stated above, and based on MarcoB comments, I tested the workaround proposed by Simon Woods in Audio export issues, and it works: u1 = Import["AcqDev_0_6ch[ai0to5]_2500kHz_ai_000.wav"]; Block[{Rescale = #1 &}, Export["AcqDev_0_6ch[ai0to5]_2500kHz_ai_rot000.wav", u1]] u2 = Import["AcqDev_0_6ch[ai0to5]_2500kHz_ai_rot000.wav"]; Below are the first 100,...



Top 50 recent answers are included