"
UNIVERSIDADE FEDERAL RURAL DE PERNAMBUCO
RECIFE, 11 DE ABRIL DE 2009
ALUNO: DALTON FRANCISCO DE ARAÚJO
DISCIPLINA: INTRODUÇÃO À MODELAGEM COMPUTACIONAL 2009.1
PROFESSOR: JONES ALBUQUERQUE

Plotting and Graphics
"

"Exercise 4.1 Plotting a table of functions"
Plot[Table[Sin[n*x],{n,1,5}],{x,0,1}]

"Exercise 4.2 Plotting data"
data=
{{1.030,0.021},{1.087,0.026},
{1.176,0.036},{1.409,0.080},
{1.470,0.096},{1.549,0.122},
{1.586,0.135},{1.684,0.177},
{1.926,0.315},{1.997,0.366},
{2.11`,0.453},{2.171,0.503},
{2.183,0.513},{2.209,0.535},
{2.266,0.584},{2.366,0.669},
{2.457,0.745},{2.467,0.753},
{2.547,0.814},{2.774,0.950},
{2.852,0.978},{2.896,0.989},
{3.043,0.998},{3.064,0.996},
{3.223,0.954},{3.467,0.862},
{3.711,1.037},{3.718,1.049},
{3.785,1.170},{3.837,1.264},
{4.006,1.363},{4.093,1.221},
{4.131,1.119},{4.227,0.820},
{4.255,0.728},{4.257,0.724},
{4.402,0.339},{4.912,0.026},
{5.067,0.014},{5.104,0.012},
{5.168,0.009},{5.287,0.005},
{5.453,0.002},{5.455,0.002},
{5.458,0.002},{5.597,0.001},
{5.695,0.001},{5.717,0.001},
{5.723,0.001},{5.874,0.000}}
dataplot=ListPlot[data]

"Exercise 4.3 Combining plots"
fitplot=Plot[1.3Exp[-(x-3.4)^2],{x,0,6}]

?Show

Show[dataplot,fitplot]

"Exercise 4.5 Labeling elements in a plot"
Graphics[
Plot[8-y^3+4y^2+3y,{y,-3,5},Epilog->{Line[{{2,40},{3,26}}],Text["local maximum",{2,45}]}]]

"Exercise 4.6 Controlling the axes in a plot"
Plot[Cos[x],{x,0,4Pi},AxesOrigin->{2Pi,-1},AxesStyle-> RGBColor[0,0,1]]