User:Tom Allen/TensorExperimentsZ00
Jump to navigation
Jump to search
NOTE: TensorExperimentsZ is stand-alone using verbs from Essays/TensorExperiments.
NB. ... script experimentalZ.ijs ... load jpath '~temp\experimental.ijs' gXb10=:(<1 0){[ NB. powerR (standing wave) gXb11=:(<1 1){[ NB. scaleR (standing wave) gXb12=:(<1 2){[ NB. powerS (standing wave) gXb13=:(<1 3){[ NB. frequency (standing wave) gXb14=:(<1 4){[ NB. multiplier (standing wave) gXb15=:(<1 5){[ NB. (movement ) gXZ=:gXcw,:gXbAll gXb10XX=:gXb10;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: gXb11XX=:gXb11;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: gXb12XX=:gXb12;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: gXb13XX=:gXb13;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: gXb14XX=:gXb14;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: gXb15XX=:gXb15;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: cz0=:0{] cz1=:1{] cz2=:2{] cz3=:3{] cz0XX=:cz0;(1,0,0,0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: cz1XX=:cz1;(0,1,0,0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: cz2XX=:cz2;(0,0,1,0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: cz3XX=:cz3;(0,0,0,1:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: NB. ... open/get/put/close array on disk file (utility verbs) ... arrayPath=:jpath '~temp\' arrayOpen =: 1!:21@<@(arrayPath"_,]) arrayGet =: [$_".1!:1@<@(arrayPath"_,]) arrayPut =:[(":!.17@,@[(1!:2)1!:21@])<@(arrayPath"_,]) arrayClose=: 1!:22@<@(arrayPath"_,])
NB. ... script experimentalZ.ijs ... zPy=:cy0,cy1,cy2,cy3 yPz=:cz0,cz1,cz2,cz3 zpts=:[zPy"_ 1 ypts
NB. ... script experimentalZ.ijs ... zdy =:1 0 0 0,0 1 0 0,0 0 1 0,:0 0 0 1"_ zdydy =:(3$4:)$0: zdydydy =:(4$4:)$0: zdydydydy =:(5$4:)$0: zdydydydydy=:(6$4:)$0: ydz =:1 0 0 0,0 1 0 0,0 0 1 0,:0 0 0 1"_ ydzdz =:(3$4:)$0: ydzdzdz =:(4$4:)$0: ydzdzdzdz =:(5$4:)$0: ydzdzdzdzdz=:(6$4:)$0:
NB. ... script experimentalZ.ijs ... zdx =:([zdy"_ 1 ypts)([smx 0|:])"2 2 ydx zdxdx =:([zdy"_ 1 ypts)([smx 0|:])"2 3 ydxdx zdxdxdx =:([zdy"_ 1 ypts)([smx 0|:])"2 4 ydxdxdx zdxdxdxdx =:([zdy"_ 1 ypts)([smx 0|:])"2 5 ydxdxdxdx zdxdxdxdxdx=:([zdy"_ 1 ypts)([smx 0|:])"2 6 ydxdxdxdxdx
NB. ... execute (ijx) ... gXcw =: _ 0 _ _ _ _"_ gXbAll=: _ _ _ _ _ 0"_ xCpts=:_ 1 3 27,_ 0 1p1 27,_ 0 2p1 27,:_ 0 20 27"_ A=:(gXZ([zdx hkxAB)]) ((0.1;50"_)pTRandom xCpts)'' B=:(gXZ(0|:[:(gXZ([(0{])@zpts hkxAB),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)'' A (((2^_44);2^_19)qteq[;])"2 B 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 A=:(gXZ([zdxdx hkxAB)]) ((0.1;50"_)pTRandom xCpts)'' B=:(gXZ(0|:[:(gXZ([(0{])@zdx hkxAB),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)'' A (((2^_44);2^_19)qteq[;])"3 B 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 A=:(gXZ([zdxdxdx hkxAB)]) ((0.1;50"_)pTRandom xCpts)'' B=:(gXZ(0|:[:(gXZ([(0{])@zdxdx hkxAB),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)'' A (((2^_44);2^_19)qteq[;])"4 B 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 A=:(gXZ([zdxdxdxdx hkxAB)]) ((0.1;50"_)pTRandom xCpts)'' B=:(gXZ(0|:[:(gXZ([(0{])@zdxdxdx hkxAB),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)'' A (((2^_44);2^_19)qteq[;])"5 B 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 A=:(gXZ([zdxdxdxdxdx hkxAB)]) ((0.1;50"_)pTRandom xCpts)'' B=:(gXZ(0|:[:(gXZ([(0{])@zdxdxdxdx hkxAB),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)'' A (((2^_44);2^_19)qteq[;])"6 B 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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 experimentalZ.ijs ... xdz =:(0 |:])"2@(([ydz"_ 1 zpts)( ((0|:[)smx])"2 2)xdy ) xdzdz =:(0 1 |:])"3@(([ydz"_ 1 zpts)( [((0|:[)smx])"2 3((0|:[)smx])"2 3)xdydy ) xdzdzdz =:(0 1 2 |:])"4@(([ydz"_ 1 zpts)( [((0|:[)smx])"2 4[((0|:[)smx])"2 4((0|:[)smx])"2 4)xdydydy ) xdzdzdzdz =:(0 1 2 3 |:])"5@(([ydz"_ 1 zpts)( [((0|:[)smx])"2 5[((0|:[)smx])"2 5[((0|:[)smx])"2 5((0|:[)smx])"2 5)xdydydydy ) xdzdzdzdzdz=:(0 1 2 3 4|:])"6@(([ydz"_ 1 zpts)([((0|:[)smx])"2 6[((0|:[)smx])"2 6[((0|:[)smx])"2 6[((0|:[)smx])"2 6((0|:[)smx])"2 6)xdydydydydy)
NB. ... execute (ijx) ... gXcw =: _ 0 _ _ _ _"_ gXbAll=: _ _ _ _ _ 0"_ xCpts=:_ 1 3 27,_ 0 1p1 27,_ 0 2p1 27,:_ 0 2 27"_ NB. ... a check ... (gXZ(([([([([([ypts hkxAB)xpts)hkyAB)yPz"_ 1)[zpts hkxAB)-:"1[ypts hkxAB)]) ((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. ... derivatives ... A=:(gXZ([xdz hkxAB)]) ((0.1;10"_)pTRandom xCpts)'' B=:(gXZ([(0|:[:(gXZ([([(0{])@xpts hkyAB)yPz"_ 1),:@])D.1])"_ 1[zpts hkxAB)]) ((0.1;10"_)pTRandom xCpts)'' A (((2^_44);2^_21)qteq[;])"2 B 1 1 1 1 1 1 1 1 1 1 A=:(gXZ([xdzdz hkxAB)]) ((0.1;10"_)pTRandom xCpts)'' B=:(gXZ([(0|:[:(gXZ([([(0{])@xdz hkyAB)yPz"_ 1),:@])D.1])"_ 1[zpts hkxAB)]) ((0.1;10"_)pTRandom xCpts)'' A (((2^_44);2^_20)qteq[;])"3 B 1 1 1 1 1 1 1 1 1 1 A=:(gXZ([xdzdzdz hkxAB)]) ((0.1;10"_)pTRandom xCpts)'' B=:(gXZ([(0|:[:(gXZ([([(0{])@xdzdz hkyAB)yPz"_ 1),:@])D.1])"_ 1[zpts hkxAB)]) ((0.1;10"_)pTRandom xCpts)'' A (((2^_44);2^_18)qteq[;])"4 B 1 1 1 1 1 1 1 1 1 1 A=:(gXZ([xdzdzdzdz hkxAB)]) ((0.1;10"_)pTRandom xCpts)'' B=:(gXZ([(0|:[:(gXZ([([(0{])@xdzdzdz hkyAB)yPz"_ 1),:@])D.1])"_ 1[zpts hkxAB)]) ((0.1;10"_)pTRandom xCpts)'' A (((2^_44);2^_15)qteq[;])"5 B 1 1 1 1 1 1 1 1 1 1 A=:(gXZ([xdzdzdzdzdz hkxAB)]) ((0.1;10"_)pTRandom xCpts)'' B=:(gXZ([(0|:[:(gXZ([([(0{])@xdzdzdzdz hkyAB)yPz"_ 1),:@])D.1])"_ 1[zpts hkxAB)]) ((0.1;10"_)pTRandom xCpts)'' A (((2^_44);2^_11)qteq[;])"6 B 1 1 1 1 1 1 1 1 1 1
Download: File:LTEZ0000C.txt
Download: File:LTEZ0001C.txt
Download: File:LTEZ0002C.txt
Download MoinMoin source: File:TensorExperimentsZ00.ijs