plot(data,char,size,clr)

2cbf9369-69d7-46dd-98e2-094e06fb4815 22 4 5 decimal

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

Universal version  [Smath 6179]. It supports "data" sets from 
source ... data sets subject to be decimated from auxilliary
module Decimate(data,n)... reasonably fast on primitive PC. data char size clr plot k 1 data rows range r3 k el char : r4 k el size : r5 k el clr : 13 mat for data r3 r4 r5 augment 21 line :

data isolated

data 410419728133717462055196417731582159122992810236103441045210360102681017610084999298100981089811698124981329814097148951569116382167701695617143173341732717223163141541114511136121271411817109201002491288226732064145510467374282192104410542 mat :

j 10 :

x data 1 col : y data 2 col : 12 mat pts data o 5 black plot : 21 sys

explorer data 1 col j el data 2 col (j el augment :

explorer 159112 mat

pts data data explorer 3 1 sys

Area Polygon wrt vertices coordinates A 12 / x i el y i 1 + el * x i 1 + el y i el * - (i 1 x rows 1 - sum * abs :

Perimeter  Polygon wrt vertices coordinates P x i 1 + el x i el - (2^y i 1 + el y i el - (2^+ sqrt i 1 x rows 1 - sum :

Center of gravity Xo 16 A * / x i el x i 1 + el + (x i el y i 1 + el * x i 1 + el y i el * - (* i 1 x rows 1 - sum * : Yo 16 A * / y i el y i 1 + el + (x i el y i 1 + el * x i 1 + el y i el * - (* i 1 x rows 1 - sum * : 21 mat

Area
Perimeter A P 21 mat 13106.5 487.7 21 mat

Center of gravity Xo abs Yo abs 21 mat 87.574499 54.712649 21 mat

'a' = intercept of unary f(x)
passing through Xo, Yo a Yo abs data 12 el + 1.9692333 / - : 32.8618 -

sub data 1032 range 12 range el : H sub . 15 black plot : 21 sys

x G sub 1 col sub 2 col x ainterp :

b 1 :

Yo abs data 12 el + unk / - Xo abs + Yo abs - unk 13 solve 1.969233304

b = 1 through Yo x f a b x * + :

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

Yo abs data 12 el + 1.969233304 / - Xo abs + 54.712649

x f x G x λ * pts Xo abs Yo abs + 250 black 1 5 mat H 5 1 sys

Solve junction in this search ... bracket wisely. jnct x G x f - 0 ≡ x Yo abs 200 solve : 130.862

sanity intercept 0 f 32.8618498072795 -

sanity jnct jnct G jnct f 21 mat 989821 mat