Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Update on earlier post of Problems encountered with
  • Next by Date: Re: Coupled Diff Eqs or Poisson Eq, is symbolic solution
  • Previous by thread: Re: Coupled Diff Eqs or Poisson Eq, is symbolic solution
  • Next by thread: Size of numerical slider value in Manipulate