home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progc / begincpp.arj / #3_VER4.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-07-28  |  6.7 KB  |  156 lines
  1. #line 1 "#3_ver4.cxx"
  2. void *_new(long);
  3. void _delete(void*);
  4. void *_vec_new(void*,int,int,void*(*)(void*));
  5. void _vec_delete(void*,int,int,void(*)(void*,int),...);
  6. void exit(int);
  7. static void cdecl _STI();
  8. static void cdecl _STD();
  9.  
  10. struct Wsp { char _dummy; } ;
  11. extern char *oct (long , int );
  12. extern char *dec (long , int );
  13. extern char *hex (long , int );
  14.  
  15. extern char *chr (int , int );
  16. extern char *str (char *, int );
  17. extern char *form (char *, ... );
  18. struct ostream { 
  19. void *_ostream_bp ;
  20. short _ostream_state ;} ;
  21. struct ostream *_ostream__lshiftNFNPC__ (struct ostream* , char *);
  22. struct ostream *_ostream__lshiftNFUL__ (struct ostream* , unsigned long );
  23. struct ostream *_ostream__lshiftNFL__ (struct ostream* , long );
  24. struct ostream *_ostream__lshiftNFD__ (struct ostream* , double );
  25. struct ostream *_ostream__lshiftNFNRCWsp___ (struct ostream* , struct Wsp *);
  26. struct ostream *_ostream_put (struct ostream* , char );
  27. struct istream { 
  28. void *_istream_bp ;
  29. struct ostream *_istream_tied_to ;
  30. char _istream_skipws ;
  31. short _istream_state ;} ;
  32. struct istream *_istream__rshiftNFNPC__ (struct istream* , char *);
  33. struct istream *_istream__rshiftNFNRC__ (struct istream* , char *);
  34. struct istream *_istream__rshiftNFNRS__ (struct istream* , short *);
  35. struct istream *_istream__rshiftNFNRI__ (struct istream* , int *);
  36. struct istream *_istream__rshiftNFNRL__ (struct istream* , long *);
  37. struct istream *_istream__rshiftNFNRF__ (struct istream* , float *);
  38. struct istream *_istream__rshiftNFNRD__ (struct istream* , double *);
  39. struct istream *_istream__rshiftNFNRCWsp___ (struct istream* , struct Wsp *);
  40. struct istream *_istream_getNFNPC_I_I__ (struct istream* , char *, int , char );
  41. struct istream *_istream_putback (struct istream* , char );
  42. extern void eatwhite (struct istream *);
  43. extern struct istream cin ;
  44. extern struct ostream cout ;
  45. extern struct ostream cerr ;
  46.  
  47. extern struct Wsp WS ;
  48.  
  49.  
  50. struct complex { 
  51. double _complex_re ;double _complex_im ;} ;
  52. void pascal _complex__asplus (struct complex* , struct complex );
  53. extern int _eqNFCcomplex__Ccomplex___ (struct complex , struct complex );
  54. extern struct complex _mulNFCcomplex__Ccomplex___ (struct complex , struct complex );
  55. extern struct complex _plusNFCcomplex__Ccomplex___ (struct complex , struct complex );
  56.  
  57.  
  58. static struct complex _plusNFCcomplex__Ccomplex___ (struct complex , struct complex );
  59. int main ()
  60. {
  61.   { 
  62.     struct complex _au1_num1 ;
  63.     struct complex _au1_num2 ;
  64.     struct complex _au1_num3 ;
  65.     struct complex _au1_num4 ;
  66.     struct complex _au1_num5 ;
  67.     struct complex _au1_num6 ;
  68.     struct complex _au1_num7 ;
  69.     struct complex _au1_num8 ;
  70.     double _au1_x ;
  71.     double _au1_y ;
  72.     double _au1_z ;
  73.     struct complex _au0__Xa__plusNFCcomplex__Ccomplex____global ;
  74.     struct complex _au0__Xb__plusNFCcomplex__Ccomplex____global ;
  75.     struct complex _au0__X_V1__plusNFCcomplex__Ccomplex____global ;
  76.     struct complex _au0__Xa__asplus_complex ;
  77.  
  78.     ( ( ( (((struct complex *)(& _au1_num1 ))-> _complex_re 
  79.     = ((double )1 )), (((struct complex *)(& _au1_num1 ))-> _complex_im 
  80.     = ((double )0 ))) , ((((struct complex *)(& _au1_num1 ))))) ) ;
  81.     
  82.     ( ( ( ((& _au1_num2 )-> _complex_re = 1. ), 
  83.     ((& _au1_num2 )-> _complex_im = 1. )) , (((& _au1_num2 )))) ) ;
  84.     
  85.     ( ( ( ((& _au1_num3 )-> _complex_re = 3. ), 
  86.     ((& _au1_num3 )-> _complex_im = 8. )) , (((& _au1_num3 )))) ) ;
  87.     
  88.     ( ( ( ((& _au1_num4 )-> _complex_re = 1. ), 
  89.     ((& _au1_num4 )-> _complex_im = 1. )) , (((& _au1_num4 )))) ) ;
  90.     
  91.     ( ( ( ((& _au1_num5 )-> _complex_re = ((double )( 5 ) )), 
  92.     ((& _au1_num5 )-> _complex_im = 1. )) , (((& _au1_num5 )))) ) ;
  93.     
  94.     ( ( ( ((& _au1_num6 )-> _complex_re = ((double )( ( ( ( 6 ) , 7 ) , 8 ) , 9 ) )), 
  95.     ((& _au1_num6 )-> _complex_im = 1. )) , (((& _au1_num6 )))) ) ;
  96.     
  97.     ( ( ( ((& _au1_num7 )-> _complex_re = ((double )5 )), 
  98.     ((& _au1_num7 )-> _complex_im = ((double )5 ))) , (((& _au1_num7 )))) ) ;
  99.     
  100.     _au1_num8 = ( _au1_num1 ) ;
  101.     
  102.     _au1_x = 1. ;_au1_y = 5. ;_au1_z = 3. ;
  103.  
  104.    { 
  105.     struct complex _au0__V3 ;
  106.     struct complex _au0__V4 ;
  107.  
  108.     ( (_au0__Xa__asplus_complex = _plusNFCcomplex__Ccomplex___ ( 
  109.      ( (_au0__Xa__plusNFCcomplex__Ccomplex____global = 
  110.        (( ((_au1_num1 . _complex_re == _au1_num2 . _complex_re )
  111.        && (_au1_num1 . _complex_im == _au1_num2 . _complex_im ))) ? 
  112.        _au1_num3 : _au1_num1 )), 
  113.        ( (_au0__Xb__plusNFCcomplex__Ccomplex____global = 
  114.        ( ( ( ( ((& _au0__V3 )-> _complex_re = 
  115.        (_au1_x * _au1_y )), ((& _au0__V3 )-> _complex_im = 1. )) , 
  116.        (((& _au0__V3 )))) ) , _au0__V3 ) ), 
  117.        (((((((& _au0__X_V1__plusNFCcomplex__Ccomplex____global )->_complex_re =
  118.        (_au0__Xa__plusNFCcomplex__Ccomplex____global . _complex_re 
  119.        + _au0__Xb__plusNFCcomplex__Ccomplex____global . _complex_re )), 
  120.        ((& _au0__X_V1__plusNFCcomplex__Ccomplex____global )-> _complex_im 
  121.        = (_au0__Xa__plusNFCcomplex__Ccomplex____global . _complex_im 
  122.        + _au0__Xb__plusNFCcomplex__Ccomplex____global . _complex_im ))) , 
  123.        (((& _au0__X_V1__plusNFCcomplex__Ccomplex____global )))) ) , 
  124.        _au0__X_V1__plusNFCcomplex__Ccomplex____global ) ) ) ) , 
  125.        ( ( ( ( ((& _au0__V4 )-> _complex_re = (1. / _au1_z )), 
  126.        ((& _au0__V4 )-> _complex_im = 1. )) , (((& _au0__V4 )))) ) , 
  127.        _au0__V4 ) ) ), ( ((& _au1_num4 )-> _complex_re 
  128.        += _au0__Xa__asplus_complex . _complex_re ), 
  129.        ((& _au1_num4 )-> _complex_im 
  130.        += _au0__Xa__asplus_complex . _complex_im )) ) ;
  131.     
  132.     ( _ostream__lshiftNFNPC__ ( & cout , (char *)form ( (char *)"(%5.3f, %5.3f)\n", (& _au1_num4 )-> _complex_re , (& _au1_num4 )-> _complex_im ) ) ) ;
  133.     ( _ostream__lshiftNFNPC__ ( & cout , (char *)form ( (char *)"(%5.3f, %5.3f)\n", (& _au1_num5 )-> _complex_re , (& _au1_num5 )-> _complex_im ) ) ) ;
  134.     ( _ostream__lshiftNFNPC__ ( & cout , (char *)form ( (char *)"(%5.3f, %5.3f)\n", (& _au1_num6 )-> _complex_re , (& _au1_num6 )-> _complex_im ) ) ) ;
  135.     ( _ostream__lshiftNFNPC__ ( & cout , (char *)form ( (char *)"(%5.3f, %5.3f)\n", (& _au1_num7 )-> _complex_re , (& _au1_num7 )-> _complex_im ) ) ) ;
  136.     ( _ostream__lshiftNFNPC__ ( & cout , (char *)form ( (char *)"(%5.3f, %5.3f)\n", (& _au1_num8 )-> _complex_re , (& _au1_num8 )-> _complex_im ) ) ) ;
  137.    }
  138.   }
  139.   exit ( 0 ); 
  140. }
  141.  
  142.  
  143. static struct complex _plusNFCcomplex__Ccomplex___ 
  144.       (struct complex _au0_a , struct complex _au0_b )    
  145. { 
  146.     struct complex _au0__X_V1__plusNFCcomplex__Ccomplex____global ;
  147.     { 
  148.         return ( ( ( ( ((& _au0__X_V1__plusNFCcomplex__Ccomplex____global )-> 
  149.         _complex_re = (_au0_a . _complex_re + _au0_b . _complex_re )), 
  150.         ((& _au0__X_V1__plusNFCcomplex__Ccomplex____global )-> _complex_im = 
  151.         (_au0_a . _complex_im + _au0_b . _complex_im ))) , 
  152.         (((& _au0__X_V1__plusNFCcomplex__Ccomplex____global )))) ) , 
  153.         _au0__X_V1__plusNFCcomplex__Ccomplex____global ) ;
  154.     } 
  155. } 
  156.