Essays/Tensor Experiments/TensorExperiments05

From J Wiki
Jump to navigation Jump to search


GTE0500C.jpg


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

fsqB=:(cy0^2:)+cy1^2:


fsqBy0=:2*cy0
fsqBy1=:2*cy1
fsqBy2=:0:
fsqBy3=:0:

fsqBdy=:fsqBy0,fsqBy1,fsqBy2,fsqBy3


fsqBy0y0=:2:
fsqBy1y1=:2:

fsqB00=:>@(0{]);([fsqBy0y0>@(0{]))`(<"1@aVn2@(0 0"_))`(>@(1{]))}
fsqB11=:>@(0{]);([fsqBy1y1>@(0{]))`(<"1@aVn2@(1 1"_))`(>@(1{]))}

fsqBdydyGen=:[fsqB11 fsqB00

fsqBdydy=:>@(1{])@([fsqBdydyGen(cy0,cy1,cy2,cy3);(2$4:)$0:)


fsqBdydydy    =:(3$4:)$0:
fsqBdydydydy  =:(4$4:)$0:
fsqBdydydydydy=:(5$4:)$0:

fsqBXX=:fsqB;fsqBdy;fsqBdydy;fsqBdydydy;fsqBdydydydy;fsqBdydydydydy


GTE0501C.jpg


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

fsqBpow=:0.5"_

fsqBU0=:                                                                fsqB^fsqBpow
fsqBU1=:                                                        fsqBpow*fsqB^fsqBpow+_1:
fsqBU2=:                                          (fsqBpow+_1:)*fsqBpow*fsqB^fsqBpow+_2:
fsqBU3=:                            (fsqBpow+_2:)*(fsqBpow+_1:)*fsqBpow*fsqB^fsqBpow+_3:
fsqBU4=:              (fsqBpow+_3:)*(fsqBpow+_2:)*(fsqBpow+_1:)*fsqBpow*fsqB^fsqBpow+_4:
fsqBU5=:(fsqBpow+_4:)*(fsqBpow+_3:)*(fsqBpow+_2:)*(fsqBpow+_1:)*fsqBpow*fsqB^fsqBpow+_5:

x1fAXX=:[cfFN5(fsqBU0;fsqBU1;fsqBU2;fsqBU3;fsqBU4;fsqBU5),:fsqBXX


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"_

   x1fA          =:cfXX0@x1fAXX
   x1fAdy        =:cfXX1@x1fAXX
   x1fAdydy      =:cfXX2@x1fAXX
   x1fAdydydy    =:cfXX3@x1fAXX
   x1fAdydydydy  =:cfXX4@x1fAXX
   x1fAdydydydydy=:cfXX5@x1fAXX

   (gXT(x1fAdy"_ 1        (((2^_44);2^_23)qteq[;])"1(0|:[:(gXT x1fA        ])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(x1fAdydy"_ 1      (((2^_44);2^_22)qteq[;])"2(0|:[:(gXT x1fAdy      ])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(x1fAdydydy"_ 1    (((2^_44);2^_19)qteq[;])"3(0|:[:(gXT x1fAdydy    ])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(x1fAdydydydy"_ 1  (((2^_44);2^_17)qteq[;])"4(0|:[:(gXT x1fAdydydy  ])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(x1fAdydydydydy"_ 1(((2^_44);2^_16)qteq[;])"5(0|:[:(gXT x1fAdydydydy])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


GTE0502C.jpg


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

fsqC=:cy2


fsqCy0=:0:
fsqCy1=:0:
fsqCy2=:1:
fsqCy3=:0:

fsqCdy=:fsqCy0,fsqCy1,fsqCy2,fsqCy3


fsqCdydy      =:(2$4:)$0:
fsqCdydydy    =:(3$4:)$0:
fsqCdydydydy  =:(4$4:)$0:
fsqCdydydydydy=:(5$4:)$0:

fsqCXX=:fsqC;fsqCdy;fsqCdydy;fsqCdydydy;fsqCdydydydy;fsqCdydydydydy


GTE0503C.jpg


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

fsqCpow=:_1"_

fsqCU0=:                                                                fsqC^fsqCpow
fsqCU1=:                                                        fsqCpow*fsqC^fsqCpow+_1:
fsqCU2=:                                          (fsqCpow+_1:)*fsqCpow*fsqC^fsqCpow+_2:
fsqCU3=:                            (fsqCpow+_2:)*(fsqCpow+_1:)*fsqCpow*fsqC^fsqCpow+_3:
fsqCU4=:              (fsqCpow+_3:)*(fsqCpow+_2:)*(fsqCpow+_1:)*fsqCpow*fsqC^fsqCpow+_4:
fsqCU5=:(fsqCpow+_4:)*(fsqCpow+_3:)*(fsqCpow+_2:)*(fsqCpow+_1:)*fsqCpow*fsqC^fsqCpow+_5:

x1fBXX=:[cfFN5(fsqCU0;fsqCU1;fsqCU2;fsqCU3;fsqCU4;fsqCU5),:fsqCXX


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"_

   x1fB          =:cfXX0@x1fBXX
   x1fBdy        =:cfXX1@x1fBXX
   x1fBdydy      =:cfXX2@x1fBXX
   x1fBdydydy    =:cfXX3@x1fBXX
   x1fBdydydydy  =:cfXX4@x1fBXX
   x1fBdydydydydy=:cfXX5@x1fBXX

   (gXT(x1fBdy"_ 1        (((2^_44);2^_23)qteq[;])"1(0|:[:(gXT x1fB        ])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(x1fBdydy"_ 1      (((2^_44);2^_22)qteq[;])"2(0|:[:(gXT x1fBdy      ])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(x1fBdydydy"_ 1    (((2^_44);2^_22)qteq[;])"3(0|:[:(gXT x1fBdydy    ])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(x1fBdydydydy"_ 1  (((2^_44);2^_21)qteq[;])"4(0|:[:(gXT x1fBdydydy  ])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(x1fBdydydydydy"_ 1(((2^_44);2^_21)qteq[;])"5(0|:[:(gXT x1fBdydydydy])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


GTE0504C.jpg


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

x1fCXX=:[cfMP5 x1fAXX,:x1fBXX


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"_

   x1fC          =:cfXX0@x1fCXX
   x1fCdy        =:cfXX1@x1fCXX
   x1fCdydy      =:cfXX2@x1fCXX
   x1fCdydydy    =:cfXX3@x1fCXX
   x1fCdydydydy  =:cfXX4@x1fCXX
   x1fCdydydydydy=:cfXX5@x1fCXX

   (gXT(x1fCdy"_ 1        (((2^_44);2^_22)qteq[;])"1(0|:[:(gXT x1fC        ])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(x1fCdydy"_ 1      (((2^_44);2^_22)qteq[;])"2(0|:[:(gXT x1fCdy      ])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(x1fCdydydy"_ 1    (((2^_44);2^_19)qteq[;])"3(0|:[:(gXT x1fCdydy    ])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(x1fCdydydydy"_ 1  (((2^_44);2^_17)qteq[;])"4(0|:[:(gXT x1fCdydydy  ])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(x1fCdydydydydy"_ 1(((2^_44);2^_16)qteq[;])"5(0|:[:(gXT x1fCdydydydy])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


GTE0505C.jpg


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

x1fD=:1+((((cy0^2:)+cy1^2:)^0.5"_)*cy2^_1:)^2:

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

x1fDXX=:<@(+/)@:>"1@(0|:])@(x1fDCC,:[cfMP5 x1fCXX,:x1fCXX)


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"_

   x1fDdy        =:cfXX1@x1fDXX
   x1fDdydy      =:cfXX2@x1fDXX
   x1fDdydydy    =:cfXX3@x1fDXX
   x1fDdydydydy  =:cfXX4@x1fDXX
   x1fDdydydydydy=:cfXX5@x1fDXX

   (gXT(x1fDdy"_ 1        (((2^_44);2^_21)qteq[;])"1(0|:[:(gXT x1fD        ])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(x1fDdydy"_ 1      (((2^_25);2^_22)qteq[;])"2(0|:[:(gXT x1fDdy      ])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(x1fDdydydy"_ 1    (((2^_23);2^_21)qteq[;])"3(0|:[:(gXT x1fDdydy    ])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(x1fDdydydydy"_ 1  (((2^_20);2^_21)qteq[;])"4(0|:[:(gXT x1fDdydydy  ])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(x1fDdydydydydy"_ 1(((2^_17);2^_21)qteq[;])"5(0|:[:(gXT x1fDdydydydy])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


GTE0506C.jpg


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

x1fDpow=:_1"_

x1fDU0=:                                                                x1fD^x1fDpow
x1fDU1=:                                                        x1fDpow*x1fD^x1fDpow+_1:
x1fDU2=:                                          (x1fDpow+_1:)*x1fDpow*x1fD^x1fDpow+_2:
x1fDU3=:                            (x1fDpow+_2:)*(x1fDpow+_1:)*x1fDpow*x1fD^x1fDpow+_3:
x1fDU4=:              (x1fDpow+_3:)*(x1fDpow+_2:)*(x1fDpow+_1:)*x1fDpow*x1fD^x1fDpow+_4:
x1fDU5=:(x1fDpow+_4:)*(x1fDpow+_3:)*(x1fDpow+_2:)*(x1fDpow+_1:)*x1fDpow*x1fD^x1fDpow+_5:

x1fEXX=:[cfFN5(x1fDU0;x1fDU1;x1fDU2;x1fDU3;x1fDU4;x1fDU5),:x1fDXX


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"_

   x1fE          =:cfXX0@x1fEXX
   x1fEdy        =:cfXX1@x1fEXX
   x1fEdydy      =:cfXX2@x1fEXX
   x1fEdydydy    =:cfXX3@x1fEXX
   x1fEdydydydy  =:cfXX4@x1fEXX
   x1fEdydydydydy=:cfXX5@x1fEXX

   (gXT(x1fEdy"_ 1        (((2^_44);2^_21)qteq[;])"1(0|:[:(gXT x1fE        ])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(x1fEdydy"_ 1      (((2^_44);2^_15)qteq[;])"2(0|:[:(gXT x1fEdy      ])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(x1fEdydydy"_ 1    (((2^_44);2^_13)qteq[;])"3(0|:[:(gXT x1fEdydy    ])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(x1fEdydydydy"_ 1  (((2^_44);2^_14)qteq[;])"4(0|:[:(gXT x1fEdydydy  ])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(x1fEdydydydydy"_ 1(((2^_44);2^_14)qteq[;])"5(0|:[:(gXT x1fEdydydydy])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


GTE0507C.jpg


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

x1XX=:x1(<@[,}.@])[cfMQ5 x1fEXX,:x1fCXX


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"_

   x1dy        =:cfXX1@x1XX
   x1dydy      =:cfXX2@x1XX
   x1dydydy    =:cfXX3@x1XX
   x1dydydydy  =:cfXX4@x1XX
   x1dydydydydy=:cfXX5@x1XX

   (gXT(x1dy"_ 1        (((2^_44);2^_22)qteq[;])"1(0|:[:(gXT x1        ])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(x1dydy"_ 1      (((2^_44);2^_15)qteq[;])"2(0|:[:(gXT x1dy      ])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(x1dydydy"_ 1    (((2^_44);2^_15)qteq[;])"3(0|:[:(gXT x1dydy    ])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(x1dydydydy"_ 1  (((2^_44);2^_12)qteq[;])"4(0|:[:(gXT x1dydydy  ])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(x1dydydydydy"_ 1(((2^_44);2^_13)qteq[;])"5(0|:[:(gXT x1dydydydy])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:LTE0500C.txt
Download: File:LTE0501C.txt
Download: File:LTE0502C.txt
Download: File:LTE0503C.txt
Download: File:LTE0504C.txt
Download: File:LTE0505C.txt
Download: File:LTE0506C.txt
Download: File:LTE0507C.txt




Download MoinMoin source: File:TensorExperiments05.ijs




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