DERIVE for Windows version 5.02 DfW file saved on 26 Jun 2005 #ÿÿCExpnObj8 à0Nuevað¿y=k*(h/(b-c)+a)*x€8<ð`Nuevað¿y=k*(h/b+a)*(x-c)€8lÐxNuevað¿ y=k*a*x+h-a*b€8„ ¨Nuevað¿0SOLVE(y-k*(h/(b-c)+a)*x,y-k*(h/b+a)*(x-c),[x,y])€X´@Ø Simp(Nueva){®Gáz„?0SOLVE(y=k*(h/(b-c)+a)*x,y=k*(h/b+a)*(x-c),[x,y])€8ä0Nuevað¿2SOLVE([y-k*(h/(b-c)+a)*x,y-k*(h/b+a)*(x-c)],[x,y])€PH8Simp(#6)¸…ëQ¸ž?2[x=(c-b)*(a*b+h)/h AND y=-k*(a*b+h)*(a*(b-c)+h)/h]€8D hNuevað¿0SOLVE([y-k*(h/(b-c)+a)*x,y=k*a*x+h-k*a*b],[x,y])€`t8˜ Simp(Nueva){®Gáz„? 3[x=(c-b)*(a*b-h)/(h*k) AND y=(h-a*b)*(a*(b-c)+h)/h]€8¤0ÈNuevað¿ 0SOLVE([y=k*a*x+h-k*a*b,y-k*(h/b+a)*(x-c)],[x,y])€0Ôhø Simp(Nueva){®Gáz„? ?[x=(h*(b+c*k)-a*b*(b-c*k))/(h*k) AND y=(a*b+h)*(h-a*(b-c*k))/h]€8€ˆNuevað¿ DET([[(c-b)*(a*b+h)/h,-k*(a*b+h)*(a*(b-c)+h)/h,1],[(c-b)*(a*b-h)/(h*k),(h-a*b)*(a*(b-c)+h)/h,1],[(h*(b+c*k)-a*b*(b-c*k))/(h*k),(a*b*k+h)*(h-a*(b-c*k))/h,1]])€È”ÈÄ Simp(Nueva){®Gáz”? -c*(a*b*(k-1)+h*(k+1))^2/(h*k)€0Ðhô Simp(#10){®Gáz„??[x=(h*(b+c*k)-a*b*k*(b-c))/(h*k) AND y=(a*b+h)*(h-a*k*(b-c))/h]€8`Ì Simp(#12)¸…ëQ¸ž?–-(a^3*b^2*(b-c)*(b-c*k)*(k^2-2*k+1)+a^2*b*h*(2*b^2*(k-1)-b*c*(k^3-k^2+3*k-3)+c^2*k*(k^2-1))-a*b*h^2*(b*(k+1)*(k-1)+3*c*(1-k^2))+c*h^3*(k+1)^2)/(h^2*k)€PØHüSimp(#8){®Gáz”?7[x=(c-b)*(a*b*k-h)/(h*k) AND y=(h-a*b*k)*(a*(b-c)+h)/h]€8€ŒNuevað¿ŸDET([[(c-b)*(a*b*k-h)/(h*k),(h-a*b*k)*(a*(b-c)+h)/h,1],[(h*(b+c*k)-a*b*k*(b-c))/(h*k),(a*b+h)*(h-a*k*(b-c))/h,1],[(c-b)*(a*b+h)/h,-k*(a*b+h)*(a*(b-c)+h)/h,1]])€˜ˆÈ Simp(#17){®Gáz„?-c*h*(k+1)^2/k€8Ô¨àNuevað¿"ak-paralelismo"€8ì€XNuevað¿uDET([[0,0,1],[(h*(b+c*k)-a*b*k*(b-c))/(h*k),(a*b+h)*(h-a*k*(b-c))/h,1],[(c-b)*(a*b+h)/h,-k*(a*b+h)*(a*(b-c)+h)/h,1]])€ød p Simp(#20){®Gáz„?-c*(k+1)*(a*b+h)€8|@èNuevað¿mDET([[(c-b)*(a*b*k-h)/(h*k),(h-a*b*k)*(a*(b-c)+h)/h,1],[0,0,1],[(c-b)*(a*b+h)/h,-k*(a*b+h)*(a*(b-c)+h)/h,1]])€HôP Simp(#22){®Gáz„?0€8 pxNuevað¿zDET([[(c-b)*(a*b*k-h)/(h*k),(h-a*b*k)*(a*(b-c)+h)/h,1],[(h*(b+c*k)-a*b*k*(b-c))/(h*k),(a*b+h)*(h-a*k*(b-c))/h,1],[0,0,1]])€ð„¨¨ Simp(#24){®Gáz„?c*(k+1)*(a*b*k-h)/k€8´p Nuevað¿zDET([[(c-b)*(a*b*k-h)/(h*k),(h-a*b*k)*(a*(b-c)+h)/h,1],[(h*(b+c*k)-a*b*k*(b-c))/(h*k),(a*b+h)*(h-a*k*(b-c))/h,1],[c,0,1]])€Ø,ÀP Simp(#26){®Gáz„?c*(k+1)*(a*k*(b-c)-h)/k€8\pÈNuevað¿|DET([[(c-b)*(a*b*k-h)/(h*k),(h-a*b*k)*(a*(b-c)+h)/h,1],[(h*(b+c*k)-a*b*k*(b-c))/(h*k),(a*b+h)*(h-a*k*(b-c))/h,1],[b,h*0,1]])€8Ôp@Nuevað¿zDET([[(c-b)*(a*b*k-h)/(h*k),(h-a*b*k)*(a*(b-c)+h)/h,1],[(h*(b+c*k)-a*b*k*(b-c))/(h*k),(a*b+h)*(h-a*k*(b-c))/h,1],[b,h,1]])€HLPX Simp(#29){®Gáz„?0€8d@ÐNuevað¿mDET([[(c-b)*(a*b*k-h)/(h*k),(h-a*b*k)*(a*(b-c)+h)/h,1],[c,0,1],[(c-b)*(a*b+h)/h,-k*(a*b+h)*(a*(b-c)+h)/h,1]])€àܸè Simp(#31){®Gáz„? -c*(k+1)*(a*(b-c)+h)€8ô@` Nuevað¿!mDET([[(c-b)*(a*b*k-h)/(h*k),(h-a*b*k)*(a*(b-c)+h)/h,1],[b,h,1],[(c-b)*(a*b+h)/h,-k*(a*b+h)*(a*(b-c)+h)/h,1]])€l   Simp(#33){®Gáz„?"$-(k+1)*(a*b*k*(b-c)+h*(b*(k-1)+c))/k€œ À  Simp(#34){®Gáz„?#$-(k+1)*(a*b*k*(b-c)+h*(b*(k-1)+c))/k$ÿÿÿð