!--- Opening output file: PCoes.txt 2021.04.05.0537.31.250 This is: "PolyGen.exe", By: Jeff Setterholm Version 1. 2021.03.31 Lakeville, MN 55044 USA Output: a large binary file of very accurate matrix coefficients. : Up to 8th order the nearest integers are scaled exact values & can be written to a .csv file by `Polyize.exe`. : 2000+ coefficient polynomials up to 20th order can be computed. "IntroToPolyGen.txt" - has some background information. "PolyGen.ini" - has your program control inputs. ... opening it now... !--- Run configuration: Values # 1,:1 nVT -independent variables ,:2`order` =power of each variable- evens only 8, 1,:3 iPolyClass - 1:exact, 2:unscaled ,:4 TEC - Time Estimate Coefficient = 218422.0 !--- Assigned internally: 2,:5 iOutFiles Output- 1:.csv, 2:.bin, 3:both ,:6 cFileOut - `PolyGen`+hex+`.bin` ,:6 cFileOut - `PolyGen`+hex+`.bin` = PCoesE18.bin order indices ^ are augmented hexadecimals:{ 0,15}->{0:f} -&- 16->g 17->h 18->i 19->j 20 -> k !--- Overview: 8, :Highest `order` 1, :# of variables 8, :Order of X( 1) 9, :# of Poly Coeff`s 81, :# of matrix Coeff`s 0.000, estimated runtime (minutes) !--- Data entry - done 2021.04.05.0537.31.250 !--- task`s time: . . . All arrays needed have been successfully allocated Subroutine PowersMatrixGen(): !--- MatrixExportPrep(): 0.655360000000000000000000000000E+05, Division factor 65535.999999999999999999999999998800, 0.100000000000000000000000000000E+01, matrix MaxAbs 1.000000000000000000000000000000, 0.152587890625000000000000000000E-04, matrix MinAbs 0.000015258789062500000000000000, 65536.000, :Matrix - biggest integer- decimal 65536.000, :storage space needed- i*1,i*2,i*4,i*8 21098765432109876543210987654321, :digits index 3 2 1 7, : digits recommended w/`.` !--- Powers matrix - done 2021.04.05.0537.31.265 !--- task`s time: . . . 15 Coe[,] = inverse(Pow[,]), inversion progress bar... 0.107077346989115085307275876403E-05, :Determinant 0.000001070773469891150853072759, !--- 2021.04.05.0537.31.265 Evaluating the inversion accuracy... 0.136E-29, :AbsMax r*16 inversion error in [Coe*Pow-I] !--- Powers matrix - inverted 2021.04.05.0537.31.265 !--- task`s time: . . . !--- MatrixExportPrep(): 0.630000000000000000000000000000E+03, Division factor 630.000000000000000000000000000001, 0.213333333333333333333333333333E+03, matrix MaxAbs 213.333333333333333333333333333303, 0.142857142857142857142857142857E-01, matrix MinAbs 0.014285714285714285714285714286, 134400.000, :Matrix - biggest integer- decimal 134400.000, :storage space needed- i*1,i*2,i*4,i*8 21098765432109876543210987654321, :digits index 3 2 1 8, : digits recommended w/`.` !--- Coeffs matrix - done 2021.04.05.0537.31.281 !--- task`s time: . . . 16 PCoesE18.bin Binary file data write/read sequence- integer*4`s & real*16`s: 4, i* 4 nVT -Number of independent variables fixed size 4, i* 4 nOrdMax -Highest order variable ` ` 4, i* 4 nCT -Number of polynomial coefficients ` ` 40, i* 4 nOrd(20) -Order of each variable ` ` 4, i* 4 iPolyClass-=1:exact, =2:unscaled ` ` 4, i* 4 iCoeDigits- +***. <-count ` ` 4, i* 4 iCoeDeciPl-number of digits after . ` ` 16, r*16 CoeDiv -Coe[,] dividing factor ` ` 16, r*16 CoeMaxScaled -AbsMax Coe[,] ` ` 4, i* 4 iPowDigits- +***. <-count ` ` 4, i* 4 iPowDeciPl-number of digits after . ` ` 16, r*16 PowDiv -Pow[,] dividing factor ` ` 16, r*16 PowMaxScaled -AbsMax Pow[,] ` ` 144, r*16 X[0:nOrdMax,nVT] -Variable values to use allocated 36, i* 4 nVnC[nVT ,nCT] -Values combinations sequence ` 1296, r*16 Coe[ nCT ,nCT] -The coefficients solver ` 1296, r*16 Pow[ nCT ,nCT] Coe[,] = inverse(Pow[,]) ` 2908, Total Bytes 0.000 :write-time-minutes ballpark !--- Binary file - exported 2021.04.05.0537.31.281 !--- task`s time: . . . Arrays deallocated !--- Done. 2021.04.05.0537.31.281 !--- task`s time . . . 15 !--- Elapsed time: . . . 46 year ^m ^d ^h^m ^s ^ms 105652.174,:TEC- measured matrix coefficients per minute Link: http://ftp.setterholm.com/ExactInversePolynomials/PolyGen.zip Analyst: Jeff Setterholm Lakeville MN 55044 USA Thursday 2020.04.01 ********, PolyGen.exe is post-copyright i.e.:FREE ,******** My legal disclaimer: *********************************************************** ********, Individual cognition is always flawed ,******** ********, including yours & mine. ,******** ********, - So: - ,******** ********, Use these results at your own risk. ,******** *********************************************************** Mitigate malfunctions. Nurture synergies. !--- Ending "PolyGen.exe"