User:Tom Allen/ta/AddendumW00R07

NB. ... script experimentalR.ijs ...

gXRa00=:(<0 0){[
gXRa01=:(<0 1){[
gXRa02=:(<0 2){[
gXRa03=:(<0 3){[
gXRa04=:(<0 4){[
gXRa05=:(<0 5){[
gXRa06=:(<0 6){[
gXRa07=:(<0 7){[
gXRa08=:(<0 8){[
gXRa09=:(<0 9){[

gXRa00XX=:gXRa00;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
gXRa01XX=:gXRa01;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
gXRa02XX=:gXRa02;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
gXRa03XX=:gXRa03;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
gXRa04XX=:gXRa04;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
gXRa05XX=:gXRa05;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
gXRa06XX=:gXRa06;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
gXRa07XX=:gXRa07;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
gXRa08XX=:gXRa08;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
gXRa09XX=:gXRa09;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_

NB. ... script experimentalR.ijs ...

rfaV00=:gXRa01*cx0*sin@cx1

rfaV00XX=:[cfMP4 gXRa01XX,:[cfMP4 cx0XX,:[cfFN4(sin@cx1;cos@cx1;-@sin@cx1;-@cos@cx1;sin@cx1;_"_),:cx1XX

NB. ... script experimentalR.ijs ...

rfaV01=:rfaV00^gXRa03

rfaV00U0=:                                              rfaV00^gXRa03
rfaV00U1=:                                       gXRa03*rfaV00^gXRa03+_1:
rfaV00U2=:                          (gXRa03+_1:)*gXRa03*rfaV00^gXRa03+_2:
rfaV00U3=:             (gXRa03+_2:)*(gXRa03+_1:)*gXRa03*rfaV00^gXRa03+_3:
rfaV00U4=:(gXRa03+_3:)*(gXRa03+_2:)*(gXRa03+_1:)*gXRa03*rfaV00^gXRa03+_4:

rfaV01XX=:[cfFN4(rfaV00U0;rfaV00U1;rfaV00U2;rfaV00U3;rfaV00U4;_"_),:rfaV00XX

NB. ... script experimentalR.ijs ...

rfaV02=:1-^@-@rfaV01

rfaV02XX=:[cfFN4((1+-@^@-@rfaV01);^@-@rfaV01;-@^@-@rfaV01;^@-@rfaV01;-@^@-@rfaV01;_"_),:rfaV01XX

NB. ... script experimentalR.ijs ...

rfaV03=:rfaV00^gXRa02

rfaV00xU0=:                                              rfaV00^gXRa02
rfaV00xU1=:                                       gXRa02*rfaV00^gXRa02+_1:
rfaV00xU2=:                          (gXRa02+_1:)*gXRa02*rfaV00^gXRa02+_2:
rfaV00xU3=:             (gXRa02+_2:)*(gXRa02+_1:)*gXRa02*rfaV00^gXRa02+_3:
rfaV00xU4=:(gXRa02+_3:)*(gXRa02+_2:)*(gXRa02+_1:)*gXRa02*rfaV00^gXRa02+_4:

rfaV03XX=:[cfFN4(rfaV00xU0;rfaV00xU1;rfaV00xU2;rfaV00xU3;rfaV00xU4;_"_),:rfaV00XX

NB. ... script experimentalR.ijs ...

rfaV04=:rfaV03^_1:

rfaV03U0=:            rfaV03^_1:
rfaV03U1=:         _1*rfaV03^_2:
rfaV03U2=:      _2*_1*rfaV03^_3:
rfaV03U3=:   _3*_2*_1*rfaV03^_4:
rfaV03U4=:_4*_3*_2*_1*rfaV03^_5:

rfaV04XX=:[cfFN4(rfaV03U0;rfaV03U1;rfaV03U2;rfaV03U3;rfaV03U4;_"_),:rfaV03XX

NB. ... script experimentalR.ijs ...

rfaV05=:rfaV02*rfaV04

rfaV05XX=:[cfMP4 rfaV02XX,:rfaV04XX

---

Download: File:LTER0700D.txt
Download: File:LTER0701C.txt
Download: File:LTER0702C.txt
Download: File:LTER0703C.txt
Download: File:LTER0704C.txt
Download: File:LTER0705D.txt

---