Essays/Tensor Experiments/TensorExperiments03

From J Wiki
Jump to: navigation, search


GTE0300C.jpg


NB. ... script experimental.ijs ...

cfMQdc=:cfAL*/cfARdc


cfMQdcdct0=:(   ])"2@(cfAL  */cfARdcdc)
cfMQdcdct1=:(0|:])"2@(cfALdc*/cfARdc  )

cfMQdcdc=:cfMQdcdct0+cfMQdcdct1


cfMQdcdcdct0=:(     ])"3@(cfAL    */cfARdcdcdc)
cfMQdcdcdct1=:(  0|:])"3@(cfALdc  */cfARdcdc  )
cfMQdcdcdct2=:(0 2|:])"3@(cfALdc  */cfARdcdc  )
cfMQdcdcdct3=:(0 1|:])"3@(cfALdcdc*/cfARdc    )

cfMQdcdcdc=:cfMQdcdcdct0+cfMQdcdcdct1+cfMQdcdcdct2+cfMQdcdcdct3


cfMQdcdcdcdct00=:(       ])"4@(cfAL      */cfARdcdcdcdc)
cfMQdcdcdcdct01=:(    0|:])"4@(cfALdc    */cfARdcdcdc  )
cfMQdcdcdcdct10=:(  0 3|:])"4@(cfALdc    */cfARdcdcdc  )
cfMQdcdcdcdct11=:(  0 1|:])"4@(cfALdcdc  */cfARdcdc    )
cfMQdcdcdcdct20=:(0 2 3|:])"4@(cfALdc    */cfARdcdcdc  )
cfMQdcdcdcdct21=:(0 3 1|:])"4@(cfALdcdc  */cfARdcdc    )
cfMQdcdcdcdct30=:(0 1 3|:])"4@(cfALdcdc  */cfARdcdc    )
cfMQdcdcdcdct31=:(0 1 2|:])"4@(cfALdcdcdc*/cfARdc      )

cfMQdcdcdcdct0=:cfMQdcdcdcdct00+cfMQdcdcdcdct01+cfMQdcdcdcdct10+cfMQdcdcdcdct11
cfMQdcdcdcdct1=:cfMQdcdcdcdct20+cfMQdcdcdcdct21+cfMQdcdcdcdct30+cfMQdcdcdcdct31

cfMQdcdcdcdc=:cfMQdcdcdcdct0+cfMQdcdcdcdct1


cfMQdcdcdcdcdct000=:(         ])"5@(cfAL        */cfARdcdcdcdcdc)
cfMQdcdcdcdcdct001=:(      0|:])"5@(cfALdc      */cfARdcdcdcdc  )
cfMQdcdcdcdcdct010=:(    0 4|:])"5@(cfALdc      */cfARdcdcdcdc  )
cfMQdcdcdcdcdct011=:(    0 1|:])"5@(cfALdcdc    */cfARdcdcdc    )
cfMQdcdcdcdcdct100=:(  0 3 4|:])"5@(cfALdc      */cfARdcdcdcdc  )
cfMQdcdcdcdcdct101=:(  0 4 1|:])"5@(cfALdcdc    */cfARdcdcdc    )
cfMQdcdcdcdcdct110=:(  0 1 4|:])"5@(cfALdcdc    */cfARdcdcdc    )
cfMQdcdcdcdcdct111=:(  0 1 2|:])"5@(cfALdcdcdc  */cfARdcdc      )
cfMQdcdcdcdcdct200=:(0 2 3 4|:])"5@(cfALdc      */cfARdcdcdcdc  )
cfMQdcdcdcdcdct201=:(0 3 4 1|:])"5@(cfALdcdc    */cfARdcdcdc    )
cfMQdcdcdcdcdct210=:(0 3 1 4|:])"5@(cfALdcdc    */cfARdcdcdc    )
cfMQdcdcdcdcdct211=:(0 4 1 2|:])"5@(cfALdcdcdc  */cfARdcdc      )
cfMQdcdcdcdcdct300=:(0 1 3 4|:])"5@(cfALdcdc    */cfARdcdcdc    )
cfMQdcdcdcdcdct301=:(0 1 4 2|:])"5@(cfALdcdcdc  */cfARdcdc      )
cfMQdcdcdcdcdct310=:(0 1 2 4|:])"5@(cfALdcdcdc  */cfARdcdc      )
cfMQdcdcdcdcdct311=:(0 1 2 3|:])"5@(cfALdcdcdcdc*/cfARdc        )

cfMQdcdcdcdcdct0=:cfMQdcdcdcdcdct000+cfMQdcdcdcdcdct001+cfMQdcdcdcdcdct010+cfMQdcdcdcdcdct011
cfMQdcdcdcdcdct1=:cfMQdcdcdcdcdct100+cfMQdcdcdcdcdct101+cfMQdcdcdcdcdct110+cfMQdcdcdcdcdct111
cfMQdcdcdcdcdct2=:cfMQdcdcdcdcdct200+cfMQdcdcdcdcdct201+cfMQdcdcdcdcdct210+cfMQdcdcdcdcdct211
cfMQdcdcdcdcdct3=:cfMQdcdcdcdcdct300+cfMQdcdcdcdcdct301+cfMQdcdcdcdcdct310+cfMQdcdcdcdcdct311

cfMQdcdcdcdcdc=:cfMQdcdcdcdcdct0+cfMQdcdcdcdcdct1+cfMQdcdcdcdcdct2+cfMQdcdcdcdcdct3


cfMQ0=:_"_;     _;       _;         _;           _;             _"_
cfMQ1=:_"_;cfMQdc;       _;         _;           _;             _"_
cfMQ2=:_"_;cfMQdc;cfMQdcdc;         _;           _;             _"_
cfMQ3=:_"_;cfMQdc;cfMQdcdc;cfMQdcdcdc;           _;             _"_
cfMQ4=:_"_;cfMQdc;cfMQdcdc;cfMQdcdcdc;cfMQdcdcdcdc;             _"_
cfMQ5=:_"_;cfMQdc;cfMQdcdc;cfMQdcdcdc;cfMQdcdcdcdc;cfMQdcdcdcdcdc



Download: File:LTE0300C.txt




Download MoinMoin source: File:TensorExperiments03.ijs




Next Page: Essays/Tensor Experiments/TensorExperiments04
Prev Page: Essays/Tensor Experiments/TensorExperiments02