avrasm

Tue Jan 11 2005 23:18, Vladislav Baliasov wrote to All:

VB> ÷ÏÐÒÏÓ ×ÔÏÒÏÊ - Á ÇÄÅ-ÎÉÂÕÄØ ×ÏÄÉÔÓÑ ÁËËÕÒÁÔÎÁÑ "ÐÌÁ×ÁÀÝÁÑ" ÂÉÂÌÉÏÔÅÞËÁ VB> ÎÁ AVR ? 32-ÂÉÔÎÁÑ, 24-ÂÉÔÎÁÑ ÍÅÎÑ ÞÔÏ-ÔÏ ÓÏ×ÓÅÍ ÎÅ ÐÒÉ×ÌÅËÁÅÔ... éÌÉ VB> ÐÒÉÄÅÔÓÑ ÓÁÍÏÍÕ ÐÉÓÁÔØ ?

VB> é ÔÒÅÔÉÊ ×ÏÐÒÏÓ - ÈÏÔÅÌÏÓØ ÂÙ ÎÁÊÔÉ ÆÏÒÍÁÌØÎÏÅ ÏÐÉÓÁÎÉÅ ÐÏÌÉÎÏÍÉÎÁÌØÎÏÊ VB> ÁÐÐÒÏËÓÉÍÁÃÉÉ (×ÏÔ ÚÁ×ÅÒÎÕÌ ;) ÆÕÎËÃÉÊ log(x) É exp(x).

VLV

"Evil will prevail because good is dumb" (c) Dart Weider

Hi Vladislav, hope you are having a nice day!

VB> é ÔÒÅÔÉÊ ×ÏÐÒÏÓ - ÈÏÔÅÌÏÓØ ÂÙ ÎÁÊÔÉ ÆÏÒÍÁÌØÎÏÅ ÏÐÉÓÁÎÉÅ VB> ÐÏÌÉÎÏÍÉÎÁÌØÎÏÊ ÁÐÐÒÏËÓÉÍÁÃÉÉ (×ÏÔ ÚÁ×ÅÒÎÕÌ ;) ÆÕÎËÃÉÊ log(x) É VB> exp(x). ÷ ÂÉÂÌÉÏÔÅËÅ Hitech C ÄÌÑ PIC Ñ ÉÈ ÎÁÛÅÌ, ÎÏ Ó ÍÏÉÍ ÚÎÁÎÉÅÍ C VB> ÎÅ ÓËÁÚÁÔØ, ÞÔÏÂÙ ×ÐÏÌÎÅ ÐÏÎÑÌ, ËÁË ÉÍÅÎÎÏ ÜÔÏ ×ÙÞÉÓÌÑÅÔÓÑ. HÁ×ÅÒÎÑËÁ VB> ×ÅÄØ ÇÄÅ-ÎÉÂÕÄØ ÅÓÔØ ÐÏÄÈÏÄÑÝÉÊ ÓÐÒÁ×ÏÞÎÉË × ÜÌÅËÔÒÏÎÎÏÍ ×ÉÄÅ ? éÌÉ VB> ÎÅÔ ?

p.s. òÁÚÌÏÖÅÎÉÅ × ÒÑÄ ôÅÊÌÏÒÁ ÎÅ ÕÓÔÒÁÉ×ÁÅÔ ÐÏ ÔÏÞÎÏÓÔÉ?

WBR, AVB

*** 12 Jan 05 00:34, Alexey V Bugrov wrote to Vladislav Baliasov:

AB> íÏÇÕ ÐÏÓÏ×ÅÔÏ×ÁÔØ ×ÚÇÌÑÎÕÔØ ÎÁ AN660 ÏÔ ÍÉËÒÏÞÉÐÁ 00660.pdf. ôÁÍ ÂÙÌÉ AB> ÐÒÉÍÅÒÙ ÒÅÁÌÉÚÁÃÉÊ ÎÁ ÁÓÓÅÍÂÌÅÒÅ Ó ÆÏÒÍÁÌØÎÙÍ ÏÐÉÓÁÎÉÅÍ ÁÌÇÏÒÉÔÍÁ. HÏ AB> ×ÒÏÄÅ ÂÙ ÔÁÍ ÎÅ ÐÏÌÉÎÏÍÉÎÁÌØÎÁÑ ÁÐÐÒÏËÓÉÍÁÃÉÑ.

AB> p.s. òÁÚÌÏÖÅÎÉÅ × ÒÑÄ ôÅÊÌÏÒÁ ÎÅ ÕÓÔÒÁÉ×ÁÅÔ ÐÏ ÔÏÞÎÏÓÔÉ?

