NB. * karawari A exp_net NM2 NB. suzuki introduction to statiscal analsys using AIC /P.109 nest_sub0=: 3 : '({@> y),/ L:0 >(#y) # < {@> y' NB. nest_sub1=: 4 : ' (nest_sub x) $ L:0 {@> y' NB. A nest_sub1 NM find_replace=: 4 : ' i. $ x nest_sub1 y' NB. point yourself NB. A u NM A=: 1 3 4 1 1 NB. nest_sub 1 3 4 4 1 NB. NM=: 5 5 $ 12 4 3 0 0 4 4 1 1 0 3 1 3 0 1 0 1 0 0 0 0 0 1 0 0 NB. NM2 is nested array NM2=:12; 4; 3; 0; 0; 4;(4*=/~i. 3); 1; 1; 0; 3; 1;(3*=/~i. 4) NM2=:5 5 $ NM2,0; 1; 0; 1; 0; 0; 0; 0; 0; 1; 0; 0 NM3=: 12; 4; 3; 0; 0; 4;4;(3 4 $ 1); 1; 0; 3;(4 3 $ 1);3 NM3=: 5 5 $ NM3,0; 1; 0; 1; 0; 0; 0; 0; 0; 1; 0; 0 exp_nest=: 4 : 0 NB. y is nested mat NM2 NB. A exp_nest NM2 EXPMAT=: nest_sub0 x IND=:; 1 e. L:0 # L:0 y NB. find nest-place = 0 ANS=: <'' COUNTER=: 0 while. COUNTER < # IND do. select. COUNTER { IND case. 0 do. TMP=: >COUNTER { , y fcase. do. TMP=: (;COUNTER{,EXPMAT) $ ; COUNTER{,y end. ANS=: ANS,: COUNTER end. (;$ EXPMAT)$ }.ANS NB. boxed nested array ) nut_crack=: 3 : 0 NB. u A exp_nest NM2 IND1=:-. 1 e.~ IND0=:;{."1 # L:0 y NB. 0 is single COUNTER=. 0 ANS=:'' while. COUNTER < # IND1 do. select. COUNTER { IND1 case. 0 do. NB. single TMP=: ;;(L:0) COUNTER { y case. 1 do. TMP=:;("1) |: ;(L:0) >{ (L:0) COUNTER{y end. ANS=: ANS,TMP COUNTER=. >: COUNTER end. ANS ) NB. ---------------------- SDAT=: 3 4 $ 30 23 26 29 22 18 21 19 29 25 31 27 mk_Y=: 3 : 0 (+/+/ y),(+/"1 y),(+/y),0 0 )