Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Tweak position of BEGIN block, fix KnotVector experiments so they wor…

…k again after last round of KnotVector changes.
  • Loading branch information...
commit 5ea25118979576885f1d32d7dd4910671a54e150 1 parent f09c4bf
SF authored
Showing with 3 additions and 6 deletions.
  1. +3 −6 playing-around.pl
9 playing-around.pl
View
@@ -1,6 +1,7 @@
+use v6;
+
BEGIN { @*INC.push: 'lib' }
-use v6;
use Vector;
use Polynomial;
use KnotVector;
@@ -52,11 +53,7 @@
say $p * $p;
my KnotVector $kv = KnotVector.new((0, 0, 0, 0, 1, 2, 2, 3, 3, 3, 3));
-say $kv.N(0, 0.5).perl;
-say $kv.N(1, 0.5).perl;
-say $kv.N(2, 0.5).perl;
-say $kv.N(3, 0.5).perl;
-say $kv.Nnew(3, 1/2).perl;
+say $kv.N(3, 1/2).perl;
my @polys = $kv.N_local($kv.N0_index(1/2), 3, Polynomial.new(0, 1));
@polys.map({ $_.say });
@polys.map({ $_.evaluate(1/2).perl.say });
Please sign in to comment.
Something went wrong with that request. Please try again.