(* equazione parametrica di un'ellisse generica con 
semiassi paralleli agli assi coordinati    *)

ellisse[{x0_,y0_}][a_,b_][t_]:={x0+a*Cos[t],y0+b*Sin[t]}

ellisse[{0,0}][2,1][t]

ParametricPlot[ellisse[{0,0}][2,1][t],{t,0,2Pi}]

Manipulate[ParametricPlot[ellisse[{x0,y0}][a,b][t],{t,0,2Pi},PlotRange->{{-5,5},{-5,5}}],{x0,-5,5},{y0,-5,5},{a,0,5},{b,0,5}]

Manipulate[ParametricPlot[ellisse[{x0,y0}][a,b][t],{t,0,2Pi},PlotRange->{{-5,5},{-5,5}},ImageSize->150],{{x0,0},-5,5},{{y0,0},-5,5},{{a,2},0,5},{{b,1},0,5}]

ParametricPlot[ellisse[{0,0}][3,2][t],{t,0,2Pi},PlotRange->{{-5,5},{-5,5}},Epilog->Point[ellisse[{0,0}][3,2][Pi/3]]]

Manipulate[ParametricPlot[ellisse[{0,0}][3,2][t],{t,0,2Pi},PlotRange->{{-5,5},{-5,5}},Epilog->Point[ellisse[{0,0}][3,2][k]]],{k,0,2Pi}]

Manipulate[ParametricPlot[ellisse[{0,0}][3,2][t],{t,0,2Pi},PlotRange->{{-5,5},{-5,5}},Epilog->{Red,PointSize[.02],Point[ellisse[{0,0}][3,2][k]]}],{k,0,2Pi}]

(*importare un'immagine dal computer*)

img1=Import["/Users/falco/Desktop/sancarlino/costruzionesacarlo/san carlino bassa.jpg"]

img1=

Export["img1.jpg",img1]

ImageDimensions[img1]

plot1=ParametricPlot[ellisse[{0,0}][3,2][t],{t,0,2Pi},PlotRange->{{-5,5},{-5,5}},Epilog->Point[ellisse[{0,0}][3,2][Pi/3]]]

GraphicsRow[{img1,plot1}]

GraphicsRow[{img1,plot1},Spacings->-360]

GraphicsRow[{foto1,plot1}]

Options[GraphicsRow]

GraphicsRow[{foto1,plot1},Spacings->-360]

GraphicsRow[{foto1,plot1},Spacings->-360,ImageSize->400]

GraphicsRow[{foto1,plot1},Spacings->-360,ImageSize->600]

GraphicsRow[{foto1,
ParametricPlot[.3*ellisse[{0,0}][2,1][t],{t,0,2Pi},PlotRange->2{{-1,1},{-1026/1566,1026/1566}},PlotStyle->{Red,Thickness[.005]}]},Spacings->-360,ImageSize->480]

Manipulate[GraphicsRow[{foto1,
ParametricPlot[ellisse[{x0,y0}][a,b][t],{t,0,2Pi},PlotRange->{{-2,2},2{-2051/3132,2051/3132}},PlotStyle->Thickness[.005]]},Spacings->-360,ImageSize->400],{x0,-2,2},{y0,-1.3,1.3},{a,0,2},{b,0,1.3}]

Manipulate[GraphicsRow[{foto1,
ParametricPlot[ellisse[{x0,y0}][a,b][t],{t,0,2Pi},PlotRange->{{-2,2},2{-2051/3132,2051/3132}},PlotStyle->Thickness[.005]]},Spacings->-360,ImageSize->400],{{x0,0},-2,2},{{y0,0},-1.3,1.3},{{a,1.2},0,2},{{b,0.8},0,1.3}]

Manipulate[GraphicsRow[{foto1,
ParametricPlot[ellisse[p0][a,b][t],{t,0,2Pi},PlotRange->{{-2,2},2{-2051/3132,2051/3132}},PlotStyle->Thickness[.005]]},Spacings->-360,ImageSize->400],{{p0,{0,0}},{-2,-1.3},{2,1/3}},{{a,1.2},0,2},{{b,0.8},0,1.3}]