CICA 1994 September/CICA_Shareware_for_Windows_Walnut_Creek_September_1994.iso/win3/excel/we0820.exe/INTERPOL.XLA

Excel Spreadsheet | 1993-06-29 | 14KB | 283 lines

Sheet:
(4, 0)        Names
(4, 1)        Formulas
(4, 2)        Comments
(4, 4)        Command Name
(4, 5)        Macro Name
(4, 6)        Blank
(4, 7)        Status
(4, 8)        Description
(4, 10)        Box Name
(4, 11)        ITEM
(4, 12)        XPOS
(4, 13)        YPOS
(4, 14)        WID
(4, 15)        HEI
(4, 16)        TEXT
(4, 17)        INIT/RESULT
(4, 18)
(5, 0)
(5, 1)
(5, 2)
(5, 4)
(5, 5)
(5, 6)
(5, 7)
(5, 8)
(5, 10)
(5, 11)
(5, 12)
(5, 13)
(5, 14)
(5, 15)
(5, 16)
(5, 17)
(5, 18)
(6, 4)        &Interpolate...
(6, 5)        Main
(6, 8)        Interpolate Data Set
(6, 10)        Main_Dialog
(6, 14)        306
(6, 15)        236
(6, 16)        Data Interpolate
(6, 17)        2
(7, 0)
(7, 1)        Auto_Open
(7, 2)
(7, 11)        5
(7, 12)        10
(7, 13)        6
(7, 16)        Known X Values
(8, 11)        10
(8, 12)        10
(8, 13)        21
(8, 14)        160
(9, 1)        FALSE
(9, 2)        Check if menu command exists
(9, 11)        5
(9, 12)        10
(9, 13)        45
(9, 16)        Known Y Values
(10, 1)
(10, 11)        10
(10, 12)        10
(10, 13)        60
(10, 14)        160
(11, 1)        FALSE
(11, 2)        Add 'Interpolate...' to Standard Bar
(11, 11)        14
(11, 12)        11
(11, 13)        151
(11, 14)        258
(11, 15)        51
(11, 16)        Options
(12, 1)
(12, 11)        13
(12, 16)        Include Original Points
(12, 17)        TRUE
(13, 1)        FALSE
(13, 11)        13
(13, 16)        Create Chart
(13, 17)        TRUE
(14, 1)
(14, 11)        5
(14, 12)        11
(14, 13)        128
(14, 16)        Number of Intermediate Points
(15, 1)        FALSE
(15, 2)        Check if Add-in is open
(15, 11)        7
(15, 12)        252
(15, 13)        125
(15, 14)        36
(15, 17)        10
(16, 1)
(16, 11)        1
(16, 12)        59
(16, 13)        209
(16, 14)        88
(16, 16)        OK
(17, 1)        FALSE
(17, 2)        Check if Add-in is used in Windows environment
(17, 11)        2
(17, 12)        157
(17, 13)        209
(17, 14)        88
(17, 16)        Cancel
(18, 1)
(18, 11)        17
(18, 12)        249
(18, 13)        28
(18, 16)        1
(19, 1)        FALSE
(19, 2)        Open Add-in using DOS Convention
(19, 11)        5
(19, 12)        11
(19, 13)        85
(19, 16)        Output Reference
(20, 11)        10
(20, 12)        11
(20, 13)        100
(20, 14)        160
(21, 1)        FALSE
(23, 1)        FALSE
(23, 2)        Open Add-in using MAC Convention
(25, 1)        FALSE
(26, 1)
(27, 1)        FALSE
(29, 1)        FALSE
(31, 0)
(31, 1)        Main
(31, 2)
(32, 0)
(32, 1)
(32, 2)
(33, 0)
(33, 1)        FALSE
(33, 2)
(34, 0)
(34, 1)
(34, 2)
(35, 1)        FALSE
(37, 1)        FALSE
(37, 2)        Turn off screen updating
(39, 1)        FALSE
(39, 2)        Generate neccessary data
(41, 1)        FALSE
(41, 2)        Check if create chart selected
(43, 1)        FALSE
(43, 2)        If yes then create chart from data
(45, 1)        FALSE
(47, 1)        FALSE
(47, 2)        Turn on screen updating
(49, 1)        FALSE
(51, 1)        FALSE
(53, 0)
(53, 1)        Get_User_Input
(53, 2)
(55, 1)        FALSE
(55, 2)        Set selection to null value
(57, 1)        FALSE
(57, 2)        Set flag
(59, 1)        FALSE
(59, 2)        While okay not clicked and data invalid
(60, 2)        and cancel not selected
(61, 1)        FALSE
(61, 2)        Display main dialog box
(63, 1)        FALSE
(63, 2)        Validate users selection
(65, 1)        FALSE
(67, 1)        FALSE
(69, 0)
(69, 1)        Validate_Data
(69, 2)
(71, 1)        FALSE
(71, 2)        Set default condition to false
(73, 1)        FALSE
(73, 2)        Define variables based on selection
(75, 1)        FALSE
(75, 2)        Check if X Values have been specified
(77, 1)        FALSE
(77, 2)        Alert user to error
(78, 1)        FALSE
(78, 2)        Place cursor in X values box
(80, 1)        FALSE
(80, 2)        Check if Y Values have been specified
(82, 1)        FALSE
(82, 2)        Alert user to error
(83, 1)        FALSE
(83, 2)        Place cursor in Y values box
(85, 1)        FALSE
(85, 2)        Check that at least 4 points exist
(87, 1)        FALSE
(87, 2)        Alert user to error
(88, 1)        FALSE
(88, 2)        Place cursor in X values box
(90, 1)        FALSE
(90, 2)        Check that data will not overwrite existing
(92, 1)        FALSE
(92, 2)        Alert user to error
(93, 1)        FALSE
(93, 2)        Place cursor in output reference box
(95, 1)        FALSE
(97, 1)        FALSE
(97, 2)        Set return condition to true
(99, 1)        FALSE
(101, 1)        FALSE
(103, 0)
(103, 1)        Extract_Data
(103, 2)
(105, 1)        FALSE
(105, 2)        Check if sheet name has been returned
(107, 1)        FALSE
(107, 2)        If not then assume active sheet
(109, 1)        FALSE
(111, 1)        FALSE
(111, 2)        If yes then just define as same
(113, 1)        FALSE
(115, 1)        FALSE
(115, 2)        Check if sheet name has been returned
(117, 1)        FALSE
(117, 2)        If not then assume active sheet
(119, 1)        FALSE
(121, 1)        FALSE
(121, 2)        If yes then just define as same
(123, 1)        FALSE
(125, 1)        FALSE
(125, 2)        Check if sheet name has been returned
(127, 1)        FALSE
(127, 2)        If not then assume active sheet
(129, 1)        FALSE
(131, 1)        FALSE
(131, 2)        If yes then just define as same
(133, 1)        FALSE
(135, 1)        FALSE
(135, 2)        Count number of points
(136, 1)        FALSE
(136, 2)        Determine size of output range
(138, 1)        FALSE
(140, 0)
(140, 1)        Create_Chart
(140, 2)
(142, 1)        FALSE
(142, 2)        Check if 'Include Originals' checked
(144, 1)        FALSE
(144, 2)        If yes select an extra column
(146, 1)        FALSE
(148, 1)        FALSE
(148, 2)        Select top left of data sheet
(150, 1)        FALSE
(152, 1)        FALSE
(152, 2)        Create new X-Y Chart
(154, 1)        FALSE
(154, 2)        Select first series
(155, 1)        FALSE
(155, 2)        Remove tick marks
(157, 1)        FALSE
(157, 2)        Deselect series
(159, 1)        FALSE
(161, 0)
(161, 1)        Create_Data
(161, 2)
(162, 0)
(162, 1)
(162, 2)
(163, 1)        FALSE
(163, 2)        Set calculation to manual
(165, 1)        FALSE
(165, 2)        Select output range
(167, 1)        FALSE
(167, 2)        Add BLEND function to sheet
(169, 1)        FALSE
(169, 2)        If 'Include Originals' checked
(171, 1)        FALSE
(171, 2)        Go through each original point
(173, 1)        FALSE
(173, 2)        Add formula
(175, 1)        FALSE
(175, 2)        Get next point
(177, 1)        FALSE
(179, 1)        FALSE
(179, 2)        Set calculation to automatic
(181, 1)        FALSE