home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Archive Magazine 1996
/
ARCHIVE_96.iso
/
discs
/
gerald
/
9_08
/
Recursion
/
SequenceR
< prev
Wrap
Text File
|
1996-02-24
|
3KB
|
121 lines
%OP%VS4.13 (28-Apr-92), Gerald L Fitton, R4000 5966 9904 9938
%OP%TNN
%OP%WRN
%OP%DP4
%OP%IRN
%OP%GRY
%OP%PL0
%OP%HM0
%OP%FM0
%OP%BM0
%OP%LM4
%OP%PT1
%OP%PDPipeLine
%OP%WC50,934,224,1012,1,11,0,0
%CO:A,12,0%
%R%xá=
%R%f(x) =
%V%%R%B2
%V%%R%A6+1
%V%%R%A7+1
%V%%R%A8+1
%V%%R%A9+1
%V%%R%A10+1
%V%%R%A11+1
%V%%R%A12+1
%V%%R%A13+1
%V%%R%A14+1
%V%%R%A15+1
%V%%R%A16+1
%V%%R%A17+1
%V%%R%A18+1
%V%%R%A19+1
%V%%R%A20+1
%V%%R%A21+1
%V%%R%A22+1
%V%%R%A23+1
%V%%R%A24+1
%V%%R%A25+1
%V%%R%A26+1
%V%%R%A27+1
%V%%R%A28+1
%V%%R%A29+1
%V%%R%A30+1
%V%%R%A31+1
%V%%R%A32+1
%V%%R%A33+1
%V%%R%A34+1
%V%%R%A35+1
%V%%R%A36+1
%V%%R%A37+1
%V%%R%A38+1
%V%%R%A39+1
%V%%R%A40+1
%V%%R%A41+1
%V%%R%A42+1
%V%%R%A43+1
%V%%R%A44+1
%V%%R%A45+1
%V%%R%A46+1
%V%%R%A47+1
%V%%R%A48+1
%V%%R%A49+1
%V%%R%A50+1
%V%%R%A51+1
%V%%R%A52+1
%CO:B,12,0%
%V%%R%-6.0001
%V%%R%B6
%V%%R%%D4%if(A6>-1,sqr(1+B7*A6),-sqr(1+B7*A6))
%V%%R%%D4%if(A7>-1,sqr(1+B8*A7),-sqr(1+B8*A7))
%V%%R%%D4%if(A8>-1,sqr(1+B9*A8),-sqr(1+B9*A8))
%V%%R%%D4%if(A9>-1,sqr(1+B10*A9),-sqr(1+B10*A9))
%V%%R%%D4%if(A10>-1,sqr(1+B11*A10),-sqr(1+B11*A10))
%V%%R%%D4%if(A11>-1,sqr(1+B12*A11),-sqr(1+B12*A11))
%V%%R%%D4%if(A12>-1,sqr(1+B13*A12),-sqr(1+B13*A12))
%V%%R%%D4%if(A13>-1,sqr(1+B14*A13),-sqr(1+B14*A13))
%V%%R%%D4%if(A14>-1,sqr(1+B15*A14),-sqr(1+B15*A14))
%V%%R%%D4%if(A15>-1,sqr(1+B16*A15),-sqr(1+B16*A15))
%V%%R%%D4%if(A16>-1,sqr(1+B17*A16),-sqr(1+B17*A16))
%V%%R%%D4%if(A17>-1,sqr(1+B18*A17),-sqr(1+B18*A17))
%V%%R%%D4%if(A18>-1,sqr(1+B19*A18),-sqr(1+B19*A18))
%V%%R%%D4%if(A19>-1,sqr(1+B20*A19),-sqr(1+B20*A19))
%V%%R%%D4%if(A20>-1,sqr(1+B21*A20),-sqr(1+B21*A20))
%V%%R%%D4%if(A21>-1,sqr(1+B22*A21),-sqr(1+B22*A21))
%V%%R%%D4%if(A22>-1,sqr(1+B23*A22),-sqr(1+B23*A22))
%V%%R%%D4%if(A23>-1,sqr(1+B24*A23),-sqr(1+B24*A23))
%V%%R%%D4%if(A24>-1,sqr(1+B25*A24),-sqr(1+B25*A24))
%V%%R%%D4%if(A25>-1,sqr(1+B26*A25),-sqr(1+B26*A25))
%V%%R%%D4%if(A26>-1,sqr(1+B27*A26),-sqr(1+B27*A26))
%V%%R%%D4%if(A27>-1,sqr(1+B28*A27),-sqr(1+B28*A27))
%V%%R%%D4%if(A28>-1,sqr(1+B29*A28),-sqr(1+B29*A28))
%V%%R%%D4%if(A29>-1,sqr(1+B30*A29),-sqr(1+B30*A29))
%V%%R%%D4%if(A30>-1,sqr(1+B31*A30),-sqr(1+B31*A30))
%V%%R%%D4%if(A31>-1,sqr(1+B32*A31),-sqr(1+B32*A31))
%V%%R%%D4%if(A32>-1,sqr(1+B33*A32),-sqr(1+B33*A32))
%V%%R%%D4%if(A33>-1,sqr(1+B34*A33),-sqr(1+B34*A33))
%V%%R%%D4%if(A34>-1,sqr(1+B35*A34),-sqr(1+B35*A34))
%V%%R%%D4%if(A35>-1,sqr(1+B36*A35),-sqr(1+B36*A35))
%V%%R%%D4%if(A36>-1,sqr(1+B37*A36),-sqr(1+B37*A36))
%V%%R%%D4%if(A37>-1,sqr(1+B38*A37),-sqr(1+B38*A37))
%V%%R%%D4%if(A38>-1,sqr(1+B39*A38),-sqr(1+B39*A38))
%V%%R%%D4%if(A39>-1,sqr(1+B40*A39),-sqr(1+B40*A39))
%V%%R%%D4%if(A40>-1,sqr(1+B41*A40),-sqr(1+B41*A40))
%V%%R%%D4%if(A41>-1,sqr(1+B42*A41),-sqr(1+B42*A41))
%V%%R%%D4%if(A42>-1,sqr(1+B43*A42),-sqr(1+B43*A42))
%V%%R%%D4%if(A43>-1,sqr(1+B44*A43),-sqr(1+B44*A43))
%V%%R%%D4%if(A44>-1,sqr(1+B45*A44),-sqr(1+B45*A44))
%V%%R%%D4%if(A45>-1,sqr(1+B46*A45),-sqr(1+B46*A45))
%V%%R%%D4%if(A46>-1,sqr(1+B47*A46),-sqr(1+B47*A46))
%V%%R%%D4%if(A47>-1,sqr(1+B48*A47),-sqr(1+B48*A47))
%V%%R%%D4%if(A48>-1,sqr(1+B49*A48),-sqr(1+B49*A48))
%V%%R%%D4%if(A49>-1,sqr(1+B50*A49),-sqr(1+B50*A49))
%V%%R%%D4%if(A50>-1,sqr(1+B51*A50),-sqr(1+B51*A50))
%V%%R%%D4%if(A51>-1,sqr(1+B52*A51),-sqr(1+B52*A51))
%V%%R%%D4%if(A52>-1,sqr(1+B53*A52),-sqr(1+B53*A52))
%V%%R%%D4%if(A53>-1,sqr(1+B54*A53),-sqr(1+B54*A53))