Source Code
Infrared Signal Coding Schemes
home top contents previous up next

	am_prepare();
    points=200;
    limit=100.0e-6;
    step=limit/points;
    unit=1.0e-9;
    pulse_length=100000;
    t=[1:points];
    vi=[1:points];
    for i=1:size(t,2)
        t(i)=step*(i-1);
        vi(i)=am_vi(t(i),pulse_length*unit);
    end
	plot(t, vi, 'b');
    legend(sprintf('Tc=%f,ns',pulse_length));
    hold on
    
    pulse_length=15000
    for i=1:size(t,2)
        vi(i)=am_vi(t(i),pulse_length*unit);
    end
	plot(t, vi, 'r');
    legend(sprintf('Tc=%f,ns',pulse_length));
    hold on
    
    pulse_length=10
    for i=1:size(t,2)
        vi(i)=am_vi(t(i),pulse_length*unit);
    end
	plot(t, vi, 'g');
    legend(sprintf('Tc=%f,ns',pulse_length));
    hold on

    pulse_length=2
    for i=1:size(t,2)
        vi(i)=0.5+am_vi(t(i),pulse_length*unit);
    end
	plot(t, vi, 'm');
    legend(sprintf('+0.5; Tc=%f,ns',pulse_length));
            
        

Copyright (C) 2009 Konstantin Kirillov