e5abe9b9-165a-4f36-bfdc-fbd87f1a6cf1 4 4 5 decimal

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

Gray C:\SmathFile\Digitize MCD.bmp READBMP :

Digitize image ... all modules Numeric

λ 0 :

iVBORw0KGgoAAAANSUhEUgAAAMcAAAAhCAIAAADieigOAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAL9SURBVHhe7dq/axphHMfxGBEJiESEoKD24mKEQCfp4NC4mEGhkKUOIkTQ4GCzOYWiQ7oEdHFwyOJwf0LHbunY3cEplEigIRB1Tp8+z+fSO++MF/Dn3fc1hDt9Hn9c3px3elvPhMwbVUXmD1VtWUUwGBTviKyQ1aqaKRQK9ft98a7JgqCqd+Y4HA4sKSRJwpJOJBLZ3t7GignhcPhN4xmWiNPpfHkNbBXtzI/L5RKbiJi3+uOq0WiEpXmIvSoajSIW01iseGhimtWqMuO9kXg8jo50MI2YRpvsvw86rDaUNcv+/j4ehVBVZnzUSiQSSGk6m0dGVb1Zr9c71komk6hpCrtFRlXNxyculUp5vd6joyPUNAWLTJZlzLQiqmohPquk02nUZESSJMyxEKpqGQoq2WwWQRmxxhcZVNUKlBUnJyeoycjmFkZVrd4X7vz8PJfLISidSCSC0ZuAqlo7NS6fzyMonXA4jKHriqpaX18VxWIRQemEQiGMXidU1Wb4pjg7O0NQCowwsvxfwwSqaiM1m81qtYqsdILBIE4HymVMWC6qyiIQlJFAIFAoFC4vL9muazl7L6rKIlDQdHt7e+JbWUxYJKrKsmRZvri4QFMquHuRqCrLYh92t7e3jUbj8PCwXq+jKS2/349fyI+Pa7Wa+iNSLOuJe19HVdnFdwU7kURTWj6fT1zqI8YjIm44HGKJqiJqiGI0uru7+8FdXV0hKJ3d3V1x3SI708Q0FXVkDJ5AhaqyCyTAjcdj9ncwGPzkbm5uWq0WgtLyer3iCmymUqmIiRPwBCpUlV0gAa2Xvc79/f0vrt1uIygdj8dzcHAQi8VKpZI6LzyBClVlF+zfb7inmYDRXKfTQVBaOzs7kuL09BSjVagqu0A104nmMJp7eHjoc9fX1whKx+12BwIBdhyWzWYxjaqyD5EOM3GsPQGjObYqBj8+Pv5WdLtdBKWVyWQwbSVV8Rf/D9bJUmCjz4LRnLhlosKnp6c/nCzLCIpbcVXE8qgqMm/Pz38B2CgRo9qiPEoAAAAASUVORK5CYII= Gray

Convert existing gray pixels to black N i 1 Gray rows range j 1 Gray cols range N i j el 0 Gray i j el λ ≤ 255 cases : for for N 21 line :

Gray Min Gray Max 21 mat 025521 mat

isolate N N :

Extract black pixels r N rows : c N cols : k 1 : i 1 c range j 1 r range N j i el 1 ≤ X k el i : Y k el r j - : k k 1 + : 31 line No pixel if for for 41 line

NOTES ... Hard to imagine someone dared publish that kind of crappy graph ! Once digitize, clean/smooth further, not offered

XY X Y augment :

Raw extraction to be cleaned

data StripX strip/nest repeated X u data 1 col : v data 2 col : k 0 : i 1 data rows 1 - (range u i 1 + el u i el - 0 ≠ R k k 1 + : el u i el v i el 12 mat : 11 line StripX done if 11 line for Un-nest R v R 1 el : j 2 R rows range v v R j el stack : for v 91 line :

stripped of repeated X xy XY StripX :

XY rows xy rows 21 mat 39319221 mat

XY 330329430429530529630629730729102 mat

xy 329429529629729829929102911291229102 mat

Digitized ... cleaned

xy 2 1 sys

xy xy rows row 194212 mat

x f xy 1 col xy 2 col x cinterp :

x λ 10 x ≤ (x 194 ≤ (& cases :

x f x λ *