clear all;close all;clc;

% laden von radom pn sequenz das zu senden ist.
load('pn_sequenz_201.mat');

%
datat=2.*x-1;

% Dauer des Signals,das zu senden ist(in sekunde).

d=2;

%Abtastfrequenz
Fs=44100;

numsamples=Fs*d;

ao=analogoutput('winsound');

addchannel(ao,1);

ao.samplerate=Fs;

set(ao,'TriggerType','Manual');

tau=1;

for i=1:12
    
    if i==12
        putdata(ao,datat(tau:length(datat))');
    else
        putdata(ao,datat(tau:tau+d*Fs)');
    end;
    chan=ao;
    start(ao);
    trigger(ao);
    wait(ao,d+2)
    tau=tau+d*Fs;
    
end;