Did i do it correctly acer? How do i set it? S := [0., 0.3831705970, 0.7015586670, 1.017346814, 1.332369194, 1.647063084, 1.68438, 1.961585851, 2.276008438, 2.590367209, 2.904682853, 3.218967991]: B := trunc(evalhf(Vector(11,(i)->`if`(i=1,1,S[i]*coth(S[i]))))): A := trunc(evalhf(Vector(11,(i)->2/(100*BesselJ(0,S[i]*10)^2)))): C := trunc(evalhf(Matrix(11,11, (i,j)-> B[j]*A[i]/1 * ( evalf(Int(BesselJ(0,S[i]*x)*BesselJ(0,S[j]*x)*x^(15.0/200.0),x=0.0..0.075)) + evalf(Int(BesselJ(0,S[i]*x)*BesselJ(0,S[i]*x)*BesselJ(0,S[j]*x)*x,x=0.076..10.0)) ))) ); CI := trunc(evalhf(C + LinearAlgebra[IdentityMatrix](11))); LinearAlgebra[MatrixInverse](CI);

Placing, Digits := trunc(evalhf(Digits)); , at the start of the code will let me see the Matrix in numeral 11x11 form? Or do i place that in front of each Matrix call? Do i place the evalhf instead of evalf?

The program works great. Thank you. There were no transcription errors. It took 4 min to perform the computations. What i meant by animate is to have the 11x11 Matrix come out. Because i need numbers as the end result. I dont know how to do that.