;) åÓÌÉ ÂÙ Ñ ÅÝÅ ÚÎÁÌ, ÞÔÏ ÜÔÏ... HÕ ÚÁÂÙÌ Ñ ÕÖÅ ×ÓÅ, ÄÁ×ÎÏ É ÐÒÏÞÎÏ. á, ÍÏÖÅÔ ÂÙÔØ, ÄÁÖÅ É ÎÅ ÚÎÁÌ ;)

Hi Vladislav, hope you are having a nice day!

AB>> íÏÇÕ ÐÏÓÏ×ÅÔÏ×ÁÔØ ×ÚÇÌÑÎÕÔØ ÎÁ AN660 ÏÔ ÍÉËÒÏÞÉÐÁ 00660.pdf. ôÁÍ AB>> ÂÙÌÉ ÐÒÉÍÅÒÙ ÒÅÁÌÉÚÁÃÉÊ ÎÁ ÁÓÓÅÍÂÌÅÒÅ Ó ÆÏÒÍÁÌØÎÙÍ ÏÐÉÓÁÎÉÅÍ AB>> ÁÌÇÏÒÉÔÍÁ. HÏ ×ÒÏÄÅ ÂÙ ÔÁÍ ÎÅ ÐÏÌÉÎÏÍÉÎÁÌØÎÁÑ ÁÐÐÒÏËÓÉÍÁÃÉÑ. VB> ñ ÅÇÏ ÕÖÅ ËÏÇÄÁ-ÔÏ ÓÍÏÔÒÅÌ, ÜÔÏ ÎÅÞÔÏ ÞÕÄÏ×ÉÝÎÏÅ É ÎÅ×ÒÁÚÕÍÉÔÅÌØÎÏÅ. ÷ VB> HI-Tech É ÔÏ ÐÏÎÑÔÎÅÅ...

AB>> p.s. òÁÚÌÏÖÅÎÉÅ × ÒÑÄ ôÅÊÌÏÒÁ ÎÅ ÕÓÔÒÁÉ×ÁÅÔ ÐÏ ÔÏÞÎÏÓÔÉ? VB> ;) åÓÌÉ ÂÙ Ñ ÅÝÅ ÚÎÁÌ, ÞÔÏ ÜÔÏ... HÕ ÚÁÂÙÌ Ñ ÕÖÅ ×ÓÅ, ÄÁ×ÎÏ É ÐÒÏÞÎÏ. VB> á, ÍÏÖÅÔ ÂÙÔØ, ÄÁÖÅ É ÎÅ ÚÎÁÌ ;)

WBR, AVB

VB> óÔÏÌËÎÕÌÓÑ Ó ÐÁËÏÓÔØÀ - ÎÅ ÎÒÁ×ÉÔÓÑ avrasm-Õ ÎÅÓËÏÌØËÏ .def ÎÁ ÏÄÉÎ VB> ÒÅÇÉÓÔÒ. ëÏÍÐÉÌÉÒÕÅÔÓÑ, ÎÏ ÒÕÇÁÅÔÓÑ ÐÒÅÄÕÐÒÅÖÄÅÎÉÑÍÉ. üÔÏ ËÁË-ÔÏ ÍÏÖÎÏ VB> ÏÂÏÊÔÉ ? òÁÄÉ ÔÁËÏÊ ÅÒÕÎÄÙ ÍÅÎÑÔØ ËÏÍÐÉÌÑÔÏÒ ×ÒÏÄÅ ËÁË ÓÍÙÓÌÁ ÎÅÔ (× VB> ÏÓÔÁÌØÎÏÍ ÏÎ ÍÅÎÑ ÕÓÔÒÁÉ×ÁÅÔ). âÏÌÅÅ ÓÔÁpÙÊ ÐÏÓÔÁ×Ø, ÏÎÉ ÎÅ pÕÇÁÌÉÓØ.

VB> ÷ÏÐÒÏÓ ×ÔÏÒÏÊ - Á ÇÄÅ-ÎÉÂÕÄØ ×ÏÄÉÔÓÑ ÁËËÕÒÁÔÎÁÑ "ÐÌÁ×ÁÀÝÁÑ" VB> ÂÉÂÌÉÏÔÅÞËÁ ÎÁ AVR ? 32-ÂÉÔÎÁÑ, 24-ÂÉÔÎÁÑ ÍÅÎÑ ÞÔÏ-ÔÏ ÓÏ×ÓÅÍ ÎÅ VB> ÐÒÉ×ÌÅËÁÅÔ... éÌÉ ÐÒÉÄÅÔÓÑ ÓÁÍÏÍÕ ÐÉÓÁÔØ ? èÍ. ïÎÁ ÖÅ ÎÅ ÍÅÎØÛÅ ËÉÌÁ ÂÕÄÅÔ ×ÅÓÉÔØ (ÎÏpÍÁÌØÎÁÑ, × ÓÍÙÓÌÅ, Ó ËÏppÅËÔÎÏÊ pÁÂÏÔÏÊ Ó ÎÕÌÅÍ, ÂÅÚËÏÎÅÞÎÏÓÔÑÍÉ É Ô.Ð.). óÏÍÎÅ×ÁÀÓØ, ÞÔÏ ÔÁËÏÅ ÓÕÝÅÓÔ×ÕÅÔ, Ô.Ë. ÏÂÙÞÎÏ ÎÁ ÁÓÓÅÍÂÌÅpÅ ×Ï ×ÓÑËÉÅ tiny ÐÉÛÕÔ, Á ÅÓÌÉ ÍÅÓÔÁ ÄÏÓÔÁÔÏÞÎÏ, ÔÏ ÐpÏÝÅ ÎÁ ÓÑÈ ÎÁÐÉÓÁÔØ.

