Bernstein basis polynomials: Difference between revisions

Content added Content deleted
m (→‎{{header|Phix}}: merged loops)
Line 769: Line 769:
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" p(%g) = %g (mono %g)\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #000000;">evaluate_bernstein_degree2</span><span style="color: #0000FF;">(</span><span style="color: #000000;">pbern2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">),</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" p(%g) = %g (mono %g)\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #000000;">evaluate_bernstein_degree2</span><span style="color: #0000FF;">(</span><span style="color: #000000;">pbern2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">),</span>
<span style="color: #000000;">evaluate_monomial_degree2</span><span style="color: #0000FF;">(</span><span style="color: #000000;">pmono2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">),})</span>
<span style="color: #000000;">evaluate_monomial_degree2</span><span style="color: #0000FF;">(</span><span style="color: #000000;">pmono2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">),})</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">x</span> <span style="color: #008080;">in</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">0.25</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">7.50</span><span style="color: #0000FF;">}</span> <span style="color: #008080;">do</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" q(%g) = %g (mono %g)\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #000000;">evaluate_bernstein_degree2</span><span style="color: #0000FF;">(</span><span style="color: #000000;">qbern2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">),</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" q(%g) = %g (mono %g)\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #000000;">evaluate_bernstein_degree2</span><span style="color: #0000FF;">(</span><span style="color: #000000;">qbern2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">),</span>
<span style="color: #000000;">evaluate_monomial_degree2</span><span style="color: #0000FF;">(</span><span style="color: #000000;">qmono2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">)})</span>
<span style="color: #000000;">evaluate_monomial_degree2</span><span style="color: #0000FF;">(</span><span style="color: #000000;">qmono2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">)})</span>
Line 790: Line 788:
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" p(%g) = %g (mono %g)\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #000000;">evaluate_bernstein_degree3</span><span style="color: #0000FF;">(</span><span style="color: #000000;">pbern3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">),</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" p(%g) = %g (mono %g)\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #000000;">evaluate_bernstein_degree3</span><span style="color: #0000FF;">(</span><span style="color: #000000;">pbern3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">),</span>
<span style="color: #000000;">evaluate_monomial_degree3</span><span style="color: #0000FF;">(</span><span style="color: #000000;">pmono3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">)})</span>
<span style="color: #000000;">evaluate_monomial_degree3</span><span style="color: #0000FF;">(</span><span style="color: #000000;">pmono3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">)})</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">x</span> <span style="color: #008080;">in</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">0.25</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">7.50</span><span style="color: #0000FF;">}</span> <span style="color: #008080;">do</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" q(%g) = %g (mono %g)\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #000000;">evaluate_bernstein_degree3</span><span style="color: #0000FF;">(</span><span style="color: #000000;">qbern3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">),</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" q(%g) = %g (mono %g)\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #000000;">evaluate_bernstein_degree3</span><span style="color: #0000FF;">(</span><span style="color: #000000;">qbern3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">),</span>
<span style="color: #000000;">evaluate_monomial_degree3</span><span style="color: #0000FF;">(</span><span style="color: #000000;">qmono3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">)})</span>
<span style="color: #000000;">evaluate_monomial_degree3</span><span style="color: #0000FF;">(</span><span style="color: #000000;">qmono3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">)})</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">x</span> <span style="color: #008080;">in</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">0.25</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">7.50</span><span style="color: #0000FF;">}</span> <span style="color: #008080;">do</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" r(%g) = %g (mono %g)\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #000000;">evaluate_bernstein_degree3</span><span style="color: #0000FF;">(</span><span style="color: #000000;">rbern3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">),</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" r(%g) = %g (mono %g)\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #000000;">evaluate_bernstein_degree3</span><span style="color: #0000FF;">(</span><span style="color: #000000;">rbern3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">),</span>
<span style="color: #000000;">evaluate_monomial_degree3</span><span style="color: #0000FF;">(</span><span style="color: #000000;">rmono3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">)})</span>
<span style="color: #000000;">evaluate_monomial_degree3</span><span style="color: #0000FF;">(</span><span style="color: #000000;">rmono3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">x</span><span style="color: #0000FF;">)})</span>
Line 813: Line 807:
Subprogram (2) examples:
Subprogram (2) examples:
p(0.25) = 1 (mono 1)
p(0.25) = 1 (mono 1)
⚫
q(0.25) = 1.6875 (mono 1.6875)
p(7.5) = 1 (mono 1)
p(7.5) = 1 (mono 1)
⚫
q(0.25) = 1.6875 (mono 1.6875)
q(7.5) = 184.75 (mono 184.75)
q(7.5) = 184.75 (mono 184.75)
Subprogram (3) examples:
Subprogram (3) examples:
Line 822: Line 816:
Subprogram (4) examples:
Subprogram (4) examples:
p(0.25) = 1 (mono 1)
p(0.25) = 1 (mono 1)
⚫
p(7.5) = 1 (mono 1)
q(0.25) = 1.6875 (mono 1.6875)
q(0.25) = 1.6875 (mono 1.6875)
⚫
q(7.5) = 184.75 (mono 184.75)
r(0.25) = 1.75 (mono 1.75)
r(0.25) = 1.75 (mono 1.75)
⚫
p(7.5) = 1 (mono 1)
⚫
q(7.5) = 184.75 (mono 184.75)
r(7.5) = 1872.25 (mono 1872.25)
r(7.5) = 1872.25 (mono 1872.25)
Subprogram (5) examples:
Subprogram (5) examples:
Retrieved from "https://rosettacode.org/wiki/Bernstein_basis_polynomials"