User:Tom Allen/ta/AddendumW01P00
< User:Tom Allen | ta
Jump to navigation
Jump to search
NB. ... script experimentalW01.ijs ...
zSRb00=:(<0 0){[
zSRb01=:(<0 1){[
zSRb02=:(<0 2){[
zSRb03=:(<0 3){[
zSRb04=:(<0 4){[
zSRb05=:(<0 5){[
zSRb06=:(<0 6){[
zSRb07=:(<0 7){[
zSRb08=:(<0 8){[
zSRb00XX=:zSRb00;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
zSRb01XX=:zSRb01;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
zSRb02XX=:zSRb02;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
zSRb03XX=:zSRb03;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
zSRb04XX=:zSRb04;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
zSRb05XX=:zSRb05;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
zSRb06XX=:zSRb06;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
zSRb07XX=:zSRb07;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
zSRb08XX=:zSRb08;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
NB. ... script experimentalW01.ijs ... zSbQ01=:zSRb08*cy3 zSbQ01XX=:[cfMP4 zSRb08XX,:cy3XX
NB. ... script experimentalW01.ijs ... zSbQ02=:cy0+zSbQ01 zSbQ02XX=:cy0XX+&.>zSbQ01XX
NB. ... script experimentalW01.ijs ... zSbQ03=:zSbQ02^2: zSbQ02U0=: zSbQ02^2: zSbQ02U1=: 2*zSbQ02^2+_1: zSbQ02U2=: (2+_1:)*2*zSbQ02^2+_2: zSbQ02U3=: (2+_2:)*(2+_1:)*2*zSbQ02^2+_3: zSbQ02U4=:(2+_3:)*(2+_2:)*(2+_1:)*2*zSbQ02^2+_4: zSbQ03XX=:[cfFN4(zSbQ02U0;zSbQ02U1;zSbQ02U2;zSbQ02U3;zSbQ02U4;_"_),:zSbQ02XX
NB. ... script experimentalW01.ijs ... zSbQ04=:zSRb08*cy1 zSbQ04XX=:[cfMP4 zSRb08XX,:cy1XX
NB. ... script experimentalW01.ijs ... zSbQ05=:cy1^2: zSbQ05XX=:(cy1^2:);(0,(2*cy1),0,0:);((1 4$0:),0 2 0 0,2 4$0:);((3$4:)$0:);((4$4:)$0:);_"_
NB. ... script experimentalW01.ijs ... zSbQ06=:zSbQ03+zSbQ05 zSbQ06XX=:zSbQ03XX+&.>zSbQ05XX
NB. ... script experimentalW01.ijs ... zSbQ07=:zSbQ06^_1"_ zSbQ06U0=: zSbQ06^_1"_ zSbQ06U1=: _1*zSbQ06^_1+_1: zSbQ06U2=: (_1+_1:)*_1*zSbQ06^_1+_2: zSbQ06U3=: (_1+_2:)*(_1+_1:)*_1*zSbQ06^_1+_3: zSbQ06U4=:(_1+_3:)*(_1+_2:)*(_1+_1:)*_1*zSbQ06^_1+_4: zSbQ07XX=:[cfFN4(zSbQ06U0;zSbQ06U1;zSbQ06U2;zSbQ06U3;zSbQ06U4;_"_),:zSbQ06XX
NB. ... script experimentalW01.ijs ... zSbQ08=:-@cy1*zSbQ07 zSbQ08XX=:[cfMP4 -&.>@cy1XX,:zSbQ07XX
NB. ... script experimentalW01.ijs ... zSbQ09=:zSbQ02*zSbQ07 zSbQ09XX=:[cfMP4 zSbQ02XX,:zSbQ07XX
NB. ... script experimentalW01.ijs ... zSbQ10=:0: zSbQ10XX=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
NB. ... script experimentalW01.ijs ... zSbQ11=:-@zSbQ04*zSbQ07 zSbQ11XX=:[cfMP4 -&.>@zSbQ04XX,:zSbQ07XX
NB. ... script experimentalW01.ijs ...
zSbQ00=:arctan@(zSbQ02,cy1)
zSbQ00XX=:<@arctan@(zSbQ02,cy1),(<@:>"1)@(0|:])@:(((0 1 2 3{]),5{])"1)@(zSbQ08XX,zSbQ09XX,zSbQ10XX,:zSbQ11XX)
NB. ... script experimentalW01.ijs ... zSbQ12=:zSRb06*zSbQ00 zSbQ12XX=:[cfMP4 zSRb06XX,:zSbQ00XX
NB. ... script experimentalW01.ijs ... zSbQ13=:zSRb07*cy3 zSbQ13XX=:[cfMP4 zSRb07XX,:cy3XX
NB. ... script experimentalW01.ijs ... zSbQ14=:zSbQ12+zSbQ13 zSbQ14XX=:zSbQ12XX+&.>zSbQ13XX
NB. ... script experimentalW01.ijs ... zSbQ15=:sin@zSbQ14 zSbQ15XX=:[cfFN4(sin@zSbQ14;cos@zSbQ14;-@sin@zSbQ14;-@cos@zSbQ14;sin@zSbQ14;_"_),:zSbQ14XX
NB. ... script experimentalW01.ijs ... zSbQ16=:cos@zSbQ14 zSbQ16XX=:[cfFN4(cos@zSbQ14;-@sin@zSbQ14;-@cos@zSbQ14;sin@zSbQ14;cos@zSbQ14;_"_),:zSbQ14XX
NB. ... script experimentalW01.ijs ... zSbQ17=:zSbQ15+zSbQ16 zSbQ17XX=:zSbQ15XX+&.>zSbQ16XX
Download: File:LW01P0000I.txt
Download: File:LW01P0001D.txt
Download: File:LW01P0002F.txt
Download: File:LW01P0003E.txt
Download: File:LW01P0004D.txt
Download: File:LW01P0005C.txt
Download: File:LW01P0006C.txt
Download: File:LW01P0007D.txt
Download: File:LW01P0008C.txt
Download: File:LW01P0009C.txt
Download: File:LW01P0010D.txt
Download: File:LW01P0011F.txt
Download: File:LW01P0012C.txt
Download: File:LW01P0013C.txt
Download: File:LW01P0014C.txt
Download: File:LW01P0015C.txt
Download: File:LW01P0016C.txt
Download: File:LW01P0017C.txt