VB> é ÔÒÅÔÉÊ ×ÏÐÒÏÓ - ÈÏÔÅÌÏÓØ ÂÙ ÎÁÊÔÉ ÆÏÒÍÁÌØÎÏÅ ÏÐÉÓÁÎÉÅ VB> ÐÏÌÉÎÏÍÉÎÁÌØÎÏÊ ÁÐÐÒÏËÓÉÍÁÃÉÉ (×ÏÔ ÚÁ×ÅÒÎÕÌ ;) ÆÕÎËÃÉÊ log(x) É VB> exp(x). ôÁÍ ÎÅ ÐÏÌÉÎÏÍÙ, Á ÍÎÏÇÏÜÔÁÖÎÙÅ ÄpÏÂÉ ÉÍÅÎÉ ËÏÇÏ-ÔÏ. éÝÉ ÌÉÔÅpÁÔÕpÕ ÐÏ ÞÉÓÌÅÎÎÙÍ ÍÅÔÏÄÁÍ ÉÌÉ ÂÌÉÖÁÊÛÅÇÏ ÄÏËÔÏpÁ ÆÉÚÍÁÔÎÁÕË. :) ÷ÙÞÉÓÌÅÎÉÅ ÌÏÇÁpÉÆÍÁ ÐpÉ×ÏÖÕ, ÎÏ Õ ÍÅÎÑ ÐÏÄ 24ÂÉÔÁ ÎÁÐÉÓÁÎÏ. åÓÌÉ ÎÕÖÎÏ - Õ ÍÅÎÑ ÇÄÅ ÔÏ ÍÁÔËÁÄÏ×ÓËÉÊ ÆÁÊÌÉË ×ÁÌÑÌÓÑ Ó ÎÏpÍÁÌØÎÏÊ ÚÁÐÉÓØÀ É ÐpÏ×ÅpËÏÊ ÜÔÏÇÏ ÁÌÇÏpÉÔÍÁ, ÍÏÇÕ ÐÏÉÓËÁÔØ.

;============================================= ; Input: Float2

log10_error: rcall SetRes0 ret

log10:

; Save order and convert to range 1~2

mov r4,Float2O sbrc Float2O,7 rjmp log10_error sbrs Float2O,6 rjmp log10_error andi Float2O,0x3F breq log10_error ldi Float2O,0x41

; Convert x to y=x-1

ldi Float1O,0x40 ; F1 = 1 ldi Float1L,0xFF ldi Float1H,0xFF rcall FSub ; F2=F2-F1

; Calculate Ln(y)

rcall SwapFl ; F1 = y mov r1,Float1O ; [r1:r2:r3] = y mov r2,Float1L mov r3,Float1H ldi Float2O,0x44 ; F2 = k5 ldi Float2L,0x53 ldi Float2H,0x8E rcall FDiv ; F2 = F1/F2 ldi Float1O,0x41 ; F1 = k4 ldi Float1L,0x15 ldi Float1H,0x8A rcall FAdd ; F2 = F1+F2 mov Float1O,r1 ; F1 = y mov Float1L,r2 mov Float1H,r3 rcall FDiv ; F2 = F1/F2 ldi Float1O,0x42 ; F1 = k3 ldi Float1L,0xFF ldi Float1H,0xC1 rcall FAdd ; F2 = F1+F2 mov Float1O,r1 ; F1 = y mov Float1L,r2 mov Float1H,r3 rcall FDiv ; F2 = F1/F2 ldi Float1O,0x42 ; F1 = k2 ldi Float1L,0x0A ldi Float1H,0x80 rcall FAdd ; F2 = F1+F2 mov Float1O,r1 ; F1 = y mov Float1L,r2 mov Float1H,r3 rcall FDiv ; F2 = F1/F2 ldi Float1O,0x41 ; F1 = k1 ldi Float1L,0x00 ldi Float1H,0x80 rcall FAdd ; F2 = F1+F2 mov Float1O,r1 ; F1 = y mov Float1L,r2 mov Float1H,r3 rcall FDiv ; F2 = F1/F2

