Essays/Tensor Experiments/TensorExperiments06

From J Wiki
Jump to navigation Jump to search


GTE0600C.jpg


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

x2fA=:cy1


x2fAy0=:0:
x2fAy1=:1:
x2fAy2=:0:
x2fAy3=:0:

x2fAdy=:x2fAy0,x2fAy1,x2fAy2,x2fAy3


x2fAdydy      =:(2$4:)$0:
x2fAdydydy    =:(3$4:)$0:
x2fAdydydydy  =:(4$4:)$0:
x2fAdydydydydy=:(5$4:)$0:

x2fAXX=:x2fA;x2fAdy;x2fAdydy;x2fAdydydy;x2fAdydydydy;x2fAdydydydydy


GTE0601C.jpg


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

fsqE=:cy0


fsqEy0=:1:
fsqEy1=:0:
fsqEy2=:0:
fsqEy3=:0:

fsqEdy=:fsqEy0,fsqEy1,fsqEy2,fsqEy3


fsqEdydy      =:(2$4:)$0:
fsqEdydydy    =:(3$4:)$0:
fsqEdydydydy  =:(4$4:)$0:
fsqEdydydydydy=:(5$4:)$0:

fsqEXX=:fsqE;fsqEdy;fsqEdydy;fsqEdydydy;fsqEdydydydy;fsqEdydydydydy


GTE0602C.jpg


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

fsqEpow=:_1"_

fsqEU0=:                                                                fsqE^fsqEpow
fsqEU1=:                                                        fsqEpow*fsqE^fsqEpow+_1:
fsqEU2=:                                          (fsqEpow+_1:)*fsqEpow*fsqE^fsqEpow+_2:
fsqEU3=:                            (fsqEpow+_2:)*(fsqEpow+_1:)*fsqEpow*fsqE^fsqEpow+_3:
fsqEU4=:              (fsqEpow+_3:)*(fsqEpow+_2:)*(fsqEpow+_1:)*fsqEpow*fsqE^fsqEpow+_4:
fsqEU5=:(fsqEpow+_4:)*(fsqEpow+_3:)*(fsqEpow+_2:)*(fsqEpow+_1:)*fsqEpow*fsqE^fsqEpow+_5:

