Create Scatter XY => grid

ffbff773-b417-4113-929a-2f7e5215740d 3 15 12 decimal

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

Argentina Project

]]> Create Scatter XY => grid

Program to create the "Scatter xy" Mathcad style X Y x0 x1 y0 y1 u v Sr count 1 : i 1 u range j 1 v range x x0 i 1 - (u 1 - / x1 x0 - (* + : y y0 j 1 - (v 1 - / y1 y0 - (* + : xy count 1 el x y X x y Y 12 mat : count count 1 + : 41 line for for Unest the collection Unest xy 1 el : j 2 xy rows range Unest Unest xy j el stack : for Unest 61 line :

t0 1 time :

xy char size clr pts k 1 xy rows range r3 k el char : r4 k el size : r5 k el clr : 13 mat for xy r3 r4 r5 augment 21 line :

u v X u : u v Y v : 12 mat x0 0 : x1 50 : y0 0 : y1 50 : u 6 : v 9 : 16 mat grid X Y x0 x1 y0 y1 u v Sr : 31 line

1 time t0 - 0.3 s *

Argentina IEEE-80 Rectangular Grid [6*9]

Subdivide a range in 'n' intervals n end interval j 1 n 1 + (range h j el end - end j * + n / : for h 21 line :

x_grid u 1 - x1 interval : y_grid v 1 - y1 interval : 21 sys

ListCollect_X x_start 0 : x_end 50 : 12 mat x x_grid : ct 1 : i 1 x_grid rows range X ct el x i el x_start x i el x_end 22 mat : ct ct 1 + : 21 line for X 51 line :

ListCollect_Y y_start 0 : y_end 50 : 12 mat y y_grid : ct 1 : i 1 y_grid rows range Y ct el y_start y i el y_end y i el 22 mat : ct ct 1 + : 21 line for Y 51 line :

X ListCollect_X :

Y ListCollect_Y :

X Y grid 3 1 sys

X Y 12 mat 0005022 mat 100105022 mat 200205022 mat 300305022 mat 400405022 mat 500505022 mat 61 mat 0050022 mat 0 6.25 50 6.25 22 mat 0 12.5 50 12.5 22 mat 0 18.75 50 18.75 22 mat 025502522 mat 0 31.25 50 31.25 22 mat 0 37.5 50 37.5 22 mat 0 43.75 50 43.75 22 mat 050505022 mat 91 mat 12 mat

... Maths suite pending ...