; Convert ln(y) to log10(y)

ldi Float1O,0x40 ; F1 = log10(e) ldi Float1L,0x2E ldi Float1H,0x6F rcall FMul ; F2 = F2*F1

; Correct for order

mov r1,Float2O ; [r1:r2:r3] = F2 mov r2,Float2L mov r3,Float2H clr Float2H mov Float2L,r4 andi Float2L,0x3F subi Float2L,0x01 rcall Fix2Float ; F2 = order ldi Float1O,0x40 ; F1 = log10(2) ldi Float1L,0x10 ldi Float1H,0x4D rcall FMul ; F2 = F2*F1 mov Float1O,r1 ; F1 = log10(y) mov Float1L,r2 mov Float1H,r3 rcall FAdd ; F2 = F2+F1

ret

HÁ ÜÔÏÍ ×ÓÅ, ÐÏËÁ. Anton Abrosimov. ... ëÔÏ ÀÚÁÌ ÍÏÊ ÌÏÇÉÎ É ×ÅÓØ ÅÇÏ ×ÙÀÚÁÌ?!

*** 12 Jan 05 20:34, Anton Abrosimov wrote to Vladislav Baliasov:

VB>> ÏÄÉÎ ÒÅÇÉÓÔÒ. ëÏÍÐÉÌÉÒÕÅÔÓÑ, ÎÏ ÒÕÇÁÅÔÓÑ ÐÒÅÄÕÐÒÅÖÄÅÎÉÑÍÉ. üÔÏ VB>> ËÁË-ÔÏ ÍÏÖÎÏ ÏÂÏÊÔÉ ? òÁÄÉ ÔÁËÏÊ ÅÒÕÎÄÙ ÍÅÎÑÔØ ËÏÍÐÉÌÑÔÏÒ ×ÒÏÄÅ VB>> ËÁË ÓÍÙÓÌÁ ÎÅÔ (× ÏÓÔÁÌØÎÏÍ ÏÎ ÍÅÎÑ ÕÓÔÒÁÉ×ÁÅÔ).

AA> âÏÌÅÅ ÓÔÁpÙÊ ÐÏÓÔÁ×Ø, ÏÎÉ ÎÅ pÕÇÁÌÉÓØ.

VB>> ÷ÏÐÒÏÓ ×ÔÏÒÏÊ - Á ÇÄÅ-ÎÉÂÕÄØ ×ÏÄÉÔÓÑ ÁËËÕÒÁÔÎÁÑ "ÐÌÁ×ÁÀÝÁÑ" VB>> ÂÉÂÌÉÏÔÅÞËÁ ÎÁ AVR ? 32-ÂÉÔÎÁÑ, 24-ÂÉÔÎÁÑ ÍÅÎÑ ÞÔÏ-ÔÏ ÓÏ×ÓÅÍ ÎÅ VB>> ÐÒÉ×ÌÅËÁÅÔ... éÌÉ ÐÒÉÄÅÔÓÑ ÓÁÍÏÍÕ ÐÉÓÁÔØ ?

AA> èÍ. ïÎÁ ÖÅ ÎÅ ÍÅÎØÛÅ ËÉÌÁ ÂÕÄÅÔ ×ÅÓÉÔØ (ÎÏpÍÁÌØÎÁÑ, × ÓÍÙÓÌÅ, Ó AA> ËÏppÅËÔÎÏÊ pÁÂÏÔÏÊ Ó ÎÕÌÅÍ, ÂÅÚËÏÎÅÞÎÏÓÔÑÍÉ É Ô.Ð.).

"ëÉÌÁ" - ÜÔÏ ËÉÌÏÂÁÊÔÁ ÉÌÉ ËÉÌÏÓÌÏ×Á ? HÁ PIC16 ÐÏÓÌÅ ÎÅÂÏÌØÛÏÊ ËÁÓÔÒÁÃÉÉ (ÏÂÒÁÂÏÔËÉ overflow/underflow/zerodivide) Õ ÍÅÎÑ ÂÉÂÌÉÏÔÅÞËÁ ÚÁÎÉÍÁÌÁ 327 ÓÌÏ×, É ×ÐÏÌÎÅ ÄÁÖÅ ×ÐÉÓÙ×ÁÌÁÓØ ×Ï ×ÓÑËÉÅ ÔÁÍ 84-Å... HÅ ÄÕÍÁÀ, ÞÔÏ ÎÁ AVR ÓÏÖÒÅÔ ÂÏÌØÛÅ ËÉÌÏÂÁÊÔÁ (ÓËÏÒÅÅ ÜÔÁË ÓÌÏ× 400). ôÁË ÞÔÏ ×ÍÅÓÔÅ Ó ÔÒÅÂÕÅÍÙÍÉ log É exp × ËÉÌÏÓÌÏ×Ï ×ÐÉÛÕÓØ ÎÁ×ÅÒÎÑËÁ...

