home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / discs / gerald / 9_08 / Recursion / SequenceR < prev   
Text File  |  1996-02-24  |  3KB  |  121 lines
  1. %OP%VS4.13 (28-Apr-92), Gerald L Fitton, R4000 5966 9904 9938 
  2. %OP%TNN
  3. %OP%WRN
  4. %OP%DP4
  5. %OP%IRN
  6. %OP%GRY
  7. %OP%PL0
  8. %OP%HM0
  9. %OP%FM0
  10. %OP%BM0
  11. %OP%LM4
  12. %OP%PT1
  13. %OP%PDPipeLine
  14. %OP%WC50,934,224,1012,1,11,0,0
  15. %CO:A,12,0%
  16. %R%xá=
  17. %R%f(x) =
  18.  
  19.  
  20. %V%%R%B2
  21. %V%%R%A6+1
  22. %V%%R%A7+1
  23. %V%%R%A8+1
  24. %V%%R%A9+1
  25. %V%%R%A10+1
  26. %V%%R%A11+1
  27. %V%%R%A12+1
  28. %V%%R%A13+1
  29. %V%%R%A14+1
  30. %V%%R%A15+1
  31. %V%%R%A16+1
  32. %V%%R%A17+1
  33. %V%%R%A18+1
  34. %V%%R%A19+1
  35. %V%%R%A20+1
  36. %V%%R%A21+1
  37. %V%%R%A22+1
  38. %V%%R%A23+1
  39. %V%%R%A24+1
  40. %V%%R%A25+1
  41. %V%%R%A26+1
  42. %V%%R%A27+1
  43. %V%%R%A28+1
  44. %V%%R%A29+1
  45. %V%%R%A30+1
  46. %V%%R%A31+1
  47. %V%%R%A32+1
  48. %V%%R%A33+1
  49. %V%%R%A34+1
  50. %V%%R%A35+1
  51. %V%%R%A36+1
  52. %V%%R%A37+1
  53. %V%%R%A38+1
  54. %V%%R%A39+1
  55. %V%%R%A40+1
  56. %V%%R%A41+1
  57. %V%%R%A42+1
  58. %V%%R%A43+1
  59. %V%%R%A44+1
  60. %V%%R%A45+1
  61. %V%%R%A46+1
  62. %V%%R%A47+1
  63. %V%%R%A48+1
  64. %V%%R%A49+1
  65. %V%%R%A50+1
  66. %V%%R%A51+1
  67. %V%%R%A52+1
  68. %CO:B,12,0%
  69. %V%%R%-6.0001
  70. %V%%R%B6
  71.  
  72.  
  73. %V%%R%%D4%if(A6>-1,sqr(1+B7*A6),-sqr(1+B7*A6))
  74. %V%%R%%D4%if(A7>-1,sqr(1+B8*A7),-sqr(1+B8*A7))
  75. %V%%R%%D4%if(A8>-1,sqr(1+B9*A8),-sqr(1+B9*A8))
  76. %V%%R%%D4%if(A9>-1,sqr(1+B10*A9),-sqr(1+B10*A9))
  77. %V%%R%%D4%if(A10>-1,sqr(1+B11*A10),-sqr(1+B11*A10))
  78. %V%%R%%D4%if(A11>-1,sqr(1+B12*A11),-sqr(1+B12*A11))
  79. %V%%R%%D4%if(A12>-1,sqr(1+B13*A12),-sqr(1+B13*A12))
  80. %V%%R%%D4%if(A13>-1,sqr(1+B14*A13),-sqr(1+B14*A13))
  81. %V%%R%%D4%if(A14>-1,sqr(1+B15*A14),-sqr(1+B15*A14))
  82. %V%%R%%D4%if(A15>-1,sqr(1+B16*A15),-sqr(1+B16*A15))
  83. %V%%R%%D4%if(A16>-1,sqr(1+B17*A16),-sqr(1+B17*A16))
  84. %V%%R%%D4%if(A17>-1,sqr(1+B18*A17),-sqr(1+B18*A17))
  85. %V%%R%%D4%if(A18>-1,sqr(1+B19*A18),-sqr(1+B19*A18))
  86. %V%%R%%D4%if(A19>-1,sqr(1+B20*A19),-sqr(1+B20*A19))
  87. %V%%R%%D4%if(A20>-1,sqr(1+B21*A20),-sqr(1+B21*A20))
  88. %V%%R%%D4%if(A21>-1,sqr(1+B22*A21),-sqr(1+B22*A21))
  89. %V%%R%%D4%if(A22>-1,sqr(1+B23*A22),-sqr(1+B23*A22))
  90. %V%%R%%D4%if(A23>-1,sqr(1+B24*A23),-sqr(1+B24*A23))
  91. %V%%R%%D4%if(A24>-1,sqr(1+B25*A24),-sqr(1+B25*A24))
  92. %V%%R%%D4%if(A25>-1,sqr(1+B26*A25),-sqr(1+B26*A25))
  93. %V%%R%%D4%if(A26>-1,sqr(1+B27*A26),-sqr(1+B27*A26))
  94. %V%%R%%D4%if(A27>-1,sqr(1+B28*A27),-sqr(1+B28*A27))
  95. %V%%R%%D4%if(A28>-1,sqr(1+B29*A28),-sqr(1+B29*A28))
  96. %V%%R%%D4%if(A29>-1,sqr(1+B30*A29),-sqr(1+B30*A29))
  97. %V%%R%%D4%if(A30>-1,sqr(1+B31*A30),-sqr(1+B31*A30))
  98. %V%%R%%D4%if(A31>-1,sqr(1+B32*A31),-sqr(1+B32*A31))
  99. %V%%R%%D4%if(A32>-1,sqr(1+B33*A32),-sqr(1+B33*A32))
  100. %V%%R%%D4%if(A33>-1,sqr(1+B34*A33),-sqr(1+B34*A33))
  101. %V%%R%%D4%if(A34>-1,sqr(1+B35*A34),-sqr(1+B35*A34))
  102. %V%%R%%D4%if(A35>-1,sqr(1+B36*A35),-sqr(1+B36*A35))
  103. %V%%R%%D4%if(A36>-1,sqr(1+B37*A36),-sqr(1+B37*A36))
  104. %V%%R%%D4%if(A37>-1,sqr(1+B38*A37),-sqr(1+B38*A37))
  105. %V%%R%%D4%if(A38>-1,sqr(1+B39*A38),-sqr(1+B39*A38))
  106. %V%%R%%D4%if(A39>-1,sqr(1+B40*A39),-sqr(1+B40*A39))
  107. %V%%R%%D4%if(A40>-1,sqr(1+B41*A40),-sqr(1+B41*A40))
  108. %V%%R%%D4%if(A41>-1,sqr(1+B42*A41),-sqr(1+B42*A41))
  109. %V%%R%%D4%if(A42>-1,sqr(1+B43*A42),-sqr(1+B43*A42))
  110. %V%%R%%D4%if(A43>-1,sqr(1+B44*A43),-sqr(1+B44*A43))
  111. %V%%R%%D4%if(A44>-1,sqr(1+B45*A44),-sqr(1+B45*A44))
  112. %V%%R%%D4%if(A45>-1,sqr(1+B46*A45),-sqr(1+B46*A45))
  113. %V%%R%%D4%if(A46>-1,sqr(1+B47*A46),-sqr(1+B47*A46))
  114. %V%%R%%D4%if(A47>-1,sqr(1+B48*A47),-sqr(1+B48*A47))
  115. %V%%R%%D4%if(A48>-1,sqr(1+B49*A48),-sqr(1+B49*A48))
  116. %V%%R%%D4%if(A49>-1,sqr(1+B50*A49),-sqr(1+B50*A49))
  117. %V%%R%%D4%if(A50>-1,sqr(1+B51*A50),-sqr(1+B51*A50))
  118. %V%%R%%D4%if(A51>-1,sqr(1+B52*A51),-sqr(1+B52*A51))
  119. %V%%R%%D4%if(A52>-1,sqr(1+B53*A52),-sqr(1+B53*A52))
  120. %V%%R%%D4%if(A53>-1,sqr(1+B54*A53),-sqr(1+B54*A53))
  121.