Simulate BASK or ASK technique using Scilab.

// BASK or ASK --> Binary Amplitude Shift Keying

t=[0:0.02:5*%pi];
wc=7;
A=0.5;

Vm=squarewave(t,30); 
// The second parameter in the squarewave function is the percent of the period in which the

// signal is positive.
Vc=A/2.*cos(wc.*t);
Va=(1+Vm).*(Vc);

subplot(3,1,1);
plot(t,Vm, 'black');

subplot(3,1,2);
plot(t,Vc, 'black');

subplot(3,1,3);
plot(t,Va, 'black');

// Output
                             BASK or ASK --> Binary Amplitude Shift Keying