Skip to content
Open
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
112 changes: 112 additions & 0 deletions FormalConjectures/Paper/VoronovskajaTypeFormula.lean
Original file line number Diff line number Diff line change
@@ -0,0 +1,112 @@
/-
Copyright 2025 The Formal Conjectures Authors.

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

https://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
-/

import FormalConjectures.Util.ProblemImports

open Topology Filter Real unitInterval

/-!
# Voronovskaja-type Formula for the Bezier Variant of the Bernstein Operators

*References:*

* [A problem in Constructive theory of functions, Szopol 2010](https://www.math.bas.bg/mathmod/Proceedings_CTF/CTF-2010/files_CTF-2010/Open_problems.pdf?utm_source=perplexity)
Comment on lines +23 to +26
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Can you put this at the end of the doc?


The Bézier-type Bernstein operators $B_{n,\alpha}$ for $\alpha > 0$ are defined for
$f : [0,1] \to \mathbb{R}$ by
\[
(B_{n,\alpha} f)(x)
= \sum_{k=0}^n f\!\left(\frac{k}{n}\right)
\left( J_{n,k}(x)^{\alpha} - J_{n,k+1}(x)^{\alpha} \right),
\]
where
\[
J_{n,k}(x) = \sum_{j=k}^n p_{n,j}(x),
\qquad
p_{n,j}(x) = \binom{n}{j} x^j(1-x)^{n-j},
\]
and $J_{n,n+1}(x) = 0$.

In the classical case $\alpha = 1$, these operators reduce to the usual Bernstein operators.
For sufficiently smooth $f$ one has the classical Voronovskaja asymptotic formula
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
For sufficiently smooth $f$ one has the classical Voronovskaja asymptotic formula
For sufficiently smooth $f$, one has the classical Voronovskaja asymptotic formula

\[
\lim_{n \to \infty} n\bigl( B_{n,1} f(x) - f(x) \bigr)
= \tfrac{1}{2} x(1-x) f''(x).
\]

## Known Results
* For $\alpha = 1$, the asymptotics are completely understood.
* Numerical experiments indicate that for $\alpha \neq 1$ the quantity
\[
\sqrt{n}\,\bigl( B_{n,\alpha} f(x) - f(x) \bigr)
\]
may converge to a non-zero limit.

## The Problem
Determine the asymptotic behaviour of the Bézier-type Bernstein operators for $\alpha \neq 1$:
\textbf{Existence of the limit:}
Prove (or disprove) the existence of the limit
\[
\lim_{n \to \infty}
\sqrt{n}\,\bigl( B_{n,\alpha} f(x) - f(x) \bigr),
\]
at least for functions $f$ that are twice differentiable at $x \in (0,1)$.
\item \textbf{Explicit form of the limit:}
If the limit exists, determine an explicit expression for it in terms of $f$, $x$, and $\alpha$.
-/

/-!
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This is the syntax for a module doc. For a docstring, you instead need to do

Suggested change
/-!
/--

Cumulative sum `J_{n,k}(x) = ∑_{j=k}^n p_{n,j}(x)`
-/
noncomputable def J (n k : ℕ) (x : ℝ ) : ℝ :=
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
noncomputable def J (n k : ℕ) (x : ℝ ) : ℝ :=
noncomputable def J (n k : ℕ) (x : ℝ) : ℝ :=

∑ j ∈ Finset.Icc k n, Polynomial.eval x (bernsteinPolynomial ℝ n j)
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Does this polynomial have a name in the literature? Do you think you should define it as a polynomial?

Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I guess it may be called Bernstein tail polynomial would be suitable. I think it can be defined as a polynomial, should I do it?

Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Yes please!

Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Changed it to Polynomial in the latest commit


/-!
Bézier–type Bernstein operator:
`(B_{n,α} f)(x) = ∑_{k=0}^n f(k/n) * (J_{n,k}(x)^α - J_{n,k+1}(x)^α)`
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Same here

-/
noncomputable def BezierBernstein (n : ℕ) (α : ℝ) (f : ℝ → ℝ) (x : ℝ) : ℝ :=
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
noncomputable def BezierBernstein (n : ℕ) (α : ℝ) (f : ℝ → ℝ) (x : ℝ) : ℝ :=
noncomputable def bezierBernstein (n : ℕ) (α : ℝ) (f : ℝ → ℝ) (x : ℝ) : ℝ :=

∑ k ∈ Finset.range (n+1),
f (k/n) * ( (J n k x) ^ α - (J n (k+1) x) ^ α )

/-!
Classical Voronovskaja theorem (α = 1)

For smooth `f`, the limit:
n * (B_n f x - f x) → (1/2)*x*(1-x)*f''(x)
Comment on lines +86 to +89
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Can you latex this?


This is already in the literature; here we state it.
Comment on lines +90 to +91
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

No need to write this, the tag already contains this info

Suggested change
This is already in the literature; here we state it.

-/
@[category research solved, AMS 26 40 47]
theorem voronovskaja_theorem.bernstein_operators
(f : ℝ → ℝ) (x : ℝ) (hx : x ∈ I)
(f'' : ℝ := iteratedDerivWithin 2 f I x):
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
(f'' : ℝ := iteratedDerivWithin 2 f I x):
(f'' : ℝ := iteratedDerivWithin 2 f I x) :

Tendsto (fun (n : ℕ) => n • (BezierBernstein n 1 f x - f x))
atTop
(𝓝 ((1/2) * x * (1-x) * f'')) := by
sorry

/-!
Conjecture: Voronovskaja-type formula for Bézier-Bernstein operators
with shape parameter α ≠ 1. -/
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
with shape parameter α ≠ 1. -/
with shape parameter α ≠ 1. -/

@[category research open, AMS 26 40 47]
theorem voronovskaja_theorem.bezier_bernstein_operators
(α : ℝ) (hα : α ≠ 1)
(f : ℝ → ℝ) (x : ℝ) (hx : x ∈ I)
(f'' : ℝ := iteratedDerivWithin 2 f I x)
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Same here

(x : ℝ)(hf : ContDiffAt ℝ 2 f x) : ∃ L : ℝ,
Tendsto (fun n : ℕ => Real.sqrt n * (BezierBernstein n α f x - f x)) atTop (𝓝 L) := by
sorry