Essays/Tensor Experiments/TensorExperiments09
< Essays | Tensor Experiments
Jump to navigation
Jump to search
NB. ... script experimental.ijs ... multp3=:gXp3;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: vr1CXX=:[cfMP5 multp3,:[cfMP5 mfaXX,:o1CXX
NB. ... execute (ijx) ... gXcw =: 0 0 _ _ _ "_ gXpAll=: 1.1 1.2 1.3 1.4 1.5"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ vr1C =:cfXX0@vr1CXX vr1Cdy =:cfXX1@vr1CXX vr1Cdydy =:cfXX2@vr1CXX vr1Cdydydy =:cfXX3@vr1CXX vr1Cdydydydy =:cfXX4@vr1CXX vr1Cdydydydydy=:cfXX5@vr1CXX (gXT(vr1Cdy"_ 1 (((2^_44);2^_13)qteq[;])"1(0|:[:(gXT vr1C ])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(vr1Cdydy"_ 1 (((2^_44);2^_14)qteq[;])"2(0|:[:(gXT vr1Cdy ])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(vr1Cdydydy"_ 1 (((2^_44);2^_12)qteq[;])"3(0|:[:(gXT vr1Cdydy ])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(vr1Cdydydydy"_ 1 (((2^_44);2^_11)qteq[;])"4(0|:[:(gXT vr1Cdydydy ])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(vr1Cdydydydydy"_ 1(((2^_44);2^_10)qteq[;])"5(0|:[:(gXT vr1Cdydydydy])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 ... multp3mp4=:(gXp3*gXp4^_1:);((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: vr2CXX=:[cfMP5 multp3mp4,:[cfMP5 mfaXX,:o2CXX
NB. ... execute (ijx) ... gXcw =: 0 0 _ _ _ "_ gXpAll=: 1.1 1.2 1.3 1.4 1.5"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ vr2C =:cfXX0@vr2CXX vr2Cdy =:cfXX1@vr2CXX vr2Cdydy =:cfXX2@vr2CXX vr2Cdydydy =:cfXX3@vr2CXX vr2Cdydydydy =:cfXX4@vr2CXX vr2Cdydydydydy=:cfXX5@vr2CXX (gXT(vr2Cdy"_ 1 (((2^_44);2^_14)qteq[;])"1(0|:[:(gXT vr2C ])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(vr2Cdydy"_ 1 (((2^_44);2^_13)qteq[;])"2(0|:[:(gXT vr2Cdy ])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(vr2Cdydydy"_ 1 (((2^_44);2^_14)qteq[;])"3(0|:[:(gXT vr2Cdydy ])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(vr2Cdydydydy"_ 1 (((2^_44);2^_12)qteq[;])"4(0|:[:(gXT vr2Cdydydy ])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(vr2Cdydydydydy"_ 1(((2^_44);2^_10)qteq[;])"5(0|:[:(gXT vr2Cdydydydy])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 ... OyA0XX=:[cfMP4 fy0p0XX,:vr1CXX
NB. ... execute (ijx) ... gXcw =: 0 0 _ _ _ "_ gXpAll=: 1.1 1.2 1.3 1.4 1.5"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ OyA0 =:cfXX0@OyA0XX OyA0dy =:cfXX1@OyA0XX OyA0dydy =:cfXX2@OyA0XX OyA0dydydy =:cfXX3@OyA0XX OyA0dydydydy=:cfXX4@OyA0XX (gXT(OyA0dy"_ 1 (((2^_44);2^_13)qteq[;])"1(0|:[:(gXT OyA0 ])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(OyA0dydy"_ 1 (((2^_44);2^_14)qteq[;])"2(0|:[:(gXT OyA0dy ])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(OyA0dydydy"_ 1 (((2^_44);2^_12)qteq[;])"3(0|:[:(gXT OyA0dydy ])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(OyA0dydydydy"_ 1(((2^_44);2^_11)qteq[;])"4(0|:[:(gXT OyA0dydydy])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 ... OyA1XX=:[cfMP4 fy1p1XX,:vr1CXX
NB. ... script experimental.ijs ... OyA2XX=:[cfMP4 fy2p2XX,:vr1CXX
NB. ... script experimental.ijs ... abx01=:(0{])@cfXX1 abx02=:(0{])@cfXX2 abx03=:(0{])@cfXX3 abx04=:(0{])@cfXX4 abx05=:(0{])@cfXX5 vr2Cy0XX=:[(abx01;abx02;abx03;abx04;abx05;_"_)vr2CXX OyA3t0XX=:[cfMP4 fy0p0XX,:vr2Cy0XX
NB. ... script experimental.ijs ... abx11=:(1{])@cfXX1 abx12=:(1{])@cfXX2 abx13=:(1{])@cfXX3 abx14=:(1{])@cfXX4 abx15=:(1{])@cfXX5 vr2Cy1XX=:[(abx11;abx12;abx13;abx14;abx15;_"_)vr2CXX OyA3t1XX=:[cfMP4 fy1p1XX,:vr2Cy1XX
NB. ... script experimental.ijs ... abx21=:(2{])@cfXX1 abx22=:(2{])@cfXX2 abx23=:(2{])@cfXX3 abx24=:(2{])@cfXX4 abx25=:(2{])@cfXX5 vr2Cy2XX=:[(abx21;abx22;abx23;abx24;abx25;_"_)vr2CXX OyA3t2XX=:[cfMP4 fy2p2XX,:vr2Cy2XX
NB. ... script experimental.ijs ... multp0p1p2=:(gXp0+gXp1+gXp2);((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_ OyA3t3XX=:[cfMP4 multp0p1p2,:(cfXX0;cfXX1;cfXX2;cfXX3;cfXX4;_"_)@vr2CXX
NB. ... script experimental.ijs ... OyA3XX=:<@(+/)@:>"1@(0|:])@(OyA3t0XX,OyA3t1XX,OyA3t2XX,:OyA3t3XX)
NB. ... script experimental.ijs ... OyAD4 =:>@((<4 0){]) OyAD4dy =:>@((<4 1){]) OyAD4dydy =:>@((<4 2){]) OyAD4dydydy =:>@((<4 3){]) OyAD4dydydydy=:>@((<4 4){]) OyAXXS=:<@:>"1@(0|:])@(OyA0XX,OyA1XX,OyA2XX,:OyA3XX) OyAXX=:<@:>"1@(0|:])@:(OyAXXS"_ 1) hkxE=:[(],[OyAXX ypts)hkxD hkyE=:[(],[OyAXX ypts)hkyD
NB. ... execute (ijx) ... gXcw =: 0 0 _ _ _ "_ gXpAll=: 1.1 1.2 1.3 1.4 1.5"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ (gXT(([OyAD4dy hkyE)(((2^_44);2^_13)qteq[;])"2(0|:[:(gXT([(0{])@OyAD4 hkyE),:@])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(([OyAD4dydy hkyE)(((2^_44);2^_10)qteq[;])"3(0|:[:(gXT([(0{])@OyAD4dy hkyE),:@])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(([OyAD4dydydy hkyE)(((2^_44);2^_10)qteq[;])"4(0|:[:(gXT([(0{])@OyAD4dydy hkyE),:@])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(([OyAD4dydydydy hkyE)(((2^_44);2^_10)qteq[;])"5(0|:[:(gXT([(0{])@OyAD4dydydy hkyE),:@])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. ... divergence is 0 ... (0=]) ((2^_44)qtsz]) (gXT(+/@((<0 1)|:])"2@([OyAD4dy hkyE))]) ((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:LTE0900C.txt
Download: File:LTE0901C.txt
Download: File:LTE0902C.txt
Download: File:LTE0903C.txt
Download: File:LTE0904C.txt
Download: File:LTE0905C.txt
Download: File:LTE0906C.txt
Download: File:LTE0907C.txt
Download: File:LTE0908C.txt
Download: File:LTE0909C.txt
Download: File:LTE0910C.txt
Download MoinMoin source: File:TensorExperiments09.ijs
Next Page: Essays/Tensor Experiments/TensorExperiments10
Prev Page: Essays/Tensor Experiments/TensorExperiments08