restart;with(linalg):
a := [6,-9,1]; b := [-10,-3,4];
c := crossprod(a,b);
n := [-6,-6,-5];
d := crossprod(n,c);
#solve({6*x-9*y = 2, -10*x - 3*y = 0});
#vec(p) := [rhs(%[1]), rhs(%[2]), 0];
# vec(d)[1]*(x-vec(p)[1]) + vec(d)[2]*(y - vec(p)[2]) + vec(d)[3]*(z - vec(p)[3]);
# 478*x-116-483*y+6*z;
NormalVector := [478,-483,6];
EquationOfPlane := 478*(x - 1/18) - 483*(y + 5/27) + 6*z = 0;


restart; with(linalg):
r := [6*t^1, 8*t^3, -5*t^3];
rr := diff(r, t);
rrr := diff(rr,t);
T := dotprod(rr,rrr)/norm(rr,2);
N := norm(crossprod(rr,rrr,2))/norm(rr,2);
TangentialComponent := [T, N];
NormalComponent := [T, N];