Polynomial regression: Difference between revisions
Content added Content deleted
(Added Easylang) |
(→{{header|Raku}}: fix code) |
||
Line 2,100: | Line 2,100: | ||
=={{header|Raku}}== |
=={{header|Raku}}== |
||
{{broken}} |
|||
(formerly Perl 6) |
(formerly Perl 6) |
||
We'll use a Clifford algebra library. |
We'll use a Clifford algebra library. Very slow. |
||
<syntaxhighlight lang="raku" line>use Clifford; |
<syntaxhighlight lang="raku" line>use Clifford; |
||
Line 2,118: | Line 2,117: | ||
my $I = $x0 ∧ $J; |
my $I = $x0 ∧ $J; |
||
my $I2 = ($I |
my $I2 = ($I*$I).Real; |
||
.say for |
.say for |
||
(($y ∧ $J) |
(($y ∧ $J)*$I)/$I2, |
||
(($y ∧ ($x2 ∧ $x0)) |
(($y ∧ ($x2 ∧ $x0))*$I)/$I2, |
||
(($y ∧ ($x0 ∧ $x1)) |
(($y ∧ ($x0 ∧ $x1))*$I)/$I2;</syntaxhighlight> |
||
{{out}} |
{{out}} |
||
<pre>1 |
<pre>1 |