TABLE OF CONTENTS

::pwtk::norm3

SYNOPSIS

proc ::pwtk::norm3 {vec} {

PURPOSE

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

EXAMPLE

::pwtk::norm3 {1.0 2.0 0.0}

SOURCE

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