Essays/Tensor Experiments/TensorExperiments09

From J Wiki
Jump to navigation Jump to search


GTE0900C.jpg


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

multp3=:gXp3;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:

vr1CXX=:[cfMP5 multp3,:[cfMP5 mfaXX,:o1CXX


NB. ... execute (ijx) ...

   gXcw  =: 0    0    _    _    _  "_
   gXpAll=: 1.1  1.2  1.3  1.4  1.5"_

   yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_

   vr1C          =:cfXX0@vr1CXX
   vr1Cdy        =:cfXX1@vr1CXX
   vr1Cdydy      =:cfXX2@vr1CXX
   vr1Cdydydy    =:cfXX3@vr1CXX
   vr1Cdydydydy  =:cfXX4@vr1CXX
   vr1Cdydydydydy=:cfXX5@vr1CXX

   (gXT(vr1Cdy"_ 1        (((2^_44);2^_13)qteq[;])"1(0|:[:(gXT vr1C        ])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(vr1Cdydy"_ 1      (((2^_44);2^_14)qteq[;])"2(0|:[:(gXT vr1Cdy      ])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(vr1Cdydydy"_ 1    (((2^_44);2^_12)qteq[;])"3(0|:[:(gXT vr1Cdydy    ])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(vr1Cdydydydy"_ 1  (((2^_44);2^_11)qteq[;])"4(0|:[:(gXT vr1Cdydydy  ])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(vr1Cdydydydydy"_ 1(((2^_44);2^_10)qteq[;])"5(0|:[:(gXT vr1Cdydydydy])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


GTE0901C.jpg


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

multp3mp4=:(gXp3*gXp4^_1:);((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:

vr2CXX=:[cfMP5 multp3mp4,:[cfMP5 mfaXX,:o2CXX


NB. ... execute (ijx) ...

   gXcw  =: 0    0    _    _    _  "_
   gXpAll=: 1.1  1.2  1.3  1.4  1.5"_

   yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_

   vr2C          =:cfXX0@vr2CXX
   vr2Cdy        =:cfXX1@vr2CXX
   vr2Cdydy      =:cfXX2@vr2CXX
   vr2Cdydydy    =:cfXX3@vr2CXX
   vr2Cdydydydy  =:cfXX4@vr2CXX
   vr2Cdydydydydy=:cfXX5@vr2CXX

   (gXT(vr2Cdy"_ 1        (((2^_44);2^_14)qteq[;])"1(0|:[:(gXT vr2C        ])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(vr2Cdydy"_ 1      (((2^_44);2^_13)qteq[;])"2(0|:[:(gXT vr2Cdy      ])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(vr2Cdydydy"_ 1    (((2^_44);2^_14)qteq[;])"3(0|:[:(gXT vr2Cdydy    ])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(vr2Cdydydydy"_ 1  (((2^_44);2^_12)qteq[;])"4(0|:[:(gXT vr2Cdydydy  ])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(vr2Cdydydydydy"_ 1(((2^_44);2^_10)qteq[;])"5(0|:[:(gXT vr2Cdydydydy])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


GTE0902C.jpg


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

OyA0XX=:[cfMP4 fy0p0XX,:vr1CXX


NB. ... execute (ijx) ...

   gXcw  =: 0    0    _    _    _  "_
   gXpAll=: 1.1  1.2  1.3  1.4  1.5"_

   yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_

   OyA0        =:cfXX0@OyA0XX
   OyA0dy      =:cfXX1@OyA0XX
   OyA0dydy    =:cfXX2@OyA0XX
   OyA0dydydy  =:cfXX3@OyA0XX
   OyA0dydydydy=:cfXX4@OyA0XX

   (gXT(OyA0dy"_ 1      (((2^_44);2^_13)qteq[;])"1(0|:[:(gXT OyA0      ])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(OyA0dydy"_ 1    (((2^_44);2^_14)qteq[;])"2(0|:[:(gXT OyA0dy    ])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(OyA0dydydy"_ 1  (((2^_44);2^_12)qteq[;])"3(0|:[:(gXT OyA0dydy  ])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(OyA0dydydydy"_ 1(((2^_44);2^_11)qteq[;])"4(0|:[:(gXT OyA0dydydy])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


GTE0903C.jpg


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

OyA1XX=:[cfMP4 fy1p1XX,:vr1CXX


GTE0904C.jpg


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

OyA2XX=:[cfMP4 fy2p2XX,:vr1CXX


GTE0905C.jpg


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

abx01=:(0{])@cfXX1
abx02=:(0{])@cfXX2
abx03=:(0{])@cfXX3
abx04=:(0{])@cfXX4
abx05=:(0{])@cfXX5

vr2Cy0XX=:[(abx01;abx02;abx03;abx04;abx05;_"_)vr2CXX

OyA3t0XX=:[cfMP4 fy0p0XX,:vr2Cy0XX


GTE0906C.jpg


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

abx11=:(1{])@cfXX1
abx12=:(1{])@cfXX2
abx13=:(1{])@cfXX3
abx14=:(1{])@cfXX4
abx15=:(1{])@cfXX5

vr2Cy1XX=:[(abx11;abx12;abx13;abx14;abx15;_"_)vr2CXX

OyA3t1XX=:[cfMP4 fy1p1XX,:vr2Cy1XX


GTE0907C.jpg


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

abx21=:(2{])@cfXX1
abx22=:(2{])@cfXX2
abx23=:(2{])@cfXX3
abx24=:(2{])@cfXX4
abx25=:(2{])@cfXX5

vr2Cy2XX=:[(abx21;abx22;abx23;abx24;abx25;_"_)vr2CXX

OyA3t2XX=:[cfMP4 fy2p2XX,:vr2Cy2XX


GTE0908C.jpg


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

multp0p1p2=:(gXp0+gXp1+gXp2);((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_

OyA3t3XX=:[cfMP4 multp0p1p2,:(cfXX0;cfXX1;cfXX2;cfXX3;cfXX4;_"_)@vr2CXX


GTE0909C.jpg


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

OyA3XX=:<@(+/)@:>"1@(0|:])@(OyA3t0XX,OyA3t1XX,OyA3t2XX,:OyA3t3XX)


GTE0910C.jpg


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

OyAD4        =:>@((<4 0){])
OyAD4dy      =:>@((<4 1){])
OyAD4dydy    =:>@((<4 2){])
OyAD4dydydy  =:>@((<4 3){])
OyAD4dydydydy=:>@((<4 4){])

OyAXXS=:<@:>"1@(0|:])@(OyA0XX,OyA1XX,OyA2XX,:OyA3XX)

OyAXX=:<@:>"1@(0|:])@:(OyAXXS"_ 1)

hkxE=:[(],[OyAXX ypts)hkxD
hkyE=:[(],[OyAXX ypts)hkyD


NB. ... execute (ijx) ...

   gXcw  =: 0    0    _    _    _  "_
   gXpAll=: 1.1  1.2  1.3  1.4  1.5"_

   yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_

   (gXT(([OyAD4dy       hkyE)(((2^_44);2^_13)qteq[;])"2(0|:[:(gXT([(0{])@OyAD4       hkyE),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(([OyAD4dydy     hkyE)(((2^_44);2^_10)qteq[;])"3(0|:[:(gXT([(0{])@OyAD4dy     hkyE),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(([OyAD4dydydy   hkyE)(((2^_44);2^_10)qteq[;])"4(0|:[:(gXT([(0{])@OyAD4dydy   hkyE),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (gXT(([OyAD4dydydydy hkyE)(((2^_44);2^_10)qteq[;])"5(0|:[:(gXT([(0{])@OyAD4dydydy hkyE),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

NB. ... divergence is 0 ...

   (0=]) ((2^_44)qtsz]) (gXT(+/@((<0 1)|:])"2@([OyAD4dy hkyE))]) ((0;50"_)pTRandom yCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1



Download: File:LTE0900C.txt
Download: File:LTE0901C.txt
Download: File:LTE0902C.txt
Download: File:LTE0903C.txt
Download: File:LTE0904C.txt
Download: File:LTE0905C.txt
Download: File:LTE0906C.txt
Download: File:LTE0907C.txt
Download: File:LTE0908C.txt
Download: File:LTE0909C.txt
Download: File:LTE0910C.txt




Download MoinMoin source: File:TensorExperiments09.ijs




Next Page: Essays/Tensor Experiments/TensorExperiments10
Prev Page: Essays/Tensor Experiments/TensorExperiments08