Re: How can I increase period of waveform from 1 cps (hz) to 4000
- To: mathgroup at smc.vnet.net
- Subject: [mg102983] Re: How can I increase period of waveform from 1 cps (hz) to 4000
- From: dh <dh at metrohm.com>
- Date: Thu, 3 Sep 2009 07:09:51 -0400 (EDT)
- References: <h7dj1c$ke6$1@smc.vnet.net>
Hi,
I think you want to decrese the period from 1 sec to 1/4000 sec.
To make it readable, define your function as:
fun[x_]:= Piecewise[....
This is a function defined for 0<x<1.
To make the period n times smaller, we multiple the argument by n.
However, as the function is not defined out side 0..1, we need to take
the modulus:
fun[Mod[n x,1]]
E.g. to get a function with half the period:
Play[fun[Mod[2 x, 1]], {x, 0, 1}, SampleRate -> 44100]
Daniel
Rick T wrote:
> How can I increase period of waveform from 1 cps (hz) to 4000 cps (hz)
> and make it stereo instead of mono
>
> Greetings All
>
> I can create a 1 second mono signal using the piecewise function below
> but I would like it to be
> be repeated 4000 times in 1 second how can I do this? And how can I
> turn the mono signal created into
> a stereo signal?
>
> See equation below:
>
> Play[Piecewise[{{-792.7927814*x^2 + 78.27580762*x,
> 0 <= x <= 0.0986084393351466}, {-537.3920769*x^2 +
> 115.4556059*x - 6.149662379,
> 0.0986084393351466 <= x <=
> 0.116474865132018}, {-4.604891231*x^2 + .8783376807*
> x - .3229150958*10^-1,
> 0.116474865132018 <= x <= 0.139543540917858}, {528.7355901*x^2 -
> 149.0297555*x + 10.50099554,
> 0.139543540917858 <= x <= 0.143629773251382}, {376.7790009*x^2 -
> 110.4620013*x + 8.096307986,
> 0.143629773251382 <= x <= 0.148062653195675}, {-5366.794754*x^2 +
> 1614.793457*x - 121.4358140,
> 0.148062653195675 <= x <= 0.152415654575672}, {3596.157814*x^2 -
> 1113.549316*x + 86.19218140,
> 0.152415654575672 <= x <= 0.157553494547717}, {33439.86328*x^2 -
> 10660.18884*x + 849.4852051,
> 0.157553494547717 <= x <= 0.161140422458708}, {-935.3252173*x^2 +
> 307.4128732*x - 25.24451926,
> 0.161140422458708 <= x <= 0.168091379048892}, {-8381.081165*x^2 +
> 2859.568434*x - 243.8621791,
> 0.168091379048892 <= x <= 0.173061347244545}, {7129.220444*x^2 -
> 2474.453417*x + 214.7137293,
> 0.173061347244545 <= x <= 0.176830854731068}, {37367.06992*x^2 -
> 13467.30564*x + 1213.077297,
> 0.176830854731068 <= x <= 0.183303047100966}, {8020080.206*x^2 -
> 2950665.980*x + 271391.3264,
> 0.183303047100966 <= x <= 0.184607223152307}, {-94.86078842*x^2 +
> 38.76322404*x - 3.905099121,
> 0.184607223152307 <= x <= 0.201443088678393}, {-9454.145556*x^2 +
> 3827.969449*x - 387.4211120,
> 0.201443088678393 <= x <= 0.204867977216098}, {-2293271.932*x^2 +
> 965436.3355*x - 101536.3212,
> 0.204867977216098 <= x <= 0.216081152564001}, {26305.07154*x^2 -
> 11646.72138*x + 1289.392401,
> 0.216081152564001 <= x <= 0.226790966165469}, {-15927.23520*x^2 +
> 7195.265993*x - 811.6176441,
> 0.226790966165469 <= x <= 0.233512430372518}, {-4466.203128*x^2 +
> 2189.160167*x - 267.5774948,
> 0.233512430372518 <= x <= 0.256712208436901}, {-861797.8205*x^2 +
> 514604.5680*x - 75311.72213,
> 0.256712208436901 <= x <= 0.340417336336429}, {-327280.6943*x^2 +
> 224323.3372*x - 38436.92155,
> 0.340417336336429 <= x <= 0.344937448744588}, {1632.403725*x^2 -
> 1143.793367*x + 200.4484663,
> 0.344937448744588 <= x <= 0.372637559763113}, {339.4945421*x^2 -
> 287.8919627*x + 61.03920974,
> 0.372637559763113 <= x <= 0.431403078393077}, {1.234646433*x^2 -
> 1.316067578*x + .3625674295,
> 0.431403078393077 <= x <= 0.578627387037763}, {390.5092971*x^2 -
> 453.5297186*x + 131.6928599,
> 0.578627387037763 <= x <= 0.59213700771348}, {-722.9620437*x^2 +
> 873.1694573*x - 263.4825552,
> 0.59213700771348 <= x <= 0.618275556195711}, {-5862.906032*x^2 +
> 7456.298233*x - 2368.851202,
> 0.618275556195711 <= x <= 0.653527361324473}, {15.39829080*x^2 -
> 21.47833384*x + 7.468296169,
> 0.653527361324473 <= x <= 0.763575171814988}, {14.34836229*x^2 -
> 23.88696570*x + 9.919625373,
> 0.763575171814988 <= x <= 0.885248483194818}, {4.036598716*x^2 -
> 7.750631687*x + 3.715927095,
> 0.885248483194818 <= x <= 0.993739042055684}, {-36.10301241*x^2 +
> 71.97736702*x - 35.87433821, 0.993739042055684 <= x <= 1}}], {x,
> 0, 1}, SampleRate -> 44100]
>
> tia sal22
>