Реферат: Разложение сигнала в базисе Уолша

lineto (stepx*clk2/2+del,delta-stepy*uolsh[clk2]); //функции Уолша

setcolor(WHITE);

outtextxy (100,0,"График функции Уолша");

outtextxy(100,10,"Нажмите любую клавишу для продолжения");

getch();

initgraph(&gdriver, &gmode, "");

line (del,0,del,479); //Рисование осей координат

line (0,delta,639,delta);

outtextxy(0,delta+20,"0"); //Вывод обозначений осей

outtextxy(33,0,"Y");

outtextxy(500,delta+20,"номер значения");

moveto(del,delta-arr[1]*stepy);

setcolor(LIGHTBLUE);

for (clk2=0;clk2<256;clk2++) //Вывод графика

lineto (stepx*clk2+del,delta-stepy*arr[clk2]); //сигнала

moveto(del,delta-uolsh[1]*stepy);

setcolor(LIGHTGREEN);

for (clk2=0;clk2<512;clk2++) //Вывод графика

lineto (stepx*clk2/2+del,delta-stepy*uolsh[clk2]); //функции Уолша

setcolor(WHITE);

for (clk2=1;clk2<9;clk2++) {

line (32*clk2*stepx+del,delta,32*clk2*stepx+del,delta+5);

itoa (32*clk2,ch,10); //Нанесение разметки

outtextxy(32*clk2*stepx+del,delta+10,ch); // на ось x

}

to_int=max()/4;

for (clk2=-3;clk2<4;clk2++) { //Нанесение разметки

if (clk2!=0) {

line (del,delta-stepy*to_int*clk2,del-5,delta-stepy*to_int*clk2);