Question: iteration mapping proc

i think i might have asked this before for another thing if so im sorry but anyway i think its @ or something, i would like to plot the final output here indexed against th

NrANGE := (rand(0 .. 20))()

Š := {}

Y := proc (X) local N, S1, Š; if X <> `union`(X, S1[N]) then N := (rand(1 .. NrANGE))(); S1[N] := {K[1](N+1), K[1](N)}; Š := `union`(X, S1[N]) else  end if end proc

NULL

NrANGE := (rand(0 .. 20))(); nops(Y(Y(Y(Y({}))))); nops(Y(Y(Y({})))); nops(Y(Y({}))); nops(Y({}))

``

 

Download mapleprimes90916.mw

e number of iterations of Y conducted besides the original performed on the empty set

Please Wait...