User:Tom Allen/ta/AddendumW02P02

---

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

---