Eliete Pereira - LEPTEN - Universidade Federal de Santa Catarina
Eliete Pereira - LEPTEN - Universidade Federal de Santa Catarina
Eliete Pereira - LEPTEN - Universidade Federal de Santa Catarina
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
APÊNDICE F 108P4 := 0.02267073505 - 0.001567060895 r> plot([P1,P2,P3,P4],r=1..14,color=[red,blue,green,black],view=[1..14,0..0.06]);Madhusudana Parabólico para a junta Al-Al b1.> restart;> b:=1.6*a;> d[Al]:=6*a;b := 1.6 ad Al := 6 a> beta:=(alpha*evalf(Pi))/180:> cons:=evalf(tan(beta)):> c:=b+cons*d[Al]:> A:=simplify(a/c):> B:=simplify(b/c):> De[p]:=2*(B^2-A^2)/(1-A^2)^2:> P:=De[p]*A^2*((1/A^2)-r^2):> P1:=simplify(subs(alpha=50,P));> P2:=simplify(subs(alpha=55,P));> P3:=simplify(subs(alpha=60,P));> P4:=simplify(subs(alpha=65,P));P1 := 0.04183164294 - 0.0005463073500 r 2P2 := 0.03076439018 - 0.0002975098707 r 2P3 := 0.02199935673 - 0.0001529694351 r 2P4 := 0.01505064624 - 0.00007191106015 r 2> plot([P1,P2,P3,P4],r=1..14,color=[red,blue,green,black],view=[1..14,0..0.05]);.Madhusudana Polinomial para a junta Al-Al b 1 .> restart;> with(LinearAlgebra):> b:=1.6*a;> d[Al]:=6*a;b := 1.6 ad Al := 6 a> beta:=(alpha*evalf(Pi))/180:> cons:=evalf(tan(beta)):> c:=simplify(b+cons*d[Al]):