Essays/Tensor Experiments/TensorExperiments08

From J Wiki
Jump to: navigation, search


GTE0800C.jpg


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

faRval=:((gXp0*cy0)^2:)+((gXp1*cy1)^2:)+(gXp2*cy2)^2:


faRvaly0=:2*(gXp0^2:)*cy0
faRvaly1=:2*(gXp1^2:)*cy1
faRvaly2=:2*(gXp2^2:)*cy2
faRvaly3=:0:

faRvaldy=:faRvaly0,faRvaly1,faRvaly2,faRvaly3


faRvaly0y0=:2*gXp0^2:
faRvaly1y1=:2*gXp1^2:
faRvaly2y2=:2*gXp2^2:

faRval00=:>@(0{]);([faRvaly0y0>@(0{]))`(<"1@aVn2@(0 0"_))`(>@(1{]))}
faRval11=:>@(0{]);([faRvaly1y1>@(0{]))`(<"1@aVn2@(1 1"_))`(>@(1{]))}
faRval22=:>@(0{]);([faRvaly2y2>@(0{]))`(<"1@aVn2@(2 2"_))`(>@(1{]))}

faRvaldydyGen=:[faRval22[faRval11 faRval00

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


faRvaldydydy    =:(3$4:)$0:
faRvaldydydydy  =:(4$4:)$0:
faRvaldydydydydy=:(5$4:)$0:

faRvalXX=:faRval;faRvaldy;faRvaldydy;faRvaldydydy;faRvaldydydydy;faRvaldydydydydy


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

   gXcw  =: 0    0    _    _  _"_
   gXpAll=: 1.1  1.2  1.3  0  0"_

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

   (gXT(faRvaldy"_ 1  (((2^_44);2^_23)qteq[;])"1(0|:[:(gXT faRval  ])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(faRvaldydy"_ 1(((2^_44);2^_28)qteq[;])"2(0|:[:(gXT faRvaldy])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


GTE0801C.jpg


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

fa=:(((gXp0*cy0)^2:)+((gXp1*cy1)^2:)+(gXp2*cy2)^2:)^0.5"_


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

faRpow=:0.5"_

faRvalU0=:                                                           faRval^faRpow
faRvalU1=:                                                    faRpow*faRval^faRpow+_1:
faRvalU2=:                                       (faRpow+_1:)*faRpow*faRval^faRpow+_2:
faRvalU3=:                          (faRpow+_2:)*(faRpow+_1:)*faRpow*faRval^faRpow+_3:
faRvalU4=:             (faRpow+_3:)*(faRpow+_2:)*(faRpow+_1:)*faRpow*faRval^faRpow+_4:
faRvalU5=:(faRpow+_4:)*(faRpow+_3:)*(faRpow+_2:)*(faRpow+_1:)*faRpow*faRval^faRpow+_5:

faXX=:[cfFN5(faRvalU0;faRvalU1;faRvalU2;faRvalU3;faRvalU4;faRvalU5),:faRvalXX


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

   gXcw  =: 0    0    _    _  _"_
   gXpAll=: 1.1  1.2  1.3  0  0"_

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

   fady        =:cfXX1@faXX
   fadydy      =:cfXX2@faXX
   fadydydy    =:cfXX3@faXX
   fadydydydy  =:cfXX4@faXX
   fadydydydydy=:cfXX5@faXX

   (gXT(fady"_ 1        (((2^_44);2^_22)qteq[;])"1(0|:[:(gXT fa        ])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 0 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(fadydy"_ 1      (((2^_44);2^_21)qteq[;])"2(0|:[:(gXT fady      ])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(fadydydy"_ 1    (((2^_44);2^_19)qteq[;])"3(0|:[:(gXT fadydy    ])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(fadydydydy"_ 1  (((2^_44);2^_14)qteq[;])"4(0|:[:(gXT fadydydy  ])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(fadydydydydy"_ 1(((2^_44);2^_11)qteq[;])"5(0|:[:(gXT fadydydydy])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


GTE0802C.jpg


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

faRpowM=:_1"_

faRvalMU0=:                                                                faRval^faRpowM
faRvalMU1=:                                                        faRpowM*faRval^faRpowM+_1:
faRvalMU2=:                                          (faRpowM+_1:)*faRpowM*faRval^faRpowM+_2:
faRvalMU3=:                            (faRpowM+_2:)*(faRpowM+_1:)*faRpowM*faRval^faRpowM+_3:
faRvalMU4=:              (faRpowM+_3:)*(faRpowM+_2:)*(faRpowM+_1:)*faRpowM*faRval^faRpowM+_4:
faRvalMU5=:(faRpowM+_4:)*(faRpowM+_3:)*(faRpowM+_2:)*(faRpowM+_1:)*faRpowM*faRval^faRpowM+_5:

mfaXX=:[cfFN5(faRvalMU0;faRvalMU1;faRvalMU2;faRvalMU3;faRvalMU4;faRvalMU5),:faRvalXX


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

   gXcw  =: 0    0    _    _  _"_
   gXpAll=: 1.1  1.2  1.3  0  0"_

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

   mfa          =:cfXX0@mfaXX
   mfady        =:cfXX1@mfaXX
   mfadydy      =:cfXX2@mfaXX
   mfadydydy    =:cfXX3@mfaXX
   mfadydydydy  =:cfXX4@mfaXX
   mfadydydydydy=:cfXX5@mfaXX

   (gXT(mfady"_ 1        (((2^_44);2^_22)qteq[;])"1(0|:[:(gXT mfa        ])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(mfadydy"_ 1      (((2^_44);2^_16)qteq[;])"2(0|:[:(gXT mfady      ])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(mfadydydy"_ 1    (((2^_44);2^_16)qteq[;])"3(0|:[:(gXT mfadydy    ])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(mfadydydydy"_ 1  (((2^_44);2^_16)qteq[;])"4(0|:[:(gXT mfadydydy  ])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(mfadydydydydy"_ 1(((2^_44);2^_12)qteq[;])"5(0|:[:(gXT mfadydydydy])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


GTE0803C.jpg


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

fy0p0XX=:(gXp0*cy0);(gXp0,0,0,0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
fy1p1XX=:(gXp1*cy1);(0,gXp1,0,0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
fy2p2XX=:(gXp2*cy2);(0,0,gXp2,0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
fy3p4XX=:(gXp4*cy3);(0,0,0,gXp4 );((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:


GTE0804C.jpg


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

fafy3p4=:fa+gXp4*cy3

fafy3p4XX=:<@(+/)@:>"1@(0|:])@(faXX,:fy3p4XX)


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

   gXcw  =: 0    0    _    _  _  "_
   gXpAll=: 1.1  1.2  1.3  0  1.5"_

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

   fafy3p4dy        =:cfXX1@fafy3p4XX
   fafy3p4dydy      =:cfXX2@fafy3p4XX
   fafy3p4dydydy    =:cfXX3@fafy3p4XX
   fafy3p4dydydydy  =:cfXX4@fafy3p4XX
   fafy3p4dydydydydy=:cfXX5@fafy3p4XX

   (gXT(fafy3p4dy"_ 1        (((2^_44);2^_21)qteq[;])"1(0|:[:(gXT fafy3p4        ])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(fafy3p4dydy"_ 1      (((2^_44);2^_21)qteq[;])"2(0|:[:(gXT fafy3p4dy      ])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(fafy3p4dydydy"_ 1    (((2^_44);2^_19)qteq[;])"3(0|:[:(gXT fafy3p4dydy    ])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(fafy3p4dydydydy"_ 1  (((2^_44);2^_14)qteq[;])"4(0|:[:(gXT fafy3p4dydydy  ])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(fafy3p4dydydydydy"_ 1(((2^_44);2^_11)qteq[;])"5(0|:[:(gXT fafy3p4dydydydy])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


GTE0805C.jpg


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

o1CXX=:[cfFN5(sin@fafy3p4;cos@fafy3p4;-@sin@fafy3p4;-@cos@fafy3p4;sin@fafy3p4;cos@fafy3p4),:fafy3p4XX


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

   gXcw  =: 0    0    _    _  _  "_
   gXpAll=: 1.1  1.2  1.3  0  1.5"_

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

   o1C          =:cfXX0@o1CXX
   o1Cdy        =:cfXX1@o1CXX
   o1Cdydy      =:cfXX2@o1CXX
   o1Cdydydy    =:cfXX3@o1CXX
   o1Cdydydydy  =:cfXX4@o1CXX
   o1Cdydydydydy=:cfXX5@o1CXX

   (gXT(o1Cdy"_ 1        (((2^_44);2^_13)qteq[;])"1(0|:[:(gXT o1C        ])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(o1Cdydy"_ 1      (((2^_44);2^_14)qteq[;])"2(0|:[:(gXT o1Cdy      ])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(o1Cdydydy"_ 1    (((2^_44);2^_11)qteq[;])"3(0|:[:(gXT o1Cdydy    ])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(o1Cdydydydy"_ 1  (((2^_44);2^_11)qteq[;])"4(0|:[:(gXT o1Cdydydy  ])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(o1Cdydydydydy"_ 1(((2^_44);2^_08)qteq[;])"5(0|:[:(gXT o1Cdydydydy])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


GTE0806C.jpg


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

o2CXX=:[cfFN5(cos@fafy3p4;-@sin@fafy3p4;-@cos@fafy3p4;sin@fafy3p4;cos@fafy3p4;-@sin@fafy3p4),:fafy3p4XX


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

   gXcw  =: 0    0    _    _  _  "_
   gXpAll=: 1.1  1.2  1.3  0  1.5"_

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

   o2C          =:cfXX0@o2CXX
   o2Cdy        =:cfXX1@o2CXX
   o2Cdydy      =:cfXX2@o2CXX
   o2Cdydydy    =:cfXX3@o2CXX
   o2Cdydydydy  =:cfXX4@o2CXX
   o2Cdydydydydy=:cfXX5@o2CXX

   (gXT(o2Cdy"_ 1        (((2^_44);2^_14)qteq[;])"1(0|:[:(gXT o2C        ])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(o2Cdydy"_ 1      (((2^_44);2^_13)qteq[;])"2(0|:[:(gXT o2Cdy      ])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(o2Cdydydy"_ 1    (((2^_44);2^_12)qteq[;])"3(0|:[:(gXT o2Cdydy    ])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(o2Cdydydydy"_ 1  (((2^_44);2^_08)qteq[;])"4(0|:[:(gXT o2Cdydydy  ])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(o2Cdydydydydy"_ 1(((2^_44);2^_11)qteq[;])"5(0|:[:(gXT o2Cdydydydy])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:LTE0800C.txt
Download: File:LTE0801C.txt
Download: File:LTE0802C.txt
Download: File:LTE0803C.txt
Download: File:LTE0804C.txt
Download: File:LTE0805C.txt
Download: File:LTE0806C.txt




Download MoinMoin source: File:TensorExperiments08.ijs




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