stkbegin
x0=julpd(3,1,91,'y');
x1=julpd(5,3,91,'y');
x=[x0:0.1:x1];
stkdaxis(x0,x1,7)

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

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

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

pause;


stkbegin
x0=julpd(3,1,91);
x1=julpd(5,3,91);
x=[x0:0.1:x1];
stkdaxis(x0,x1,7,91,1);

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

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

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


