User:Tom Allen/TensorExperimentsR08
Jump to navigation
Jump to search
NB. ... script experimentalR.ijs ... rfy0=:cx0*sin@cx1*cos@cx2 rfy1=:cx0*sin@cx1*sin@cx2 rfy2=:cx0*cos@cx1 rfy3=:cx3 rfyc=:rfy0,rfy1,rfy2,rfy3
NB. ... script experimentalR.ijs ... rfaV17XX=:[cfFN5(sin@cx1; cos@cx1;-@sin@cx1;-@cos@cx1;sin@cx1; cos@cx1),:cx1XX rfaV18XX=:[cfFN5(cos@cx1;-@sin@cx1;-@cos@cx1; sin@cx1;cos@cx1;-@sin@cx1),:cx1XX rfaV19XX=:[cfFN5(sin@cx2; cos@cx2;-@sin@cx2;-@cos@cx2;sin@cx2; cos@cx2),:cx2XX rfaV20XX=:[cfFN5(cos@cx2;-@sin@cx2;-@cos@cx2; sin@cx2;cos@cx2;-@sin@cx2),:cx2XX
NB. ... script experimentalR.ijs ... rfy0x0=: ( [cfMP5 rfaV17XX,:rfaV20XX) rfy0x1=: ([cfMP5 cx0XX,:[cfMP5 rfaV18XX,:rfaV20XX) rfy0x2=:-&.>@([cfMP5 cx0XX,:[cfMP5 rfaV17XX,:rfaV19XX) rfy0x3=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfy0XX=:rfy0;}:@:(<@:>"1)@(0|:])@(rfy0x0,rfy0x1,rfy0x2,:rfy0x3)
NB. ... script experimentalR.ijs ... rfy1x0=: [cfMP5 rfaV17XX,:rfaV19XX rfy1x1=:[cfMP5 cx0XX,:[cfMP5 rfaV18XX,:rfaV19XX rfy1x2=:[cfMP5 cx0XX,:[cfMP5 rfaV17XX,:rfaV20XX rfy1x3=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfy1XX=:rfy1;}:@:(<@:>"1)@(0|:])@(rfy1x0,rfy1x1,rfy1x2,:rfy1x3)
NB. ... script experimentalR.ijs ... rfy2x0=: ( rfaV18XX) rfy2x1=:-&.>@([cfMP5 cx0XX,:rfaV17XX) rfy2x2=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfy2x3=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfy2XX=:rfy2;}:@:(<@:>"1)@(0|:])@(rfy2x0,rfy2x1,rfy2x2,:rfy2x3)
NB. ... script experimentalR.ijs ... rfy3x0=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfy3x1=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfy3x2=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfy3x3=:1;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfy3XX=:rfy3;}:@:(<@:>"1)@(0|:])@(rfy3x0,rfy3x1,rfy3x2,:rfy3x3)
NB. ... script experimentalR.ijs ... rfyXXS=:<@:>"1@(0|:])@(rfy0XX,rfy1XX,rfy2XX,:rfy3XX)
NB. ... execute (ijx) ... gXRAll=:,:@(0 0 0 0 0 0 0 0 0 0"_) gXcw =: 0 0 _ _ _"_ gXpAll=: 0 0 0 0 0"_ xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_ ((gXR cfXX0@rfyXXS"_ 1])-:"1 gXT cfXX0@yXXS"_ 1]) ((0;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 ((gXR cfXX1@rfyXXS"_ 1])-:"2 gXT cfXX1@yXXS"_ 1]) ((0;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 ((gXR cfXX2@rfyXXS"_ 1])-:"3 gXT cfXX2@yXXS"_ 1]) ((0;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 ((gXR cfXX3@rfyXXS"_ 1])-:"4 gXT cfXX3@yXXS"_ 1]) ((0;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 ((gXR cfXX4@rfyXXS"_ 1])-:"5 gXT cfXX4@yXXS"_ 1]) ((0;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 ((gXR cfXX5@rfyXXS"_ 1])-:"6 gXT cfXX5@yXXS"_ 1]) ((0;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. ... script experimentalR.ijs ... rfx0=:((cy0^2:)+(cy1^2:)+cy2^2:)^0.5"_ rfx1=:arctan@(cy2,((cy0^2:)+cy1^2:)^0.5"_) rfx2=:arctan@(cy0,cy1) rfx3=:cy3 rfxc=:rfx0,rfx1,rfx2,rfx3
NB. ... script experimentalR.ijs ... cy0XX=:cy0;1 0 0 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: cy1XX=:cy1;0 1 0 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: cy2XX=:cy2;0 0 1 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: cy3XX=:cy3;0 0 0 1;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
NB. ... script experimentalR.ijs ... rfaV06=:cy0^2: rfaV07=:cy1^2: rfaV08=:cy2^2: rfaV06XX=:(cy0^2:);((2*cy0),0,0,0:); (2 0 0 0,3 4$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfaV07XX=:(cy1^2:);(0,(2*cy1),0,0:);((1 4$0:),0 2 0 0,2 4$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfaV08XX=:(cy2^2:);(0,0,(2*cy2),0:);((2 4$0:),0 0 2 0,1 4$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
NB. ... script experimentalR.ijs ... rfaV09=:(cy0^2:)+(cy1^2:)+cy2^2: rfaV09XX=:rfaV06XX+&.>rfaV07XX+&.>rfaV08XX
NB. ... script experimentalR.ijs ... rfaV10=:rfaV09^0.5"_ rfaV09U0=: rfaV09^0.5"_ rfaV09U1=: 0.5*rfaV09^0.5+_1: rfaV09U2=: (0.5+_1:)*0.5*rfaV09^0.5+_2: rfaV09U3=: (0.5+_2:)*(0.5+_1:)*0.5*rfaV09^0.5+_3: rfaV09U4=: (0.5+_3:)*(0.5+_2:)*(0.5+_1:)*0.5*rfaV09^0.5+_4: rfaV09U5=:(0.5+_4:)*(0.5+_3:)*(0.5+_2:)*(0.5+_1:)*0.5*rfaV09^0.5+_5: rfaV10XX=:[cfFN5(rfaV09U0;rfaV09U1;rfaV09U2;rfaV09U3;rfaV09U4;rfaV09U5),:rfaV09XX
NB. ... script experimentalR.ijs ... rfaV11=:rfaV10^_1: rfaV10U0=: rfaV10^_1: rfaV10U1=: _1*rfaV10^_2: rfaV10U2=: _2*_1*rfaV10^_3: rfaV10U3=: _3*_2*_1*rfaV10^_4: rfaV10U4=: _4*_3*_2*_1*rfaV10^_5: rfaV10U5=:_5*_4*_3*_2*_1*rfaV10^_6: rfaV11XX=:[cfFN5(rfaV10U0;rfaV10U1;rfaV10U2;rfaV10U3;rfaV10U4;rfaV10U5),:rfaV10XX
NB. ... script experimentalR.ijs ... rfaV12=:rfaV09^_1: rfaV09xU0=: rfaV09^_1: rfaV09xU1=: _1*rfaV09^_2: rfaV09xU2=: _2*_1*rfaV09^_3: rfaV09xU3=: _3*_2*_1*rfaV09^_4: rfaV09xU4=: _4*_3*_2*_1*rfaV09^_5: rfaV09xU5=:_5*_4*_3*_2*_1*rfaV09^_6: rfaV12XX=:[cfFN5(rfaV09xU0;rfaV09xU1;rfaV09xU2;rfaV09xU3;rfaV09xU4;rfaV09xU5),:rfaV09XX
NB. ... script experimentalR.ijs ... rfaV13=:(cy0^2:)+cy1^2: rfaV13XX=:rfaV06XX+&.>rfaV07XX
NB. ... script experimentalR.ijs ... rfaV14=:rfaV13^0.5"_ rfaV13U0=: rfaV13^0.5"_ rfaV13U1=: 0.5*rfaV13^0.5+_1: rfaV13U2=: (0.5+_1:)*0.5*rfaV13^0.5+_2: rfaV13U3=: (0.5+_2:)*(0.5+_1:)*0.5*rfaV13^0.5+_3: rfaV13U4=: (0.5+_3:)*(0.5+_2:)*(0.5+_1:)*0.5*rfaV13^0.5+_4: rfaV13U5=:(0.5+_4:)*(0.5+_3:)*(0.5+_2:)*(0.5+_1:)*0.5*rfaV13^0.5+_5: rfaV14XX=:[cfFN5(rfaV13U0;rfaV13U1;rfaV13U2;rfaV13U3;rfaV13U4;rfaV13U5),:rfaV13XX
NB. ... script experimentalR.ijs ... rfaV15=:rfaV14^_1: rfaV14U0=: rfaV14^_1: rfaV14U1=: _1*rfaV14^_2: rfaV14U2=: _2*_1*rfaV14^_3: rfaV14U3=: _3*_2*_1*rfaV14^_4: rfaV14U4=: _4*_3*_2*_1*rfaV14^_5: rfaV14U5=:_5*_4*_3*_2*_1*rfaV14^_6: rfaV15XX=:[cfFN5(rfaV14U0;rfaV14U1;rfaV14U2;rfaV14U3;rfaV14U4;rfaV14U5),:rfaV14XX
NB. ... script experimentalR.ijs ... rfaV16=:rfaV13^_1: rfaV13xU0=: rfaV13^_1: rfaV13xU1=: _1*rfaV13^_2: rfaV13xU2=: _2*_1*rfaV13^_3: rfaV13xU3=: _3*_2*_1*rfaV13^_4: rfaV13xU4=: _4*_3*_2*_1*rfaV13^_5: rfaV13xU5=:_5*_4*_3*_2*_1*rfaV13^_6: rfaV16XX=:[cfFN5(rfaV13xU0;rfaV13xU1;rfaV13xU2;rfaV13xU3;rfaV13xU4;rfaV13xU5),:rfaV13XX
NB. ... script experimentalR.ijs ... rfx0y0=:[cfMP5 cy0XX,:rfaV11XX rfx0y1=:[cfMP5 cy1XX,:rfaV11XX rfx0y2=:[cfMP5 cy2XX,:rfaV11XX rfx0y3=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfx0XX=:rfx0;}:@:(<@:>"1)@(0|:])@(rfx0y0,rfx0y1,rfx0y2,:rfx0y3)
NB. ... script experimentalR.ijs ... rfx1y0=:[cfMP5 cy2XX,:[cfMP5 rfaV12XX,:[cfMP5 cy0XX,:rfaV15XX rfx1y1=:[cfMP5 cy2XX,:[cfMP5 rfaV12XX,:[cfMP5 cy1XX,:rfaV15XX rfx1y2=:-&.>@([cfMP5 rfaV12XX,:rfaV14XX) rfx1y3=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfx1XX=:rfx1;}:@:(<@:>"1)@(0|:])@(rfx1y0,rfx1y1,rfx1y2,:rfx1y3)
NB. ... script experimentalR.ijs ... rfx2y0=:-&.>@([cfMP5 cy1XX,:rfaV16XX) rfx2y1=: ([cfMP5 cy0XX,:rfaV16XX) rfx2y2=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfx2y3=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfx2XX=:rfx2;}:@:(<@:>"1)@(0|:])@(rfx2y0,rfx2y1,rfx2y2,:rfx2y3)
NB. ... script experimentalR.ijs ... rfx3y0=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfx3y1=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfx3y2=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfx3y3=:1;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: rfx3XX=:rfx3;}:@:(<@:>"1)@(0|:])@(rfx3y0,rfx3y1,rfx3y2,:rfx3y3)
NB. ... script experimentalR.ijs ... rfxXXS=:<@:>"1@(0|:])@(rfx0XX,rfx1XX,rfx2XX,:rfx3XX)
NB. ... execute (ijx) ... gXRAll=:,:@(0 0 0 0 0 0 0 0 0 0"_) 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"_ ((gXR cfXX0@rfxXXS"_ 1])(((2^_44);2^_44)qteq[;])"1 gXT cfXX0@xXXS"_ 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 ((gXR cfXX1@rfxXXS"_ 1])(((2^_44);2^_44)qteq[;])"2 gXT cfXX1@xXXS"_ 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 ((gXR cfXX2@rfxXXS"_ 1])(((2^_44);2^_43)qteq[;])"3 gXT cfXX2@xXXS"_ 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 ((gXR cfXX3@rfxXXS"_ 1])(((2^_44);2^_43)qteq[;])"4 gXT cfXX3@xXXS"_ 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 ((gXR cfXX4@rfxXXS"_ 1])(((2^_44);2^_36)qteq[;])"5 gXT cfXX4@xXXS"_ 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 ((gXR cfXX5@rfxXXS"_ 1])(((2^_44);2^_32)qteq[;])"6 gXT cfXX5@xXXS"_ 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 experimentalR.ijs ... rfyXX=:<@:>"1@(0|:])@:(rfyXXS"_ 1) rfxXX=:<@:>"1@(0|:])@:(rfxXXS"_ 1) hkxR00=:rfyXX,:([rfxXX rfyc"_ 1) hkyR00=:([rfyXX rfxc"_ 1),:rfxXX
NB. ... execute (ijx) ...
gXRAll=:,:@(0 0 0 0 0 0 0 0 0 0"_)
xCpts=:_ 1 3 26,_ 0.1p1 0.9p1 26,_ 0 2p1 26,:_ 0 20 26"_
A=:(gXR([ydx hkxR00)]) ((0;50"_)pTRandom xCpts)''
B=:(gXR((0|:[:(gXR([(0{])@ypts hkxR00),:@])D.1])"_ 1)]) ((0;50"_)pTRandom xCpts)''
A (((2^_21);2^_18)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=:(gXR([ydxdx hkxR00)]) ((0;50"_)pTRandom xCpts)''
B=:(gXR((0|:[:(gXR([(0{])@ydx hkxR00),:@])D.1])"_ 1)]) ((0;50"_)pTRandom xCpts)''
A (((2^_21);2^_18)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=:(gXR([ydxdxdx hkxR00)]) ((0;50"_)pTRandom xCpts)''
B=:(gXR((0|:[:(gXR([(0{])@ydxdx hkxR00),:@])D.1])"_ 1)]) ((0;50"_)pTRandom xCpts)''
A (((2^_21);2^_18)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=:(gXR([ydxdxdxdx hkxR00)]) ((0;50"_)pTRandom xCpts)''
B=:(gXR((0|:[:(gXR([(0{])@ydxdxdx hkxR00),:@])D.1])"_ 1)]) ((0;50"_)pTRandom xCpts)''
A (((2^_21);2^_18)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=:(gXR([ydxdxdxdxdx hkxR00)]) ((0;50"_)pTRandom xCpts)''
B=:(gXR((0|:[:(gXR([(0{])@ydxdxdxdx hkxR00),:@])D.1])"_ 1)]) ((0;50"_)pTRandom xCpts)''
A (((2^_21);2^_18)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. ... execute (ijx) ...
gXRAll=:,:@(0 0 0 0 0 0 0 0 0 0"_)
yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_
A=:(gXR([xdy hkyR00)]) ((0;50"_)pTRandom yCpts)''
B=:(gXR((0|:[:(gXR([(0{])@xpts hkyR00),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_44);2^_22)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=:(gXR([xdydy hkyR00)]) ((0;50"_)pTRandom yCpts)''
B=:(gXR((0|:[:(gXR([(0{])@xdy hkyR00),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_27);2^_15)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=:(gXR([xdydydy hkyR00)]) ((0;50"_)pTRandom yCpts)''
B=:(gXR((0|:[:(gXR([(0{])@xdydy hkyR00),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_44);2^_15)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=:(gXR([xdydydydy hkyR00)]) ((0;50"_)pTRandom yCpts)''
B=:(gXR((0|:[:(gXR([(0{])@xdydydy hkyR00),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_27);2^_14)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=:(gXR([xdydydydydy hkyR00)]) ((0;50"_)pTRandom yCpts)''
B=:(gXR((0|:[:(gXR([(0{])@xdydydydy hkyR00),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_44);2^_12)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
Download: File:LTER0800E.txt
Download: File:LTER0801C.txt
Download: File:LTER0802C.txt
Download: File:LTER0803C.txt
Download: File:LTER0804C.txt
Download: File:LTER0805C.txt
Download: File:LTER0806C.txt
Download: File:LTER0807C.txt
Download: File:LTER0808C.txt
Download: File:LTER0809C.txt