<p> plotG(vx,vy,a,b,c) </p>

6aea5357-0d85-49b4-bfb0-2ea1495a6d64 33 4 5 decimal

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

vx vy a b c plotG a char ≡ b size ≡ c color ≡ 13 mat n vx length : plot vx 1 el vy 1 el a b c augment : i 2 n range plot plot vx i el vy i el a b c augment stack : for plot 51 line :

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

u Φ 1 u mwbesselj u 1015 -^+ / :

λ 0.99999 :

x abs Φ 1 1 sys

μ 1 λ 2^- sqrt : 0.004472124774646

Voltera 2nd kind x f μ x t - (* sin t Φ * t 0 x int :

x f eval x c *

10 f 0.04

integrates nicely x V 0 λ μ x * cos λ 2^μ / μ x * sin * + λ μ / μ x t - (* sin t Φ * t 0 x int * + (* + 1 - :

x q x 2^:

10 V 18.9

x V x c *

does not integrate x R x q x t - V t q * t 0 x int + eval :

x R x c *

Voltera x 01 0.05 range : i 1 x rows range F i el x i el f eval : for x F augment 31 line :

Voltera Voltera :

x i el V eval

X Voltera 1 col : Y Voltera 2 col : x S X Y x cinterp : 31 sys

integrates nicely x R x q x t - S t q * t 0 x int + eval :

data 0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 10 0.01 0.04 0.09 0.16 0.25 0.36 0.49 0.64 0.81 1211 mat transpose :

vx data 1 col : vy data 2 col : pts vx vy . 12 black plotG : 31 line

pts x R x c * 2 1 sys

1 R 1.000037

x φ 1 x x 2^x 3^41 mat :

X data 1 col : Y data 2 col : 21 line

j 1 x φ length range i 1 X length range M i j el X i el φ j el : for for Φ M transpose M * : d M transpose Y * : b Φ 1 -^eval d * : 41 line

b 6.5768 1014 -^* 1.5985 1012 -^* - 1041 mat

<= recast the scalar model x fit b x φ * :

pts x fit x c * 2 1 sys

1 fit 0.999999999995323