User:Tom Allen/ta/AddendumW01P03

From J Wiki
Jump to navigation Jump to search


GW01P0300C.jpg


NB. ... script experimentalW01.ijs ...

zSbQ50=:zSRb00*zSbQ36

zSbQ50XX=:[cfMP4 zSRb00XX,:zSbQ36XX


GW01P0301C.jpg


NB. ... script experimentalW01.ijs ...

zSbQ51=:zSbQ35^_0.5"_

zSbQ35xU0=:                                      zSbQ35^_0.5"_
zSbQ35xU1=:                                 _0.5*zSbQ35^_0.5+_1:
zSbQ35xU2=:                      (_0.5+_1:)*_0.5*zSbQ35^_0.5+_2:
zSbQ35xU3=:           (_0.5+_2:)*(_0.5+_1:)*_0.5*zSbQ35^_0.5+_3:
zSbQ35xU4=:(_0.5+_3:)*(_0.5+_2:)*(_0.5+_1:)*_0.5*zSbQ35^_0.5+_4:

zSbQ51XX=:[cfFN4(zSbQ35xU0;zSbQ35xU1;zSbQ35xU2;zSbQ35xU3;zSbQ35xU4;_"_),:zSbQ35XX


GW01P0302C.jpg


NB. ... script experimentalW01.ijs ...

zSbQ52=:cy1*zSbQ51

zSbQ52XX=:[cfMP4 cy1XX,:zSbQ51XX


GW01P0303C.jpg


NB. ... script experimentalW01.ijs ...

zSbQ53=:zSbQ32*zSbQ51

zSbQ53XX=:[cfMP4 zSbQ32XX,:zSbQ51XX


GW01P0304C.jpg


NB. ... script experimentalW01.ijs ...

zSbQ54=:zSRb00*zSRb06*%@zSRb07

zSbQ54XX=:(zSRb00*zSRb06*%@zSRb07);((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_


GW01P0305F.jpg


NB. ... script experimentalW01.ijs ...

zSbQ55=:-@zSbQ52*zSbQ50*zSbQ30*zSbQ20*zSbQ17

zSbQ55XX=:[cfMP4 -&.>@zSbQ52XX,:[cfMP4 zSbQ50XX,:[cfMP4 zSbQ30XX,:[cfMP4 zSbQ20XX,:zSbQ17XX


zSbQ56=:zSbQ53*zSbQ50*zSbQ30*zSbQ20*zSbQ17

zSbQ56XX=:[cfMP4 zSbQ53XX,:[cfMP4 zSbQ50XX,:[cfMP4 zSbQ30XX,:[cfMP4 zSbQ20XX,:zSbQ17XX


zSbQ57=:0:

zSbQ57XX=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_


zSbQ58=:-@zSbQ54*zSbQ30*zSbQ20*zSbQ17

zSbQ58XX=:[cfMP4 -&.>@zSbQ54XX,:[cfMP4 zSbQ30XX,:[cfMP4 zSbQ20XX,:zSbQ17XX


... an energy distribution in the URF ...


GW01P0306K.png


load 'plot'

pd 'reset'

zS0=:,:@(0 1 2 8 0 0 0 0 _0.00"_)    NB. ... does not use b8 ...

yCpts=:_ 0.1 3 301,_ 0 0 0,_ 0 0 0,:_ 10p1 10p1 0"_

pd (zS0(cy0"_ 1;zSbQ30"_ 1)]) pTtotal yCpts''

zS0=:,:@(0 1 2 8 0 0 0 0 _0.01"_)    NB. ... uses b8 / not what is wanted here ...

yCpts=:_ 0.1 3 301,_ 0 0 0,_ 0 0 0,:_ 10p1 10p1 0"_

pd (zS0(cy0"_ 1;zSbQ30"_ 1)]) pTtotal yCpts''

pd 'pdf'


JW01P0300F.png


NB. ... script experimentalW01.ijs ...

NB. ... ensure that "b8" is 0 ...

zSbQ59XX=:<@:>"1@(0|:])@((0(<0 8)}[)(zSbQ55XX,zSbQ56XX,zSbQ57XX,:zSbQ58XX)])



Download: File:LW01P0300C.txt
Download: File:LW01P0301C.txt
Download: File:LW01P0302C.txt
Download: File:LW01P0303C.txt
Download: File:LW01P0304C.txt
Download: File:LW01P0305F.txt
Download: File:LW01P0306K.txt