AA> óÏÍÎÅ×ÁÀÓØ, ÞÔÏ ÔÁËÏÅ ÓÕÝÅÓÔ×ÕÅÔ, Ô.Ë. ÏÂÙÞÎÏ ÎÁ ÁÓÓÅÍÂÌÅpÅ ×Ï AA> ×ÓÑËÉÅ tiny ÐÉÛÕÔ, Á ÅÓÌÉ ÍÅÓÔÁ ÄÏÓÔÁÔÏÞÎÏ, ÔÏ ÐpÏÝÅ ÎÁ ÓÑÈ ÎÁÐÉÓÁÔØ.

VB>> é ÔÒÅÔÉÊ ×ÏÐÒÏÓ - ÈÏÔÅÌÏÓØ ÂÙ ÎÁÊÔÉ ÆÏÒÍÁÌØÎÏÅ ÏÐÉÓÁÎÉÅ VB>> ÐÏÌÉÎÏÍÉÎÁÌØÎÏÊ ÁÐÐÒÏËÓÉÍÁÃÉÉ (×ÏÔ ÚÁ×ÅÒÎÕÌ ;) ÆÕÎËÃÉÊ log(x) É VB>> exp(x).

AA> ôÁÍ ÎÅ ÐÏÌÉÎÏÍÙ, Á ÍÎÏÇÏÜÔÁÖÎÙÅ ÄpÏÂÉ ÉÍÅÎÉ ËÏÇÏ-ÔÏ.

AA> ÞÉÓÌÅÎÎÙÍ ÍÅÔÏÄÁÍ ÉÌÉ ÂÌÉÖÁÊÛÅÇÏ ÄÏËÔÏpÁ ÆÉÚÍÁÔÎÁÕË. :) ÷ÙÞÉÓÌÅÎÉÅ AA> ÌÏÇÁpÉÆÍÁ ÐpÉ×ÏÖÕ, ÎÏ Õ ÍÅÎÑ ÐÏÄ 24ÂÉÔÁ ÎÁÐÉÓÁÎÏ.

Tue Jan 11 2005 23:18, Vladislav Baliasov wrote to All:

VB> ðpÉ×ÅÔ, All!

VB> óÔÏÌËÎÕÌÓÑ Ó ÐÁËÏÓÔØÀ - ÎÅ ÎÒÁ×ÉÔÓÑ avrasm-Õ ÎÅÓËÏÌØËÏ .def ÎÁ ÏÄÉÎ VB> ÒÅÇÉÓÔÒ. VB> ëÏÍÐÉÌÉÒÕÅÔÓÑ, ÎÏ ÒÕÇÁÅÔÓÑ ÐÒÅÄÕÐÒÅÖÄÅÎÉÑÍÉ. üÔÏ ËÁË-ÔÏ ÍÏÖÎÏ ÏÂÏÊÔÉ ? VB> òÁÄÉ ÔÁËÏÊ ÅÒÕÎÄÙ ÍÅÎÑÔØ ËÏÍÐÉÌÑÔÏÒ ×ÒÏÄÅ ËÁË ÓÍÙÓÌÁ ÎÅÔ (× ÏÓÔÁÌØÎÏÍ ÏÎ VB> ÍÅÎÑ ÕÓÔÒÁÉ×ÁÅÔ).

VB> ÷ÏÐÒÏÓ ×ÔÏÒÏÊ - Á ÇÄÅ-ÎÉÂÕÄØ ×ÏÄÉÔÓÑ ÁËËÕÒÁÔÎÁÑ "ÐÌÁ×ÁÀÝÁÑ" ÂÉÂÌÉÏÔÅÞËÁ VB> ÎÁ AVR ? 32-ÂÉÔÎÁÑ, 24-ÂÉÔÎÁÑ ÍÅÎÑ ÞÔÏ-ÔÏ ÓÏ×ÓÅÍ ÎÅ ÐÒÉ×ÌÅËÁÅÔ... éÌÉ VB> ÐÒÉÄÅÔÓÑ ÓÁÍÏÍÕ ÐÉÓÁÔØ ?

