How can I increase period of waveform from 1 cps (hz) to 4000 cps
- To: mathgroup at smc.vnet.net
- Subject: [mg102853] How can I increase period of waveform from 1 cps (hz) to 4000 cps
- From: Rick T <ratulloch at gmail.com>
- Date: Sun, 30 Aug 2009 06:07:52 -0400 (EDT)
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