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

6aea5357-0d85-49b4-bfb0-2ea1495a6d64 14 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 :

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

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

x abs Φ 1 1 sys

μ 0.005 :

λ 0.99999 :

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

10 f 0.045

x f eval x c *

solves 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.8972

x V x c *

does not solve x R x q x t - V t q * t 1012 -^x int + eval :

x R x c *

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

Voltera 00 0.05 3.114420564 106 -^* 0.1 1.245572934 105 -^* 0.15 2.801807004 105 -^* 0.2 4.97916903 105 -^* 0.25 7.776295386 105 -^* 0.3 0.000111914 0.35 0.000152225 0.4 0.000198668 0.45 0.000251217 0.5 0.000309837 0.55 0.000374493 0.6 0.000445145 0.65 0.000521748 0.7 0.000604256 0.75 0.000692617 0.8 0.000786779 0.85 0.000886682 0.9 0.000992266 0.95 0.001103467 1 0.001220218 212 mat :

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

x S x c *

solves nicely x R x q x t - S t q * t 1012 -^x int + eval :

x R x c *

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 : 21 line

vx vy . 12 black plotG x R x c * 2 1 sys