|
|
1.1 root 1: .th HYPOT III 6/12/72
2: .sh NAME
3: hypot \*- calculate hypotenuse
4: .sh SYNOPSIS
5: .ft B
6: jsr r5,hypot
7: .br
8: .ft R
9: .sh DESCRIPTION
10: The
11: square root of fr0*fr0 + fr1*fr1
12: is returned in fr0.
13: The calculation is done in such a way
14: that overflow will not occur unless
15: the answer is not representable in floating point.
16: .sh DIAGNOSTICS
17: The
18: c-bit is set if the result cannot
19: be represented.
20: .sh BUGS
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.