!--- Opening output file: PCoes.txt 2021.04.05.0613.31.078 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 20, 2,: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` = PCoesU1k.bin order indices ^ are augmented hexadecimals:{ 0,15}->{0:f} -&- 16->g 17->h 18->i 19->j 20 -> k !--- Overview: 20, :Highest `order` 1, :# of variables 20, :Order of X( 1) 21, :# of Poly Coeff`s 441, :# of matrix Coeff`s 0.002, estimated runtime (minutes) !--- Data entry - done 2021.04.05.0613.31.093 !--- task`s time: . . . 15 All arrays needed have been successfully allocated Subroutine PowersMatrixGen(): !--- MatrixExportPrep(): 0.100000000000000000000000000000E+01, Division factor 1.000000000000000000000000000000, 0.100000000000000000000000000000E+01, matrix MaxAbs 1.000000000000000000000000000000, 0.100000000000000000000000000000E-18, matrix MinAbs 0.000000000000000000100000000000, Unscaled matrix coefficients are needed. 0 decimal place results were also requested. Your .ini file input #8 can override this guess: 22, :decimal places used 1.000, :Matrix - biggest integer- decimal 1.000, :storage space needed- i*1,i*2,i*4,i*8 21098765432109876543210987654321, :digits index 3 2 1 3, : digits recommended w/`.` !--- Powers matrix - done 2021.04.05.0613.31.109 !--- task`s time: . . . 16 Coe[,] = inverse(Pow[,]), inversion progress bar... 0.127442031238161076418723208079E-53, :Determinant 0.000000000000000000000000000000, !--- 2021.04.05.0613.31.109 Evaluating the inversion accuracy... 0.453E-23, :AbsMax r*16 inversion error in [Coe*Pow-I] !--- Powers matrix - inverted 2021.04.05.0613.31.109 !--- task`s time: . . . !--- MatrixExportPrep(): 0.100000000000000000000000000000E+01, Division factor 1.000000000000000000000000000000, 0.466624514174668495656150137374E+08, matrix MaxAbs 46662451.417466849565615013737410600000, 0.180920814330627501637300310472E-19, matrix MinAbs 0.000000000000000000018092081433, Unscaled matrix coefficients are needed. 0 decimal place results were also requested. Your .ini file input #8 can override this guess: 22, :decimal places used 46662451.417, :Matrix - biggest integer- decimal 46662451.417, :storage space needed- i*1,i*2,i*4,i*8 21098765432109876543210987654321, :digits index 3 2 1 10, : digits recommended w/`.` !--- Coeffs matrix - done 2021.04.05.0613.31.125 !--- task`s time: . . . 16 PCoesU1k.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[,] ` ` 336, r*16 X[0:nOrdMax,nVT] -Variable values to use allocated 84, i* 4 nVnC[nVT ,nCT] -Values combinations sequence ` 7056, r*16 Coe[ nCT ,nCT] -The coefficients solver ` 7056, r*16 Pow[ nCT ,nCT] Coe[,] = inverse(Pow[,]) ` 14668, Total Bytes 0.000 :write-time-minutes ballpark !--- Binary file - exported 2021.04.05.0613.31.125 !--- task`s time: . . . Arrays deallocated !--- Done. 2021.04.05.0613.31.125 !--- task`s time . . . 15 !--- Elapsed time: . . . 62 year ^m ^d ^h^m ^s ^ms 426774.194,: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"