VB> é ÔÒÅÔÉÊ ×ÏÐÒÏÓ - ÈÏÔÅÌÏÓØ ÂÙ ÎÁÊÔÉ ÆÏÒÍÁÌØÎÏÅ ÏÐÉÓÁÎÉÅ ÐÏÌÉÎÏÍÉÎÁÌØÎÏÊ VB> ÁÐÐÒÏËÓÉÍÁÃÉÉ (×ÏÔ ÚÁ×ÅÒÎÕÌ ;) ÆÕÎËÃÉÊ log(x) É exp(x). ÷ ÂÉÂÌÉÏÔÅËÅ VB> Hitech C ÄÌÑ PIC Ñ ÉÈ ÎÁÛÅÌ, ÎÏ Ó ÍÏÉÍ ÚÎÁÎÉÅÍ C ÎÅ ÓËÁÚÁÔØ, ÞÔÏÂÙ ×ÐÏÌÎÅ VB> ÐÏÎÑÌ, ËÁË ÉÍÅÎÎÏ ÜÔÏ ×ÙÞÉÓÌÑÅÔÓÑ. HÁ×ÅÒÎÑËÁ ×ÅÄØ ÇÄÅ-ÎÉÂÕÄØ ÅÓÔØ VB> ÐÏÄÈÏÄÑÝÉÊ ÓÐÒÁ×ÏÞÎÉË × ÜÌÅËÔÒÏÎÎÏÍ ×ÉÄÅ ? éÌÉ ÎÅÔ ?

manx c

- ---

#include <math.h>

#include <errno.h>

double log10(double x) { return log(x)*0.43429448190325182765; }

#define A0 -0.64124943423745581147e+2 #define A1 +0.16383943563021534222e+2 #define A2 -0.78956112887491257267e+0 #define A(w) ((A2*w + A1)*w + A0)

#define B0 -0.76949932108494879777e+3 #define B1 +0.31203222091924532844e+3 #define B2 -0.35667977739034646171e+2 #define B(w) (((w + B2)*w + B1)*w + B0)

#define C0 0.70710678118654752440 #define C1 0.693359375 #define C2 -2.121944400546905827679e-4

double log(double x) { double Rz, f, z, w, znum, zden, xn; int n; extern int errno; if (x <= 0.0) { errno = EDOM; return -HUGE; } f = frexp(x, &n); if (f > C0) { znum = (f-0.5)-0.5; zden = f*0.5 + 0.5; } else {

--n; znum = f - 0.5; zden = znum*0.5 + 0.5; } z = znum/zden; w = z*z; /* the lines below are split up to allow expansion of A(w) and B(w) */ Rz = z + z * (w * A(w) /B(w)); xn = n; return (xn*C2 + Rz) + xn*C1; }

---- #include <math.h>

#include <errno.h>

#define P0 0.249999999999999993e+0 #define P1 0.694360001511792852e-2 #define P2 0.165203300268279130e-4 #define Q0 0.500000000000000000e+0 #define Q1 0.555538666969001188e-1 #define Q2 0.495862884905441294e-3

#define P(z) ((P2*z + P1)*z + P0) #define Q(z) ((Q2*z + Q1)*z + Q0)

#define EPS 2.710505e-20

