mystep(t):=if t>=0 and t<1 then 1 else 0;

phai(t):=mystep(2*t)+mystep(2*t-1);

psi(t):=mystep(2*t)-mystep(2*t-1);

wxplot2d([2,-2,mystep(t)], [t,0,2])$

wxplot2d([2,-2,phai(t)], [t,0,2])$

wxplot2d([2,-2,psi(t)], [t,0,2])$

psi(1/8);

psi(5/8);

wxplot2d([psi(t),2,-2], [t,0,2])$

wxplot2d([psi(2*t),2,-2], [t,0,2])$

wxplot2d([psi(2*t-1),2,-2], [t,0,2])$

wxplot2d([phai(4*t),2,-2], [t,0,2]);

wxplot2d([phai(4*t-1),2,-2], [t,0,2]);

wxplot2d([phai(4*t-2),2,-2], [t,0,2]);

wxplot2d([phai(4*t-3),2,-2], [t,0,2]);

x(t):=2*phai(4*t)+8*phai(4*t-1)+6*phai(4*t-2)+3*phai(4*t-3);

wxplot2d([x(t),10], [t,0,2]);

phai(t):=mystep(2*t)+mystep(2*t-1);

psi(t):=mystep(2*t)-mystep(2*t-1);

phai(2*t);

psi(2*t);

wxplot2d([(phai(2*t)+psi(2*t))/2], [t,0,2])$

wxplot2d([(phai(2*t)+psi(2*t))/2,2], [t,0,2])$

wxplot2d([phai(4*t),2], [t,0,2])$

wxplot2d([(phai(2*t)-psi(2*t))/2,2], [t,0,2])$

wxplot2d([phai(4*t-1),2], [t,0,2])$

wxplot2d([(phai(2*t-1)+psi(2*t-1))/2,2], [t,0,2])$

wxplot2d([phai(4*t-2),2], [t,0,2])$

wxplot2d([(phai(2*t-1)-psi(2*t-1))/2,2], [t,0,2])$

wxplot2d([phai(4*t-3),2], [t,0,2])$

wxplot2d([5*phai(2*t)+9/2*phai(2*t-1),10], [t,0,2])$

wxplot2d([-3*psi(2*t)+3/2*psi(2*t-1),10], [t,0,2])$

wxplot2d([5*phai(2*t)+9/2*phai(2*t-1)-3*psi(2*t)+3/2*psi(2*t-1),10], [t,0,2])$

wxplot2d([x(t),10], [t,0,2]);

y(t):=19/4*phai(t)+1/4*psi(t)-3*psi(2*t)+3/2*psi(2*t-1);

wxplot2d([y(t),10], [t,0,2])$