User:Tom Allen/TensorExperimentsB01

From J Wiki
Jump to navigation Jump to search


GTEB0100C.jpg


NB. ... script experimentalB.ijs ...

qbrS=:((gXq20*cy0)^2:)+((gXq21*cy1)^2:)+(gXq22*cy2)^2:


NB. ... script experimentalB.ijs ...

qbrSUUy0=:2*(gXq20^2:)*cy0
qbrSUUy1=:2*(gXq21^2:)*cy1
qbrSUUy2=:2*(gXq22^2:)*cy2

qbrSUUdy=:qbrSUUy0,qbrSUUy1,qbrSUUy2,0:

qbrSUUy0y0=:2*gXq20^2:
qbrSUUy1y1=:2*gXq21^2:
qbrSUUy2y2=:2*gXq22^2:

qbrSUUdydyt0=:qbrSUUy0y0,0,0,0:
qbrSUUdydyt1=:0,qbrSUUy1y1,0,0:
qbrSUUdydyt2=:0,0,qbrSUUy2y2,0:
qbrSUUdydyt3=:0,0,0,0:
qbrSUUdydy  =:qbrSUUdydyt0,qbrSUUdydyt1,qbrSUUdydyt2,:qbrSUUdydyt3

qbrSUUdydydy    =:(3$4:)$0:
qbrSUUdydydydy  =:(4$4:)$0:
qbrSUUdydydydydy=:(5$4:)$0:

qbrSXX=:qbrS;qbrSUUdy;qbrSUUdydy;qbrSUUdydydy;qbrSUUdydydydy;qbrSUUdydydydydy


GTEB0101C.jpg


NB. ... script experimentalB.ijs ...

qbrB=:qbrS^0.5"_


NB. ... script experimentalB.ijs ...

qbrBPW=:0.5"_

qbrBU0=:                                                           qbrS^qbrBPW
qbrBU1=:                                                    qbrBPW*qbrS^qbrBPW+_1:
qbrBU2=:                                       (qbrBPW+_1:)*qbrBPW*qbrS^qbrBPW+_2:
qbrBU3=:                          (qbrBPW+_2:)*(qbrBPW+_1:)*qbrBPW*qbrS^qbrBPW+_3:
qbrBU4=:             (qbrBPW+_3:)*(qbrBPW+_2:)*(qbrBPW+_1:)*qbrBPW*qbrS^qbrBPW+_4:
qbrBU5=:(qbrBPW+_4:)*(qbrBPW+_3:)*(qbrBPW+_2:)*(qbrBPW+_1:)*qbrBPW*qbrS^qbrBPW+_5:

