📄 z_sqrt.c
字号:
/* * "@(#)z_sqrt.c 1.1" */#include "complex"z_sqrt(r, z)dcomplex *r, *z;{double mag, sqrt(), cabs();if( (mag = cabs(z->dreal, z->dimag)) == 0.) r->dreal = r->dimag = 0.;else if(z->dreal > 0) { r->dreal = sqrt(0.5 * (mag + z->dreal) ); r->dimag = z->dimag / r->dreal / 2; }else { r->dimag = sqrt(0.5 * (mag - z->dreal) ); if(z->dimag < 0) r->dimag = - r->dimag; r->dreal = z->dimag / r->dimag / 2; }}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -