1e38748d-0ff3-4df6-892d-a377070edf42 18 6 5 auto

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

CWD C:\SmathFile CurrentDirectory :

Gray F:\SmathExchange\Digitize Discontinuous.bmp READBMP :

iVBORw0KGgoAAAANSUhEUgAAAPwAAABhCAIAAAB9MVutAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAADKhJREFUeF7tXcdyFEkQ5f+DKweCA8EBDht4I7z33goBgfBWeJBAQRDsPraIVqttvtfdOTUzNQdCO5s5mS/zVVZ2VXX3mn+lz9u3byk9Vh4/7qDiYEIAEqdXEwME4V1DcTcTZhPDygshFlTG2qt79+7J6RBiJahEG95Eem7UOyTSaOKf/z+7du0S6OijYgSST4CDSqr0XJMWD1e2b9/+69cv+LO8vAzqb9myhRu70909pkrPscWnFLX6BKLnZZ49e4Zvdu/e3aro2RE5xEooQ6nSj2Wlf/DgwY0bN8pdwffv30H9vXv3WqjvwEgHE4n09IJPtFlpZm2hzBcSv7S0ZKG+A3YHE4n0ifQrg2VxcRHU37dvX934cWCkg4lE+qkgPXqb69evF6hcR69A/ZmZmTL1HRjpYKIr6REgeGn8PHr0yCgZxFh5H5Vx9Grjxo3lyDcDefjwIai/adOmvKIDdgcTAk/gVVq9sVz1rcg4VK9mE+WG3ljtvn79Ct0DBw4EMCMHUhl3H68S6ceJ9NiKwsJ8l17ly5cvgfo+9OKC6zUUE+m5vIyWK5VlXijbnz9/Rpt08OBBCjyLnZUXgAgqaZ1+zNbp+yJ94MqnT5/wg4cOHTJSnyUxKy8wWFBJpB8n0mPD9cePH723wh8/fgy7ufPz883sZ0nMygsMFlQS6ceJ9HVlXkh8WQW7uVeuXNmzZw8WN/pa2k+kHyd6NRQ8h0RWmgAXQcq+6Fg3Tpqpz2Jn5XsZva2tWqr0YzMUG8p871wB9S9fvowzPIWqz5KYle8dSF0rmFZvWkvDKgGHRFaa8CR9AIwzPJcuXYLdY8eOhW9Y7Ky8YEJQSZV+PCr948ePwb9RNV0LCwug/vHjx1kSs/ICgwWVVaTHf9g/7A4zKw9PHFQcTAhAyl5VHj3IJ8sByJ07d+AG2D8cSYRYCSrpGMJ4VPrm3kaodrIKSAZnTp48+eTJk9a+cAwqfSuGvACLh5WXszIoipF4BXpdvHixGZdzeN+8eQOXcHizmfrOXhlTn3r6Maj0rWXeZyiWrXz79u3ChQug/tOnT+vWSYxEzMQcxkkifSI9QctKRgbqY2SePn268FsODBYGfD+kX7t27f79+3Fv8qiWF+Q6EW1WMkSIKijVSswYgLx69QrUP3PmjJwOgcGCSg+kxyFVHNTG5/z588B89uzZ8ZrpWvnkX73yDLb0NkLih1N58eJFOLqM4RrDUCzntwfSF7ISMJ87d86fK0Iio81KFr2xI33wPCuCzfN/JSOHLkP9kz54/Pz58zDc8Uf4Jn56GWPtACQzgeiVy8cYTaTYU4P/lUWwLto+4e10DAG0xp04dQDwv4AZdyqgK3UAIwytyL0ylnkBuI9KFt7wLCrQAI1Ac3FxyEjXSm/JCm7SwZIWNvMsF2T5iPjgNxb4TMzTK0t4x2giBQ1CEWygvk94Vyo97Nk/Yd+7dXs8+0HIh9NLO3bsuHbtmsWQw9a6gwkgZa0EeUQJ9zRZAiWY8FGpBI5HmAAXmICz+2V0bKwEIJ2OIcB1VHFjpcxGMFSwwgPd5hNUzvOvEYWnV/Yy7+OVYKW5bGM3FxhBg3zh96709sQH/F2ygrszcZWDX8C57dFe01CohcQLKiHxXcJrAeVDr1ZPQAMs7aMIvnz5UoiVoNKpp+8lK5hr8DuHDx/G1kYhQJFkZSReIRr5XZ5W6jjESqNXq+dBAPfpAi+YcPToUaOKfJWlk37z5s1w1O5fc1YyzPk74hwS6WBC4wpVUAQTPipCeEEAYMe/5SLYV0egk37Dhg12xttDHB5Ad/XqVWAWQsaqsPJ2IPngsFbY1tHHK8EKCzwzARrgJM+RI0fAhFaasVZ00g9aigLmbdu2YQWjFXNHelG/LyReUJmbmzt16hTlGJt4wStBpaNXmP9DEQQNXr9+PeJKjyEIb4bOCkxgeQuYyw/p7RE/hUJIvKDCFhTBhI9KR9JnqQENUAXAukrqs1bESo+sCJZkegXq4xIH9y40/4inV3Y4rFfr16+3/3iQZE34qPTr1fv370F9MKHyLSz2iI0H6QOeOswT1t5gYG/dutWewukhfRaT+/fv54sgO7QU0iMruEVSsNRXIvH+VGDGcynKhX+EXjWgo7wSZlGfsi1YoYCzoxdFEDxEuITrH/oYQjh6wG4Xs/KtJmZnZ/FuGWBGqwfh8GGtsPKCCVYF4Y3Qq5jDCwKEQw23b9/OmNDwh3IMIVxmsYOYlbebuHv3bij8ASc1n7Dydq/kpitVeiqDWUbevXt34sQJRA/Ub73w444W47k/+Gkh90PTKziGMonHs+BvY+CG9oqdsvFAJTgfm1dZMFnHWHmBV2WVUAQRSTChkgZ0T5+tprF4WHkZP9oesL8Bs1yDWQYLXNFmUTlWxtIgAHGIVbNXqB1gAuJZLoITSPoQC2AGWmDGuG8o/G5D0UivRPreMwIaoAKiDoIJ2VDk2pv4K32BXujw0O4H9peZ13uI6+ZTC+mRmOBPVF51mRjjAQJPwATQAEHGDECQPsuKkJiR479161bAjCseeb4WgNtV5IJiN9GFwYKVkSe9sszhHleC9PntcRYPKy+E2KKCpf1Q+LHYj4XeSLwKuUmkt2Swl+l6ukifhQxb2TjXgDdUYnvP0nsMPTlgBGZHyaMail0mh2iBWEmPfa/8DiiLh5X3GfSo92B/2NUD7SzsHwhIl1nUJ1aClYFiVUiTYMVK+sLRP9YSKy+EWFDJvMLxvbCxh8NtHz58aGD/QEAS6UPMBwpvIaHWYwiFBx+wW+WsPMA7qJRN4CoHPQ8oiLvX4UP5M5BX+fAOZKKAxcGKgwk7TxYXFzPqmyo9jvOjEE5ee9dQV3DPDqiPe1kKdw4MUYpgJX933BAmern+Yx1j5UdQ6Rvm9EJvIzgXJ/5Wr8DFcNcmblsO9wS3qgj06tg6DuSVAKR7tz1EeMtATJV+akmfxQvsxyMbEAfMANQd8RZGJtIPvThW29OnSm9ZvUGbFx7QhYYVT++xqDRXL8wh4ZEvzol3qKkOJiw1Ran0uKQrP3yQxcPKa2BYK6x83is8miuwv/WVY81Wus+iPrESrHQJr6WaBBnBSnt7U86KYEnwzEGlFxN45VhY7aljfyL9oAwWkphIb89IU13BZBhevYQH8xZePNaQFTzZE0/xHZfrP5ZerLxQTDWVFtJXZkWwFCf+IbzKsz+8h6PBSi+zqJAOH5UhwlsuUYKVFtJXZkUImeCZg8qgJsJ7RBBALPtkb2Qp5CyRfiSzXCJ9P+1Nw69gpT+wH++iKywJJNKPmPQoe+VP3WsX2B1mVh6eOKg4mMgDAfvxTgoQHeueeFQd/sU35Zg7e1WZ98ovWcdY+aGTng2wpkqPK7O6t8OxjQErL3RQgsqovEJUsTyPl+9Wzg+j8qp1ymMdY+WFDGoqTaSva+gFS3HiT161Ej0vwIaLlRd4pakk0lN5V7ZC2Nyz8lriHaw4mNCw15IeRzFnZmbqGMHiYeU1MKwVVn6avRKwxxleAKklfUNvMzH448xKnF5NTNIT6bnHAAqJF1QS6amOUwhXqvRUhFNPT4RLoKOPSjXpcYQQ7zpswMc6x8oLBVJQSV4RFObPM8YZ3tr2prmhT/SaTq6wJGblBV5pKtWVPpG+r2UrISvRcoV1jJUXYqWprCI9vAyfutMHmQC7w8zKw5CDioMJAUicXk0AkKyQVVR6HAiZn59vnsHZQczKayOYtcLKT7NXAvY4w1vd07f2NhODP86sxOnVxCQ9kT6t0xPX5OxoZOWFcaWpFNub5eVlPOKrNRIsHlZeA8NaYeWn2SsBe5zhraj0lt5mYvDHmZU4vZqYpCfSp/amdVJfEWBHIysvjCtNpdjepErf77KVkJVoucI6xsoLsdJUVpH+58+fO3futIx9Fg8rr4FhrbDy0+yVgD3O8BbbG2OZnxj8cWYlTq8mJumJ9Kmnt8zrf2XY0cjKC+NKU/nb3sA/fFpPHwQxfNitclZeMCGoJK+yhFr+YMPFygsZtKtUv5Th5s2beAeTceCzg5iV10Ywa4WVn2avBOxxhndVe2Nv6CcGf5xZidOriUl6In3q6Y1T+x8xdjSy8oIJTWVlyTJVekv+HRLpYELjCusYK+/j1Uqlx1vk5+bmLFkPMiweVl4wIajE6dXCwoI9EVo6hFgJKtEC+VvpqTIv4I+TXnF6xTIe8ktLS6yWwEhBxcErIYmJ9FxehBALKpxP0y0tDMU/pP/9+3eq9EbmCAwWyrDRmSSmReAP6detWzc7O0vps7ln5eFMfjfB6BurInglqBidT2JuEWh/51QvrrB07MVo+pEUgcoI/AdQwMauYY2fhAAAAABJRU5ErkJggg== Gray

