复数函数库 免费提供源代码 函数全！！！

Question

需要源代码的请在本贴子之后跟贴，贴中告知邮箱地址或给我发一封邮件[email protected]，发现任何错误请转告我，不慎感激！
部分源代码：        
unit Complex_Hss;
          /////////////////////////////////////////////////////
          //                                                 //
          //      复数函数库  作者：侯思松   2002年。        //
          //                                                 //
          // 有改进意见或发现任何错误请转告我，本人不胜感激。//
          //          E-Mail：[email protected]              //
          //         (   转载时请保留本说明:)  )             //
          //                                                 //
          /////////////////////////////////////////////////////
interface
uses SysUtils;
  {定义复数类型}
  type TComplex=record   {复数类型}
      x:Extended;        {实部}
      y:Extended;        {虚部}
  end;
  type TCx=TComplex;     {简写 , :) }
  {复数转换函数}
  Function  CreateComplex  (const x:Extended;const y:Extended):TComplex;overload;
  Function  CreateComplex  (const x:Extended):TComplex;overload;                 
  Function  CreateComplexR (const R:Extended;const Arg:Extended):TComplex;       
  function  GetComplex_R   (const Z1:TComplex):Extended;
  function  GetComplex_Arg (const Z1:TComplex):Extended;
  function  ComplexToStr   (const Z1:TComplex):string;                           
  function  ComplexToStri  (const Z1:TComplex):string;                           
  function  StrToComplex   (const Str:string):TComplex;                           }
  function  Complex        (const x:Extended):TComplex;                          
  function  Complexi       (const y:Extended):TComplex;                          
  {复数函数_加减}
  function  C_Add  (const Z1:TComplex;const Z2:TComplex):TComplex;overload;
  function  C_Add  (const Z1:TComplex;const x:Extended):TComplex;overload;
  function  C_Sub  (const Z1:TComplex;const Z2:TComplex):TComplex;overload;
  function  C_Sub  (const Z1:TComplex;const x:Extended):TComplex;overload;
  {复数函数_乘除}
  Function  C_Mul  (const Z1:TComplex;const Z2: TComplex): TComplex;overload;
  Function  C_Mul  (const Z1: TComplex;const x: Extended): TComplex;overload;
  Function  C_Div  (const Z1: TComplex;const Z2:TComplex): TComplex;overload;
  Function  C_Div  (const Z1: TComplex;const x: Extended): TComplex;overload;
  {复数绝对值、取整、距离函数}
  Function  C_Abs    (var Z1: TComplex): TComplex;
  Function  C_AbsA   (var Z1: TComplex): TComplex;
  Function  C_Floor  (var Z1: TComplex): TComplex;
  Function  C_Ceil   (var Z1: TComplex): TComplex;
  Function  C_Trunc  (var Z1: TComplex): TComplex;
  Function  C_Round  (var Z1: TComplex): TComplex;
  function  C_Length (const Z1:TComplex):TComplex;overload;
  function  C_Length (const Z1:TComplex;const Z2: TComplex):TComplex;overload;
  {得零、单位虚数、归一化、共轭、虚实交换、倒数 、求符号、交换值}
  Function  C_Zero  ():TComplex;
  Function  C_Imag  ():TComplex;
  Function  C_Unity (const Z1: TComplex): TComplex;
  Function  C_Conj  (const Z1: TComplex): TComplex;
  Function  C_Flip  (const Z1: TComplex): TComplex;
  Function  C_Rev   (const Z1: TComplex): TComplex;
  Function  C_Rev2  (const Z1: TComplex;const Z2: TComplex): TComplex;
  function  C_Sgn   (const Z1: TComplex):TComplex;
  Procedure C_Xchg  (var Z1: TComplex;var Z2: TComplex);                         
  {复数次方}
  Function  C_Sqr   (const Z1: TComplex): TComplex;
  Function  C_Sqr3  (const Z1: TComplex): TComplex;
  Function  C_Sqr4  (const Z1: TComplex): TComplex;
  Function  C_Power (const Z1:TComplex;const Z2:TComplex;const K:integer=0):TComplex;overload; 
  Function  C_Power (const Z1:TComplex;const x:Extended;const K:integer=0): TComplex;overload;
  Function  C_Exp   (const Z1: TComplex): TComplex;
  Function  C_Hypo  (const xBase: Extended;const Z1: TComplex): TComplex;
  Function  C_Sqrt  (const Z1:TComplex;const K:integer=0):TComplex;overload;
  Procedure C_Sqrt  (const Z1:TComplex;var Z:array of TComplex);overload;
  Function  C_SqrtN (const Z1:TComplex;const N:integer;const K:integer=0):TComplex;overload;
  Procedure C_SqrtN (const Z1:TComplex;const N:integer;var Z:array of TComplex);overload;
  {复数对数}
  Function  C_Ln    (const Z1: TComplex;const K:integer=0): TComplex;                          
  Function  C_Log2  (const Z1: TComplex;const K:integer=0): TComplex;  Procedure C_Log2V (var Z1: TComplex;const K:integer=0);
  Function  C_Log10 (const Z1: TComplex;const K:integer=0): TComplex;  Procedure C_Log10V(var Z1: TComplex;const K:integer=0);
  Function  C_LogN  (const NBase:integer;const Z1:TComplex;const K:integer=0):TComplex;
  {复数三角函数}
  Function  C_Sin   (const Z1: TComplex): TComplex;       
  Function  C_Cos   (const Z1: TComplex): TComplex;
  Function  C_Tan   (const Z1: TComplex): TComplex;
  Function  C_Sinh  (const Z1: TComplex): TComplex;
  Function  C_Cosh  (const Z1: TComplex): TComplex;
  Function  C_Tanh  (const Z1: TComplex): TComplex;
  Function  C_Cotan (const Z1: TComplex): TComplex;
  Function  C_Cotanh(const Z1: TComplex): TComplex;
  Function  C_ASin  (const Z1: TComplex): TComplex;
  Function  C_ACos  (const Z1: TComplex): TComplex;
  Function  C_ATan  (const Z1: TComplex): TComplex;
  Function  C_ASinh (const Z1: TComplex): TComplex;
  Function  C_ACosh (const Z1: TComplex): TComplex;
  Function  C_ATanh (const Z1: TComplex): TComplex;
 {这里只给出了函数列表，函数实现略，因为太长了！}

Answer 1

呵呵，可以把函数也给我吗？
[email protected]，非常感谢

Answer 2

[email protected] you very much.

Answer 3

[email protected]
我也要一份，谢谢

Answer 4

发到 www.playicq.com 到大家一起下

Answer 5

只要你有你自己写的源代码，我都想向你学习！！！！！！！
我的e-mail:[email protected]

Answer 6

[email protected]
来一份
谢谢

Answer 7

[email protected]     thanks!

Answer 8

[email protected] 
thank you!!

Answer 9

给
[email protected]
[email protected]
发送邮件时发生错误，是否地址无效

Answer 10

zjpjzjcn你现在也在上网啊，这么早，呵呵

Answer 11

对zjpjzjcn说：不知道什么意思，
  句柄是什么的句柄，对象吗，哪些对象？
  得到对象的属性或方法 是指获得对象的属性或方法的地址吗，或者名称？ 
  这样做有什么作用和意义

Answer 12

[email protected]
多谢共享！

Answer 13

[email protected]
来一份，研究研究
如果可以，你前面说的源代码都来一份：）

Answer 14

下载地址:
http://www.fractal.com.cn/fxxx/fxxx021.htm
欢迎使用.