Simpson

18b26568-cdbf-455c-8fda-de6d432d70ae 20 15 12 decimal

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

ε 1010 -^:

X 0 2.5 2.5 0 + 660 + 7.5 10.4 71 mat :

Y 0 6.25 0.25 0.25 22.9 32.7 32.7 71 mat :

Y X augment

x F X Y x linterp :

x F x 0 X max lele *

x roundup1 x trunc 1 + x x trunc - 0 > x trunc cases :

u X max : 10.4

subscript as tutorial Ω.specific2my_stuff 1.23456789 :

a 0.5 :

Ω.specific2my_stuff 1.23456789

n u a / roundup1 : 21

Simpson

f a b n Int w s b a - (34 / 2 w * 1 - (* 14 / 2 w * 1 - (3^* - 12 / + (* a + : w G w s f 12 w * 1 - (2^- (* : α 0 : β 1 : h β α - n / : 14 mat Simpson 13 / h 2 / α G β G + (* h α k h * + G k 1 n 1 - sum * + (* 23 / h * α h 2 / - k h * + G k 1 n sum * + eval : 32 / b a - (* Simpson * 41 line :

x f x F :

m 1 : m n ≤ m m 1 + : h m el m 1 - (a * m a * + 2 / m a * u ≤ m 1 - (a * u + 2 / cases m * : for

f 3410 Int 0.25

m 1 : m n ≤ m m 1 + : k m el f m 1 - (a * m a * m a * u ≤ u cases 10 Int kN m / * : for

Your original

from doctored

k kN m / 0.3125 0.9375 1.5625 2.1875 2.8125 0.125 0.125 0.125 0.125 0.125 0.125 0.125 12.2667 13.9 15.5333 16.35 16.35 16.35 16.35 16.35 13.08 211 mat

h m 0.25 0.75 1.25 1.75 2.25 2.75 3.25 3.75 4.25 4.75 5.25 5.75 6.25 6.75 7.25 7.75 8.25 8.75 9.25 9.75 10.2 211 mat

K 0.3125 0.9375 1.5625 2.1875 2.8125 0.125 0.125 0.125 0.125 0.125 0.125 0.125 12.2667 13.9 15.5333 16.35 16.35 16.35 16.35 16.35 13.08 211 mat :

H 0.25 0.75 1.25 1.75 2.25 2.75 3.25 3.75 4.25 4.75 5.25 5.75 6.25 6.75 7.25 7.75 8.25 8.75 9.25 9.75 10.2 211 mat :

1 a / K * H augment Y X augment 2 1 sys plot(data,#,size,#)

data char size clr plot k 1 data rows range r3 k el char : r4 k el size : r5 k el clr : 31 line for data r3 r4 r5 augment 21 line :

XY 1 a / K * H augment :

data XY . 12 black plot :

1 a / K * H augment Y X augment data 3 1 sys

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 :

data sub subspace j 1 data rows 1 - (range Vsub j el i 1 sub range vx i el data j el i sub / data 1 j + el data j el - (* + : for vx 21 line eval : 11 line for v Vsub 1 el : j 2 Vsub rows range v v Vsub j el stack : for v 31 line 21 line :

Xo 0.3125 0.9375 1.5625 2.1875 2.8125 0.125 0.125 0.125 0.125 0.125 0.125 0.125 12.2667 13.9 15.5333 16.35 16.35 16.35 16.35 16.35 13.08 211 mat :

Yo 0.25 0.75 1.25 1.75 2.25 2.75 3.25 3.75 4.25 4.75 5.25 5.75 6.25 6.75 7.25 7.75 8.25 8.75 9.25 9.75 10.2 211 mat :

X Xo : Y Yo : 21 sys

Equally sub-divide  the control polygon sub 3 :

XY X Y augment : origin X Y + 15 blue plotG : 21 line

New Xo sub subspace Yo sub subspace augment : New Xo 1 el Yo 1 el 12 mat New stack : 21 line

isolate New New :

X New 1 col : Y New 2 col : 12 mat SUB X Y . 12 black plotG : 21 line

Hermite Parametric Polyline CAD style ... adjust fillet

origin XY SUB 3 1 sys