home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR41
/
CUJ0793.ZIP
/
1107094A
< prev
next >
Wrap
Text File
|
1993-05-01
|
374b
|
26 lines
/* REAL_L2.C, Listing 2 */
#include <math.h>
#include <real_t.h>
void main( void )
{
int i;
real_t x, error;
x = RC( 1.0 );
error = RC( 0.0 );
for ( i = 0; i < 30000; i++ )
{
error += fabs( x - RC( 0.1 ) * x * RC( 10.0 ) );
x++;
}
error = error;
} /* function main */
/* End of REAL_L2.C */