x2fBXX=:[cfFN5(fsqEU0;fsqEU1;fsqEU2;fsqEU3;fsqEU4;fsqEU5),:fsqEXX


GTE0603C.jpg


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

x2fCXX=:[cfMP5 x2fAXX,:x2fBXX


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

   gXcw  =: 0  0  _  _  _"_
   gXpAll=: 0  0  0  0  0"_

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

   x2fC          =:cfXX0@x2fCXX
   x2fCdy        =:cfXX1@x2fCXX
   x2fCdydy      =:cfXX2@x2fCXX
   x2fCdydydy    =:cfXX3@x2fCXX
   x2fCdydydydy  =:cfXX4@x2fCXX
   x2fCdydydydydy=:cfXX5@x2fCXX

   (gXT(x2fCdy"_ 1        (((2^_44);2^_23)qteq[;])"1(0|:[:(gXT x2fC        ])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(x2fCdydy"_ 1      (((2^_44);2^_22)qteq[;])"2(0|:[:(gXT x2fCdy      ])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(x2fCdydydy"_ 1    (((2^_44);2^_22)qteq[;])"3(0|:[:(gXT x2fCdydy    ])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(x2fCdydydydy"_ 1  (((2^_44);2^_21)qteq[;])"4(0|:[:(gXT x2fCdydydy  ])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(x2fCdydydydydy"_ 1(((2^_44);2^_21)qteq[;])"5(0|:[:(gXT x2fCdydydydy])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


GTE0604C.jpg


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

x2fD=:1+(cy1*cy0^_1:)^2:

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

x2fDXX=:<@(+/)@:>"1@(0|:])@(x2fDCC,:[cfMP5 x2fCXX,:x2fCXX)


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

   gXcw  =: 0  0  _  _  _"_
   gXpAll=: 0  0  0  0  0"_

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

   x2fDdy        =:cfXX1@x2fDXX
   x2fDdydy      =:cfXX2@x2fDXX
   x2fDdydydy    =:cfXX3@x2fDXX
   x2fDdydydydy  =:cfXX4@x2fDXX
   x2fDdydydydydy=:cfXX5@x2fDXX

   (gXT(x2fDdy"_ 1        (((2^_44);2^_22)qteq[;])"1(0|:[:(gXT x2fD        ])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(x2fDdydy"_ 1      (((2^_44);2^_22)qteq[;])"2(0|:[:(gXT x2fDdy      ])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(x2fDdydydy"_ 1    (((2^_44);2^_21)qteq[;])"3(0|:[:(gXT x2fDdydy    ])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(x2fDdydydydy"_ 1  (((2^_44);2^_21)qteq[;])"4(0|:[:(gXT x2fDdydydy  ])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(x2fDdydydydydy"_ 1(((2^_44);2^_21)qteq[;])"5(0|:[:(gXT x2fDdydydydy])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


GTE0605C.jpg


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

x2fDpow=:_1"_

x2fDU0=:                                                                x2fD^x2fDpow
x2fDU1=:                                                        x2fDpow*x2fD^x2fDpow+_1:
x2fDU2=:                                          (x2fDpow+_1:)*x2fDpow*x2fD^x2fDpow+_2:
x2fDU3=:                            (x2fDpow+_2:)*(x2fDpow+_1:)*x2fDpow*x2fD^x2fDpow+_3:
x2fDU4=:              (x2fDpow+_3:)*(x2fDpow+_2:)*(x2fDpow+_1:)*x2fDpow*x2fD^x2fDpow+_4:
x2fDU5=:(x2fDpow+_4:)*(x2fDpow+_3:)*(x2fDpow+_2:)*(x2fDpow+_1:)*x2fDpow*x2fD^x2fDpow+_5:

x2fEXX=:[cfFN5(x2fDU0;x2fDU1;x2fDU2;x2fDU3;x2fDU4;x2fDU5),:x2fDXX


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

   gXcw  =: 0  0  _  _  _"_
   gXpAll=: 0  0  0  0  0"_

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

   x2fE          =:cfXX0@x2fEXX
   x2fEdy        =:cfXX1@x2fEXX
   x2fEdydy      =:cfXX2@x2fEXX
   x2fEdydydy    =:cfXX3@x2fEXX
   x2fEdydydydy  =:cfXX4@x2fEXX
   x2fEdydydydydy=:cfXX5@x2fEXX

   (gXT(x2fEdy"_ 1        (((2^_44);2^_22)qteq[;])"1(0|:[:(gXT x2fE        ])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(x2fEdydy"_ 1      (((2^_25);2^_18)qteq[;])"2(0|:[:(gXT x2fEdy      ])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(x2fEdydydy"_ 1    (((2^_24);2^_17)qteq[;])"3(0|:[:(gXT x2fEdydy    ])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(x2fEdydydydy"_ 1  (((2^_23);2^_12)qteq[;])"4(0|:[:(gXT x2fEdydydy  ])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(x2fEdydydydydy"_ 1(((2^_44);2^_15)qteq[;])"5(0|:[:(gXT x2fEdydydydy])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


GTE0606C.jpg


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

x2nw=:arctan@(cy0,cy1)

x2nwXX=:x2nw(<@[,}.@])[cfMQ5 x2fEXX,:x2fCXX

fwXX=:(-@gXw*cy3);(0,0,0,-@gXw);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:

x2XX=:<@(+/)@:>"1@(0|:])@(x2nwXX,:fwXX)


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

   gXcw  =: 0  0.3  _  _  _"_
   gXpAll=: 0  0    0  0  0"_

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

   x2dy        =:cfXX1@x2XX
   x2dydy      =:cfXX2@x2XX
   x2dydydy    =:cfXX3@x2XX
   x2dydydydy  =:cfXX4@x2XX
   x2dydydydydy=:cfXX5@x2XX

   (gXT(x2dy"_ 1        (((2^_44);2^_22)qteq[;])"1(0|:[:(gXT x2        ])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(x2dydy"_ 1      (((2^_26);2^_21)qteq[;])"2(0|:[:(gXT x2dy      ])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(x2dydydy"_ 1    (((2^_44);2^_18)qteq[;])"3(0|:[:(gXT x2dydy    ])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(x2dydydydy"_ 1  (((2^_25);2^_17)qteq[;])"4(0|:[:(gXT x2dydydy  ])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(x2dydydydydy"_ 1(((2^_44);2^_09)qteq[;])"5(0|:[:(gXT x2dydydydy])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. ... script experimental.ijs ...

x3XX=:x3;(0,0,0,1:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:


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

xXXS=:<@:>"1@(0|:])@(x0XX,x1XX,x2XX,:x3XX)

xXX=:<@:>"1@(0|:])@:(xXXS"_ 1)


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

ypts       =:>@((<0 0){])
ydx        =:>@((<0 1){])
ydxdx      =:>@((<0 2){])
ydxdxdx    =:>@((<0 3){])
ydxdxdxdx  =:>@((<0 4){])
ydxdxdxdxdx=:>@((<0 5){])

xpts       =:>@((<1 0){])
xdy        =:>@((<1 1){])
xdydy      =:>@((<1 2){])
xdydydy    =:>@((<1 3){])
xdydydydy  =:>@((<1 4){])
xdydydydydy=:>@((<1 5){])

hkxAB=:  yXX    ,:[xXX yc
hkyAB=:([yXX xc),: xXX


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

   gXcw  =: 0  0.3  _  _  _"_
   gXpAll=: 0  0    0  0  0"_

   xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_

   (gXT(([ydx         hkxAB)(((2^_44);2^_16)qteq[;])"2(0|:[:(gXT([(0{])@ypts      hkxAB),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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(([ydxdx       hkxAB)(((2^_44);2^_16)qteq[;])"3(0|:[:(gXT([(0{])@ydx       hkxAB),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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(([ydxdxdx     hkxAB)(((2^_44);2^_16)qteq[;])"4(0|:[:(gXT([(0{])@ydxdx     hkxAB),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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(([ydxdxdxdx   hkxAB)(((2^_44);2^_16)qteq[;])"5(0|:[:(gXT([(0{])@ydxdxdx   hkxAB),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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(([ydxdxdxdxdx hkxAB)(((2^_44);2^_16)qteq[;])"6(0|:[:(gXT([(0{])@ydxdxdxdx hkxAB),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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. ... execute (ijx) ...

   gXcw  =: 0  0.3  _  _  _"_
   gXpAll=: 0  0    0  0  0"_

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

   (gXT(([xdy         hkyAB)(((2^_44);2^_22)qteq[;])"2(0|:[:(gXT([(0{])@xpts      hkyAB),:@])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(([xdydy       hkyAB)(((2^_26);2^_15)qteq[;])"3(0|:[:(gXT([(0{])@xdy       hkyAB),:@])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(([xdydydy     hkyAB)(((2^_44);2^_15)qteq[;])"4(0|:[:(gXT([(0{])@xdydy     hkyAB),:@])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(([xdydydydy   hkyAB)(((2^_25);2^_12)qteq[;])"5(0|:[:(gXT([(0{])@xdydydy   hkyAB),:@])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(([xdydydydydy hkyAB)(((2^_44);2^_09)qteq[;])"6(0|:[:(gXT([(0{])@xdydydydy hkyAB),:@])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



Download: File:LTE0600C.txt
Download: File:LTE0601C.txt
Download: File:LTE0602C.txt
Download: File:LTE0603C.txt
Download: File:LTE0604C.txt
Download: File:LTE0605C.txt
Download: File:LTE0606C.txt




Download MoinMoin source: File:TensorExperiments06.ijs




Next Page: Essays/Tensor Experiments/TensorExperiments07
Prev Page: Essays/Tensor Experiments/TensorExperiments05