home *** CD-ROM | disk | FTP | other *** search
/ CICA 1994 September / CICA_Shareware_for_Windows_Walnut_Creek_September_1994.iso / win3 / excel / we0820.exe / BLEND.XLA (.txt) next >
Excel Spreadsheet  |  1993-06-17  |  15KB  |  275 lines
  1. Sheet: 
  2. (0, 4)        New_X_Values
  3. (0, 5)        New_Y_Values
  4. (1, 4)        1
  5. (1, 5)        1.8
  6. (2, 4)        1.09090909090909
  7. (2, 5)        1.78272727272727
  8. (3, 4)        1.18181818181818
  9. (3, 5)        1.76363636363636
  10. (4, 0)        Names
  11. (4, 1)        Formulas
  12. (4, 2)        Comments
  13. (4, 4)        1.27272727272727
  14. (4, 5)        1.74272727272727
  15. (5, 0)        
  16. (5, 1)        
  17. (5, 2)        
  18. (5, 4)        1.36363636363636
  19. (5, 5)        1.72
  20. (6, 4)        1.45454545454546
  21. (6, 5)        1.69545454545455
  22. (7, 0)        
  23. (7, 1)        BLEND
  24. (7, 2)        
  25. (7, 4)        1.54545454545455
  26. (7, 5)        1.66909090909091
  27. (8, 4)        1.63636363636364
  28. (8, 5)        1.64090909090909
  29. (9, 1)        TRUE
  30. (9, 4)        1.72727272727273
  31. (9, 5)        1.61090909090909
  32. (10, 4)        1.81818181818182
  33. (10, 5)        1.57909090909091
  34. (11, 1)        TRUE
  35. (11, 2)        Get array of X Values
  36. (11, 4)        1.90909090909091
  37. (11, 5)        1.54545454545455
  38. (12, 1)        TRUE
  39. (12, 2)        Get array of Y Values
  40. (12, 4)        2
  41. (12, 5)        1.51
  42. (13, 1)        TRUE
  43. (13, 2)        Get number of intermediate points
  44. (13, 4)        2.09090909090909
  45. (13, 5)        1.47036063110443
  46. (14, 4)        2.18181818181818
  47. (14, 5)        1.42511645379414
  48. (15, 1)        TRUE
  49. (15, 2)        Check if data is in columns
  50. (15, 4)        2.27272727272727
  51. (15, 5)        1.37568745304283
  52. (16, 4)        2.36363636363636
  53. (16, 5)        1.32349361382419
  54. (17, 1)        FALSE
  55. (17, 2)        If not transpose it
  56. (17, 4)        2.45454545454546
  57. (17, 5)        1.26995492111195
  58. (18, 4)        2.54545454545455
  59. (18, 5)        1.21649135987979
  60. (19, 1)        FALSE
  61. (19, 4)        2.63636363636364
  62. (19, 5)        1.16452291510143
  63. (20, 4)        2.72727272727273
  64. (20, 5)        1.11546957175056
  65. (21, 1)        TRUE
  66. (21, 2)        Check if data is in columns
  67. (21, 4)        2.81818181818182
  68. (21, 5)        1.0707513148009
  69. (22, 4)        2.90909090909091
  70. (22, 5)        1.03178812922615
  71. (23, 1)        FALSE
  72. (23, 2)        If not transpose it
  73. (23, 4)        3
  74. (23, 5)        1
  75. (24, 4)        3.09090909090909
  76. (24, 5)        0.974004507888805
  77. (25, 1)        FALSE
  78. (25, 4)        3.18181818181818
  79. (25, 5)        0.951457550713749
  80. (26, 4)        3.27272727272727
  81. (26, 5)        0.932336589030804
  82. (27, 1)        TRUE
  83. (27, 2)        Check if number of intermediates left blank
  84. (27, 4)        3.36363636363636
  85. (27, 5)        0.916619083395943
  86. (28, 4)        3.45454545454545
  87. (28, 5)        0.904282494365139
  88. (29, 1)        FALSE
  89. (29, 2)        Set default to 4
  90. (29, 4)        3.54545454545455
  91. (29, 5)        0.895304282494365
  92. (30, 4)        3.63636363636364
  93. (30, 5)        0.889661908339594
  94. (31, 1)        TRUE
  95. (31, 4)        3.72727272727273
  96. (31, 5)        0.8873328324568
  97. (32, 4)        3.81818181818182
  98. (32, 5)        0.888294515401953
  99. (33, 1)        TRUE
  100. (33, 2)        Calculate step value
  101. (33, 4)        3.90909090909091
  102. (33, 5)        0.892524417731029
  103. (34, 4)        4
  104. (34, 5)        0.9
  105. (35, 1)        TRUE
  106. (35, 4)        4.09090909090909
  107. (35, 5)        0.911495116453794
  108. (36, 4)        4.18181818181818
  109. (36, 5)        0.927498121712998
  110. (37, 1)        TRUE
  111. (37, 2)        Set point counter to zero
  112. (37, 4)        4.27272727272727
  113. (37, 5)        0.94755822689707
  114. (38, 4)        4.36363636363636
  115. (38, 5)        0.97122464312547
  116. (39, 1)        TRUE
  117. (39, 2)        Go through each curve
  118. (39, 4)        4.45454545454546
  119. (39, 5)        0.998046581517656
  120. (40, 4)        4.54545454545454
  121. (40, 5)        1.02757325319309
  122. (41, 1)        TRUE
  123. (41, 2)        Check for special first curve case
  124. (41, 4)        4.63636363636364
  125. (41, 5)        1.05935386927122
  126. (42, 4)        4.72727272727273
  127. (42, 5)        1.09293764087153
  128. (43, 1)        TRUE
  129. (43, 2)        Set special start case
  130. (43, 4)        4.81818181818182
  131. (43, 5)        1.12787377911345
  132. (44, 1)        TRUE
  133. (44, 4)        4.90909090909091
  134. (44, 5)        1.16371149511645
  135. (45, 4)        5
  136. (45, 5)        1.2
  137. (46, 1)        TRUE
  138. (46, 2)        Check for only 4 points
  139. (46, 4)        5.09090909090909
  140. (46, 5)        1.23869271224643
  141. (47, 4)        5.18181818181818
  142. (47, 5)        1.28144252441773
  143. (48, 1)        FALSE
  144. (48, 2)        Set special end case
  145. (48, 4)        5.27272727272727
  146. (48, 5)        1.32734785875282
  147. (49, 4)        5.36363636363636
  148. (49, 5)        1.37550713749061
  149. (50, 1)        FALSE
  150. (50, 4)        5.45454545454545
  151. (50, 5)        1.42501878287002
  152. (51, 4)        5.54545454545455
  153. (51, 5)        1.47498121712998
  154. (52, 1)        TRUE
  155. (52, 2)        Check for special last curve case
  156. (52, 4)        5.63636363636364
  157. (52, 5)        1.52449286250939
  158. (53, 4)        5.72727272727273
  159. (53, 5)        1.57265214124718
  160. (54, 1)        TRUE
  161. (54, 4)        5.81818181818182
  162. (54, 5)        1.61855747558227
  163. (55, 1)        TRUE
  164. (55, 2)        Set special end case
  165. (55, 4)        5.90909090909091
  166. (55, 5)        1.66130728775357
  167. (56, 4)        6
  168. (56, 5)        1.7
  169. (57, 1)        TRUE
  170. (57, 4)        6.09090909090909
  171. (57, 5)        1.73553719008264
  172. (58, 4)        6.18181818181818
  173. (58, 5)        1.76942148760331
  174. (59, 1)        TRUE
  175. (59, 2)        Set start and end to normal values
  176. (59, 4)        6.27272727272727
  177. (59, 5)        1.80165289256198
  178. (60, 1)        TRUE
  179. (60, 4)        6.36363636363636
  180. (60, 5)        1.83223140495868
  181. (61, 4)        6.45454545454546
  182. (61, 5)        1.86115702479339
  183. (62, 1)        TRUE
  184. (62, 4)        6.54545454545455
  185. (62, 5)        1.88842975206612
  186. (63, 4)        6.63636363636364
  187. (63, 5)        1.91404958677686
  188. (64, 1)        TRUE
  189. (64, 4)        6.72727272727273
  190. (64, 5)        1.93801652892562
  191. (65, 1)        TRUE
  192. (65, 4)        6.81818181818182
  193. (65, 5)        1.9603305785124
  194. (66, 1)        TRUE
  195. (66, 4)        6.90909090909091
  196. (66, 5)        1.98099173553719
  197. (67, 1)        TRUE
  198. (67, 4)        7
  199. (67, 5)        2
  200. (68, 1)        TRUE
  201. (69, 1)        TRUE
  202. (70, 1)        TRUE
  203. (71, 1)        TRUE
  204. (73, 1)        TRUE
  205. (73, 2)        Go through each intermediate
  206. (75, 1)        TRUE
  207. (75, 2)        Increase point counter
  208. (77, 1)        TRUE
  209. (77, 2)        Calculate new x value
  210. (78, 1)        TRUE
  211. (78, 2)        Calculate new y value
  212. (80, 1)        TRUE
  213. (80, 2)        Store value in output array
  214. (81, 1)        TRUE
  215. (81, 2)        Store value in output array
  216. (83, 1)        TRUE
  217. (85, 1)        TRUE
  218. (87, 1)        TRUE
  219. (87, 2)        Return array
  220. (89, 0)        
  221. (89, 1)        Parametric_Overhauser_X
  222. (89, 2)        
  223. (91, 1)        TRUE
  224. (92, 1)        TRUE
  225. (93, 1)        TRUE
  226. (94, 1)        TRUE
  227. (95, 1)        TRUE
  228. (97, 1)        TRUE
  229. (97, 2)        Calculate first 2nd order curve
  230. (98, 1)        TRUE
  231. (98, 2)        Calculate second 2nd order curve
  232. (100, 1)        TRUE
  233. (100, 2)        If intermediate lies to left of data
  234. (102, 1)        TRUE
  235. (102, 2)        Just use first curve
  236. (104, 1)        TRUE
  237. (104, 2)        If intermediate lies to right of data
  238. (106, 1)        TRUE
  239. (106, 2)        Just use last curve
  240. (108, 1)        TRUE
  241. (110, 1)        TRUE
  242. (110, 2)        Blend both curves based upon intermediate
  243. (112, 1)        TRUE
  244. (114, 1)        TRUE
  245. (114, 2)        Return x value
  246. (116, 0)        
  247. (116, 1)        Parametric_Overhauser_Y
  248. (116, 2)        
  249. (117, 0)        
  250. (117, 1)        
  251. (117, 2)        
  252. (118, 1)        TRUE
  253. (119, 1)        TRUE
  254. (120, 1)        TRUE
  255. (121, 1)        TRUE
  256. (122, 1)        TRUE
  257. (124, 1)        TRUE
  258. (124, 2)        Calculate first 2nd order curve
  259. (125, 1)        TRUE
  260. (125, 2)        Calculate second 2nd order curve
  261. (127, 1)        TRUE
  262. (127, 2)        If intermediate lies to left of data
  263. (129, 1)        TRUE
  264. (129, 2)        Just use first curve
  265. (131, 1)        TRUE
  266. (131, 2)        If intermediate lies to right of data
  267. (133, 1)        TRUE
  268. (133, 2)        Just use last curve
  269. (135, 1)        TRUE
  270. (137, 1)        TRUE
  271. (137, 2)        Blend both curves based upon intermediate
  272. (139, 1)        TRUE
  273. (141, 1)        TRUE
  274. (141, 2)        Return y value
  275.