stkbegin
stkxaxis(-1,1,0.25,5,2,'Test')
x=[-1:0.005:+1];

u=5.*sin((x+1).*8.*pi);
v=5.*cos((x+1).*8.*pi);
stkaxis(-1,5,-15,15,15,3,0)
stkplot(1,5,x,u)
stktitle(1,5,'U Component')

stkaxis(-2,5,-15,15,15,3,0)
stkplot(2,5,x,v)
stktitle(2,5,'V Component')

stkaxis(3,5,-15,15,15,3,0)
stkstick(3,5,x,u,v)
stktitle(3,5,'Stack Plot Number 1  Stick Plot')

stkaxis(4,5,-15,15,15,3,0)
stkstick(4,5,x,u,v,2,'-c7')
stktitle(4,5,'Stack Plot Number 2  n=2')

stkpgttl('STKPLOT Test Plot 2')
stkend;




