home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR6
/
WE0820.ZIP
/
WE0820.EXE
/
BLEND.XLA
(
.txt
)
next >
Wrap
Excel Spreadsheet
|
1993-06-17
|
15KB
|
275 lines
Sheet:
(0, 4) New_X_Values
(0, 5) New_Y_Values
(1, 4) 1
(1, 5) 1.8
(2, 4) 1.09090909090909
(2, 5) 1.78272727272727
(3, 4) 1.18181818181818
(3, 5) 1.76363636363636
(4, 0) Names
(4, 1) Formulas
(4, 2) Comments
(4, 4) 1.27272727272727
(4, 5) 1.74272727272727
(5, 0)
(5, 1)
(5, 2)
(5, 4) 1.36363636363636
(5, 5) 1.72
(6, 4) 1.45454545454546
(6, 5) 1.69545454545455
(7, 0)
(7, 1) BLEND
(7, 2)
(7, 4) 1.54545454545455
(7, 5) 1.66909090909091
(8, 4) 1.63636363636364
(8, 5) 1.64090909090909
(9, 1) TRUE
(9, 4) 1.72727272727273
(9, 5) 1.61090909090909
(10, 4) 1.81818181818182
(10, 5) 1.57909090909091
(11, 1) TRUE
(11, 2) Get array of X Values
(11, 4) 1.90909090909091
(11, 5) 1.54545454545455
(12, 1) TRUE
(12, 2) Get array of Y Values
(12, 4) 2
(12, 5) 1.51
(13, 1) TRUE
(13, 2) Get number of intermediate points
(13, 4) 2.09090909090909
(13, 5) 1.47036063110443
(14, 4) 2.18181818181818
(14, 5) 1.42511645379414
(15, 1) TRUE
(15, 2) Check if data is in columns
(15, 4) 2.27272727272727
(15, 5) 1.37568745304283
(16, 4) 2.36363636363636
(16, 5) 1.32349361382419
(17, 1) FALSE
(17, 2) If not transpose it
(17, 4) 2.45454545454546
(17, 5) 1.26995492111195
(18, 4) 2.54545454545455
(18, 5) 1.21649135987979
(19, 1) FALSE
(19, 4) 2.63636363636364
(19, 5) 1.16452291510143
(20, 4) 2.72727272727273
(20, 5) 1.11546957175056
(21, 1) TRUE
(21, 2) Check if data is in columns
(21, 4) 2.81818181818182
(21, 5) 1.0707513148009
(22, 4) 2.90909090909091
(22, 5) 1.03178812922615
(23, 1) FALSE
(23, 2) If not transpose it
(23, 4) 3
(23, 5) 1
(24, 4) 3.09090909090909
(24, 5) 0.974004507888805
(25, 1) FALSE
(25, 4) 3.18181818181818
(25, 5) 0.951457550713749
(26, 4) 3.27272727272727
(26, 5) 0.932336589030804
(27, 1) TRUE
(27, 2) Check if number of intermediates left blank
(27, 4) 3.36363636363636
(27, 5) 0.916619083395943
(28, 4) 3.45454545454545
(28, 5) 0.904282494365139
(29, 1) FALSE
(29, 2) Set default to 4
(29, 4) 3.54545454545455
(29, 5) 0.895304282494365
(30, 4) 3.63636363636364
(30, 5) 0.889661908339594
(31, 1) TRUE
(31, 4) 3.72727272727273
(31, 5) 0.8873328324568
(32, 4) 3.81818181818182
(32, 5) 0.888294515401953
(33, 1) TRUE
(33, 2) Calculate step value
(33, 4) 3.90909090909091
(33, 5) 0.892524417731029
(34, 4) 4
(34, 5) 0.9
(35, 1) TRUE
(35, 4) 4.09090909090909
(35, 5) 0.911495116453794
(36, 4) 4.18181818181818
(36, 5) 0.927498121712998
(37, 1) TRUE
(37, 2) Set point counter to zero
(37, 4) 4.27272727272727
(37, 5) 0.94755822689707
(38, 4) 4.36363636363636
(38, 5) 0.97122464312547
(39, 1) TRUE
(39, 2) Go through each curve
(39, 4) 4.45454545454546
(39, 5) 0.998046581517656
(40, 4) 4.54545454545454
(40, 5) 1.02757325319309
(41, 1) TRUE
(41, 2) Check for special first curve case
(41, 4) 4.63636363636364
(41, 5) 1.05935386927122
(42, 4) 4.72727272727273
(42, 5) 1.09293764087153
(43, 1) TRUE
(43, 2) Set special start case
(43, 4) 4.81818181818182
(43, 5) 1.12787377911345
(44, 1) TRUE
(44, 4) 4.90909090909091
(44, 5) 1.16371149511645
(45, 4) 5
(45, 5) 1.2
(46, 1) TRUE
(46, 2) Check for only 4 points
(46, 4) 5.09090909090909
(46, 5) 1.23869271224643
(47, 4) 5.18181818181818
(47, 5) 1.28144252441773
(48, 1) FALSE
(48, 2) Set special end case
(48, 4) 5.27272727272727
(48, 5) 1.32734785875282
(49, 4) 5.36363636363636
(49, 5) 1.37550713749061
(50, 1) FALSE
(50, 4) 5.45454545454545
(50, 5) 1.42501878287002
(51, 4) 5.54545454545455
(51, 5) 1.47498121712998
(52, 1) TRUE
(52, 2) Check for special last curve case
(52, 4) 5.63636363636364
(52, 5) 1.52449286250939
(53, 4) 5.72727272727273
(53, 5) 1.57265214124718
(54, 1) TRUE
(54, 4) 5.81818181818182
(54, 5) 1.61855747558227
(55, 1) TRUE
(55, 2) Set special end case
(55, 4) 5.90909090909091
(55, 5) 1.66130728775357
(56, 4) 6
(56, 5) 1.7
(57, 1) TRUE
(57, 4) 6.09090909090909
(57, 5) 1.73553719008264
(58, 4) 6.18181818181818
(58, 5) 1.76942148760331
(59, 1) TRUE
(59, 2) Set start and end to normal values
(59, 4) 6.27272727272727
(59, 5) 1.80165289256198
(60, 1) TRUE
(60, 4) 6.36363636363636
(60, 5) 1.83223140495868
(61, 4) 6.45454545454546
(61, 5) 1.86115702479339
(62, 1) TRUE
(62, 4) 6.54545454545455
(62, 5) 1.88842975206612
(63, 4) 6.63636363636364
(63, 5) 1.91404958677686
(64, 1) TRUE
(64, 4) 6.72727272727273
(64, 5) 1.93801652892562
(65, 1) TRUE
(65, 4) 6.81818181818182
(65, 5) 1.9603305785124
(66, 1) TRUE
(66, 4) 6.90909090909091
(66, 5) 1.98099173553719
(67, 1) TRUE
(67, 4) 7
(67, 5) 2
(68, 1) TRUE
(69, 1) TRUE
(70, 1) TRUE
(71, 1) TRUE
(73, 1) TRUE
(73, 2) Go through each intermediate
(75, 1) TRUE
(75, 2) Increase point counter
(77, 1) TRUE
(77, 2) Calculate new x value
(78, 1) TRUE
(78, 2) Calculate new y value
(80, 1) TRUE
(80, 2) Store value in output array
(81, 1) TRUE
(81, 2) Store value in output array
(83, 1) TRUE
(85, 1) TRUE
(87, 1) TRUE
(87, 2) Return array
(89, 0)
(89, 1) Parametric_Overhauser_X
(89, 2)
(91, 1) TRUE
(92, 1) TRUE
(93, 1) TRUE
(94, 1) TRUE
(95, 1) TRUE
(97, 1) TRUE
(97, 2) Calculate first 2nd order curve
(98, 1) TRUE
(98, 2) Calculate second 2nd order curve
(100, 1) TRUE
(100, 2) If intermediate lies to left of data
(102, 1) TRUE
(102, 2) Just use first curve
(104, 1) TRUE
(104, 2) If intermediate lies to right of data
(106, 1) TRUE
(106, 2) Just use last curve
(108, 1) TRUE
(110, 1) TRUE
(110, 2) Blend both curves based upon intermediate
(112, 1) TRUE
(114, 1) TRUE
(114, 2) Return x value
(116, 0)
(116, 1) Parametric_Overhauser_Y
(116, 2)
(117, 0)
(117, 1)
(117, 2)
(118, 1) TRUE
(119, 1) TRUE
(120, 1) TRUE
(121, 1) TRUE
(122, 1) TRUE
(124, 1) TRUE
(124, 2) Calculate first 2nd order curve
(125, 1) TRUE
(125, 2) Calculate second 2nd order curve
(127, 1) TRUE
(127, 2) If intermediate lies to left of data
(129, 1) TRUE
(129, 2) Just use first curve
(131, 1) TRUE
(131, 2) If intermediate lies to right of data
(133, 1) TRUE
(133, 2) Just use last curve
(135, 1) TRUE
(137, 1) TRUE
(137, 2) Blend both curves based upon intermediate
(139, 1) TRUE
(141, 1) TRUE
(141, 2) Return y value