25be1940-a872-4dc7-b85e-e82ca925a7f8 78 3 5 decimal

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

Iterate the GivenFind solve bloc

Inspired from Mathcad 8 Pro. It reproduces the solver 1/1. *****

Predefine the solver invariants

t0 1 time :

a b GivenFind a b FindRoot :

range 100 :

init L 2 ≡ Lc 1 ≡ 21 mat :

A 1011 : V 1500 : 12 mat

i 1 range range idx i el i : d i el 3 i 10 / + : 21 line for

data j d 12 mat idx d augment stack :

To plot all data: open a 1 x 1 matrix plug data in it ... like this =>

data 11 mat

press = to tabulate

Solutions [L, Lc] over variable 'd' wrt  'j'
Very robust, the solver supports long range. j system π d j el * L / Lc L - 2 / (2^d j el 2 / (2^+ sqrt * A L / - π d j el 2 / * - ≡ 23 / π L / * d j el 2 / (2^* Lc L - 2 / (* V L / - π d j el 2 / (2^* - ≡ 21 mat :

data j d 1 3.1 2 3.2 3 3.3 4 3.4 5 3.5 6 3.6 7 3.7 8 3.8 9 3.9 10411 4.1 12 4.2 13 4.3 14 4.4 152 mat

Generalise an iterative collection of the solutions [L, Lc] j Iterate L Lc Find j system init GivenFind : d sol L Lc Find : 21 line above => define the indexed formation d sol 31 line :

Collect the solver j 1 range range : Solved j Iterate vectorize : 21 line

Explode/collect the solved system Plot n 1 range range L n el Solved n el 1 el : Lc n el Solved n el 2 el : 21 line for collect/Unest solutions index [1] Unests solutions d L Lc augment 11 mat 1 el 41 line :

Collect the plot solutions Plot Plot : L Plot 1 col Plot 2 col augment : Lc Plot 1 col Plot 3 col augment : 31 line

Extract indexed sol j 30 : User j Iterate : 21 line

d j el User 12 mat 6 66.495 26.164 21 mat 12 mat

_L d j el User 11 el + 15 black 15 mat :_Lc d j el User 21 el + 15 black 15 mat : 21 line

1 time t0 - min 1.4

Observe:

The solutions appear in the order of "init".

The negative 'Lc' has probably no meaning,

however: does not invalidate the solver.

The meaning of the system is unknown

from the Mathsoft originator ?

Smath 6179 => 2017_06_01

The open style construction is most EDU.

]]> L Lc _L _Lc 4 1 sys