25 lines
485 B
Plaintext
25 lines
485 B
Plaintext
|
{ n = $1
|
||
|
|
n += $1
|
||
|
|
if (n != $1 + $1) print NR, "urk +="
|
||
|
|
n = $1
|
||
|
|
n -= $1
|
||
|
|
if (n != 0) print NR, "urk -="
|
||
|
|
n = $1
|
||
|
|
n *= 3.5
|
||
|
|
if (n != 3.5 * $1) print NR, "urk *="
|
||
|
|
n = $1
|
||
|
|
n /= 4
|
||
|
|
if (n != $1 / 4) print NR, "urk /="
|
||
|
|
n = NR
|
||
|
|
n ^= 2
|
||
|
|
if (n != NR * NR) print NR, "urk1 ^=", n, NR * NR
|
||
|
|
n = NR
|
||
|
|
n **= 2
|
||
|
|
if (n != NR * NR) print NR, "urk1 **=", n, NR * NR
|
||
|
|
n = NR
|
||
|
|
n ^= 1.5
|
||
|
|
ns = sprintf("%.10g", n)
|
||
|
|
sq = sprintf("%.10g", NR * sqrt(NR))
|
||
|
|
if (ns != sq) print NR, "urk2 ^=", ns, sq
|
||
|
|
}
|