double exp(double x) { int n; double xn, g, r, z; extern int errno; if (x > LOGHUGE) { errno = ERANGE; return HUGE; } if (x < LOGTINY) { errno = ERANGE; return 0.0; } if (fabs(x) < EPS) return 1.0; z = modf(x * 1.4426950408889634074, &xn); if (z >= 0.5)

AA>> âÏÌÅÅ ÓÔÁpÙÊ ÐÏÓÔÁ×Ø, ÏÎÉ ÎÅ pÕÇÁÌÉÓØ. VB> á ÂÏÌÅÅ ÓÔÁÒÙÊ ÐÒÏ ÎÏ×ÙÅ ËÁÍÎÉ ÎÅ ÚÎÁÅÔ... ÷ avrasm2, ËÁË ÏËÁÚÁÌÏÓØ, á ÎÁÆÉÇÁ ÅÍÕ ÉÈ ÚÎÁÔØ? çÌÁ×ÎÏÅ ÖÅ *.inc ÉÍÅÔØ.

VB> ÐÒÅÄÕÐÒÅÖÄÅÎÉÑ ÍÏÖÎÏ ÏÔËÌÀÞÉÔØ, É ÅÓÔØ ÅÝÅ .undef - ÉÄÉÏÔÉÚÍ, IMHO, VB> åÓÌÉ ÍÎÅ ÎÁÄÏ ×ÏÓÓÔÁÎÁ×ÌÉ×ÁÔØ ÐÒÉÓ×ÏÅÎÉÑ, ÔÏ ËÁË - ËÏÐÉÒÏ×ÁÔØ VB> ÉÚÎÁÞÁÌØÎÕÀ ÓÅËÃÉÀ ÐÒÉÓ×ÏÅÎÉÊ ? é ×ÏÏÂÝÅ, ËÁËÏÅ ÅÇÏ ÓÏÂÁÞØÅ ÄÅÌÏ, VB> ÓËÏÌØËÏ ÉÍÅÎ Ñ ÐÒÉÓ×ÏÉÌ ÒÅÇÉÓÔÒÕ ? ñ ÖÅ ÅÍÕ ÎÅ ÍÅÛÁÌ ÏÂÚÙ×ÁÔØ VB> r27...r31 ? çÒÕÓÔÎÏ, ËÏÒÏÞÅ. ôÁË ÔÏ Ö ×ÁpÎÉÎÇ, ÐpÏÓÔÏ ÏÂpÁÝÁÅÔ ×ÎÉÍÁÎÉÅ ÎÁ ×ÏÚÍÏÖÎÏÓÔØ ÐÅpÅËpÙÔÉÑ pÅÇÉÓÔpÏ×.

AA>> èÍ. ïÎÁ ÖÅ ÎÅ ÍÅÎØÛÅ ËÉÌÁ ÂÕÄÅÔ ×ÅÓÉÔØ (ÎÏpÍÁÌØÎÁÑ, × ÓÍÙÓÌÅ, Ó AA>> ËÏppÅËÔÎÏÊ pÁÂÏÔÏÊ Ó ÎÕÌÅÍ, ÂÅÚËÏÎÅÞÎÏÓÔÑÍÉ É Ô.Ð.). VB> "ëÉÌÁ" - ÜÔÏ ËÉÌÏÂÁÊÔÁ ÉÌÉ ËÉÌÏÓÌÏ×Á ? HÁ PIC16 ÐÏÓÌÅ ÎÅÂÏÌØÛÏÊ VB> ËÁÓÔÒÁÃÉÉ (ÏÂÒÁÂÏÔËÉ overflow/underflow/zerodivide) Õ ÍÅÎÑ ÂÉÂÌÉÏÔÅÞËÁ VB> ÚÁÎÉÍÁÌÁ 327 ÓÌÏ×, É ×ÐÏÌÎÅ ÄÁÖÅ ×ÐÉÓÙ×ÁÌÁÓØ ×Ï ×ÓÑËÉÅ ÔÁÍ 84-Å... HÅ VB> ÄÕÍÁÀ, ÞÔÏ ÎÁ AVR ÓÏÖÒÅÔ ÂÏÌØÛÅ ËÉÌÏÂÁÊÔÁ (ÓËÏÒÅÅ ÜÔÁË ÓÌÏ× 400). ôÁË VB> ÞÔÏ ×ÍÅÓÔÅ Ó ÔÒÅÂÕÅÍÙÍÉ log É exp × ËÉÌÏÓÌÏ×Ï ×ÐÉÛÕÓØ ÎÁ×ÅÒÎÑËÁ... ëÉÌÏÂÁÊÔÁ. öÕÔËÏ ÕpÅÚÁÎÎÁÑ 24ÂÉÔÁ ×ÅÓÉÔ 500 ÂÁÊÔ, ÎÏpÍÁÌØÎÁÑ ÚÁÊÍÅÔ ÍÉÎÉÍÕÍ × 2 pÁÚÁ ÂÏÌØÛÅ. ÷ ÔÁÊÎÉ2313 ÔÁËÁÑ ÍÁÔÅÍÁÔÉËÁ ÓÏ×ÍÅÓÔÎÏ Ó ÏÃÉÆpÏ×ËÏÊ, ÉÎÄÉËÁÃÉÅÊ É rs485 ÕÖÅ ÎÅ ×ÌÅÚÅÔ. :)

AA>> óÏÍÎÅ×ÁÀÓØ, ÞÔÏ ÔÁËÏÅ ÓÕÝÅÓÔ×ÕÅÔ, Ô.Ë. ÏÂÙÞÎÏ ÎÁ ÁÓÓÅÍÂÌÅpÅ ×Ï AA>> ×ÓÑËÉÅ tiny ÐÉÛÕÔ, Á ÅÓÌÉ ÍÅÓÔÁ ÄÏÓÔÁÔÏÞÎÏ, ÔÏ ÐpÏÝÅ ÎÁ ÓÑÈ AA>> ÎÁÐÉÓÁÔØ. VB> åÓÌÉ ×ÌÁÄÅÅÛØ - ÎÁ×ÅÒÎÏÅ. á Õ ÍÅÎÑ Ë ñ÷õ ÖÅÓÔÏËÁÑ ÉÄÉÏÓÉÎËÒÁÚÉÑ ;) ôÁÍ ÐpÏÓÔÏ ËÏ×ÙpÑÔØÓÑ ÐpÉÈÏÄÉÔÓÑ Ó ÐpÏÂÌÅÍÁÍÉ ÓÏ×ÓÅÍ ÄpÕÇÏÇÏ pÏÄÁ, ÏÓÏÂÅÎÎÏ Ó ËÏÍÐÉÌÑÔÏpÁÍÉ ÐÏÄ ÓÅpØÅÚÎÙÅ ÐÌÁÔÆÏpÍÙ.

