# NAME    :- IBRAR    
ROLL NO :- 11232225 
TUTORIAL:- GROUP 5th
DATE    :- 5-2-2013 

kill(all)$
f(x):=cos(x)$
g(x):=sin(x)$
print("The graph of the functions is:")$
wxplot2d([f(x),g(x)],[x,-4*%pi,4*%pi],
[style,[lines,2,1],[lines,2,4]],
[gnuplot_preamble,"set grid;"]);

kill(all);
print("The combine graph of the functions tan(x) and sec(x) is:")$
wxplot2d([tan(x),sec(x)],
[x,-4*%pi,4*%pi],[y,-4,4]);

kill(all)$
print("The graph of the functions cot(x) and tan(x) is:")$
wxplot2d([cot(x),tan(x)],
[x,-%pi,%pi],[y,-20,20]);

kill(all)$
print("The graph of the functions e^x is:")$
wxplot2d([(%e)^x],[x,-%pi,%pi]);

kill(all)$
print("The graph of the functions x^3 is:")$
wxplot2d([x^3],[x,-10,10],[y,-5,5]);

kill(all)$
print("The graph of the functions cot(x) and tan(x) is:")$
wxplot2d([x^2,x^2-10,x^2+10,(x-5)^2,(x+5)^2+5],[x,-10,10],
[style,[lines,2,1],[lines,2,2],[lines,2,3],[lines,2,4],
[lines,2,5]],[gnuplot_preamble,"set grid;"]);

kill(all)$
x:[0,1,2,3,4,5,6,7,8,9]$
y:[0,1.8,3.5,10.5,12.0,15.5,17.3,18.2,19.7]$
wxplot2d([discrete,x,y]);

kill(all)$
x:[0,1,2,3,4,5,6,7,8,9]$
y:[0,1.8,3.5,10.5,12.0,15.5,17.3,18.2,19.7]$
wxplot2d([discrete,x,y],[style,[points]]);

kill(all)$
x:[0,1,2,3,4,5,6,7,8,9]$
y:[0,1.8,3.5,10.5,12.0,15.5,17.3,18.2,19.7]$
wxplot2d([discrete,x,y],[style,[points,4,8,12]]);

kill(all)$
x:[0,1,2,3,4,5,6,7,8,9]$
y:[0,1.8,3.5,10.5,12.0,15.5,17.3,18.2,19.7]$
wxplot2d([discrete,x,y],[style,[linespoints,4,8,12]]);

kill(all)$
x:[0,1,2,3,4,5,6,7,8,9]$
y:[0,1.8,3.5,10.5,12.0,15.5,17.3,18.2,19.7]$
wxplot2d([discrete,x,y],[style,[lines,3,8]]);