＋设为首页 ＋添加到收藏夹
需要源代码的请在本贴子之后跟贴，贴中告知邮箱地址或给我发一封邮件HouSisong@263.net，发现任何错误请转告我，不慎感激！
部分源代码：
unit Complex_Hss;
/////////////////////////////////////////////////////
// //
// 复数函数库 作者：侯思松 2002年。 //
// //
// 有改进意见或发现任何错误请转告我，本人不胜感激。//
// E-Mail：HouSisong@263.net //
// ( 转载时请保留本说明:) ) //
// //
/////////////////////////////////////////////////////
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;
{这里只给出了函数列表，函数实现略，因为太长了！}
呵呵，可以把函数也给我吗？
netlib@163.com，非常感谢
smhp@163.net
wd_fei@sohu.com
thank you!
Ok!Copy to ahahai@163.com
我也要！yyq2000@sina.com
我也要gcj.mail@163.com
hnsytwh@163.com
eric.leung@hongkong.com
Thank you very much.
smartha@163.com
我也要一份，谢谢
发到 www.playicq.com 到大家一起下
只要你有你自己写的源代码，我都想向你学习！！！！！！！
我的e-mail:boyqing@hotmail.com
maddoc@163.com
来一份
谢谢
ocean617@sohu.com
^_^
trisea@etang.com thanks!
zhoujafen@163.com
thank you!!
lingcn@sina.com
Thanks!
thanks!
v_lucky@163.com
thanks
keyhappy@163.com
mark
上传到栋栋那里吧
