User:Tom Allen/TensorExperimentsR04

load 'plot'

v=.pTsteps _ 1e_10 14 1000

H=.0.92"_
K=.1.15"_

A=.K*T*(]^2"_)*^@-@(]*H%K*T)%(1-^@-@(]*H%K*T))%(]*H%K*T)
B=.(]^3"_)*H*^@-@(]*H%K*T)

T=.0.78"_
pd (];A"0) v

T=.0.88"_
pd (];A"0) v

T=.0.98"_
pd (];A"0) v

T=.1.08"_
pd (];A"0) v

T=.1.18"_
pd (];A"0) v

T=.1.28"_
pd (];A"0) v

pd 'pdf'
pd 'show'

load 'plot'

P=.1.0"_

A=.(1+-@^@-@(]^P))*(]^P)^_1:
B=.%@A
C=.^@-@(]^P)
D=.B*C
E=.(]^2:)*B*C

v=.pTsteps _ 1e_10 10 1000
pd (];A"0) v

v=.pTsteps _ 1e_10 01 1000
pd (];B"0) v

v=.pTsteps _ 1e_10 10 1000
pd (];C"0) v

v=.pTsteps _ 1e_10 10 1000
pd (];D"0) v

v=.pTsteps _ 1e_10 10 1000
pd (];E"0) v

pd 'pdf'
pd 'show'

---

Download: File:LTER0400D.txt
Download: File:LTER0401C.txt

---