TABLE OF CONTENTS

::pwtk::norm3

SYNOPSIS

proc ::pwtk::norm3 {v} {

PURPOSE

Return the size (norm) of a 3-dimensional vector.

EXAMPLE

      ::pwtk::norm3 {1.0 2.0 0.0}

SOURCE

    if { [llength $v] != 3 } {
        ::pwtk::error "supplied vector \"$v\" is not a 3D vector" 1
    }
    return [norm $v]
}