AA>> ôÁÍ ÎÅ ÐÏÌÉÎÏÍÙ, Á ÍÎÏÇÏÜÔÁÖÎÙÅ ÄpÏÂÉ ÉÍÅÎÉ ËÏÇÏ-ÔÏ. VB> ÷ÏÔ × Hitech - ÐÏÌÉÎÏÍÙ. üÔÏ ÐÌÏÈÏ, ÉÍÅÎÉ ËÏÇÏ-ÔÏ ÜÔÉ ÄpÏÂÉ ÓÔÁÌÉ ÉÍÅÎÎÏ ÐÏÔÏÍÕ, ÞÔÏ ÏÂÅÓÐÅÞÉ×ÁÀÔ ÏÞÅÎØ ÈÏpÏÛÅÅ ÐpÉÂÌÉÖÅÎÉÅ.

VB> ïË, ÓÐÁÓÉÂÏ. èÏÔÑ ÕÖÅ ÐÒÁËÔÉÞÅÓËÉ ÓÏÚÒÅÌ ÄÌÑ ÐÅÒÅÔÑËÉ×ÁÎÉÑ ÆÕÎËÃÉÊ ÉÚ VB> Hitech 1 × 1... åÓÌÉ ÔÁÍ ÔÏÌËÏ×Ï ÏÐÉÓÁÎÏ É ËÏÎÓÔÁÎÔÙ ÕËÁÚÁÎÙ Ó ÄÏÓÔÁÔÏÞÎÏÊ ÔÏÞÎÏÓÔØÀ - ÐÏÞÅÍÕ ÂÙ É ÎÅ ÐÅpÅÔÑÎÕÔØ.

HÁ ÜÔÏÍ ×ÓÅ, ÐÏËÁ. Anton Abrosimov. ... [Abort] [Retry] [Ignore]

*** 14 Jan 05 21:13, Anton Abrosimov wrote to Vladislav Baliasov:

VB>> á ÂÏÌÅÅ ÓÔÁÒÙÊ ÐÒÏ ÎÏ×ÙÅ ËÁÍÎÉ ÎÅ ÚÎÁÅÔ... ÷ avrasm2, ËÁË VB>> ÏËÁÚÁÌÏÓØ,

AA> á ÎÁÆÉÇÁ ÅÍÕ ÉÈ ÚÎÁÔØ? çÌÁ×ÎÏÅ ÖÅ *.inc ÉÍÅÔØ.

VB>> ËÏÐÉÒÏ×ÁÔØ ÉÚÎÁÞÁÌØÎÕÀ ÓÅËÃÉÀ ÐÒÉÓ×ÏÅÎÉÊ ? é ×ÏÏÂÝÅ, ËÁËÏÅ ÅÇÏ VB>> ÓÏÂÁÞØÅ ÄÅÌÏ, ÓËÏÌØËÏ ÉÍÅÎ Ñ ÐÒÉÓ×ÏÉÌ ÒÅÇÉÓÔÒÕ ? ñ ÖÅ ÅÍÕ ÎÅ VB>> ÍÅÛÁÌ ÏÂÚÙ×ÁÔØ r27...r31 ? çÒÕÓÔÎÏ, ËÏÒÏÞÅ.

AA> ôÁË ÔÏ Ö ×ÁpÎÉÎÇ, ÐpÏÓÔÏ ÏÂpÁÝÁÅÔ ×ÎÉÍÁÎÉÅ ÎÁ ×ÏÚÍÏÖÎÏÓÔØ ÐÅpÅËpÙÔÉÑ AA> pÅÇÉÓÔpÏ×.

VB>> ×ÓÑËÉÅ ÔÁÍ 84-Å... HÅ ÄÕÍÁÀ, ÞÔÏ ÎÁ AVR ÓÏÖÒÅÔ ÂÏÌØÛÅ ËÉÌÏÂÁÊÔÁ VB>> (ÓËÏÒÅÅ ÜÔÁË ÓÌÏ× 400). ôÁË ÞÔÏ ×ÍÅÓÔÅ Ó ÔÒÅÂÕÅÍÙÍÉ log É exp × VB>> ËÉÌÏÓÌÏ×Ï ×ÐÉÛÕÓØ ÎÁ×ÅÒÎÑËÁ...

AA> ëÉÌÏÂÁÊÔÁ. öÕÔËÏ ÕpÅÚÁÎÎÁÑ 24ÂÉÔÁ ×ÅÓÉÔ 500 ÂÁÊÔ, ÎÏpÍÁÌØÎÁÑ ÚÁÊÍÅÔ AA> ÍÉÎÉÍÕÍ × 2 pÁÚÁ ÂÏÌØÛÅ.