User:Tom Allen/ta/AddendumX03P02
< User:Tom Allen | ta
Jump to navigation
Jump to search
NB. ... script experimentalX03.ijs ...
uQX03C0=:([jNyXX([wXwc vZzc)"_ 1),:jNwXX
uQX03C1=:(0 1{]),jNhcvXX,jNgcvXX,jNhcnXX,:jNgcnXX
uQX03C2=:<@:>"1@(0|:])@:(zSbQ59XX"_ 1)
hkyX03C=:[(],OcAXX)([uQX03C1 uQX03C0),uQX03C2
NB. ... execute (ijx) ... uQ0=:1 1 2 8 1 1 8 _8 0,:0.9"_ xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_ NB. ... R is a tensor ... vA =:[R wRef vB0=:((0|:[)smx])"2 5 vB1=:((0|:[)smx])"2 5 vB2=:((0|:[)smx])"2 5 vB3=:((0|:[)smx])"2 5 vB4=:(( [)smx])"2 5 vB =:[(wdy vB4 ydw vB3 ydw vB2 ydw vB1 ydw vB0 R)yRef (uQ0([(vA(((2^_34);2^_28)qteq[;])"5 vB)hkyX03C)]) (uQ0 zfyc"_ 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
... for Maxwell's equations ...
NB. ... execute (ijx) ... uQ0=:1 1 2 8 1 1 8 _8 0,:0.9"_ xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_ *./^:3"3 (0=]) ((2^_44)qtsz]) (uQ0([(]+0|:])"2@:((0 1|:])"3)@(+/"1@((<0 1)|:])"5@R)yRef@hkyX03C)]) (uQ0 zfyc"_ 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 *./^:3"3 (0=]) ((2^_35)qtsz]) (uQ0([(]+0|:])"2@:((0 1|:])"3)@(+/"1@((<0 1)|:])"5@R)wRef@hkyX03C)]) (uQ0 zfyc"_ 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 *./^:3"3 (0=]) ((2^_44)qtsz]) (uQ0([(]+(0 1|:])+0|:])"3@(+/"1@((<0 1)|:])"5@R)yRef@hkyX03C)]) (uQ0 zfyc"_ 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 *./^:3"3 (0=]) ((2^_35)qtsz]) (uQ0([(]+(0 1|:])+0|:])"3@(+/"1@((<0 1)|:])"5@R)wRef@hkyX03C)]) (uQ0 zfyc"_ 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 experimentalX03.ijs ...
uQX03D0=:([jNyXX([wXwc vZzc)"_ 1),:jNwXX
uQX03D1=:(0 1{]),jNhcvXX,jNgcvXX,jNhcnXX,:jNgcnXX
uQX03D2=:<@:>"1@(0|:])@:(zSbQ59XX"_ 1(+&.>)"1(((1 1 1 1 1 1 1 _1 1,:1)*[)zSbQ59XX])"_ 1)
hkyX03D=:[(],OcAXX)([uQX03D1 uQX03D0),uQX03D2
NB. ... execute (ijx) ... uQ0=:1 1 2 8 1 1 8 _8 0,:0.9"_ xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_ NB. ... R is a tensor ... vA =:[R wRef vB0=:((0|:[)smx])"2 5 vB1=:((0|:[)smx])"2 5 vB2=:((0|:[)smx])"2 5 vB3=:((0|:[)smx])"2 5 vB4=:(( [)smx])"2 5 vB =:[(wdy vB4 ydw vB3 ydw vB2 ydw vB1 ydw vB0 R)yRef (uQ0([(vA(((2^_34);2^_31)qteq[;])"5 vB)hkyX03D)]) (uQ0 zfyc"_ 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
... for Maxwell's equations ...
NB. ... execute (ijx) ... uQ0=:1 1 2 8 1 1 8 _8 0,:0.9"_ xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_ *./^:3"3 (0=]) ((2^_44)qtsz]) (uQ0([(]+0|:])"2@:((0 1|:])"3)@(+/"1@((<0 1)|:])"5@R)yRef@hkyX03D)]) (uQ0 zfyc"_ 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 *./^:3"3 (0=]) ((2^_33)qtsz]) (uQ0([(]+0|:])"2@:((0 1|:])"3)@(+/"1@((<0 1)|:])"5@R)wRef@hkyX03D)]) (uQ0 zfyc"_ 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 *./^:3"3 (0=]) ((2^_44)qtsz]) (uQ0([(]+(0 1|:])+0|:])"3@(+/"1@((<0 1)|:])"5@R)yRef@hkyX03D)]) (uQ0 zfyc"_ 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 *./^:3"3 (0=]) ((2^_33)qtsz]) (uQ0([(]+(0 1|:])+0|:])"3@(+/"1@((<0 1)|:])"5@R)wRef@hkyX03D)]) (uQ0 zfyc"_ 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
Download: File:LX03P0200E.txt
Download: File:LX03P0201E.txt
Next Page: User:Tom Allen/ta/AddendumX03P03
Prev Page: User:Tom Allen/ta/AddendumX03P01