- AI-ra cserélte a concierge szolgáltatást a Vertu
- iPhone topik
- Xiaomi Smart Band 8 - folyamatosan
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Xiaomi 15 Ultra - kamera, telefon
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Mindenkire rálicitál az új Oppo kameratelefonja
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Samsung Galaxy A34 - plus size modell
- Ha Kínában repülsz, és nem ilyen a hordozható töltőd, elveszik a reptéren!
Új hozzászólás Aktív témák
-
QuarK
senior tag
válasz
Rover623 #565 üzenetére
Felőlem jöhet egy két ínyencség... Bár cserébe nem sokat tudok ajánlani... Amikor öcsike ismerkedett az fdisk-kel, akkor a 2001 előtti cuccosaim mind odavesztek, kivéve egy-két dolgot, ami a régi 286-oson megmaradt, nagymamánál...
De azért akad: xms, pcx betöltés, max. 256 byte hosszú kulccsal való tömörítés (crytp, decrypt), crc ellenőrzés, planéták térbeli helyzetét kiszámító, majd állatövön elhelyező (aka. horoszkóp készítő) progi...
Jah, és most jön a gonoszkodásBár ez pascal totyik, azért itt megjelenítem a témához, és szerintem nem nagy cucc átportolni pascalra (bár kell vele bajlódni, az fix)
double pow( double y, double x)
{
typedef union
{
double d;
unsigned u[4];
} DBL;
double z, w, p, p2, q, re;
unsigned ex;
int iz;
DBL *yp, *zp, *wp;
yp = ( DBL*)&y;
if ( yp->d <= 0.0)
y = -y;
z = 0.0;
zp = ( DBL*)&z;
zp->u[3] = yp->u[3] & ~0100017;
iz = ( zp->u[3] >> 4) - 1023;
if (( yp->d - zp->d) == 0.0)
z = ( double)iz;
else
{
yp->u[3] -= ++iz << 4;
yp->d *= 1.4142135623730950488;
p = ( yp->d - 1.0) / ( yp->d + 1.0);
p2 = p * p;
z = p * ( 2.000000000046727 +
p2 * ( 0.666666635059382 +
p2 * ( 0.4000059794795 +
p2 * ( 0.28525381498 +
p2 * 0.2376245609))));
z = z * 1.442695040888634 + ( double)iz - 0.5;
}
z *= x;
w = 0.0;
wp = ( DBL*)&w;
if ( zp->d > 1023.0 || zp->d < -1023.0)
return ( 1E307);
iz = ( int)zp->d;
wp->u[3] += iz + 1023 << 4;
wp->u[3] &= ~0100017;
if (( zp->d -= ( double)iz) == 0.0)
return ( wp->d);
while ( zp->d < 0.0)
{
wp->u[3] -= 1 << 4;
wp->u[3] &= ~0100017;
zp->d++;
}
if ( zp->d >= 0.5)
{
zp->d -= 0.5;
re = 1.41421356237309504880;
}
else
re = 1.0;
p2 = zp->d * zp->d;
p = zp->d * ( 7.2152891511493 + p2 * 0.0576900723731);
q = 20.8189237930062 + p2 ;
zp->d = re * wp->d * ( q + p) / ( q - p);
return(zp->d);
}
Új hozzászólás Aktív témák
- Anglia - élmények, tapasztalatok
- AI-ra cserélte a concierge szolgáltatást a Vertu
- Tizenkét tányérra térne át a Toshiba a HDD-piacon
- Nintendo Switch 2
- iPhone topik
- Sonarr és Radarr
- Eredeti játékok OFF topik
- Milyen légkondit a lakásba?
- RETRO beárazás (mobil, PC, konzol)
- Milyen videókártyát?
- További aktív témák...
- VivoBook S M3402QA 14" 3K OLED Ryzen 5 5600H 16GB 512GB NVMe magyar vbill ujjlolv gar
- ASUS TUF Gaming F15 gamer laptop
- S. Mario PC! Hogy fusson a Super Mario! I5 14400F / RX 6900XT 16GB / 32GB DDR5 / 1TB SSD
- Motorola edge 40 neo - makulátlan, ár-érték bajnok
- Dell Latitude 5500 8.gen-i5/16GB RAM/256SSD/WIN11/GARANCIA
- Vállalom telefonok,tabletek javítását ,(szoftveres hibát is,frp lock-ot is)márkától fügetlenűl
- BESZÁMÍTÁS! ASRock B450M R5 2600 16GB DDR4 256GB SSD 1TB HDD GTX 1650 4GB Zalman T4 PLUS 400W
- BESZÁMÍTÁS! MSI X370 R5 2600 16GB DDR4 512GB SSD GTX 970 4GB Zalman Z9 Neo FSP 600W
- HP EliteBook 850 G7 15.6 inch (256GB SSD, i5-10310U, 1.70GHz, 8GB DDR4)
- Apple Macbook Air 13,6 M4 16GB/256GB - 7 Ciklus - 100% Akkumulátor - MAGYAR - Ezüst - 3 év garancia
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest