User:Tom Allen/ta/AddendumW03P02

---

AddendumW03 and AddendumX07 are self-contained.

---

NB. ... script experimentalW03.txt ...

qRKb00=:(<1 0){[
qRKb01=:(<1 1){[
qRKb02=:(<1 2){[
qRKb03=:(<1 3){[
qRKb04=:(<1 4){[
qRKb05=:(<1 5){[
qRKb06=:(<1 6){[
qRKb07=:(<1 7){[
NB. ... qRKb08 specifies the value of Q for the spiral ...
qRKb08=:(<1 8){[

qRKb00XX=:qRKb00;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
qRKb01XX=:qRKb01;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
qRKb02XX=:qRKb02;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
qRKb03XX=:qRKb03;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
qRKb04XX=:qRKb04;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
qRKb05XX=:qRKb05;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
qRKb06XX=:qRKb06;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
qRKb07XX=:qRKb07;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:
qRKb08XX=:qRKb08;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:

...

...

load 'plot'

pd 'reset'

w3pts=.(0{])+((1{])-0{])*(i.@>:%])@(2{])

pd (];(]^_1:))              r=.w3pts 0.9 4 10000    NB. ... blue ...

NB. ... a multiplier for the energy flow as a function of r ...

pd (];(]^_1:)*1-^@-@(]^8:)) r=.w3pts 0.0 4 10000    NB. ... red ...

pd 'canvas plot.html 666 500'

...

load 'plot'

pd 'reset'

w3pts=.(0{])+((1{])-0{])*(i.@>:%])@(2{])

pd (];0.5-(^@(]^1:)+^@-@(]^1:))^_1"_) h=.w3pts _5 5 100

pd 'canvas plot.html 666 500'

...

load 'plot'

pd 'reset'

w3pts=.(0{])+((1{])-0{])*(i.@>:%])@(2{])

b6=. 2"_
b7=._1"_

x3=.0p1"_

D0=.-@(2&o.)@((b6*])+b7*x3)+(1&o.)@((b6*])+b7*x3)
D1=.  (1&o.)@((b6*])+b7*x3)+(2&o.)@((b6*])+b7*x3)

pd (];D0) x2=.w3pts 0 2p1 100    NB. ... -cos(2x2-1x3)+sin(2x2-1x3) [blue] ...
pd (];D1) x2=.w3pts 0 2p1 100    NB. ...  sin(2x2-1x3)+cos(2x2-1x3) [red]  ...

pd 'canvas plot.html 666 500'

...

---

Download: File:LW03P0200C.txt
Download: File:LW03P0201C.txt
Download: File:LW03P0202C.txt
Download: File:LW03P0203D.txt
Download: File:LW03P0204C.txt
Download: File:LW03P0205C.txt
Download: File:LW03P0206D.txt

---

---

Next Page:
Prev Page: User:Tom Allen/ta/AddendumW03P01

---