User:Tom Allen/ta/AddendumW02P02
< User:Tom Allen | ta
Jump to navigation
Jump to search
AddendumW02 and AddendumX06 are self-contained.
NB. ... script experimentalW02.ijs ... pUKb00=:(<0 0){[ pUKb01=:(<0 1){[ pUKb02=:(<0 2){[ pUKb03=:(<0 3){[ pUKb04=:(<0 4){[ pUKb05=:(<0 5){[ pUKb06=:(<0 6){[ pUKb07=:(<0 7){[ NB. ... pUKb08 specifies the value of q for the spiral ... pUKb08=:(<0 8){[ pUKb00XX=:pUKb00;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: pUKb01XX=:pUKb01;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: pUKb02XX=:pUKb02;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: pUKb03XX=:pUKb03;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: pUKb04XX=:pUKb04;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: pUKb05XX=:pUKb05;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: pUKb06XX=:pUKb06;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: pUKb07XX=:pUKb07;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: pUKb08XX=:pUKb08;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
NB. ... script experimentalW02.ijs ... NB. ... constants ... pUKb09=:(1+pUKb08^2:)^_0.5"_ pUKb09XX=:pUKb09;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: pUKb10=:pUKb00*pUKb07^_1: pUKb10XX=:pUKb10;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: pUKb11=:1+-@pUKb02 pUKb11XX=:pUKb11;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: pUKb12=:0: pUKb12XX=:pUKb12;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
...
...
load 'plot' pd 'reset' x6pts=.(0{])+((1{])-0{])*(i.@>:%])@(2{]) pd (];(]^_1:)) r=.x6pts 0.9 4 10000 NB. ... blue ... NB. ... a multiplier for the energy flow as a function of r ... pd (];(]^_1:)*1-^@-@(]^8:)) r=.x6pts 0.0 4 10000 NB. ... red ... pd 'pdf'
...
load 'plot' pd 'reset' x6pts=.(0{])+((1{])-0{])*(i.@>:%])@(2{]) pd (];(^@(]^1:)+^@-@(]^1:))^_1"_) h=.x6pts _5 5 100 pd 'pdf'
...
load 'plot' pd 'reset' x6pts=.(0{])+((1{])-0{])*(i.@>:%])@(2{]) b6=. 2"_ b7=._1"_ x3=.1p1"_ D0=.(1&o.)@((b6*])+b7*x3) D1=.(2&o.)@((b6*])+b7*x3) pd (];D0 ) x2=.x6pts 0 2p1 100 NB. ... sin(2x2-1x3) [blue] ... pd (];D1 ) x2=.x6pts 0 2p1 100 NB. ... cos(2x2-1x3) [red] ... pd (];D0+D1) x2=.x6pts 0 2p1 100 NB. ... sin(2x2-1x3)+cos(2x2-1x3) [green] ... pd 'pdf'
load 'plot' pd 'reset' x6pts=.(0{])+((1{])-0{])*(i.@>:%])@(2{]) b6=. 2"_ b7=._1"_ x3=.1p1"_ D0=.(1&o.)@((b6*])+b7*x3) D1=.(2&o.)@((b6*])+b7*x3) pd (]; D0 ) x2=.x6pts 0 2p1 100 NB. ... sin(2x2-1x3) [blue] ... pd (];-@D1 ) x2=.x6pts 0 2p1 100 NB. ... -cos(2x2-1x3) [red] ... pd (];-@D1+D0) x2=.x6pts 0 2p1 100 NB. ... -cos(2x2-1x3)+sin(2x2-1x3) [green] ... pd 'pdf'
...
Download: File:LW02P02000C.txt
Download: File:LW02P02001C.txt
Download: File:LW02P0201L.ijs
Download: File:LW02P0202H.ijs
Download: File:LW02P0203E.ijs
Download: File:LW02P0204F.ijs
Download: File:LW02P0205F.ijs
Download: File:LW02P0206I.txt
Next Page: User:Tom Allen/ta/AddendumW02P03
Prev Page: User:Tom Allen/ta/AddendumW02P01