f65d6744-e37d-485a-bd6c-b6438db06059 2 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

Delimitate and fill citical domain

'N' random in critical region N 1000 :

data spec pts i 1 data rows range p i el a b c spec : for v p 1 el : Unest 'p' j 2 p rows range v v p j el stack : for data v augment 51 line :

size/define critical region.
Plot first before filling xmin 2 : xmax 6 : ymin 15 : ymax 22 : 22 mat space_x xmax xmin - (: space_y ymax ymin - (: 21 line 21 sys

303 x * - 10 - 10 x * + 20 x - 31 sys fill 21 sys

A function that tests an arbitrary point 
for its membership in the critical region. x y Test 3 x * 1 y * + 30 ≤ (10 x * y - 10 ≥ (* x 1 y * + 20 ≥ (* :

centroid 3.6 17.7 + 100 black 15 mat :

m 4.04 17.88 . 15 blue 2.905 19.05 . 15 red 3.865 16.135 . 15 green 35 mat :

A routine that finds an array of N random 
pairs in the critical region. Pts i 1 N range x 1 Random space_x * xmin + 1 el : y 1 Random space_y * ymin + 1 el : 1 x y Test - x 1 Random space_x * xmin + 1 el : y 1 Random space_y * ymin + 1 el : 21 line while P i 1 el x : P i 2 el y : 51 line for P 21 line :

a b c spec . 5 #808080 13 mat : fill Pts a b c spec pts : 21 line

30 3 x * - 10 - 10 x * + 20 x - 3 1 sys fill centroid m 4 1 sys

3.08 20.77 2.73 17.27 51532 mat