r Gray rows : c Gray cols : k 1 : i 1 c range j 1 r range Gray j i el 170 ≡ X k el i : Y k el r j - : k k 1 + : 31 line No pixel if for for 41 line

Plug that one in your PC, Name it so you can read back in Smath "Image Region". CWD:= .... will create a file folder if you don't already have one dedicated.

XY X Y augment :

XY XY 1 csort :

Once the digitiser has finished job, disable all above red line. The digitised data are permanent in the XY file for further processing.

XY CWD ScrapDigit wfile 1

XY CWD ScrapDigit rfile :

Image is: 1. screen captured [PrintScreen] ... I prefer WinGrab, 2. Pasted in Paint, cleaned of the trailing end, 3. Pasted in IrfanView, resampled 50% @ = aspect ratio, 4. Stored in file as *.BMP 5. Read in "Image regon" [as grayscale], 6. Inspected for relevant unique pixel [ColorPic], 7. Digitised by gray module, csort on the X column, 8. Spooled to file to isolate to disable READBMP, and Digitiser/csort. At this point, the digitised collection is over populated, 9. Decimated by 3 to speed up Σ(data) ... cleans lot of duplicates. Cleaninig X's mutiplicates can be done otherwise, 10. After decimation: scale both directions X is scaled 0..2 hr, Y is scaled 0..1 [UnitGraph] 11. Augment [X,Y] for plotting the digitised web page project 12. Run and collect the Cumulative Integral, 13. Plot the unfinished/visible project to client

