home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / CXPOWR.C < prev    next >
Encoding:
Text File  |  1984-08-08  |  368 b   |  22 lines
  1.    cxpowr (a,n,r)
  2.  
  3.       /*cxpowr raises a complex argument to an integer power.*/
  4.  
  5.       int n;
  6.       float a[],r[];
  7.     {
  8.       float b;
  9.  
  10.       b = n;
  11.       if(a[0] == 0.0 && a[1] == 0.)
  12.       {
  13.        r[0] = 0.;
  14.        r[1] = 0.;
  15.        return;
  16.       }
  17.       cxloge(a,r);
  18.       r[0] = r[0] * b;
  19.       r[1] = r[1] * b;
  20.       cxexpn(r,r);
  21.     }
  22.