if (l!=0) pi[1]=-pi[1];
for (i=2; i<=n-1; i++) { p = pr[i-1]*pr[1]; q = pi[i-1]*pi[1]; s = (pr[i-1]+pi[i-1])*(pr[1]+pi[1]); pr[i] = p-q; pi[i] = s-p-q; }
for (it=0; it<=n-2; it="it"+2) { vr = fr[it]; vi = fi[it]; fr[it] = vr+fr[it+1]; fi[it] = vi+fi[it+1]; fr[it+1] = vr-fr[it+1]; fi[it+1] = vi-fi[it+1]; } m = n/2; nv = 2;
for (l0=k-2; l0>=0; l0--) { m = m/2; nv = 2*nv; for(it=0; it<=(m-1)*nv; it="it"+nv) for (j=0; j<=(nv/2)-1; j++) { p = pr[m*j]*fr[it+j+nv/2]; q = pi[m*j]*fi[it+j+nv/2]; s = pr[m*j]+pi[m*j]; s = s*(fr[it+j+nv/2]+fi[it+j+nv/2]); poddr = p-q; poddi = s-p-q; fr[it+j+nv/2] = fr[it+j]-poddr; fi[it+j+nv/2] = fi[it+j]-poddi; fr[it+j] = fr[it+j]+poddr; fi[it+j] = fi[it+j]+poddi; } }
if(l!=0) { for(i=0; i<=n-1; i++) { fr[i] = fr[i]/(1.0*n); fi[i] = fi[i]/(1.0*n); } } if(il!=0) { for(i=0; i<=n-1; i++) { pr[i] = sqrt(fr[i]*fr[i]+fi[i]*fi[i]); if(fabs(fr[i])<0.000001*fabs(fi[i])) { if ((fi[i]*fr[i])>0) pi[i] = 90.0; else pi[i] = -90.0; } else pi[i] = atan(fi[i]/fr[i])*360.0/6.283185306; } } return; }
EtherNetservers是一家成立于2013年的英国主机商,提供基于OpenVZ和KVM架构的VPS,数据中心包括美国洛杉矶、新泽西和杰克逊维尔,商家支持使用PayPal、支付宝等付款方式,提供 60 天退款保证,这在IDC行业来说很少见,也可见商家对自家产品很有信心。有需要便宜VPS、多IP VPS的朋友可以关注一下。优惠码SUMMER-VPS-15 (终身 15% 的折扣)SUMMER-...
DMIT怎么样?DMIT最近动作频繁,前几天刚刚上架了日本lite版VPS,正在酝酿上线日本高级网络VPS,又差不多在同一时间推出了美国cn2 gia线路不限流量的美国云服务器,不过价格太过昂贵。丐版只有30M带宽,月付179.99美元 !!目前,美国云服务器已经有个4个套餐,分别是,Premium(cn2 gia线路)、Lite(普通直连)、Premium Secure(带高防的cn2 gia线...
licloud怎么样?licloud目前提供香港cmi服务器及香港CN2+BGP服务器/E3-1230v2/16GB内存/240GB SSD硬盘/不限流量/30Mbps带宽,$39.99/月。licloud 成立於2021年,是香港LiCloud Limited(CR No.3013909)旗下的品牌,主要提供香港kvm vps,分为精简网络和高级网络A、高级网络B,现在精简网络和高级网络A。现在...