M Min Max Scale Max Min - (M M min - M max M min - 106 -^+ / (* Min + :

data n Decimate collect every 'n' points range 1 data rows n range : k 1 : i range u k el data i 1 el : v k el data i 2 el : k k 1 + : 31 line for u v augment 31 line 31 line :

data Σ Finite differences Cumul Integration vx data 1 col : vy data 2 col : Y 1 el 0 : i 2 vx rows range Δx i el vx i el vx i 1 - el - : Y i el Y i 1 - el 12 / vy i 1 - el vy i el + (Δx i el * (* + : 21 line for vx Y augment 61 line :

XY XY 3 Decimate :

X XY 1 col 02 Scale :

Unit 0..2 hr ≡

Y XY 2 col 01 Scale :

Unit 0..1 UnitGraph ≡

XY X Y augment :

Plot the scaled digitised/decimated

Σ XY Σ :

Export the Cumulatve Integral, spool to file ...

Cumulative Integral, visible on digitised data set in convenient "UnitProject" for user finish export

XY Σ 2 1 sys

XY 0 0.021739 00 0.008264 0.054348 0.016529 0.108696 0.024793 0.152174 0.024793 0.130435 0.033058 0.173913 0.041322 0.217391 0.049587 0.26087 0.057851 0.304348 0.066116 0.347826 0.07438 0.380435 0.082645 0.423913 0.082645 0.402174 0.099174 0.48913 0.107438 0.532609 0.107438 0.51087 0.123967 0.597826 0.132231 0.619565 0.140496 0.652174 0.157025 0.728261 0.190083 0.73913 0.22314 0.717391 0.322314 0.663043 0.363636 0.641304 0.421488 0.608696 0.46281 0.586957 0.504132 0.565217 0.586777 0.521739 0.628099 0.5 0.694215 0.467391 0.743802 0.445652 0.785124 0.423913 0.834711 0.402174 0.876033 0.380435 0.92562 0.358696 0.975207 0.336957 1.033058 0.358696 1.033058 0.336957 1.041322 0.380435 1.049587 0.413043 1.057851 0.456522 1.066116 0.48913 1.07438 0.521739 1.082645 0.554348 1.099174 0.641304 1.107438 0.673913 1.115702 0.706522 1.123967 0.73913 1.132231 0.771739 1.140496 0.793478 1.14876 0.826087 1.165289 0.891304 1.173554 0.913043 1.181818 0.945652 1.198347 1 1.22314 0.98913 1.256198 0.967391 1.289256 0.945652 1.322314 0.923913 1.355372 0.902174 1.404959 0.869565 1.495868 0.815217 1.528926 0.793478 1.603306 0.75 1.644628 0.728261 1.677686 0.706522 1.735537 0.673913 1.793388 0.641304 1.876033 0.597826 1.917355 0.576087 1.958678 0.554348 2 0.532609 732 mat