User:Tom Allen/ta/AddendumX05P01

---

Supplement to the page AddendumW00R05 (the energy distributions W00 and W01)

---

---

Implementing

---

load 'plot'

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

pd 'reset'

pd (];(]^_1.0"_)                )     r=.x5Rx2 0.9  4 10000    NB. ... blue ...

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

pd (];(]^_1.0"_)*1-^@-@(]^8.0"_))     r=.x5Rx2 0    4 10000    NB. ... red ...

pd (];-@((]^_2.0"_)                )) r=.x5Rx2 0.9  4 10000    NB. ... green ...

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

pd (];-@((]^_2.0"_)*1-^@-@(]^8.0"_))) r=.x5Rx2 0    4 10000    NB. ... purple ...

pd 'pdf'

---

Continuous Functions (Heading in 'Essays/Christoffel/Christoffel01')

---

load 'plot'

pd 'reset'

pd (];(]^2:)*^@-@(]^8:)) ((0{])+((1{])-0{])*(i.@>:%])@(2{])) 0  0.03 10000    NB. ... blue ...
pd (];(]^1:)*^@-@(]^8:)) ((0{])+((1{])-0{])*(i.@>:%])@(2{])) 0  0.03 10000    NB. ... red ...

pd 'pdf'

load 'plot'

pd 'reset'

pd (];(]^_6:)*1-^@-@(]^8:)) ((0{])+((1{])-0{])*(i.@>:%])@(2{])) 0  0.03 10000    NB. ... blue ...
pd (];(]^_7:)*1-^@-@(]^8:)) ((0{])+((1{])-0{])*(i.@>:%])@(2{])) 0  0.03 10000    NB. ... red ...

pd 'pdf'

... shows calculation limit near zero ...

---

Download: File:LX05P0100F.txt
Download: File:LX05P0101H.txt
Download: File:LX05P0102I.txt
Download: File:LX05P0103D.txt
Download: File:LX05P0104C.txt

---

---

Next Page: User:Tom Allen/ta/AddendumX05P02
Prev Page: User:Tom Allen/ta/AddendumX05P00

---