Eliete Pereira - LEPTEN - Universidade Federal de Santa Catarina

APÊNDICE F 107P2 := -0.00002742100723 λ 4 + 0.0007801377499 λ 3 + 0.05929108996 - 0.006786373534 λ 2+ 0.01134201785 λ> P3:=simplify(subs(alpha=60,P[d]));P3 := -0.000009725314033 λ 4 + 0.0003239775670 λ 3 + 0.04468506542 - 0.003263815101 λ 2+ 0.005594598755 λ> P4:=simplify(subs(alpha=65,P[d]));P4 := -0.000003024374079 λ 4 + 0.0001207091531 λ 3 + 0.03195047980 - 0.001440989486 λ 2+ 0.002531949007 λ> plot([P1,P2,P3,P4],lambda=1..14,color=[red,blue,green,black],view=[1..14,0..0.1]);Madhusudana Linear para a junta Al-Al b 1 .> restart;> b:=1.6*a;> beta:=(alpha*evalf(Pi))/180;> cons:=evalf(tan(beta));> d[Al]:=6*a;> c:=b+cons*d[Al];b := 1.6 aβ := 0.01745329252 αcons := tan( 0.01745329252 α)d Al := 6 ac := 1.6 a + 6 tan( 0.01745329252 α) a> A:=simplify(a/c):> B:=simplify(b/c):> De[L]:=3*(B^2-A^2)/(1-3*A^2+2*A^3):> P:=De[L]*A*(1/A-r):>> P1:=simplify(subs(alpha=50,P));P1 := 0.06341447490 - 0.007246936595 r> P2:=simplify(subs(alpha=55,P));P2 := 0.04651950488 - 0.004574689454 r> P3:=simplify(subs(alpha=60,P));P3 := 0.03319569202 - 0.002768082739 r> P4:=simplify(subs(alpha=65,P));