Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # slider1 = Frequency
- # slider2 = RIT
- # slider3 = Tone
- # slider4 = Volume
- # set the samplerate to 48000 samples per second
- samplerate = 48000
- # down-convert to 1st IF:
- # z is a sawtooch oscillator
- # (ai,aq) form the mixer output
- # (ini, inq) are the soundcard's inputs
- z = mod1(z+slider1+slider2/20);
- ai = ini * cos1(z) - inq*sin1(z)
- aq = inq * cos1(z) + ini*sin1(z)
- # filter IF:
- # samplerate: 48000 band-pass order: 130 cutoffs: 20 - 4000 Hz
- # http://mshook.appspot.com/z/firkernel.htm
- # I branch filter
- ai = fir(ai,-0.0009381,-0.0007951,-0.00075,-0.000826,-0.0010251,-0.0013241,-0.0016743,-0.0020082,-0.0022523,-0.0023468,-0.0022664,-0.0020365,-0.0017378,-0.0014942,-0.0014444,-0.0017012,-0.0023101,-0.0032202,-0.0042799,-0.0052636,-0.005928,-0.0060839,-0.0056663,-0.0047768,-0.0036827,-0.0027632,-0.0024128,-0.0029224,-0.004373,-0.006577,-0.0090907,-0.0113079,-0.0126164,-0.0125797,-0.0110945,-0.0084704,-0.0054,-0.0028099,-0.0016224,-0.0024837,-0.0055352,-0.0102987,-0.0157265,-0.0204212,-0.0229879,-0.0224348,-0.0185153,-0.0119091,-0.0041691,0.0025811,0.0061506,0.0048765,-0.0018346,-0.0131666,-0.0268652,-0.0395661,-0.0474348,-0.0469974,-0.0359809,-0.0139658,0.0173132,0.0541139,0.0912749,0.1231378,0.1446184,0.1521975,0.1446184,0.1231378,0.0912749,0.0541139,0.0173132,-0.0139658,-0.0359809,-0.0469974,-0.0474348,-0.0395661,-0.0268652,-0.0131666,-0.0018346,0.0048765,0.0061506,0.0025811,-0.0041691,-0.0119091,-0.0185153,-0.0224348,-0.0229879,-0.0204212,-0.0157265,-0.0102987,-0.0055352,-0.0024837,-0.0016224,-0.0028099,-0.0054,-0.0084704,-0.0110945,-0.0125797,-0.0126164,-0.0113079,-0.0090907,-0.006577,-0.004373,-0.0029224,-0.0024128,-0.0027632,-0.0036827,-0.0047768,-0.0056663,-0.0060839,-0.005928,-0.0052636,-0.0042799,-0.0032202,-0.0023101,-0.0017012,-0.0014444,-0.0014942,-0.0017378,-0.0020365,-0.0022664,-0.0023468,-0.0022523,-0.0020082,-0.0016743,-0.0013241,-0.0010251,-0.000826,-0.00075,-0.0007951,-0.0009381)
- # Q branch filter
- aq = fir(aq,-0.0009381,-0.0007951,-0.00075,-0.000826,-0.0010251,-0.0013241,-0.0016743,-0.0020082,-0.0022523,-0.0023468,-0.0022664,-0.0020365,-0.0017378,-0.0014942,-0.0014444,-0.0017012,-0.0023101,-0.0032202,-0.0042799,-0.0052636,-0.005928,-0.0060839,-0.0056663,-0.0047768,-0.0036827,-0.0027632,-0.0024128,-0.0029224,-0.004373,-0.006577,-0.0090907,-0.0113079,-0.0126164,-0.0125797,-0.0110945,-0.0084704,-0.0054,-0.0028099,-0.0016224,-0.0024837,-0.0055352,-0.0102987,-0.0157265,-0.0204212,-0.0229879,-0.0224348,-0.0185153,-0.0119091,-0.0041691,0.0025811,0.0061506,0.0048765,-0.0018346,-0.0131666,-0.0268652,-0.0395661,-0.0474348,-0.0469974,-0.0359809,-0.0139658,0.0173132,0.0541139,0.0912749,0.1231378,0.1446184,0.1521975,0.1446184,0.1231378,0.0912749,0.0541139,0.0173132,-0.0139658,-0.0359809,-0.0469974,-0.0474348,-0.0395661,-0.0268652,-0.0131666,-0.0018346,0.0048765,0.0061506,0.0025811,-0.0041691,-0.0119091,-0.0185153,-0.0224348,-0.0229879,-0.0204212,-0.0157265,-0.0102987,-0.0055352,-0.0024837,-0.0016224,-0.0028099,-0.0054,-0.0084704,-0.0110945,-0.0125797,-0.0126164,-0.0113079,-0.0090907,-0.006577,-0.004373,-0.0029224,-0.0024128,-0.0027632,-0.0036827,-0.0047768,-0.0056663,-0.0060839,-0.005928,-0.0052636,-0.0042799,-0.0032202,-0.0023101,-0.0017012,-0.0014444,-0.0014942,-0.0017378,-0.0020365,-0.0022664,-0.0023468,-0.0022523,-0.0020082,-0.0016743,-0.0013241,-0.0010251,-0.000826,-0.00075,-0.0007951,-0.0009381)
- # AM detection
- af = sqrt(ai*ai + aq*aq)
- # tone
- audio = audio - slider3*(audio - af)
- # send audio to output of soundcard
- # slider4 controls the volume
- uitL = audio * slider4 * 100
- uitR = audio * slider4 * 100
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement