Andreza Costa Batista.pdf - mtc-m17:80 - Inpe
Andreza Costa Batista.pdf - mtc-m17:80 - Inpe
Andreza Costa Batista.pdf - mtc-m17:80 - Inpe
- No tags were found...
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Programa pseudo_inv2x=[2;1;-1;-3];y=[4.6;4.5;-5.1;3.35];X=[(x(1,1)).^2 1;(x(2,1)).^2 1;(x(3,1)).^2 1;(x(4,1)).^2 1];Y=[(y(1,1)).^2;(y(2,1)).^2;(y(3,1))^2;(y(4,1)).^2];A=pinv(X)*Y;b=sqrt(A(2,1)) %semi-eixo verticala=sqrt(-A(2,1)/A(1,1)) %semi-eixo horizontalfigureplot(x(1,1),y(1,1),'*r',x(2,1),y(2,1),'*r',x(3,1),y(3,1),'*r',x(4,1),y(4,1),'*r')hold onfor xe=-a:0.01:a;ye1=b*sqrt(1-(xe.^2)/(a.^2));ye2=-b*sqrt(1-(xe.^2)/(a.^2));plot(xe,ye1,'k')hold onplot(xe,ye2,'k')hold onendaxis equal61