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

PLOTING MULTIPLE TYPE OF DATA

kill(all)$
H:[0,1,2,3,4,5,6,7,8,9]$
L:[0,1.8,3.5,10.5,12.0,15.5,17.3,18.2,19.7]$
wxplot2d([3*t+sin(t),[discrete,H,L]],[t,0,10],
[style,[lines,2,6],[points,2,4,6]]);

kill(all)$
H:[0,1,2,3,4,5,6,7,8,9]$
L:[0,1.8,3.5,10.5,12.0,15.5,17.3,18.2,19.7]$
wxplot2d([6*t+cos(t),[discrete,L,H]],[t,0,30],
[style,[lines,2,3],[points,2,4,6]],
[legend,"line","points"]);

PLOTING IMPLICIT FUNCTIONS

kill(all)$
load(draw);
wxdraw2d(implicit(x^2+y^2=9,x,-4,4,y,-4,4));

kill(all)$
wxdraw2d(implicit(y^2=4*x,x,-4,4,y,-4,4));

kill(all)$
wxdraw2d(implicit(x^2=-4*y,x,-4,4,y,-4,4));

kill(all)$
wxdraw2d(implicit((x/5)^2-(y/5)^2=1,x,-10,10,y,-10,10));

kill(all)$
load(implicit_plot)$
wximplicit_plot((x/5)^2+(y/5)^2=4,[x,-15,15],
[y,-15,15],[gnuplot_preamble,"set size ratio 1;"]);

Plotting Polar Curve

kill(all)$
wxdraw2d(polar(cos(t),t,-%pi/2,%pi/2));

kill(all)$
wxdraw2d(polar(cos(t),t,-%pi/2,%pi/2),
xrange=[-.25,1.25],yrange=[-1.5,1.5],
user_preamble="set grid polar",title="Curve");

kill(all)$
wxdraw2d(polar(t*cos(t),t,-%pi/2,%pi/2),
xrange=[-.5,.5],yrange=[-.5,.5],
user_preamble="set grid polar",title="Curve");

kill(all)$
wxdraw2d(polar(t^2*cos(t),t,-%pi/2,%pi/2),
xrange=[-.5,.5],yrange=[-.5,.5],
user_preamble="set grid polar",title="Curve");

kill(all)$
wxdraw2d(polar(tan(t),t,-%pi/2,%pi/2),
xrange=[-1,1],yrange=[-.5,1.5],
user_preamble="set grid polar",title="Curve");

kill(all)$
wxdraw2d(polar(10/t,t,1,10*%pi),
xrange=[-4,4],yrange=[-4,4],
user_preamble="set grid polar",
title="Hyperbolic Spiral");

kill(all)$
(x/5)^2+(y/5)^2=1;
wxdraw2d(implicit(%,x,-10,10,y,-10,10));

kill(all)$
F:(x/5)^2+(y/5)^2=1;
wxdraw2d(implicit(F,x,-10,10,y,-10,10));