stkbegin
stkmaxis(11,90,3,91,1,1)
x0=julpd(11,1,90,0000,'y');
x1=julpd(3,31,91,0000,'y');
x=[x0:0.1:x1];

y=8.*sin((x-x1).*pi);
stkaxis(1,4,-10,10,10,3,0)
stkplot(1,4,x,y)
stktitle(1,4,'Stack Plot Number 1')

stkaxis(2,4,-10,10,10,3,0)
stkplot(2,4,x,y)
stktitle(2,4,'Stack Plot Number 2')

stkpgttl('STKPLOT Test Plot 4: Month Axis')
stkend;

pause;


stkbegin
stkmaxis(11,90,3,92,2)
x0=julpd(11,1,90,0000,'y');
x1=julpd(3,31,92,0000,'y');
x=[x0:0.1:x1];

y=8.*sin((x-x1).*(0.1).*pi);
stkaxis(1,4,-10,10,10,3,0)
stkplot(1,4,x,y,'-c2')
stktitle(1,4,'Stack Plot Number 1')

stkaxis(2,4,-10,10,10,3,0)
stkplot(2,4,x,y,'-c4')
stktitle(2,4,'Stack Plot Number 2')

stkpgttl('STKPLOT Test Plot 5: Month Axis')
stkend;


