Select Code to Download

sub InProduct(){
    my($a, $b) = @_;
    return $a->X*$b->X+$a->Y*$b->Y+$a->Z*$b->Z}