User:Tom Allen/TensorExperimentsR08

From J Wiki
Jump to navigation Jump to search


GTER0800E.jpg


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


GTER0801C.jpg


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)


GTER0802C.jpg


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)


GTER0803C.jpg


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)


GTER0804C.jpg


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


GTER0805C.jpg


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


GTER0806C.jpg


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)


GTER0807C.jpg


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)


GTER0808C.jpg


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)


GTER0809C.jpg


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