User:Tom Allen/TensorExperimentsB03

From J Wiki
Jump to: navigation, search


GTEB0300C.jpg


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

qbrA51=:gXq51*qbrA


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

qbrA51XX=:[<@(gXq51*>@])"_ 0 qbrAXX


GTEB0301C.jpg


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

qbrA51P52=:qbrA51^gXq52


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

qbrA51P52U0=:                                                      qbrA51^gXq52
qbrA51P52U1=:                                                gXq52*qbrA51^gXq52+_1:
qbrA51P52U2=:                                    (gXq52+_1:)*gXq52*qbrA51^gXq52+_2:
qbrA51P52U3=:                        (gXq52+_2:)*(gXq52+_1:)*gXq52*qbrA51^gXq52+_3:
qbrA51P52U4=:            (gXq52+_3:)*(gXq52+_2:)*(gXq52+_1:)*gXq52*qbrA51^gXq52+_4:
qbrA51P52U5=:(gXq52+_4:)*(gXq52+_3:)*(gXq52+_2:)*(gXq52+_1:)*gXq52*qbrA51^gXq52+_5:

qbrA51P52XX=:[cfFN5(qbrA51P52U0;qbrA51P52U1;qbrA51P52U2;qbrA51P52U3;qbrA51P52U4;qbrA51P52U5),:qbrA51XX


GTEB0302C.jpg


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

qbrA51P52E=:^@-@qbrA51P52


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

qbrA51P52EXX=:[cfFN5(^@-@qbrA51P52;^@-@qbrA51P52;^@-@qbrA51P52;^@-@qbrA51P52;^@-@qbrA51P52;^@-@qbrA51P52),:-&.>@qbrA51P52XX


GTEB0303C.jpg


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

qbrA53=:gXq53*qbrA


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

qbrA53XX=:[<@(gXq53*>@])"_ 0 qbrAXX


GTEB0304C.jpg


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

qbrA53P54=:qbrA53^gXq54


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

qbrA53P54U0=:                                                      qbrA53^gXq54
qbrA53P54U1=:                                                gXq54*qbrA53^gXq54+_1:
qbrA53P54U2=:                                    (gXq54+_1:)*gXq54*qbrA53^gXq54+_2:
qbrA53P54U3=:                        (gXq54+_2:)*(gXq54+_1:)*gXq54*qbrA53^gXq54+_3:
qbrA53P54U4=:            (gXq54+_3:)*(gXq54+_2:)*(gXq54+_1:)*gXq54*qbrA53^gXq54+_4:
qbrA53P54U5=:(gXq54+_4:)*(gXq54+_3:)*(gXq54+_2:)*(gXq54+_1:)*gXq54*qbrA53^gXq54+_5:

qbrA53P54XX=:[cfFN5(qbrA53P54U0;qbrA53P54U1;qbrA53P54U2;qbrA53P54U3;qbrA53P54U4;qbrA53P54U5),:qbrA53XX


GTEB0305C.jpg


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

qbA=:gXq43*(gXq50+-@^@-@((gXq51*qbrA)^gXq52))*(gXq53*qbrA)^gXq54


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

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

qbAXX=:[<@(gXq43*>@])"_ 0[cfMP5(qbAq50XX+&.>-&.>@qbrA51P52EXX),:qbrA53P54XX

qbAc0XX=:(],<@(_"_))@:((0{])&.>)@}.@qbAXX
qbAc1XX=:(],<@(_"_))@:((1{])&.>)@}.@qbAXX
qbAc2XX=:(],<@(_"_))@:((2{])&.>)@}.@qbAXX


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

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

   yCpts=:_ 0.3 0.9 20,_ 0.3 0.9 20,_ 0.3 0.9 20,:_ 0 0 0"_

   qbAdy        =:cfXX1@qbAXX
   qbAdydy      =:cfXX2@qbAXX
   qbAdydydy    =:cfXX3@qbAXX
   qbAdydydydy  =:cfXX4@qbAXX
   qbAdydydydydy=:cfXX5@qbAXX

NB. ... check ...

   (gXB((qbA-:fbA)"_ 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((qbAdy-:fbAdy)"_ 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((qbAdydy-:!.(2^_41)fbAdydy)"_ 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(qbAdy"_ 1        (((2^_44);2^_23)qteq[;])"1(0|:[:(gXB qbA        ])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(qbAdydy"_ 1      (((2^_44);2^_14)qteq[;])"2(0|:[:(gXB qbAdy      ])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(qbAdydydy"_ 1    (((2^_44);2^_15)qteq[;])"3(0|:[:(gXB qbAdydy    ])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(qbAdydydydy"_ 1  (((2^_44);2^_12)qteq[;])"4(0|:[:(gXB qbAdydydy  ])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(qbAdydydydydy"_ 1(((2^_44);2^_12)qteq[;])"5(0|:[:(gXB qbAdydydydy])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 ...

qbrF71=:gXq71*qbrF


qbrF71XX=:[<@(gXq71*>@])"_ 0 qbrFXX


qbrF71P72=:qbrF71^gXq72


qbrF71P72U0=:                                                      qbrF71^gXq72
qbrF71P72U1=:                                                gXq72*qbrF71^gXq72+_1:
qbrF71P72U2=:                                    (gXq72+_1:)*gXq72*qbrF71^gXq72+_2:
qbrF71P72U3=:                        (gXq72+_2:)*(gXq72+_1:)*gXq72*qbrF71^gXq72+_3:
qbrF71P72U4=:            (gXq72+_3:)*(gXq72+_2:)*(gXq72+_1:)*gXq72*qbrF71^gXq72+_4:
qbrF71P72U5=:(gXq72+_4:)*(gXq72+_3:)*(gXq72+_2:)*(gXq72+_1:)*gXq72*qbrF71^gXq72+_5:

qbrF71P72XX=:[cfFN5(qbrF71P72U0;qbrF71P72U1;qbrF71P72U2;qbrF71P72U3;qbrF71P72U4;qbrF71P72U5),:qbrF71XX


qbrF71P72E=:^@-@qbrF71P72


qbrF71P72EXX=:[cfFN5(^@-@qbrF71P72;^@-@qbrF71P72;^@-@qbrF71P72;^@-@qbrF71P72;^@-@qbrF71P72;^@-@qbrF71P72),:-&.>@qbrF71P72XX


qbrF73=:gXq73*qbrF


qbrF73XX=:[<@(gXq73*>@])"_ 0 qbrFXX


qbrF73P74=:qbrF73^gXq74


qbrF73P74U0=:                                                      qbrF73^gXq74
qbrF73P74U1=:                                                gXq74*qbrF73^gXq74+_1:
qbrF73P74U2=:                                    (gXq74+_1:)*gXq74*qbrF73^gXq74+_2:
qbrF73P74U3=:                        (gXq74+_2:)*(gXq74+_1:)*gXq74*qbrF73^gXq74+_3:
qbrF73P74U4=:            (gXq74+_3:)*(gXq74+_2:)*(gXq74+_1:)*gXq74*qbrF73^gXq74+_4:
qbrF73P74U5=:(gXq74+_4:)*(gXq74+_3:)*(gXq74+_2:)*(gXq74+_1:)*gXq74*qbrF73^gXq74+_5:

qbrF73P74XX=:[cfFN5(qbrF73P74U0;qbrF73P74U1;qbrF73P74U2;qbrF73P74U3;qbrF73P74U4;qbrF73P74U5),:qbrF73XX


qbF=:gXq63*(gXq70+-@^@-@((gXq71*qbrF)^gXq72))*(gXq73*qbrF)^gXq74


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

qbFXX=:[<@(gXq63*>@])"_ 0[cfMP5(qbFq70XX+&.>-&.>@qbrF71P72EXX),:qbrF73P74XX


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

   gXcw   =:  1     0     _     _     _"_
   gXpAll =:  0     0     0     0     0"_
   gXq2All=:  0.09  0.10  0.11  0     _"_
   gXq3All=:  1     0     0     0     0"_
   gXq4All=:  0.09  0.10  0.11  0     _"_
   gXq5All=:  1     1     3     1    _3"_
   gXq6All=:  0.09  0.10  0.11  2     _"_
   gXq7All=:  1     0.4   3     0.6  _2"_

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

   qbFdy        =:cfXX1@qbFXX
   qbFdydy      =:cfXX2@qbFXX
   qbFdydydy    =:cfXX3@qbFXX
   qbFdydydydy  =:cfXX4@qbFXX
   qbFdydydydydy=:cfXX5@qbFXX

NB. ... check ...

   (gXB((fbF-:qbF)"_ 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((fbFdy-:qbFdy)"_ 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(qbFdy"_ 1        (((2^_44);2^_21)qteq[;])"1(0|:[:(gXB qbF        ])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(qbFdydy"_ 1      (((2^_44);2^_14)qteq[;])"2(0|:[:(gXB qbFdy      ])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(qbFdydydy"_ 1    (((2^_44);2^_16)qteq[;])"3(0|:[:(gXB qbFdydy    ])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(qbFdydydydy"_ 1  (((2^_44);2^_14)qteq[;])"4(0|:[:(gXB qbFdydydy  ])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(qbFdydydydydy"_ 1(((2^_44);2^_14)qteq[;])"5(0|:[:(gXB qbFdydydydy])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:LTEB0300C.txt
Download: File:LTEB0301C.txt
Download: File:LTEB0302C.txt
Download: File:LTEB0303C.txt
Download: File:LTEB0304C.txt
Download: File:LTEB0305C.txt




Download MoinMoin source: File:TensorExperimentsB03.ijs