TAILIEUCHUNG - Excel for Scientists and Engineers phần 5

Thủ tục này có chứa mã, không tìm thấy trong các thủ tục khác trong cuốn sách này, cho phép các vĩ mô để chấp nhận một phương trình đa thức như một tham chiếu đến một ô có chứa công thức hoặc là một tham chiếu đến một tế bào có chứa một công thức như văn bản. | 170 EXCEL NUMERICAL METHODS This procedure contains code not found in other procedures in this book that allows the macro to accept a polynomial equation as a reference to a cell that contains a formula or as a reference to a cell that contains a formula as text. The procedure also handles an implicit reference. Option Explicit Function Bairstow equation reference Obtains the coefficients of a regular polynomial maximum order 6 . Polynomial is a cell formula. Polynomial can contain cell references or names. Poynomial can be text. Reference can be a cell reference or a name. Dim A As Double Root As Double Dim J As Integer N As Integer Dim p1 As Integer p2 As Integer p3 As Integer Dim expnumber As Integer ParenFlag As Integer Dim R As Integer c As Integer Dim FormulaText As string RefText As string NameText As string Dim char As string term As string ReDim A 6 GET equation EITHER AS CELL FORMULA OR AS TEXT. If equation Then FormulaText equation If in quotes remove them. If Asc Left FormulaText 1 34 Then _ FormulaText Mid FormulaText 2 Len FormulaText -1 Else FormulaText EndIf If Left FormulaText 1 Then FormulaText Mid FormulaText 2 1024 FormulaText FormulaText xlA1 XIA1 _ xIAbsolute FormulaText FormulaText remove all spaces GET THE NAME CORRESPONDING TO reference NameText On Error Resume Next Handles case where no name has been assigned NameText On Error GoTo 0 NameText Mid NameText lnStr 1 NameText I 1 HANDLE CASE WHERE reference IS A RANGE by finding cell in same row or column as cell containing function. If 1 Then R Set reference lntersect reference Range R R Elself 1 Then c Set reference lntersect reference Range C C CHAPTER 8 ROOTS OF EQUATIONS 171 End If RefText reference. Address PARSE THE FORMULA INTO TERMS pointers p1 beginning p2 end of string. FormulaText FormulaText .add extra .

TỪ KHÓA LIÊN QUAN
TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.