User:Tom Allen/TensorExperimentsB01
Jump to navigation
Jump to search
NB. ... script experimentalB.ijs ... qbrS=:((gXq20*cy0)^2:)+((gXq21*cy1)^2:)+(gXq22*cy2)^2:
NB. ... script experimentalB.ijs ... qbrSUUy0=:2*(gXq20^2:)*cy0 qbrSUUy1=:2*(gXq21^2:)*cy1 qbrSUUy2=:2*(gXq22^2:)*cy2 qbrSUUdy=:qbrSUUy0,qbrSUUy1,qbrSUUy2,0: qbrSUUy0y0=:2*gXq20^2: qbrSUUy1y1=:2*gXq21^2: qbrSUUy2y2=:2*gXq22^2: qbrSUUdydyt0=:qbrSUUy0y0,0,0,0: qbrSUUdydyt1=:0,qbrSUUy1y1,0,0: qbrSUUdydyt2=:0,0,qbrSUUy2y2,0: qbrSUUdydyt3=:0,0,0,0: qbrSUUdydy =:qbrSUUdydyt0,qbrSUUdydyt1,qbrSUUdydyt2,:qbrSUUdydyt3 qbrSUUdydydy =:(3$4:)$0: qbrSUUdydydydy =:(4$4:)$0: qbrSUUdydydydydy=:(5$4:)$0: qbrSXX=:qbrS;qbrSUUdy;qbrSUUdydy;qbrSUUdydydy;qbrSUUdydydydy;qbrSUUdydydydydy
NB. ... script experimentalB.ijs ... qbrB=:qbrS^0.5"_
NB. ... script experimentalB.ijs ... qbrBPW=:0.5"_ qbrBU0=: qbrS^qbrBPW qbrBU1=: qbrBPW*qbrS^qbrBPW+_1: qbrBU2=: (qbrBPW+_1:)*qbrBPW*qbrS^qbrBPW+_2: qbrBU3=: (qbrBPW+_2:)*(qbrBPW+_1:)*qbrBPW*qbrS^qbrBPW+_3: qbrBU4=: (qbrBPW+_3:)*(qbrBPW+_2:)*(qbrBPW+_1:)*qbrBPW*qbrS^qbrBPW+_4: qbrBU5=:(qbrBPW+_4:)*(qbrBPW+_3:)*(qbrBPW+_2:)*(qbrBPW+_1:)*qbrBPW*qbrS^qbrBPW+_5: qbrBXX=:[cfFN5(qbrBU0;qbrBU1;qbrBU2;qbrBU3;qbrBU4;qbrBU5),:qbrSXX
NB. ... execute (ijx) ... gXcw =: 1 0 _ _ _"_ gXpAll =: 0 0 0 0 0"_ gXq2All=: 1.1 1.2 1.3 0 _"_ gXq3All=: 1 0 0 0 0"_ gXq4All=: 1.1 1.2 1.3 0 _"_ gXq5All=: 1 1 3 1 _3"_ gXq6All=: 1.1 1.2 1.3 0 _"_ gXq7All=: 1 1 3 1 _3"_ yCpts=:_ 0.1 4 20,_ 0.1 4 20,_ 0.1 4 20,:_ 0 0 0"_ qbrBdy =:cfXX1@qbrBXX qbrBdydy =:cfXX2@qbrBXX qbrBdydydy =:cfXX3@qbrBXX qbrBdydydydy =:cfXX4@qbrBXX qbrBdydydydydy=:cfXX5@qbrBXX (gXB(qbrBdy"_ 1 (((2^_44);2^_19)qteq[;])"1(0|:[:(gXB qbrB ])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 (gXB(qbrBdydy"_ 1 (((2^_44);2^_18)qteq[;])"2(0|:[:(gXB qbrBdy ])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 (gXB(qbrBdydydy"_ 1 (((2^_44);2^_11)qteq[;])"3(0|:[:(gXB qbrBdydy ])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 (gXB(qbrBdydydydy"_ 1 (((2^_44);2^_13)qteq[;])"4(0|:[:(gXB qbrBdydydy ])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 (gXB(qbrBdydydydydy"_ 1(((2^_44);2^_12)qteq[;])"5(0|:[:(gXB qbrBdydydydy])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 experimentalB.ijs ... qbrT=:((gXq40*cy0)^2:)+((gXq41*cy1)^2:)+(gXq42*cy2)^2: qbrTUUy0=:2*(gXq40^2:)*cy0 qbrTUUy1=:2*(gXq41^2:)*cy1 qbrTUUy2=:2*(gXq42^2:)*cy2 qbrTUUdy=:qbrTUUy0,qbrTUUy1,qbrTUUy2,0: qbrTUUy0y0=:2*gXq40^2: qbrTUUy1y1=:2*gXq41^2: qbrTUUy2y2=:2*gXq42^2: qbrTUUdydyt0=:qbrTUUy0y0,0,0,0: qbrTUUdydyt1=:0,qbrTUUy1y1,0,0: qbrTUUdydyt2=:0,0,qbrTUUy2y2,0: qbrTUUdydyt3=:0,0,0,0: qbrTUUdydy =:qbrTUUdydyt0,qbrTUUdydyt1,qbrTUUdydyt2,:qbrTUUdydyt3 qbrTUUdydydy =:(3$4:)$0: qbrTUUdydydydy =:(4$4:)$0: qbrTUUdydydydydy=:(5$4:)$0: qbrTXX=:qbrT;qbrTUUdy;qbrTUUdydy;qbrTUUdydydy;qbrTUUdydydydy;qbrTUUdydydydydy qbrA=:qbrT^0.5"_ qbrAPW=:0.5"_ qbrAU0=: qbrT^qbrAPW qbrAU1=: qbrAPW*qbrT^qbrAPW+_1: qbrAU2=: (qbrAPW+_1:)*qbrAPW*qbrT^qbrAPW+_2: qbrAU3=: (qbrAPW+_2:)*(qbrAPW+_1:)*qbrAPW*qbrT^qbrAPW+_3: qbrAU4=: (qbrAPW+_3:)*(qbrAPW+_2:)*(qbrAPW+_1:)*qbrAPW*qbrT^qbrAPW+_4: qbrAU5=:(qbrAPW+_4:)*(qbrAPW+_3:)*(qbrAPW+_2:)*(qbrAPW+_1:)*qbrAPW*qbrT^qbrAPW+_5: qbrAXX=:[cfFN5(qbrAU0;qbrAU1;qbrAU2;qbrAU3;qbrAU4;qbrAU5),:qbrTXX
NB. ... script experimentalB.ijs ... qbrU=:((gXq60*cy0)^2:)+((gXq61*cy1)^2:)+(gXq62*cy2)^2: qbrUUUy0=:2*(gXq60^2:)*cy0 qbrUUUy1=:2*(gXq61^2:)*cy1 qbrUUUy2=:2*(gXq62^2:)*cy2 qbrUUUdy=:qbrUUUy0,qbrUUUy1,qbrUUUy2,0: qbrUUUy0y0=:2*gXq60^2: qbrUUUy1y1=:2*gXq61^2: qbrUUUy2y2=:2*gXq62^2: qbrUUUdydyt0=:qbrUUUy0y0,0,0,0: qbrUUUdydyt1=:0,qbrUUUy1y1,0,0: qbrUUUdydyt2=:0,0,qbrUUUy2y2,0: qbrUUUdydyt3=:0,0,0,0: qbrUUUdydy =:qbrUUUdydyt0,qbrUUUdydyt1,qbrUUUdydyt2,:qbrUUUdydyt3 qbrUUUdydydy =:(3$4:)$0: qbrUUUdydydydy =:(4$4:)$0: qbrUUUdydydydydy=:(5$4:)$0: qbrUXX=:qbrU;qbrUUUdy;qbrUUUdydy;qbrUUUdydydy;qbrUUUdydydydy;qbrUUUdydydydydy qbrF=:qbrU^0.5"_ qbrFPW=:0.5"_ qbrFU0=: qbrU^qbrFPW qbrFU1=: qbrFPW*qbrU^qbrFPW+_1: qbrFU2=: (qbrFPW+_1:)*qbrFPW*qbrU^qbrFPW+_2: qbrFU3=: (qbrFPW+_2:)*(qbrFPW+_1:)*qbrFPW*qbrU^qbrFPW+_3: qbrFU4=: (qbrFPW+_3:)*(qbrFPW+_2:)*(qbrFPW+_1:)*qbrFPW*qbrU^qbrFPW+_4: qbrFU5=:(qbrFPW+_4:)*(qbrFPW+_3:)*(qbrFPW+_2:)*(qbrFPW+_1:)*qbrFPW*qbrU^qbrFPW+_5: qbrFXX=:[cfFN5(qbrFU0;qbrFU1;qbrFU2;qbrFU3;qbrFU4;qbrFU5),:qbrUXX
NB. ... script experimentalB.ijs ... qby0=:cy0 qby1=:cy1 qby2=:cy2 qby3=:cy3
NB. ... script experimentalB.ijs ... qby0XX=:qby0;(1,0,0,0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: qby1XX=:qby1;(0,1,0,0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: qby2XX=:qby2;(0,0,1,0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: qby3XX=:qby3;(0,0,0,1:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
Download: File:LTEB0100C.txt
Download: File:LTEB0101C.txt
Download: File:LTEB0102C.txt
Download MoinMoin source: File:TensorExperimentsB01.ijs