Y en junio/julio de este año se puso en contacto conmigo por whatsapp para saber de david y del porque la habia bloqueado sin mas.
with(LinearAlgebra); X := Vector(2, {(1) = 1, (2) = 700}); V := Vector(2, {(1) = 0, (2) = 0}); P := Matrix(2, 3, {(1, 1) = 0, (1, 2) = 0, (1, 3) = 0, (2, 1) = 0, (2, 2) = 0, (2, 3) = 0}); func1 := evalf(-(3(-0.135e-1-exp(-3alpha)-betasin(3)))exp(-3alpha)-(2.5(-.8342-exp(-2.5alpha)-.5984721441beta))exp(-2.5alpha)-(2(-1.3616-exp(-2alpha)-betasin(2)))exp(-2alpha)-(1.5(-1.4740-exp(-1.5alpha)-.9974949866beta))exp(-1.5alpha)-(-1.0157-exp(-alpha)-betasin(1))exp(-alpha)-(.5(-.1569-exp(-.5alpha)-.4794255386beta))exp(-.5alpha)); func2 := evalf((-0.135e-1-exp(-3alpha)-betasin(3))sin(3)-2.044774940-.5984721441exp(-2.5alpha)-1.583014002beta+(-1.3616-exp(-2alpha)-betasin(2))sin(2)-.9974949866exp(-1.5alpha)+(-1.0157-exp(-alpha)-betasin(1))sin(1)-.4794255386exp(-.5alpha)); P[1, 1] := diff(func1, alpha); P[1, 2] := diff(func1, beta); P[2, 1] := diff(func2, alpha); P[2, 2] := diff(func2, beta); P[1, 3] := -func1; P[2, 3] := -func2; errta := 1; errtb := 1; err1b := 0; err1a := 0; for t while errta > 1/100000000 do if 1 = 1 then V[1] := X[1]; V[2] := X[2]; e := exp(1); alpha := V[1]; beta := V[2]; C := evalf(P); p := ColumnDimension(C); z := RowDimension(C); if C[1][1] <> 1 then C[1, 1 .. p] := C[1, 1 .. p]/C[1][1] end if; for n to p do for j to p-n-1 do for i to p-1 do C[j+n, i .. p] := -C[n, i .. p]C[j+n][n]+C[j+n, i .. p]; C[j+n, i .. p] := C[j+n, i .. p]/C[j+n][j+n] end do end do end do; X[z] := evalf(C[z][p]); for j from z-1 by -1 to 1 do resu := 0; for i to z-j do resu := X[p-i]C[j][p-i]+resu end do; X[j] := evalf(C[j][p]-resu) end do end if; resultado; X[1] := X[1]+V[1]; X[2] := X[2]+V[2]; if 1 = 1 then err2a := X[1]; err2b := X[2]; errta := abs(err2a-err1a); errtb := abs(err2b-err1b); err1a := X[1]; err1b := X[2] end if end do:
https://1fichier.com/?0tq80m546a
https://1fichier.com/?z2n5a53v5a
https://1fichier.com/?1l6r8tv8jk
https://1fichier.com/?l6qokvv22l
https://1fichier.com/?knxrh6gamb
https://1fichier.com/?3dqkv97axr
https://1fichier.com/?t261fyflcx
https://1fichier.com/?1xzn1ztw6w
https://1fichier.com/?kvq5ih3h4l
https://1fichier.com/?up2gp2teu3
https://1fichier.com/?glipp5eug9
https://1fichier.com/?jeqr31vdvb
https://1fichier.com/?1cq576kt83
https://1fichier.com/?495g773fec
https://1fichier.com/?jyka0tcwhd