1 November  2023   5:16:15.877 PM      
 
polygon_monte_carlo_test():
  FORTRAN77 version
  Test polygon_monte_carlo().
 
TEST01
  Use POLYGON_SAMPLE to estimate integrals 
  over the interior of a polygon in 2D.
 
         N        1              X^2              Y^2             X^4           X^2Y^2             Y^4           X^6
 
         1     4.00000         1.30715         3.33161        0.427161         1.08873         2.77491        0.139591    
         2     4.00000         1.01630         2.72309        0.461405        0.626743         1.87468        0.220482    
         4     4.00000         1.58829         1.84793        0.963473        0.696657         1.36232        0.641431    
         8     4.00000         1.73842         1.94693         1.20633        0.810609         1.24779        0.893580    
        16     4.00000         1.33472         1.34091        0.714847        0.347929        0.790984        0.448165    
        32     4.00000         1.07869         1.04884        0.656815        0.254187        0.554886        0.467036    
        64     4.00000         1.45610         1.25486        0.946553        0.445319        0.770321        0.711559    
       128     4.00000         1.26740         1.29739        0.751243        0.400381        0.714859        0.542932    
       256     4.00000         1.34790         1.37355        0.812441        0.491397        0.844136        0.581991    
       512     4.00000         1.33472         1.42057        0.795932        0.456832        0.881052        0.568154    
      1024     4.00000         1.31462         1.31812        0.789657        0.446787        0.784188        0.564373    
      2048     4.00000         1.31489         1.33885        0.779246        0.445582        0.811708        0.550450    
      4096     4.00000         1.27431         1.30986        0.748162        0.420129        0.780171        0.528350    
      8192     4.00000         1.32611         1.32112        0.792137        0.437433        0.789208        0.564479    
     16384     4.00000         1.33069         1.34088        0.798738        0.444047        0.805857        0.569992    
     32768     4.00000         1.32929         1.32452        0.797564        0.440865        0.794285        0.568834    
     65536     4.00000         1.33733         1.33802        0.805023        0.446991        0.803426        0.576243    
 
     Exact     4.00000         1.33333         1.33333        0.800000        0.444444        0.800000        0.571429    
 
polygon_monte_carlo_test():
  Normal end of execution.
 
 1 November  2023   5:16:15.896 PM