Essays/Tensor Experiments/TensorExperiments06
< Essays | Tensor Experiments
Jump to navigation
Jump to search
NB. ... script experimental.ijs ... x2fA=:cy1 x2fAy0=:0: x2fAy1=:1: x2fAy2=:0: x2fAy3=:0: x2fAdy=:x2fAy0,x2fAy1,x2fAy2,x2fAy3 x2fAdydy =:(2$4:)$0: x2fAdydydy =:(3$4:)$0: x2fAdydydydy =:(4$4:)$0: x2fAdydydydydy=:(5$4:)$0: x2fAXX=:x2fA;x2fAdy;x2fAdydy;x2fAdydydy;x2fAdydydydy;x2fAdydydydydy
NB. ... script experimental.ijs ... fsqE=:cy0 fsqEy0=:1: fsqEy1=:0: fsqEy2=:0: fsqEy3=:0: fsqEdy=:fsqEy0,fsqEy1,fsqEy2,fsqEy3 fsqEdydy =:(2$4:)$0: fsqEdydydy =:(3$4:)$0: fsqEdydydydy =:(4$4:)$0: fsqEdydydydydy=:(5$4:)$0: fsqEXX=:fsqE;fsqEdy;fsqEdydy;fsqEdydydy;fsqEdydydydy;fsqEdydydydydy
NB. ... script experimental.ijs ... fsqEpow=:_1"_ fsqEU0=: fsqE^fsqEpow fsqEU1=: fsqEpow*fsqE^fsqEpow+_1: fsqEU2=: (fsqEpow+_1:)*fsqEpow*fsqE^fsqEpow+_2: fsqEU3=: (fsqEpow+_2:)*(fsqEpow+_1:)*fsqEpow*fsqE^fsqEpow+_3: fsqEU4=: (fsqEpow+_3:)*(fsqEpow+_2:)*(fsqEpow+_1:)*fsqEpow*fsqE^fsqEpow+_4: fsqEU5=:(fsqEpow+_4:)*(fsqEpow+_3:)*(fsqEpow+_2:)*(fsqEpow+_1:)*fsqEpow*fsqE^fsqEpow+_5: x2fBXX=:[cfFN5(fsqEU0;fsqEU1;fsqEU2;fsqEU3;fsqEU4;fsqEU5),:fsqEXX
NB. ... script experimental.ijs ... x2fCXX=:[cfMP5 x2fAXX,:x2fBXX
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"_ x2fC =:cfXX0@x2fCXX x2fCdy =:cfXX1@x2fCXX x2fCdydy =:cfXX2@x2fCXX x2fCdydydy =:cfXX3@x2fCXX x2fCdydydydy =:cfXX4@x2fCXX x2fCdydydydydy=:cfXX5@x2fCXX (gXT(x2fCdy"_ 1 (((2^_44);2^_23)qteq[;])"1(0|:[:(gXT x2fC ])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(x2fCdydy"_ 1 (((2^_44);2^_22)qteq[;])"2(0|:[:(gXT x2fCdy ])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(x2fCdydydy"_ 1 (((2^_44);2^_22)qteq[;])"3(0|:[:(gXT x2fCdydy ])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(x2fCdydydydy"_ 1 (((2^_44);2^_21)qteq[;])"4(0|:[:(gXT x2fCdydydy ])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(x2fCdydydydydy"_ 1(((2^_44);2^_21)qteq[;])"5(0|:[:(gXT x2fCdydydydy])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 ... x2fD=:1+(cy1*cy0^_1:)^2: x2fDCC=:1;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: x2fDXX=:<@(+/)@:>"1@(0|:])@(x2fDCC,:[cfMP5 x2fCXX,:x2fCXX)
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"_ x2fDdy =:cfXX1@x2fDXX x2fDdydy =:cfXX2@x2fDXX x2fDdydydy =:cfXX3@x2fDXX x2fDdydydydy =:cfXX4@x2fDXX x2fDdydydydydy=:cfXX5@x2fDXX (gXT(x2fDdy"_ 1 (((2^_44);2^_22)qteq[;])"1(0|:[:(gXT x2fD ])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(x2fDdydy"_ 1 (((2^_44);2^_22)qteq[;])"2(0|:[:(gXT x2fDdy ])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(x2fDdydydy"_ 1 (((2^_44);2^_21)qteq[;])"3(0|:[:(gXT x2fDdydy ])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(x2fDdydydydy"_ 1 (((2^_44);2^_21)qteq[;])"4(0|:[:(gXT x2fDdydydy ])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(x2fDdydydydydy"_ 1(((2^_44);2^_21)qteq[;])"5(0|:[:(gXT x2fDdydydydy])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 ... x2fDpow=:_1"_ x2fDU0=: x2fD^x2fDpow x2fDU1=: x2fDpow*x2fD^x2fDpow+_1: x2fDU2=: (x2fDpow+_1:)*x2fDpow*x2fD^x2fDpow+_2: x2fDU3=: (x2fDpow+_2:)*(x2fDpow+_1:)*x2fDpow*x2fD^x2fDpow+_3: x2fDU4=: (x2fDpow+_3:)*(x2fDpow+_2:)*(x2fDpow+_1:)*x2fDpow*x2fD^x2fDpow+_4: x2fDU5=:(x2fDpow+_4:)*(x2fDpow+_3:)*(x2fDpow+_2:)*(x2fDpow+_1:)*x2fDpow*x2fD^x2fDpow+_5: x2fEXX=:[cfFN5(x2fDU0;x2fDU1;x2fDU2;x2fDU3;x2fDU4;x2fDU5),:x2fDXX
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"_ x2fE =:cfXX0@x2fEXX x2fEdy =:cfXX1@x2fEXX x2fEdydy =:cfXX2@x2fEXX x2fEdydydy =:cfXX3@x2fEXX x2fEdydydydy =:cfXX4@x2fEXX x2fEdydydydydy=:cfXX5@x2fEXX (gXT(x2fEdy"_ 1 (((2^_44);2^_22)qteq[;])"1(0|:[:(gXT x2fE ])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(x2fEdydy"_ 1 (((2^_25);2^_18)qteq[;])"2(0|:[:(gXT x2fEdy ])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(x2fEdydydy"_ 1 (((2^_24);2^_17)qteq[;])"3(0|:[:(gXT x2fEdydy ])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(x2fEdydydydy"_ 1 (((2^_23);2^_12)qteq[;])"4(0|:[:(gXT x2fEdydydy ])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(x2fEdydydydydy"_ 1(((2^_44);2^_15)qteq[;])"5(0|:[:(gXT x2fEdydydydy])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 ... x2nw=:arctan@(cy0,cy1) x2nwXX=:x2nw(<@[,}.@])[cfMQ5 x2fEXX,:x2fCXX fwXX=:(-@gXw*cy3);(0,0,0,-@gXw);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: x2XX=:<@(+/)@:>"1@(0|:])@(x2nwXX,:fwXX)
NB. ... execute (ijx) ... gXcw =: 0 0.3 _ _ _"_ gXpAll=: 0 0 0 0 0"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ x2dy =:cfXX1@x2XX x2dydy =:cfXX2@x2XX x2dydydy =:cfXX3@x2XX x2dydydydy =:cfXX4@x2XX x2dydydydydy=:cfXX5@x2XX (gXT(x2dy"_ 1 (((2^_44);2^_22)qteq[;])"1(0|:[:(gXT x2 ])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(x2dydy"_ 1 (((2^_26);2^_21)qteq[;])"2(0|:[:(gXT x2dy ])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(x2dydydy"_ 1 (((2^_44);2^_18)qteq[;])"3(0|:[:(gXT x2dydy ])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(x2dydydydy"_ 1 (((2^_25);2^_17)qteq[;])"4(0|:[:(gXT x2dydydy ])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(x2dydydydydy"_ 1(((2^_44);2^_09)qteq[;])"5(0|:[:(gXT x2dydydydy])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 ... x3XX=:x3;(0,0,0,1:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
NB. ... script experimental.ijs ... xXXS=:<@:>"1@(0|:])@(x0XX,x1XX,x2XX,:x3XX) xXX=:<@:>"1@(0|:])@:(xXXS"_ 1)
NB. ... script experimental.ijs ... ypts =:>@((<0 0){]) ydx =:>@((<0 1){]) ydxdx =:>@((<0 2){]) ydxdxdx =:>@((<0 3){]) ydxdxdxdx =:>@((<0 4){]) ydxdxdxdxdx=:>@((<0 5){]) xpts =:>@((<1 0){]) xdy =:>@((<1 1){]) xdydy =:>@((<1 2){]) xdydydy =:>@((<1 3){]) xdydydydy =:>@((<1 4){]) xdydydydydy=:>@((<1 5){]) hkxAB=: yXX ,:[xXX yc hkyAB=:([yXX xc),: xXX
NB. ... execute (ijx) ... gXcw =: 0 0.3 _ _ _"_ gXpAll=: 0 0 0 0 0"_ xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_ (gXT(([ydx hkxAB)(((2^_44);2^_16)qteq[;])"2(0|:[:(gXT([(0{])@ypts hkxAB),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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(([ydxdx hkxAB)(((2^_44);2^_16)qteq[;])"3(0|:[:(gXT([(0{])@ydx hkxAB),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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(([ydxdxdx hkxAB)(((2^_44);2^_16)qteq[;])"4(0|:[:(gXT([(0{])@ydxdx hkxAB),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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(([ydxdxdxdx hkxAB)(((2^_44);2^_16)qteq[;])"5(0|:[:(gXT([(0{])@ydxdxdx hkxAB),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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(([ydxdxdxdxdx hkxAB)(((2^_44);2^_16)qteq[;])"6(0|:[:(gXT([(0{])@ydxdxdxdx hkxAB),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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. ... execute (ijx) ... gXcw =: 0 0.3 _ _ _"_ gXpAll=: 0 0 0 0 0"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ (gXT(([xdy hkyAB)(((2^_44);2^_22)qteq[;])"2(0|:[:(gXT([(0{])@xpts hkyAB),:@])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(([xdydy hkyAB)(((2^_26);2^_15)qteq[;])"3(0|:[:(gXT([(0{])@xdy hkyAB),:@])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(([xdydydy hkyAB)(((2^_44);2^_15)qteq[;])"4(0|:[:(gXT([(0{])@xdydy hkyAB),:@])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(([xdydydydy hkyAB)(((2^_25);2^_12)qteq[;])"5(0|:[:(gXT([(0{])@xdydydy hkyAB),:@])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(([xdydydydydy hkyAB)(((2^_44);2^_09)qteq[;])"6(0|:[:(gXT([(0{])@xdydydydy hkyAB),:@])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:LTE0600C.txt
Download: File:LTE0601C.txt
Download: File:LTE0602C.txt
Download: File:LTE0603C.txt
Download: File:LTE0604C.txt
Download: File:LTE0605C.txt
Download: File:LTE0606C.txt
Download MoinMoin source: File:TensorExperiments06.ijs
Next Page: Essays/Tensor Experiments/TensorExperiments07
Prev Page: Essays/Tensor Experiments/TensorExperiments05