<p> Bernstein procedure </p>

6be6ecfa-946b-435f-947a-8cbc5e809d06 17 4 5 decimal

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

vx vy char size color plotG n vx length : plot vx 1 el vy 1 el char size color augment : i 2 n range plot plot vx i el vy i el char size color augment stack : for plot 41 line :

X 002005469001092109217 mat transpose : Y 016020522216070017 mat transpose : 21 sys

XY X Y augment : Cntrl X Y + 15 black plotG : 21 line

n X rows 1 - :

n 6

Wy 111111117 mat transpose :

zero 1015 -^eval :

Wx 111111117 mat transpose :

t zero 1 0.05 range :

<p> Bernstein procedure </p>

Bézier-Bernstein procedure j n t Q n! j! (n j - (! (* / t j^* 1 t - (n j -^* :

t QX j n t Q X j 1 + el * Wx j 1 + el * (j 0 n sum :

t QY j n t Q Y j 1 + el * Wy j 1 + el * (j 0 n sum :

BezBern i 1 t rows range qX i el t i el QX eval : qY i el t i el QY eval : 21 line for qX qY augment 21 line :

BX BezBern 1 col :

BY BezBern 2 col :

data BX BY o 5 black plotG :

Bézier-Bernstein control points & weighting [Wx, Wy]

XY BezBern data Cntrl 4 1 sys

p 0.4121 :

xo 1 :

d 5.557141 - 4.935261 5.278708 - 4.708095 41 mat :

x d Q d n el x n 1 -^* n 1 d rows sum :

x c 10 x ≤ (x 1 ≤ (& cases :

x d F x x xo - (* x d Q * (p^:

M Low High Scale High Low - (M M Min - M Max M Min - 106 -^+ / (* Low + :

vx BX 01 Scale : vy BY 01 Scale : 21 line

support vx vy o 5 red plotG :

About this project:

The final fit F(x,d) was done for Russian Collab.

Collaboration Tom & Jean Mathcad 11. A pretty

tricky technique. Apparently it was to shape in

some ways an UFO ! ?

The purpose of the exercise was to represent

in maths format for analytical suite ...

normal, tangent, revolution ... etc

]]> x d F x c * support 2 1 sys