Essays/Tensor Experiments/TensorExperiments08
< Essays | Tensor Experiments
Jump to navigation
Jump to search
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
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
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
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:
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
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
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