Essays/Tensor Experiments/TensorExperiments05
< Essays | Tensor Experiments
Jump to navigation
Jump to search
NB. ... script experimental.ijs ...
fsqB=:(cy0^2:)+cy1^2:
fsqBy0=:2*cy0
fsqBy1=:2*cy1
fsqBy2=:0:
fsqBy3=:0:
fsqBdy=:fsqBy0,fsqBy1,fsqBy2,fsqBy3
fsqBy0y0=:2:
fsqBy1y1=:2:
fsqB00=:>@(0{]);([fsqBy0y0>@(0{]))`(<"1@aVn2@(0 0"_))`(>@(1{]))}
fsqB11=:>@(0{]);([fsqBy1y1>@(0{]))`(<"1@aVn2@(1 1"_))`(>@(1{]))}
fsqBdydyGen=:[fsqB11 fsqB00
fsqBdydy=:>@(1{])@([fsqBdydyGen(cy0,cy1,cy2,cy3);(2$4:)$0:)
fsqBdydydy =:(3$4:)$0:
fsqBdydydydy =:(4$4:)$0:
fsqBdydydydydy=:(5$4:)$0:
fsqBXX=:fsqB;fsqBdy;fsqBdydy;fsqBdydydy;fsqBdydydydy;fsqBdydydydydy
NB. ... script experimental.ijs ... fsqBpow=:0.5"_ fsqBU0=: fsqB^fsqBpow fsqBU1=: fsqBpow*fsqB^fsqBpow+_1: fsqBU2=: (fsqBpow+_1:)*fsqBpow*fsqB^fsqBpow+_2: fsqBU3=: (fsqBpow+_2:)*(fsqBpow+_1:)*fsqBpow*fsqB^fsqBpow+_3: fsqBU4=: (fsqBpow+_3:)*(fsqBpow+_2:)*(fsqBpow+_1:)*fsqBpow*fsqB^fsqBpow+_4: fsqBU5=:(fsqBpow+_4:)*(fsqBpow+_3:)*(fsqBpow+_2:)*(fsqBpow+_1:)*fsqBpow*fsqB^fsqBpow+_5: x1fAXX=:[cfFN5(fsqBU0;fsqBU1;fsqBU2;fsqBU3;fsqBU4;fsqBU5),:fsqBXX
NB. ... execute (ijx) ... gXcw =: 0 0 _ _ _"_ gXpAll=: 0 0 0 0 0"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ x1fA =:cfXX0@x1fAXX x1fAdy =:cfXX1@x1fAXX x1fAdydy =:cfXX2@x1fAXX x1fAdydydy =:cfXX3@x1fAXX x1fAdydydydy =:cfXX4@x1fAXX x1fAdydydydydy=:cfXX5@x1fAXX (gXT(x1fAdy"_ 1 (((2^_44);2^_23)qteq[;])"1(0|:[:(gXT x1fA ])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(x1fAdydy"_ 1 (((2^_44);2^_22)qteq[;])"2(0|:[:(gXT x1fAdy ])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(x1fAdydydy"_ 1 (((2^_44);2^_19)qteq[;])"3(0|:[:(gXT x1fAdydy ])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(x1fAdydydydy"_ 1 (((2^_44);2^_17)qteq[;])"4(0|:[:(gXT x1fAdydydy ])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(x1fAdydydydydy"_ 1(((2^_44);2^_16)qteq[;])"5(0|:[:(gXT x1fAdydydydy])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 ... fsqC=:cy2 fsqCy0=:0: fsqCy1=:0: fsqCy2=:1: fsqCy3=:0: fsqCdy=:fsqCy0,fsqCy1,fsqCy2,fsqCy3 fsqCdydy =:(2$4:)$0: fsqCdydydy =:(3$4:)$0: fsqCdydydydy =:(4$4:)$0: fsqCdydydydydy=:(5$4:)$0: fsqCXX=:fsqC;fsqCdy;fsqCdydy;fsqCdydydy;fsqCdydydydy;fsqCdydydydydy
NB. ... script experimental.ijs ... fsqCpow=:_1"_ fsqCU0=: fsqC^fsqCpow fsqCU1=: fsqCpow*fsqC^fsqCpow+_1: fsqCU2=: (fsqCpow+_1:)*fsqCpow*fsqC^fsqCpow+_2: fsqCU3=: (fsqCpow+_2:)*(fsqCpow+_1:)*fsqCpow*fsqC^fsqCpow+_3: fsqCU4=: (fsqCpow+_3:)*(fsqCpow+_2:)*(fsqCpow+_1:)*fsqCpow*fsqC^fsqCpow+_4: fsqCU5=:(fsqCpow+_4:)*(fsqCpow+_3:)*(fsqCpow+_2:)*(fsqCpow+_1:)*fsqCpow*fsqC^fsqCpow+_5: x1fBXX=:[cfFN5(fsqCU0;fsqCU1;fsqCU2;fsqCU3;fsqCU4;fsqCU5),:fsqCXX
NB. ... execute (ijx) ... gXcw =: 0 0 _ _ _"_ gXpAll=: 0 0 0 0 0"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ x1fB =:cfXX0@x1fBXX x1fBdy =:cfXX1@x1fBXX x1fBdydy =:cfXX2@x1fBXX x1fBdydydy =:cfXX3@x1fBXX x1fBdydydydy =:cfXX4@x1fBXX x1fBdydydydydy=:cfXX5@x1fBXX (gXT(x1fBdy"_ 1 (((2^_44);2^_23)qteq[;])"1(0|:[:(gXT x1fB ])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(x1fBdydy"_ 1 (((2^_44);2^_22)qteq[;])"2(0|:[:(gXT x1fBdy ])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(x1fBdydydy"_ 1 (((2^_44);2^_22)qteq[;])"3(0|:[:(gXT x1fBdydy ])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(x1fBdydydydy"_ 1 (((2^_44);2^_21)qteq[;])"4(0|:[:(gXT x1fBdydydy ])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(x1fBdydydydydy"_ 1(((2^_44);2^_21)qteq[;])"5(0|:[:(gXT x1fBdydydydy])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 ... x1fCXX=:[cfMP5 x1fAXX,:x1fBXX
NB. ... execute (ijx) ... gXcw =: 0 0 _ _ _"_ gXpAll=: 0 0 0 0 0"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ x1fC =:cfXX0@x1fCXX x1fCdy =:cfXX1@x1fCXX x1fCdydy =:cfXX2@x1fCXX x1fCdydydy =:cfXX3@x1fCXX x1fCdydydydy =:cfXX4@x1fCXX x1fCdydydydydy=:cfXX5@x1fCXX (gXT(x1fCdy"_ 1 (((2^_44);2^_22)qteq[;])"1(0|:[:(gXT x1fC ])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(x1fCdydy"_ 1 (((2^_44);2^_22)qteq[;])"2(0|:[:(gXT x1fCdy ])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(x1fCdydydy"_ 1 (((2^_44);2^_19)qteq[;])"3(0|:[:(gXT x1fCdydy ])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(x1fCdydydydy"_ 1 (((2^_44);2^_17)qteq[;])"4(0|:[:(gXT x1fCdydydy ])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(x1fCdydydydydy"_ 1(((2^_44);2^_16)qteq[;])"5(0|:[:(gXT x1fCdydydydy])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 ... x1fD=:1+((((cy0^2:)+cy1^2:)^0.5"_)*cy2^_1:)^2: x1fDCC=:1;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: x1fDXX=:<@(+/)@:>"1@(0|:])@(x1fDCC,:[cfMP5 x1fCXX,:x1fCXX)
NB. ... execute (ijx) ... gXcw =: 0 0 _ _ _"_ gXpAll=: 0 0 0 0 0"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ x1fDdy =:cfXX1@x1fDXX x1fDdydy =:cfXX2@x1fDXX x1fDdydydy =:cfXX3@x1fDXX x1fDdydydydy =:cfXX4@x1fDXX x1fDdydydydydy=:cfXX5@x1fDXX (gXT(x1fDdy"_ 1 (((2^_44);2^_21)qteq[;])"1(0|:[:(gXT x1fD ])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(x1fDdydy"_ 1 (((2^_25);2^_22)qteq[;])"2(0|:[:(gXT x1fDdy ])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(x1fDdydydy"_ 1 (((2^_23);2^_21)qteq[;])"3(0|:[:(gXT x1fDdydy ])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(x1fDdydydydy"_ 1 (((2^_20);2^_21)qteq[;])"4(0|:[:(gXT x1fDdydydy ])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(x1fDdydydydydy"_ 1(((2^_17);2^_21)qteq[;])"5(0|:[:(gXT x1fDdydydydy])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 ... x1fDpow=:_1"_ x1fDU0=: x1fD^x1fDpow x1fDU1=: x1fDpow*x1fD^x1fDpow+_1: x1fDU2=: (x1fDpow+_1:)*x1fDpow*x1fD^x1fDpow+_2: x1fDU3=: (x1fDpow+_2:)*(x1fDpow+_1:)*x1fDpow*x1fD^x1fDpow+_3: x1fDU4=: (x1fDpow+_3:)*(x1fDpow+_2:)*(x1fDpow+_1:)*x1fDpow*x1fD^x1fDpow+_4: x1fDU5=:(x1fDpow+_4:)*(x1fDpow+_3:)*(x1fDpow+_2:)*(x1fDpow+_1:)*x1fDpow*x1fD^x1fDpow+_5: x1fEXX=:[cfFN5(x1fDU0;x1fDU1;x1fDU2;x1fDU3;x1fDU4;x1fDU5),:x1fDXX
NB. ... execute (ijx) ... gXcw =: 0 0 _ _ _"_ gXpAll=: 0 0 0 0 0"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ x1fE =:cfXX0@x1fEXX x1fEdy =:cfXX1@x1fEXX x1fEdydy =:cfXX2@x1fEXX x1fEdydydy =:cfXX3@x1fEXX x1fEdydydydy =:cfXX4@x1fEXX x1fEdydydydydy=:cfXX5@x1fEXX (gXT(x1fEdy"_ 1 (((2^_44);2^_21)qteq[;])"1(0|:[:(gXT x1fE ])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(x1fEdydy"_ 1 (((2^_44);2^_15)qteq[;])"2(0|:[:(gXT x1fEdy ])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(x1fEdydydy"_ 1 (((2^_44);2^_13)qteq[;])"3(0|:[:(gXT x1fEdydy ])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(x1fEdydydydy"_ 1 (((2^_44);2^_14)qteq[;])"4(0|:[:(gXT x1fEdydydy ])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(x1fEdydydydydy"_ 1(((2^_44);2^_14)qteq[;])"5(0|:[:(gXT x1fEdydydydy])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 ... x1XX=:x1(<@[,}.@])[cfMQ5 x1fEXX,:x1fCXX
NB. ... execute (ijx) ... gXcw =: 0 0 _ _ _"_ gXpAll=: 0 0 0 0 0"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ x1dy =:cfXX1@x1XX x1dydy =:cfXX2@x1XX x1dydydy =:cfXX3@x1XX x1dydydydy =:cfXX4@x1XX x1dydydydydy=:cfXX5@x1XX (gXT(x1dy"_ 1 (((2^_44);2^_22)qteq[;])"1(0|:[:(gXT x1 ])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(x1dydy"_ 1 (((2^_44);2^_15)qteq[;])"2(0|:[:(gXT x1dy ])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(x1dydydy"_ 1 (((2^_44);2^_15)qteq[;])"3(0|:[:(gXT x1dydy ])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(x1dydydydy"_ 1 (((2^_44);2^_12)qteq[;])"4(0|:[:(gXT x1dydydy ])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(x1dydydydydy"_ 1(((2^_44);2^_13)qteq[;])"5(0|:[:(gXT x1dydydydy])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:LTE0500C.txt
Download: File:LTE0501C.txt
Download: File:LTE0502C.txt
Download: File:LTE0503C.txt
Download: File:LTE0504C.txt
Download: File:LTE0505C.txt
Download: File:LTE0506C.txt
Download: File:LTE0507C.txt
Download MoinMoin source: File:TensorExperiments05.ijs
Next Page: Essays/Tensor Experiments/TensorExperiments06
Prev Page: Essays/Tensor Experiments/TensorExperiments04