Budeme potřebovat mnoho vzorku. To si uděláme nejlépe příkazem Table

vzorky = Table[0,{i,1,100}]  ;

TÍm jsme samozřejmě dostali pole, ve kterém jsou samé 0 
No ale ono s tím jde zacházet stejně jako s polem, index je [[ ]]

vzorky[[1]] = 5;

vzorky[[2]] = 5;

vzorky[[3]] = 8;

vzorky

Vidíme, že se tam ta čísla dají tupě nacpat pomocí = . To je ale samozřejmě příliš pracné. Vy umíte udělat rovnici přímky, a ten signál je udělán z přímkových úseků . Takže např.

Table[vzorky[[i]] = 2 +0.05*i ,{i,3,20}]

vzorky

Table[vzorky[[i]] = 3-0.1*i ,{i,21,30}]

vzorky

No a symetrii uděláme úplně jednoduše - je to od konce, tedy poslední vzorek je jako první, a je obráceně ...   použijeme cyklus for - Cčkaři tohle poradí NE-Cčkařům

For[i=1,i≤  50 ,i++,       vzorky[[101-i]] =  vzorky[[i]] * (-1)   ]

vzorky

ListLinePlot[vzorky]

Ten cyklus for jsme samozřejmě mohli použít i dříve

NEBO 
to můžete udělat v Excelu, a Import-nete to do Mathematicy