qbrBXX=:[cfFN5(qbrBU0;qbrBU1;qbrBU2;qbrBU3;qbrBU4;qbrBU5),:qbrSXX


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

   gXcw   =:  1    0    _    _   _"_
   gXpAll =:  0    0    0    0   0"_
   gXq2All=:  1.1  1.2  1.3  0   _"_
   gXq3All=:  1    0    0    0   0"_
   gXq4All=:  1.1  1.2  1.3  0   _"_
   gXq5All=:  1    1    3    1  _3"_
   gXq6All=:  1.1  1.2  1.3  0   _"_
   gXq7All=:  1    1    3    1  _3"_

   yCpts=:_ 0.1 4 20,_ 0.1 4 20,_ 0.1 4 20,:_ 0 0 0"_

   qbrBdy        =:cfXX1@qbrBXX
   qbrBdydy      =:cfXX2@qbrBXX
   qbrBdydydy    =:cfXX3@qbrBXX
   qbrBdydydydy  =:cfXX4@qbrBXX
   qbrBdydydydydy=:cfXX5@qbrBXX

   (gXB(qbrBdy"_ 1        (((2^_44);2^_19)qteq[;])"1(0|:[:(gXB qbrB        ])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

   (gXB(qbrBdydy"_ 1      (((2^_44);2^_18)qteq[;])"2(0|:[:(gXB qbrBdy      ])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

   (gXB(qbrBdydydy"_ 1    (((2^_44);2^_11)qteq[;])"3(0|:[:(gXB qbrBdydy    ])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

   (gXB(qbrBdydydydy"_ 1  (((2^_44);2^_13)qteq[;])"4(0|:[:(gXB qbrBdydydy  ])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

   (gXB(qbrBdydydydydy"_ 1(((2^_44);2^_12)qteq[;])"5(0|:[:(gXB qbrBdydydydy])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 experimentalB.ijs ...

qbrT=:((gXq40*cy0)^2:)+((gXq41*cy1)^2:)+(gXq42*cy2)^2:


qbrTUUy0=:2*(gXq40^2:)*cy0
qbrTUUy1=:2*(gXq41^2:)*cy1
qbrTUUy2=:2*(gXq42^2:)*cy2

qbrTUUdy=:qbrTUUy0,qbrTUUy1,qbrTUUy2,0:

qbrTUUy0y0=:2*gXq40^2:
qbrTUUy1y1=:2*gXq41^2:
qbrTUUy2y2=:2*gXq42^2:

qbrTUUdydyt0=:qbrTUUy0y0,0,0,0:
qbrTUUdydyt1=:0,qbrTUUy1y1,0,0:
qbrTUUdydyt2=:0,0,qbrTUUy2y2,0:
qbrTUUdydyt3=:0,0,0,0:
qbrTUUdydy  =:qbrTUUdydyt0,qbrTUUdydyt1,qbrTUUdydyt2,:qbrTUUdydyt3

qbrTUUdydydy    =:(3$4:)$0:
qbrTUUdydydydy  =:(4$4:)$0:
qbrTUUdydydydydy=:(5$4:)$0:

qbrTXX=:qbrT;qbrTUUdy;qbrTUUdydy;qbrTUUdydydy;qbrTUUdydydydy;qbrTUUdydydydydy


qbrA=:qbrT^0.5"_


qbrAPW=:0.5"_

qbrAU0=:                                                           qbrT^qbrAPW
qbrAU1=:                                                    qbrAPW*qbrT^qbrAPW+_1:
qbrAU2=:                                       (qbrAPW+_1:)*qbrAPW*qbrT^qbrAPW+_2:
qbrAU3=:                          (qbrAPW+_2:)*(qbrAPW+_1:)*qbrAPW*qbrT^qbrAPW+_3:
qbrAU4=:             (qbrAPW+_3:)*(qbrAPW+_2:)*(qbrAPW+_1:)*qbrAPW*qbrT^qbrAPW+_4:
qbrAU5=:(qbrAPW+_4:)*(qbrAPW+_3:)*(qbrAPW+_2:)*(qbrAPW+_1:)*qbrAPW*qbrT^qbrAPW+_5:

qbrAXX=:[cfFN5(qbrAU0;qbrAU1;qbrAU2;qbrAU3;qbrAU4;qbrAU5),:qbrTXX


NB. ... script experimentalB.ijs ...

qbrU=:((gXq60*cy0)^2:)+((gXq61*cy1)^2:)+(gXq62*cy2)^2:


qbrUUUy0=:2*(gXq60^2:)*cy0
qbrUUUy1=:2*(gXq61^2:)*cy1
qbrUUUy2=:2*(gXq62^2:)*cy2

qbrUUUdy=:qbrUUUy0,qbrUUUy1,qbrUUUy2,0:

qbrUUUy0y0=:2*gXq60^2:
qbrUUUy1y1=:2*gXq61^2:
qbrUUUy2y2=:2*gXq62^2:

qbrUUUdydyt0=:qbrUUUy0y0,0,0,0:
qbrUUUdydyt1=:0,qbrUUUy1y1,0,0:
qbrUUUdydyt2=:0,0,qbrUUUy2y2,0:
qbrUUUdydyt3=:0,0,0,0:
qbrUUUdydy  =:qbrUUUdydyt0,qbrUUUdydyt1,qbrUUUdydyt2,:qbrUUUdydyt3

qbrUUUdydydy    =:(3$4:)$0:
qbrUUUdydydydy  =:(4$4:)$0:
qbrUUUdydydydydy=:(5$4:)$0:

qbrUXX=:qbrU;qbrUUUdy;qbrUUUdydy;qbrUUUdydydy;qbrUUUdydydydy;qbrUUUdydydydydy


qbrF=:qbrU^0.5"_


qbrFPW=:0.5"_

qbrFU0=:                                                           qbrU^qbrFPW
qbrFU1=:                                                    qbrFPW*qbrU^qbrFPW+_1:
qbrFU2=:                                       (qbrFPW+_1:)*qbrFPW*qbrU^qbrFPW+_2:
qbrFU3=:                          (qbrFPW+_2:)*(qbrFPW+_1:)*qbrFPW*qbrU^qbrFPW+_3:
qbrFU4=:             (qbrFPW+_3:)*(qbrFPW+_2:)*(qbrFPW+_1:)*qbrFPW*qbrU^qbrFPW+_4:
qbrFU5=:(qbrFPW+_4:)*(qbrFPW+_3:)*(qbrFPW+_2:)*(qbrFPW+_1:)*qbrFPW*qbrU^qbrFPW+_5:

qbrFXX=:[cfFN5(qbrFU0;qbrFU1;qbrFU2;qbrFU3;qbrFU4;qbrFU5),:qbrUXX


GTEB0102C.jpg


NB. ... script experimentalB.ijs ...

qby0=:cy0
qby1=:cy1
qby2=:cy2
qby3=:cy3


NB. ... script experimentalB.ijs ...

qby0XX=:qby0;(1,0,0,0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
qby1XX=:qby1;(0,1,0,0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
qby2XX=:qby2;(0,0,1,0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
qby3XX=:qby3;(0,0,0,1:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:



Download: File:LTEB0100C.txt
Download: File:LTEB0101C.txt
Download: File:LTEB0102C.txt




Download MoinMoin source: File:TensorExperimentsB01.ijs