how to display pdf file in c# : Extract text from pdf to excel SDK Library service wpf asp.net windows dnn Excel46-part219

' Compute the partial differentials for the multi-parameter case
Else
ReDim D(1 To rP, 1 To rY) As Double
Dim YYValue As Variant
For i = 1 To rP
myRange1.Select
PPValue(i, 1) = PPValue(i, 1) * 1.000001
Selection.Value = PPValue
myRange3.Select
Dim YYValue As Variant
YYValue = Seleciton.Value
For j = 1 To rY
D(i, j) = (YYValue(j, 1) - YCValue(j, 1)) / (0.000001 * 
PPValue(i, 1))
Next j
PPValue(i, 1) = PPValue(i, 1) / 1.000001
Next i
myRange1.Select
Selection.Value = PPValue
ReDim DD(1 To rP, 1 To rP, 1 To rY) As Double
For i = 1 To rP
For ii = 1 To rP
For j = 1 To rY
DD(i, ii, j) = D(i, j) * D(ii, j)
Next j
Next ii
Next i
ReDim SDD(1 To rP, 1 To rP) As Double
ReDim SDDinv(1 To rP, 1 To rP) As Double
For i = 1 To rP
For ii = 1 To rP
SDD(i, ii) = 0
Next ii
Next i
For i = 1 To rP
For ii = 1 To rP
For j = 1 To rY
SDD(i, ii) = SDD(i, ii) + DD(i, ii, j)
Next j
Next ii
Next i
Call Invert(SDD, rP, SDDinv)
For i = 1 To rP
SPValue(i, 1) = SY * Sqr(SDDinv(i, i))
Next i
Dim Answer As String
If nn > 0 Then
Answer = MsgBox("There are data in the cells to the" _
& Chr(13) & "right of the sum of squares of the" _
10.8 More about Solver
447
Extract text from pdf to excel - extract text content from PDF file in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Feel Free to Extract Text from PDF Page, Page Region or the Whole PDF File
can't copy and paste text from pdf; get text from pdf online
Extract text from pdf to excel - VB.NET PDF Text Extract Library: extract text content from PDF file in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
How to Extract Text from PDF with VB.NET Sample Codes in .NET Application
copy text from protected pdf to word; copy pdf text to word document
& Chr(13) & "residuals. Can they be overwritten?", _
vbYesNo, "Overwrite?")
If Answer = vbYes Then nn = 0
End If
If n = 0 Then
myRange1.Select
Selection.Offset(0, 1).Select
Selection.Font.Italic = True
For i = 1 To rP
Selection.Value = SPValue
Next i
Else
For i = 1 To rP
MsgBox "The standard deviation of parameter #" & i & " is " _
& SPValue(i, 1)
Next i
End If
If n > 0 Then
Answer = MsgBox("There are data in the cells to the right of the” _
& Chr(13) & "Solver parameters. Can they be overwritten?", _
vbYesNo, "Overwrite?")
If Answer = vbYes Then nn = 0
End If
If nn = 0 Then
myRange2.Select
Selection.Offset(0, 1).Select
ActiveCell.Font.Italic = True
Selection.Value = SYY
Else
MsgBox "The standard deviation of the fit is " & SYY
End If
End If
myRange1.Select
Selection.Offset(0, 1).Select
End Sub
10.8b
Incorporating Solver into your macro
BecauseSolverissuchagenerallyusefultool,itmaybedesirabletocallit
frominsideamacro.Thiscanbeespeciallyhelpfuliniterativeprocedures,
whereSolvermustbecalledrepeatedly.InthemorerecentversionsofExcel
thisisindeedpossible.Itrequiresthatyouopenyourspreadsheet,selectthe
VBAeditor(withAlt+F11),and useT
ools⇒R
eferences.Intheresulting
References–VBAProjectdialogbox,underA
vailableReferences,findandacti-
vateSOLVER.xls.Todoso,clickonB
rowse,selectFilesoft
ype:MicrosoftExcel
Files(*.xls,*.xla)and,inLooki
n:,findwhereSolverislocated.Forexample,you
mayhavetodouble-clickonSystemdisk(C:),ProgramFiles,MicrosoftOffice,
Office,Library,andSolver.IntheFilen
amewindowtypeSolver.xla,andO
pen.
448
Some useful macros
VB.NET Create PDF from Excel Library to convert xlsx, xls to PDF
Editor; C#: WPF PDF Viewer; C#: Create PDF from Word; C#: Create PDF from Excel; PDF; C# Page: Insert PDF pages; C# Page: Delete PDF pages; C# Read: PDF Text Extract
get text from pdf file c#; copy text from protected pdf
C# PDF Image Extract Library: Select, copy, paste PDF images in C#
Image: Extract Image from PDF. |. Home ›› XDoc.PDF ›› C# PDF: Extract PDF Image. How to C#: Extract Image from PDF Document.
extract text from pdf c#; copy text pdf
This willbringyouback to the References–VBAProject dialog box,with
SOLVER.xlsatthebottomofthelist.MoveitupwiththePriorityupbutton,so
thatallselecteditemsaretogether,thenclickOK.Oncethisisdone,VBAwill
knowwheretofindSolver,andyoucanaddressandmanipulateitfromwithin
yourmacro.
Say thatyouwant tofitanequation with fouradjustable parameters,
locatedincellsB1:B3andF1respectively(leavingspacefortheappropriate
labelstotheleft,andforSolverAiduncertaintyestimatestotheright),and
thatyourcriterionofbestfitistominimizeanumberincellF3whereyou
might, e.g., compute a value with a least-squares function such as
SUMXMY2(D7:D23,G7:G23). The following macros shows you how you
mightdoso.Thefirstinstruction,SolverReset,returnsallSolversettings
back totheirdefaultsettings.Theinstruction SetCell:="$F$3"desig-
natescellF3asthetargetcell,equivalenttotheSolvercommandSe
tTarget
Cell.TheSolverlineE
qualTofollowedbytheoptionsM
ax,Min
,andV
alueof:
isreplacedinthemacrobyMaxMinVal:=,where1selectsM
ax,2picksMin
,
and 3 specifies V
alueof. (In thelattercase, follow this instruction with
ValueOf:=withtheappropriatenumericalvalue.)TheSolverinstruction
B
yChangingCells:isreplacedinVBAcodebyByChange:=followedbythe
addressesofthecellscontainingtheadjustableparameters.Theoptional
nextlinesaddtheconstraint,B23.2,equivalenttotheSolverinstruction
Su
bjecttotheConstraints,withtheoptions,=,,integer,andbinaryas
relations1through5respectively,andtheconstraintthatF1beaninteger.
All the SolverOptions can likewise be set with the command
SolverOptions.Finally,SolverSolveinstructsSolvertoproceed.The
codefragmentisshownhereasanindependentmacro,sothatyoucaneasily
testit,butyoucanofcourseincorporatetheseinstructionsinyourown
macro,andtheninvokeSolverasoftenasyouwish.Notetheuseofthedirec-
tionalassignment:= (for),ofcommastoseparatethevariousinstruc-
tions,andofquotesanddollarsignstodenoteabsoluteaddresses.
Sub SolverDriver ()
SolverReset
SolverOk SetCell:="$F$3", MaxMinVal:=2, ByChange:="$B$1:$B$3,$F$1"
SolverAdd CellRef:=Range ("B2"), Relation:=3, FormulaText:=3.2
SolverAdd CellRef:=Range ("F1"), Relation:=4
SolverSolve
End Sub
10.9
Smoothing and di≈erentiating equidistant data
In smoothing data with a moving polynomial, we want to remove as much
noise as possible, while causing minimal signal distortion. Noise removal is
10.9 Smoothing and di≈erentiating equidistant data
449
C# Create PDF from Excel Library to convert xlsx, xls to PDF in C#
Create PDF from Excel. |. Home ›› XDoc.PDF ›› C# PDF: Create PDF from Excel. Export PDF from Excel with cell border or no border.
export text from pdf; find and replace text in pdf file
VB.NET PDF Image Extract Library: Select, copy, paste PDF images
Image: Extract Image from PDF. |. Home ›› XDoc.PDF ›› VB.NET PDF: Extract PDF Image. VB.NET PDF - Extract Image from PDF Document in VB.NET.
copy text from scanned pdf to word; erase text from pdf file
usually optimal with the longest polynomial of lowest order. Selecting the
length of the polynomial to be used is a subjective choice, which determines
the resolution of features one wants to retain in the processed curve. When
the curve contains sharp features that are believed to be significant, the
length of the moving polynomial should be short enough to avoid averag-
ing-out these features.
It is usually even less transparent how to select the optimal order of the
moving polynomial. Again there is a trade-off: the lower the polynomial
order, the more the finer details are filtered out. The lower the order, the less
the curve can follow the noise-related excursions around the average. On
the other hand, for minimal signal distortion one would select high-order
polynomials. Maximal noise reduction and minimal signal distortion are
clearly conflicting requirements, each pulling in a different direction. Con-
sequently, a compromise is usually sought to provide maximal smoothing
for minimal distortion. Moreover, different parts of a curve (such as broad
and narrow peaks in a spectrum) may require different polynomial orders
for optimal filtering in different parts of the data set.
Professor Barak has recently extended the algorithm for least-squares
smoothing and differentiation of equidistant data points (Anal.Chem.67
(1995) 2758) by letting the program self-optimize the order of the polyno-
mial used. This self-optimization is performed each time the fitted data
segment moves. Consequently, the resulting curve has a composite order.
The optimization is based on the Ftest using a preset probability level, here
5%. This program takes the guesswork out of the assignment of polynomial
order. Especially when the signal contains both broad and narrow features
in a single curve, this method often outperforms smoothing filters of fixed
order. However, one should keep in mind that polynomials often provide
poor approximations for commonly encountered analytical features, such
as Gaussian and Lorentzian peaks. In such cases, a polynomial approxim-
tion, even when uniformly converging, will only yield satisfactory smooth-
ing when the length of the moving polynomial covers only a relatively small
part of the feature. This requires that each feature is represented by a
sufficiently large number of measured data.
The program, written by Prof. Barak, is more sophisticated than the exam-
ples we have given so far, both in its algorithm and in its use of dialog boxes
and help files. The macro is available on the web site. Figure 3.3–2f illustrates
how it works for the data of Fig. 3.3–2b.
Ifoperatingtheprogram,highlightthedata(intheformofasingle,con-
tiguous,column),thencallthemacroSGBSmooth.Intheresultingdialog
box,usingthescrollbarsprovided,enterthedesiredfilterlength(i.e.,the
numberofdatapointstobecontainedinthemovingpolynomial),andthe
maximumallowableorderofthefittingpolynomials.Themaximumpoly-
nomialordermustbesmallerthanthefilterlength,butshouldexceedbyat
450
Some useful macros
C# HTML5 Viewer: Load, View, Convert, Annotate and Edit Excel
freely implement conversion from Excel document to PDF, Tiff and HTML file. Users can add annotations to Excel when viewing it online and use text search and
extract text from pdf file; extracting text from pdf
C# PDF insert text Library: insert text into PDF content in C#.net
Text to PDF. C#.NET PDF SDK - Insert Text to PDF Document in C#.NET. Providing C# Demo Code for Adding and Inserting Text to PDF File Page with .NET PDF Library.
get text from pdf file c#; get text from pdf image
leastoneortwothemaximumnumberofinflectionpointsanticipatedin
anynoise-freecurvesegment.(Theminimumorderisbestkeptat0.Itdoes
notsetalowerlimittotheorderused,butonlyaffectsthefirstfit.)Also
indicatewhetheryouwanttocomputethe1
st
and/or2
nd
derivativeofthe
curve, in which case you will be asked toprovide the equidistant data
spacing∆x.
The output will appear immediately to the right of the input data, in two to
four columns. Make sure that this space is empty, because the output will
overwrite any data in those columns. The output will show, from left to right,
the smoothed data, the polynomial order used, and (if requested) the values
of the 1
st
and/or 2
nd
derivative respectively.
Below we show a derivative version, called ELS for equidistant least
squares, that uses the same algorithm but with easier-to-make input boxes.
It provides two options: a fixed or a variable (self-optimizing) order, selected
by the macros ELSfixed and ELSoptimized respectively. The main program is
the subroutine ELS, which itself calls on several functions and on a subrou-
tine, ConvolutionFactors. The latter need not be a separate subroutine,
since it is only called once in the program. However, by placing it in a separ-
ate subroutine it becomes available for use in other programs, such as
Interpolation, that could benefit from it.
Here is the macro:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''^                                 ^''''''''''''''''''''''
''''''''''''''''''''^            EQUIDISTANT            ^''''''''''''''''''''
'''''''''''''''''''^           LEAST SQUARES           ^'''''''''''''''''''
''''''''''''''''''''''^                                 ^''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''© P. Barak, pwbarak@facstaff.wisc.edu
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Declare calculational variables
Public GramPoly() As Double, Weight() As Double, Y() As Double
Sub ELSfixed()
'selects a fixed polynomial order by setting iOrder equal to 1
Dim iOrder As Integer
iOrder = 1
Call ELS(iOrder)
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ELSoptimized()
'selects a variable polynomial order (between 1 and a user-selectable
'maximum value,MaxOrder) by setting iOrder equal to -1
10.9 Smoothing and di≈erentiating equidistant data
451
C# PDF Page Extract Library: copy, paste, cut PDF pages in C#.net
Page: Extract, Copy and Paste PDF Pages. Easy to Use C# Code to Extract PDF Pages, Copy Pages from One PDF File and Paste into Others in C#.NET Program.
extract text from pdf acrobat; delete text from pdf
C# PDF Convert to Text SDK: Convert PDF to txt files in C#.net
Integrate following RasterEdge C#.NET text to PDF converter SDK dlls into your C#.NET project assemblies; RasterEdge.XDoc.Excel.dll.
copy text from protected pdf; extract pdf text to word
Dim iOrder As Integer
iOrder = -1
Call ELS(iOrder)
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub ELS(iOrder)
' This program for a least-squares fit to equidistant data y,x with
' a moving polynomial uses the approach pioneered by Sheppard [Proc.
' London Math. Soc. (2) 13 (1914) 81] and Sherriff [Proc. Royal Soc.
' Edinburgh 40 (1920) 112], and subsequently advocated by Whittaker
' & Robinson [The calculus of observations, Blackie & Son, first
' published in 1924 and reprinted through 1965] and by Savitzky & Golay
' [Anal. Chem. 36 (1964) 1627]. It computes smoothed values of the data
' set, or (if so desired) its first or second derivative. The user
' selects the length of the moving polynomial.
' There are two options: in ELSfixed() the user also selects the
' order of the polynomial, whereas in ELSoptimized() the program
' optimizes the order of the polynomial (between 1 and an upper
' limit set by the user) each time the moving polynomial slides
' one data point along the data set, using an algorithm described
' by Barak [Anal. Chem. 67 (1995) 2758].
' The program compares the ratio of the variances for a given order
' and that for the next-lower order with the corresponding F test
' as its first criterion. Since symmetrical functions often contain
' mostly even powers, a single, final comparison is made between the
' variances of the next-higher and the next-lower order. If the latter
' is not desired, simply comment out the section following the comment
' line "Second test for optimum Order".
' The length of the moving polynomial, PolyLength, must be an odd inte-
' ger between 3 and 31, not exceeding the length of the data set, NPts.
' The selected (maximum) order of the polynomial, MaxOrder, must be a
' positive integer, MaxOrder > 0. Moreover, for ELSfixed, MaxOrder < 
' PolyLength, while for ELSoptimized we have MaxOrder < PolyLength – 1.
' The output is written in one or two columns to the right of the
' input data. The first output column contains the smoothed or dif-
' ferentiated data. The second column, which appears only with
' ELSoptimized(), displays the order selected by the program. Make
' sure that the output space is free, or can be overwritten.
' Some of the abbreviations and indices used:
'
NPts:  number of points in the data set, computed by the macro
'
from the data range provided in ELS InputBox 1: Input data.
'
PolyLength: length (in number of points) of the moving polynomial,
'
selected in ELS InputBox 2: Length of Moving Polynomial.
'
m:
number of points on each side of the central point in the
'
moving polynomial, calculated as m = (PolyLength-1)/2.
'
t:
index for the individual points in the moving
'
polynomial; t ranges from -m to +m.
'
k:
index for the position of the center of the moving polynomial
452
Some useful macros
'
in the data set; k ranges from m+1 to NPts-m.
'
j:
index for the order of the polynomial.
'
OptOrder: array of Order values.
'
s:
index for the order of the derivative; s ranges from 0 to
'
DerivOrder.
'
MaxOrder:
the order of the polynomial (from ELS InputBox 3:
'
Polynomial Order) or its maximum value (from ELS InputBox 3:
'
Maximum Polynomial Order). MaxOrder must be an integer, > 0, and
'
< PolyLength for ELSfixed, or < (PolyLength–1) for ELSoptimized.
'
Order:
working value of the polynomial order. In ELSfixed,
'
Order = MaxOrder; in ELSoptimized, Order starts at 1, and
'
has a maximum value of MaxOrder.
'
DerivOrder: order of the highest-order derivative to be computed,
'
selected by the answer to ELS InputBox 4: Derivative Order
'
DerivOrder = 0 for smoothing,
'
DerivOrder = 1 for the 1st derivative,
'
DerivOrder = 2 for the 2nd derivative.
'
tries:
number of attempts to enter data in input box.
'
Y() and YData():
the input data containing the entire data set.
'
FValueTable:
obtained directly from the Excel function FInv.
'
OutputData:
the final (smoothed or derivative) result.
'
OutputOrder:
the values of OptOrder used in ELSoptimized.
' Themainroutine,ELS(iOrder)callsthefunctionsGenFact()andSmooth().
'
It also calls the subroutine ConvolutionFactors, which calculates the
'
Gram polynomials and the corresponding convolution weights.
' Preliminaries and data input
Dim a As Integer, b As Integer, DerivOrder As Integer, i As Integer
Dim ii As Integer, j As Integer, jj As Integer, k As Integer
Dim m As Integer, MaxOrder As Integer, n As Integer, NPts As Integer
Dim Order As Integer, PolyLength As Integer, q As Integer, s As Integer
Dim t As Integer, Tries2 As Integer, Tries3 As Integer, Tries4 As Integer
Dim GenFact As Long
Dim AA As Double, BB As Double, DeltaX As Double, FTest1 As Double
Dim FTest2 As Double, GenFact As Double, Length As Double,
Perc As Double Dim Sum As Double Dim SumSq As Double,SumXY As Double,
SumY As Double Dim SumY2 As Double
Dim SumSquares() As Double, SumX2() As Double
Dim OptOrder As Variant, OutputData As Variant, OutputOrder As Variant
Dim TestContents As Variant, YData As Variant
Dim myRange As Range
Dim Ans As String
Dim z
Set myRange = Application.InputBox(prompt:="The input data are " _
& "located in column:", Title:="ELS InputBox 1: Input data", Type:=8)
myRange.Select
If Selection.Columns.Count <> 1 Then End
NPts = Selection.Rows.Count
10.9 Smoothing and di≈erentiating equidistant data
453
If NPts = 0 Then End
YData = myRange.Value
OutputData = myRange.Value
'in order to define the array size
OutputOrder = myRange.Value
'in order to define the array size
OptOrder = myRange.Value
'in order to define the array size
'
Test and prepare the default output range
n = 0
Selection.Offset(0, 1).Select
TestContents = Selection.Value
For i = 1 To NPts
z = TestContents(i, 1)
If IsEmpty(z) Then
n = n
Else
n = n + 1
End If
Next i
If iOrder = 1 Then
If n > 0 Then
Ans = MsgBox(" There are data in the column where the output " _
& "will" & Chr(13) & "be written. Proceed anyway and overwrite " _
& "those data?", vbYesNo)
If Ans = vbNo Then
MsgBox ("Safeguard the data in the highlighted area by" & _
Chr(13) & "moving them to another place, then try again.")
End
End If
End If
Selection.Offset(0, -1).Select
End If
If iOrder = -1 Then
Selection.Offset(0, 1).Select
TestContents = Selection.Value
For i = 1 To NPts
z = TestContents(i, 1)
If IsEmpty(z) Then
n = n
Else
n = n + 1
End If
Next i
If n > 0 Then
Ans = MsgBox("There are data in the TWO columns where the output " _
&"will"&Chr(13)&"
bewritten.Proceedanywayandoverwrite"_
& "those data?", vbYesNo)
If Ans = vbNo Then
MsgBox ("Safeguard the data in the highlighted area by" & _
Chr(13) & "moving them to another place, then try again.")
End
End If
454
Some useful macros
End If
Selection.Offset(0, -2).Select
End If
'
Select the length of the moving polynomial, PolyLength
Tries2 = 0
Line2:
Length = InputBox(prompt:="The length of the moving polynomial is:", _
Title:="ELS InputBox 2: Polynomial Length")
PolyLength = CInt(Length)
' Make sure that PolyLength is an odd integer
' larger than 0 and smaller than NPts
If (Length <= 0 Or Length >= NPts Or PolyLength - Length <> 0 _
Or CInt((PolyLength - 1) / 2) - ((Length - 1) / 2) <> 0) Then
MsgBox "The length of the moving polynomial must" & Chr(13) & _
"
be an odd integer larger than zero and " & Chr(13) & _
"smaller than the length of the input column."
Tries2 = Tries2 + 1
If Tries2 = 2 Then End
GoTo Line2
End If
' Select the order of the moving polynomial, MaxOrder
Tries3 = 0
Line3:
If iOrder = 1 Then
MaxOrder = InputBox(prompt:="The order of the moving" _
& "polynomial is:", Title:="ELS InputBox 3: Polynomial Order")
Else
MaxOrder = InputBox(prompt:="The maximum order of the moving " _
& "polynomial is:", Title:="ELS InputBox 3: Polynomial Order")
End If
' Make sure that MaxOrder > 0 and that either MaxOrder < PolyLength
' (for ELSfixed) or MaxOrder < PolyLength – 1 (for ELSoptimized).
If iOrder = 1 Then
If (MaxOrder <= 0 Or MaxOrder >= PolyLength) Then
MsgBox "The order of the moving polynomial" & Chr(13) & _
"must be larger than zero, and smaller" & Chr(13) & _
"than the length of the moving polynomial."
Tries3 = Tries3 + 1
If Tries3 = 2 Then End
GoTo Line3
End If
Else
If (MaxOrder <= 0 Or MaxOrder >= PolyLength - 1) Then
MsgBox "The maximum order of the moving polynomial" & _
Chr(13) & "must be larger than zero, and smaller than" & _
Chr(13) & "the length of the moving polynomial minus 1."
Tries3 = Tries3 + 1
If Tries3 = 2 Then End
10.9 Smoothing and di≈erentiating equidistant data
455
GoTo Line3
End If
End If
' Select smoothing, first derivative, or second derivative
Tries4 = 0
Line4:
DerivOrder = InputBox(prompt:="Select the order of the derivative" &
Chr(13) _
& "(either 1 or 2); for smoothing, select 0." & Chr(13) & Chr(13) _
& "The order of the derivative is:", Title:="ELS InputBox 4:" _
& "Derivative Order")
' Make sure that DerivOrder has the value 0, 1, or 2
If DerivOrder = 0 Then
GoTo Line6
ElseIf DerivOrder = 1 Then
GoTo Line5
ElseIf DerivOrder = 2 Then
GoTo Line5
Else
MsgBox " The order of the moving polynomial must be" & Chr(13) & _
"either 0 (for smoothing), 1 (for the first" & Chr(13) & _
"derivative), or 2 (for the second derivative)."
Tries4 = Tries4 + 1
If Tries4 = 2 Then End
GoTo Line4
End If
Line5:
DeltaX = InputBox(prompt:="The data spacing in x is:", _
Title:="ELS InputBox 4: X Increment")
Line6:
m = (PolyLength - 1) / 2
ReDim Y(1 To NPts), OptOrder(1 To NPts, 1)
For i = 1 To NPts
Y(i) = YData(i, 1)
OptOrder(i, 1) = MaxOrder
Next i
Call ConvolutionFactors(PolyLength, MaxOrder, DerivOrder)
' THE FOLLOWING SECTION IS USED ONLY BY ELSoptimized
If iOrder = -1 Then
ReDim SumX2(1 To MaxOrder)
For j = 1 To MaxOrder
Sum = 0
For i = -m To m
Sum = Sum + GramPoly(i, j, 0) ^ 2
Next i
SumX2(j) = Sum
Next j
456
Some useful macros
Documents you may be interested
Documents you may be interested