User:Tom Allen/TensorExperimentsB02

From J Wiki
Jump to navigation Jump to search


GTEB0200C.jpg


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

qbP=:^@(gXq31*qby3)


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

qb31y3  =:gXq31*qby3
qb31y3XX=:[<@(gXq31*>@])"_ 0 qby3XX

qbPXX=:[cfFN5(^@qb31y3;^@qb31y3;^@qb31y3;^@qb31y3;^@qb31y3;^@qb31y3),:qb31y3XX


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

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

   yCpts=:_ 5 48 10,_ 5 48 10,_ 5 48 10,:_ 0 10 60"_

   qbPdy        =:cfXX1@qbPXX
   qbPdydy      =:cfXX2@qbPXX
   qbPdydydy    =:cfXX3@qbPXX
   qbPdydydydy  =:cfXX4@qbPXX
   qbPdydydydydy=:cfXX5@qbPXX

   (gXB(qbPdy"_ 1        (((2^_44);2^_21)qteq[;])"1(0|:[:(gXB qbP        ])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(qbPdydy"_ 1      (((2^_44);2^_21)qteq[;])"2(0|:[:(gXB qbPdy      ])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(qbPdydydy"_ 1    (((2^_44);2^_21)qteq[;])"3(0|:[:(gXB qbPdydy    ])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(qbPdydydydy"_ 1  (((2^_44);2^_21)qteq[;])"4(0|:[:(gXB qbPdydydy  ])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(qbPdydydydydy"_ 1(((2^_44);2^_21)qteq[;])"5(0|:[:(gXB qbPdydydydy])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


GTEB0201C.jpg


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

qbsT=:(gXq32*qbrB)+gXq33*qby3


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

qbsTXX=:([<@(gXq32*>@])"_ 0 qbrBXX)+&.>[<@(gXq33*>@])"_ 0 qby3XX


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

   gXcw   =:  1     0     _     _     _"_
   gXpAll =:  0     0     0     0     0"_
   gXq2All=:  0.06  0.06  0.06  1     _"_
   gXq3All=:  0     0     4     0.5   0"_
   gXq4All=:  0.06  0.06  0.06  0     _"_
   gXq5All=:  1     1     3     1    _3"_
   gXq6All=:  0.06  0.06  0.06  0     _"_
   gXq7All=:  1     1     3     1    _3"_

   yCpts=:_ 1 5 20,_ 1 5 20,_ 1 5 20,:_ 0 80 20"_

   qbsTdy        =:cfXX1@qbsTXX
   qbsTdydy      =:cfXX2@qbsTXX
   qbsTdydydy    =:cfXX3@qbsTXX
   qbsTdydydydy  =:cfXX4@qbsTXX
   qbsTdydydydydy=:cfXX5@qbsTXX

   (gXB(qbsTdy"_ 1        (((2^_44);2^_20)qteq[;])"1(0|:[:(gXB qbsT        ])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(qbsTdydy"_ 1      (((2^_44);2^_22)qteq[;])"2(0|:[:(gXB qbsTdy      ])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(qbsTdydydy"_ 1    (((2^_44);2^_14)qteq[;])"3(0|:[:(gXB qbsTdydy    ])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(qbsTdydydydy"_ 1  (((2^_44);2^_16)qteq[;])"4(0|:[:(gXB qbsTdydydy  ])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(qbsTdydydydydy"_ 1(((2^_44);2^_14)qteq[;])"5(0|:[:(gXB qbsTdydydydy])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


GTEB0202C.jpg


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

qbsin=:sin@((gXq32*qbrB)+gXq33*qby3)


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

qbsinXX=:[cfFN5(sin@qbsT;cos@qbsT;-@sin@qbsT;-@cos@qbsT;sin@qbsT;cos@qbsT),:qbsTXX


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

   gXcw   =:  1     0     _     _     _"_
   gXpAll =:  0     0     0     0     0"_
   gXq2All=:  0.06  0.06  0.06  1     _"_
   gXq3All=:  0     0     4     0.5   0"_
   gXq4All=:  0.06  0.06  0.06  0     _"_
   gXq5All=:  1     1     3     1    _3"_
   gXq6All=:  0.06  0.06  0.06  0     _"_
   gXq7All=:  1     1     3     1    _3"_

   yCpts=:_ 1 5 20,_ 1 5 20,_ 1 5 20,:_ 0 80 20"_

   qbsindy        =:cfXX1@qbsinXX
   qbsindydy      =:cfXX2@qbsinXX
   qbsindydydy    =:cfXX3@qbsinXX
   qbsindydydydy  =:cfXX4@qbsinXX
   qbsindydydydydy=:cfXX5@qbsinXX

   (gXB(qbsindy"_ 1        (((2^_44);2^_15)qteq[;])"1(0|:[:(gXB qbsin        ])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(qbsindydy"_ 1      (((2^_44);2^_07)qteq[;])"2(0|:[:(gXB qbsindy      ])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(qbsindydydy"_ 1    (((2^_44);2^_13)qteq[;])"3(0|:[:(gXB qbsindydy    ])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(qbsindydydydy"_ 1  (((2^_44);2^_04)qteq[;])"4(0|:[:(gXB qbsindydydy  ])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(qbsindydydydydy"_ 1(((2^_44);2^_09)qteq[;])"5(0|:[:(gXB qbsindydydydy])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


GTEB0203C.jpg


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

qbcos=:cos@((gXq32*qbrB)+gXq33*qby3)


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

qbcosXX=:[cfFN5(cos@qbsT;-@sin@qbsT;-@cos@qbsT;sin@qbsT;cos@qbsT;-@sin@qbsT),:qbsTXX


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

   gXcw   =:  1      0      _      _     _"_
   gXpAll =:  0      0      0      0     0"_
   gXq2All=:  0.055  0.060  0.065  1     _"_
   gXq3All=:  0      0      3      0.5   0"_
   gXq4All=:  0.055  0.060  0.065  0     _"_
   gXq5All=:  1      1      3      1    _3"_
   gXq6All=:  0.055  0.060  0.065  0     _"_
   gXq7All=:  1      1      3      1    _3"_

   yCpts=:_ 1 5 20,_ 1 5 20,_ 1 5 20,:_ 0 80 20"_

   qbcosdy        =:cfXX1@qbcosXX
   qbcosdydy      =:cfXX2@qbcosXX
   qbcosdydydy    =:cfXX3@qbcosXX
   qbcosdydydydy  =:cfXX4@qbcosXX
   qbcosdydydydydy=:cfXX5@qbcosXX

   (gXB(qbcosdy"_ 1        (((2^_44);2^_16)qteq[;])"1(0|:[:(gXB qbcos        ])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(qbcosdydy"_ 1      (((2^_44);2^_12)qteq[;])"2(0|:[:(gXB qbcosdy      ])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(qbcosdydydy"_ 1    (((2^_44);2^_11)qteq[;])"3(0|:[:(gXB qbcosdydy    ])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(qbcosdydydydy"_ 1  (((2^_44);2^_06)qteq[;])"4(0|:[:(gXB qbcosdydydy  ])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(qbcosdydydydydy"_ 1(((2^_44);2^_10)qteq[;])"5(0|:[:(gXB qbcosdydydydy])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


GTEB0204C.jpg


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

qbC33c=:gXq33*cos@((gXq32*qbrB)+gXq33*qby3)
qbC31s=:gXq31*sin@((gXq32*qbrB)+gXq33*qby3)+gXq34

qbC=:gXq23*gXq30+qbP*qbC33c+qbC31s


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

qbC30XX=:gXq30;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
qbC34XX=:gXq34;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:

qbC33cXX=:[<@(gXq33*>@])"_ 0 qbcosXX
qbC31sXX=:[<@(gXq31*>@])"_ 0 qbsinXX+&.>qbC34XX

qbCXX=:[<@(gXq23*>@])"_ 0 qbC30XX+&.>[cfMP5 qbPXX,:qbC33cXX+&.>qbC31sXX


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

   gXcw   =:  1       0      _       _   _  "_
   gXpAll =:  0       0      0       0   0  "_
   gXq2All=:  0.055   0.060  0.065   1   _  "_
   gXq3All=:  0.2    _0.5    4      _5   0.3"_
   gXq4All=:  0.055   0.060  0.065   0   _  "_
   gXq5All=:  1       1      3       1  _3  "_
   gXq6All=:  0.055   0.060  0.065   0   _  "_
   gXq7All=:  1       1      3       1  _3  "_

   yCpts=:_ 0.1 48 30,_ 0.1 48 30,_ 0.1 48 30,:_ 0 3 30"_

   qbCdy        =:cfXX1@qbCXX
   qbCdydy      =:cfXX2@qbCXX
   qbCdydydy    =:cfXX3@qbCXX
   qbCdydydydy  =:cfXX4@qbCXX
   qbCdydydydydy=:cfXX5@qbCXX

NB. ... check ...

   (gXB((fbC-:qbC)"_ 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((fbCdy-:qbCdy)"_ 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. ... derivatives ...

   (gXB(qbCdy"_ 1        (((2^_44);2^_12)qteq[;])"1(0|:[:(gXB qbC        ])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(qbCdydy"_ 1      (((2^_44);2^_11)qteq[;])"2(0|:[:(gXB qbCdy      ])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(qbCdydydy"_ 1    (((2^_44);2^_11)qteq[;])"3(0|:[:(gXB qbCdydy    ])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(qbCdydydydy"_ 1  (((2^_44);2^_10)qteq[;])"4(0|:[:(gXB qbCdydydy  ])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(qbCdydydydydy"_ 1(((2^_44);2^_08)qteq[;])"5(0|:[:(gXB qbCdydydydy])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


GTEB0205C.jpg


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

qbrBc0XX=:(],<@(_"_))@:((0{])&.>)@}.@qbrBXX
qbrBc1XX=:(],<@(_"_))@:((1{])&.>)@}.@qbrBXX
qbrBc2XX=:(],<@(_"_))@:((2{])&.>)@}.@qbrBXX

qbDc0XX=:(],<@(_"_))@}:@([<@(gXq23*gXq32*>@])"_ 0[cfMP4 qbrBc0XX,:[cfMP4 qbPXX,:qbcosXX)
qbDc1XX=:(],<@(_"_))@}:@([<@(gXq23*gXq32*>@])"_ 0[cfMP4 qbrBc1XX,:[cfMP4 qbPXX,:qbcosXX)
qbDc2XX=:(],<@(_"_))@}:@([<@(gXq23*gXq32*>@])"_ 0[cfMP4 qbrBc2XX,:[cfMP4 qbPXX,:qbcosXX)


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

   gXcw   =:  1       0      _       _   _"_
   gXpAll =:  0       0      0       0   0"_
   gXq2All=:  0.055   0.060  0.065   1   _"_
   gXq3All=:  0      _0.5    4      _5   0"_
   gXq4All=:  0.055   0.060  0.065   0   _"_
   gXq5All=:  1       1      3       1  _3"_
   gXq6All=:  0.055   0.060  0.065   0   _"_
   gXq7All=:  1       1      3       1  _3"_

   yCpts=:_ 0.1 48 30,_ 0.1 48 30,_ 0.1 48 30,:_ 0 3 30"_

   qbDc0        =:cfXX0@qbDc0XX
   qbDc0dy      =:cfXX1@qbDc0XX
   qbDc0dydy    =:cfXX2@qbDc0XX
   qbDc0dydydy  =:cfXX3@qbDc0XX
   qbDc0dydydydy=:cfXX4@qbDc0XX

NB. ... check ...

   (gXB((qbDc0-:(0{])@fbDc)"_ 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((qbDc0dy-:(0{])@fbDcdy)"_ 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. ... derivatives ...

   (gXB(qbDc0dy"_ 1      (((2^_44);2^_15)qteq[;])"1(0|:[:(gXB qbDc0      ])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(qbDc0dydy"_ 1    (((2^_44);2^_10)qteq[;])"2(0|:[:(gXB qbDc0dy    ])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(qbDc0dydydy"_ 1  (((2^_44);2^_07)qteq[;])"3(0|:[:(gXB qbDc0dydy  ])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(qbDc0dydydydy"_ 1(((2^_44);2^_08)qteq[;])"4(0|:[:(gXB qbDc0dydydy])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


GTEB0206C.jpg


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

qbE=:gXq23*(gXq30*qby3)+^@(gXq31*qby3)*sin@((gXq32*qbrB)+gXq33*qby3)+gXq34


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

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

qbEXX=:[<@(gXq23*>@])"_ 0([<@(gXq30*>@])"_ 0 qby3XX)+&.>[cfMP5 qbPXX,:qbsinXX+&.>qbE34XX


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

   gXcw   =:  1       0      _       _   _  "_
   gXpAll =:  0       0      0       0   0  "_
   gXq2All=:  0.055   0.060  0.065   1   _  "_
   gXq3All=:  0.2    _0.5    4      _5   0.3"_
   gXq4All=:  0.055   0.060  0.065   0   _  "_
   gXq5All=:  1       1      3       1  _3  "_
   gXq6All=:  0.055   0.060  0.065   0   _  "_
   gXq7All=:  1       1      3       1  _3  "_

   yCpts=:_ 0.1 48 30,_ 0.1 48 30,_ 0.1 48 30,:_ 0 3 30"_

   qbEdy        =:cfXX1@qbEXX
   qbEdydy      =:cfXX2@qbEXX
   qbEdydydy    =:cfXX3@qbEXX
   qbEdydydydy  =:cfXX4@qbEXX
   qbEdydydydydy=:cfXX5@qbEXX

NB. ... check ...

   (gXB((fbE-:qbE)"_ 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((fbEdy-:qbEdy)"_ 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. ... derivatives ...

   (gXB(qbEdy"_ 1        (((2^_44);2^_12)qteq[;])"1(0|:[:(gXB qbE        ])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(qbEdydy"_ 1      (((2^_44);2^_11)qteq[;])"2(0|:[:(gXB qbEdy      ])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(qbEdydydy"_ 1    (((2^_44);2^_07)qteq[;])"3(0|:[:(gXB qbEdydy    ])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(qbEdydydydy"_ 1  (((2^_44);2^_07)qteq[;])"4(0|:[:(gXB qbEdydydy  ])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(qbEdydydydydy"_ 1(((2^_44);2^_09)qteq[;])"5(0|:[:(gXB qbEdydydydy])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:LTEB0200C.txt
Download: File:LTEB0201C.txt
Download: File:LTEB0202C.txt
Download: File:LTEB0203C.txt
Download: File:LTEB0204C.txt
Download: File:LTEB0205C.txt
Download: File:LTEB0206C.txt




Download MoinMoin source: File:TensorExperimentsB02.ijs