User:Tom Allen/TensorExperimentsB03
Jump to navigation
Jump to search
NB. ... script experimentalB.ijs ... qbrA51=:gXq51*qbrA
NB. ... script experimentalB.ijs ... qbrA51XX=:[<@(gXq51*>@])"_ 0 qbrAXX
NB. ... script experimentalB.ijs ... qbrA51P52=:qbrA51^gXq52
NB. ... script experimentalB.ijs ... qbrA51P52U0=: qbrA51^gXq52 qbrA51P52U1=: gXq52*qbrA51^gXq52+_1: qbrA51P52U2=: (gXq52+_1:)*gXq52*qbrA51^gXq52+_2: qbrA51P52U3=: (gXq52+_2:)*(gXq52+_1:)*gXq52*qbrA51^gXq52+_3: qbrA51P52U4=: (gXq52+_3:)*(gXq52+_2:)*(gXq52+_1:)*gXq52*qbrA51^gXq52+_4: qbrA51P52U5=:(gXq52+_4:)*(gXq52+_3:)*(gXq52+_2:)*(gXq52+_1:)*gXq52*qbrA51^gXq52+_5: qbrA51P52XX=:[cfFN5(qbrA51P52U0;qbrA51P52U1;qbrA51P52U2;qbrA51P52U3;qbrA51P52U4;qbrA51P52U5),:qbrA51XX
NB. ... script experimentalB.ijs ... qbrA51P52E=:^@-@qbrA51P52
NB. ... script experimentalB.ijs ... qbrA51P52EXX=:[cfFN5(^@-@qbrA51P52;^@-@qbrA51P52;^@-@qbrA51P52;^@-@qbrA51P52;^@-@qbrA51P52;^@-@qbrA51P52),:-&.>@qbrA51P52XX
NB. ... script experimentalB.ijs ... qbrA53=:gXq53*qbrA
NB. ... script experimentalB.ijs ... qbrA53XX=:[<@(gXq53*>@])"_ 0 qbrAXX
NB. ... script experimentalB.ijs ... qbrA53P54=:qbrA53^gXq54
NB. ... script experimentalB.ijs ... qbrA53P54U0=: qbrA53^gXq54 qbrA53P54U1=: gXq54*qbrA53^gXq54+_1: qbrA53P54U2=: (gXq54+_1:)*gXq54*qbrA53^gXq54+_2: qbrA53P54U3=: (gXq54+_2:)*(gXq54+_1:)*gXq54*qbrA53^gXq54+_3: qbrA53P54U4=: (gXq54+_3:)*(gXq54+_2:)*(gXq54+_1:)*gXq54*qbrA53^gXq54+_4: qbrA53P54U5=:(gXq54+_4:)*(gXq54+_3:)*(gXq54+_2:)*(gXq54+_1:)*gXq54*qbrA53^gXq54+_5: qbrA53P54XX=:[cfFN5(qbrA53P54U0;qbrA53P54U1;qbrA53P54U2;qbrA53P54U3;qbrA53P54U4;qbrA53P54U5),:qbrA53XX
NB. ... script experimentalB.ijs ... qbA=:gXq43*(gXq50+-@^@-@((gXq51*qbrA)^gXq52))*(gXq53*qbrA)^gXq54
NB. ... script experimentalB.ijs ... qbAq50XX=:gXq50;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: qbAXX=:[<@(gXq43*>@])"_ 0[cfMP5(qbAq50XX+&.>-&.>@qbrA51P52EXX),:qbrA53P54XX qbAc0XX=:(],<@(_"_))@:((0{])&.>)@}.@qbAXX qbAc1XX=:(],<@(_"_))@:((1{])&.>)@}.@qbAXX qbAc2XX=:(],<@(_"_))@:((2{])&.>)@}.@qbAXX
NB. ... execute (ijx) ... gXcw =: 1 0 _ _ _"_ gXpAll =: 0 0 0 0 0"_ gXq2All=: 0.9 1.0 1.1 0 _"_ gXq3All=: 1 0 0 0 0"_ gXq4All=: 0.9 1.0 1.1 1 _"_ gXq5All=: 1 1 3 1 _3"_ gXq6All=: 0.9 1.0 1.1 0 _"_ gXq7All=: 1 1 3 1 _3"_ yCpts=:_ 0.3 0.9 20,_ 0.3 0.9 20,_ 0.3 0.9 20,:_ 0 0 0"_ qbAdy =:cfXX1@qbAXX qbAdydy =:cfXX2@qbAXX qbAdydydy =:cfXX3@qbAXX qbAdydydydy =:cfXX4@qbAXX qbAdydydydydy=:cfXX5@qbAXX NB. ... check ... (gXB((qbA-:fbA)"_ 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((qbAdy-:fbAdy)"_ 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((qbAdydy-:!.(2^_41)fbAdydy)"_ 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. ... derivatives ... (gXB(qbAdy"_ 1 (((2^_44);2^_23)qteq[;])"1(0|:[:(gXB qbA ])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(qbAdydy"_ 1 (((2^_44);2^_14)qteq[;])"2(0|:[:(gXB qbAdy ])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(qbAdydydy"_ 1 (((2^_44);2^_15)qteq[;])"3(0|:[:(gXB qbAdydy ])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(qbAdydydydy"_ 1 (((2^_44);2^_12)qteq[;])"4(0|:[:(gXB qbAdydydy ])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(qbAdydydydydy"_ 1(((2^_44);2^_12)qteq[;])"5(0|:[:(gXB qbAdydydydy])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 ... qbrF71=:gXq71*qbrF qbrF71XX=:[<@(gXq71*>@])"_ 0 qbrFXX qbrF71P72=:qbrF71^gXq72 qbrF71P72U0=: qbrF71^gXq72 qbrF71P72U1=: gXq72*qbrF71^gXq72+_1: qbrF71P72U2=: (gXq72+_1:)*gXq72*qbrF71^gXq72+_2: qbrF71P72U3=: (gXq72+_2:)*(gXq72+_1:)*gXq72*qbrF71^gXq72+_3: qbrF71P72U4=: (gXq72+_3:)*(gXq72+_2:)*(gXq72+_1:)*gXq72*qbrF71^gXq72+_4: qbrF71P72U5=:(gXq72+_4:)*(gXq72+_3:)*(gXq72+_2:)*(gXq72+_1:)*gXq72*qbrF71^gXq72+_5: qbrF71P72XX=:[cfFN5(qbrF71P72U0;qbrF71P72U1;qbrF71P72U2;qbrF71P72U3;qbrF71P72U4;qbrF71P72U5),:qbrF71XX qbrF71P72E=:^@-@qbrF71P72 qbrF71P72EXX=:[cfFN5(^@-@qbrF71P72;^@-@qbrF71P72;^@-@qbrF71P72;^@-@qbrF71P72;^@-@qbrF71P72;^@-@qbrF71P72),:-&.>@qbrF71P72XX qbrF73=:gXq73*qbrF qbrF73XX=:[<@(gXq73*>@])"_ 0 qbrFXX qbrF73P74=:qbrF73^gXq74 qbrF73P74U0=: qbrF73^gXq74 qbrF73P74U1=: gXq74*qbrF73^gXq74+_1: qbrF73P74U2=: (gXq74+_1:)*gXq74*qbrF73^gXq74+_2: qbrF73P74U3=: (gXq74+_2:)*(gXq74+_1:)*gXq74*qbrF73^gXq74+_3: qbrF73P74U4=: (gXq74+_3:)*(gXq74+_2:)*(gXq74+_1:)*gXq74*qbrF73^gXq74+_4: qbrF73P74U5=:(gXq74+_4:)*(gXq74+_3:)*(gXq74+_2:)*(gXq74+_1:)*gXq74*qbrF73^gXq74+_5: qbrF73P74XX=:[cfFN5(qbrF73P74U0;qbrF73P74U1;qbrF73P74U2;qbrF73P74U3;qbrF73P74U4;qbrF73P74U5),:qbrF73XX qbF=:gXq63*(gXq70+-@^@-@((gXq71*qbrF)^gXq72))*(gXq73*qbrF)^gXq74 qbFq70XX=:gXq70;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: qbFXX=:[<@(gXq63*>@])"_ 0[cfMP5(qbFq70XX+&.>-&.>@qbrF71P72EXX),:qbrF73P74XX
NB. ... execute (ijx) ... gXcw =: 1 0 _ _ _"_ gXpAll =: 0 0 0 0 0"_ gXq2All=: 0.09 0.10 0.11 0 _"_ gXq3All=: 1 0 0 0 0"_ gXq4All=: 0.09 0.10 0.11 0 _"_ gXq5All=: 1 1 3 1 _3"_ gXq6All=: 0.09 0.10 0.11 2 _"_ gXq7All=: 1 0.4 3 0.6 _2"_ yCpts=:_ 5 48 20,_ 5 48 20,_ 5 48 20,:_ 0 80 20"_ qbFdy =:cfXX1@qbFXX qbFdydy =:cfXX2@qbFXX qbFdydydy =:cfXX3@qbFXX qbFdydydydy =:cfXX4@qbFXX qbFdydydydydy=:cfXX5@qbFXX NB. ... check ... (gXB((fbF-:qbF)"_ 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((fbFdy-:qbFdy)"_ 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. ... derivatives ... (gXB(qbFdy"_ 1 (((2^_44);2^_21)qteq[;])"1(0|:[:(gXB qbF ])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(qbFdydy"_ 1 (((2^_44);2^_14)qteq[;])"2(0|:[:(gXB qbFdy ])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(qbFdydydy"_ 1 (((2^_44);2^_16)qteq[;])"3(0|:[:(gXB qbFdydy ])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(qbFdydydydy"_ 1 (((2^_44);2^_14)qteq[;])"4(0|:[:(gXB qbFdydydy ])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(qbFdydydydydy"_ 1(((2^_44);2^_14)qteq[;])"5(0|:[:(gXB qbFdydydydy])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:LTEB0300C.txt
Download: File:LTEB0301C.txt
Download: File:LTEB0302C.txt
Download: File:LTEB0303C.txt
Download: File:LTEB0304C.txt
Download: File:LTEB0305C.txt
Download MoinMoin source: File:TensorExperimentsB03.ijs