> | restart:
alpha:=0.0; s:=3-alpha; assume(ecc in RealRange(0,1)); #ecc:=0.87; eps:=sqrt(1-ecc^2); prefaktor:=-2*k/(s-1)*(a/RA)^(s)*(sqrt(1-ecc^2)/ecc) ; BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_prefaktoruBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; clen1:=convert( (2*s+1)*ecc*eps^(2*s-1)*int((1+ecc*cos(phi))^(-s-1),phi=0..Pi) ,EllipticK); BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_clenu1BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; clen2:=convert( (s+1)*eps^(2*s+1)*int(cos(phi)*(1+ecc*cos(phi))^(-s-2),phi=0..Pi) ,EllipticK); BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_clenu2BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; rozdil:=convert( (clen1+clen2) ,EllipticK); XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX; |
![]() ![]() |
(1) |
> |
> | restart:
alpha:=0.5; s:=3-alpha; assume(ecc in RealRange(0,1)); #ecc:=0.87; eps:=sqrt(1-ecc^2); prefaktor:=-2*k/(s-1)*(a/RA)^(s)*(sqrt(1-ecc^2)/ecc) ; BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_prefaktoruBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; clen1:=convert( (2*s+1)*ecc*eps^(2*s-1)*int((1+ecc*cos(phi))^(-s-1),phi=0..Pi) ,EllipticK); BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_clenu1BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; clen2:=convert( (s+1)*eps^(2*s+1)*int(cos(phi)*(1+ecc*cos(phi))^(-s-2),phi=0..Pi) ,EllipticK); BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_clenu2BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; rozdil:=convert( (clen1+clen2) ,EllipticK); XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX; |
![]() ![]() |
(2) |
> |
> | restart:
alpha:=1.0; s:=3-alpha; assume(ecc in RealRange(0,1)); #ecc:=0.87; eps:=sqrt(1-ecc^2); prefaktor:=-2*k/(s-1)*(a/RA)^(s)*(sqrt(1-ecc^2)/ecc) ; BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_prefaktoruBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; clen1:=convert( (2*s+1)*ecc*eps^(2*s-1)*int((1+ecc*cos(phi))^(-s-1),phi=0..Pi) ,EllipticK); BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_clenu1BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; clen2:=convert( (s+1)*eps^(2*s+1)*int(cos(phi)*(1+ecc*cos(phi))^(-s-2),phi=0..Pi) ,EllipticK); BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_clenu2BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; rozdil:=convert( (clen1+clen2) ,EllipticK); XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX; |
![]() ![]() |
(3) |
> |
> | restart:
alpha:=1.5; s:=3-alpha; assume(ecc in RealRange(0,1)); #ecc:=0.87; eps:=sqrt(1-ecc^2); prefaktor:=-2*k/(s-1)*(a/RA)^(s)*(sqrt(1-ecc^2)/ecc) ; BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_prefaktoruBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; clen1:=convert( (2*s+1)*ecc*eps^(2*s-1)*int((1+ecc*cos(phi))^(-s-1),phi=0..Pi) ,EllipticK); BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_clenu1BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; clen2:=convert( (s+1)*eps^(2*s+1)*int(cos(phi)*(1+ecc*cos(phi))^(-s-2),phi=0..Pi) ,EllipticK); BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_clenu2BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; rozdil:=convert( (clen1+clen2) ,EllipticK); XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX; |
![]() ![]() |
(4) |
> |
> | restart:
alpha:=2.5; s:=3-alpha; assume(ecc in RealRange(0,1)); #ecc:=0.87; eps:=sqrt(1-ecc^2); prefaktor:=-2*k/(s-1)*(a/RA)^(s)*(sqrt(1-ecc^2)/ecc) ; BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_prefaktoruBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; clen1:=convert( (2*s+1)*ecc*eps^(2*s-1)*int((1+ecc*cos(phi))^(-s-1),phi=0..Pi) ,EllipticK); BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_clenu1BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; clen2:=convert( (s+1)*eps^(2*s+1)*int(cos(phi)*(1+ecc*cos(phi))^(-s-2),phi=0..Pi) ,EllipticK); BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_clenu2BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; rozdil:=convert( (clen1+clen2) ,EllipticK); XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX; |
![]() ![]() |
(5) |
> |
> | restart:
alpha:=3.0; s:=3-alpha; assume(ecc in RealRange(0,1)); #ecc:=0.87; eps:=sqrt(1-ecc^2); prefaktor:=-2*k/(s-1)*(a/RA)^(s)*(sqrt(1-ecc^2)/ecc) ; BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_prefaktoruBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; clen1:=convert( (2*s+1)*ecc*eps^(2*s-1)*int((1+ecc*cos(phi))^(-s-1),phi=0..Pi) ,EllipticK); BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_clenu1BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; clen2:=convert( (s+1)*eps^(2*s+1)*int(cos(phi)*(1+ecc*cos(phi))^(-s-2),phi=0..Pi) ,EllipticK); BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBpo_clenu2BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB; rozdil:=convert( (clen1+clen2) ,EllipticK); XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX; |
![]() ![]() |
(6) |
> |