From: Szabolcs Nagy <nsz@port70.net>
To: musl@lists.openwall.com
Subject: Re: correctly rounded sqrt
Date: Thu, 15 Mar 2012 02:46:48 +0100 [thread overview]
Message-ID: <20120315014647.GI5728@port70.net> (raw)
In-Reply-To: <20120314190123.GH5728@port70.net>
[-- Attachment #1: Type: text/plain, Size: 259 bytes --]
* Szabolcs Nagy <nsz@port70.net> [2012-03-14 20:01:23 +0100]:
> * Szabolcs Nagy <nsz@port70.net> [2012-03-14 17:56:05 +0100]:
> > i tried to solve the sqrt issue with a wrapper
ok as discussed a simpler and better solution
without precision setting etc in c
[-- Attachment #2: x_sqrt.c --]
[-- Type: text/x-csrc, Size: 766 bytes --]
#include <math.h>
#include <stdint.h>
/* dekker exact mult u*u == hi + lo */
static void sq(long double *hi, long double *lo, long double u)
{
static const long double c = 1.0 + 0x1p33;
long double cu, u1, u2;
cu = c*u;
u1 = (u - cu) + cu;
u2 = u - u1;
*hi = u*u;
*lo = (u1*u1 - *hi) + u1*u2*2.0 + u2*u2;
}
/* correctly rounded double sqrt using long double arithmetics for x87 */
double x_sqrt(double x)
{
union {
long double x;
struct{
uint64_t m;
uint16_t es;
uint16_t pad;
} bits;
} u;
long double r, hi, lo;
u.x = sqrtl(x);
if ((u.bits.m&0x7ff) == 0x400) {
if ((u.bits.es&0x7fff) == 0x7fff)
return u.x;
sq(&hi, &lo, u.x);
r = x - hi - lo;
if (r > 0)
u.bits.m++;
else
u.bits.m--;
return u.x;
}
return u.x;
}
next prev parent reply other threads:[~2012-03-15 1:46 UTC|newest]
Thread overview: 11+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-03-14 16:56 Szabolcs Nagy
2012-03-14 16:57 ` Szabolcs Nagy
2012-03-14 19:01 ` Szabolcs Nagy
2012-03-15 1:46 ` Szabolcs Nagy [this message]
2012-03-15 3:23 ` Szabolcs Nagy
2012-03-15 5:07 ` Rich Felker
2012-03-15 5:30 ` Szabolcs Nagy
2012-03-15 8:02 ` Szabolcs Nagy
2012-03-15 16:12 ` Rich Felker
2012-03-15 18:14 ` Pascal Cuoq
2012-03-15 18:22 ` Szabolcs Nagy
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20120315014647.GI5728@port70.net \
--to=nsz@port70.net \
--cc=musl@lists.openwall.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.vuxu.org/mirror/musl/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).