C++の繰り返し
たびたび申し訳ありません．C++総和の質問です
Microsoft Visual Basic 6.0の質問です．
以下の用に繰り返しの総和計算を書いたのですが，それぞれの総和が計算されず，例えば最もシンプルな総和sumも０となってしまう状態です．(他の総和も全て0になります)
何か間違いなどありますでしょうか？
//hello2.cpp
#define _COMPLEX_DEFINED
#include <iostream>
#include <string>
#include "complex.h"
#include "bessel.h"
#include <math.h>
#include <cmath>
#include <stdio.h>
#define RADIAN(ARC) ((ARC) * 3.14159 / 180)
using namespace std;
int main(void)
{
const double pi=3.141592654;
const double I0=2829;
const double r0=0;
const double z=0;
const double B1=6.07*pow(10,7);
int k;
double omega,freq,x;
double R,Rk;
double lambdag,ag;
double lambda1,a1,l1;
double lambda2,a2,l2;
double p,p2,pg;
double a11,a21,ag1,Rk1,l11,l21,p11,p21;
double Km,Kn,Kg,am;
complex r1,g,S2;
complex sigma1,sigma2,sigmag;
complex G,P,B,H;
complex RR,NI,NI2,NI3,BE;
double ANS,sumRIm,sumRRe,sumKm,sum;
int x1;
double r,r00,r001,r01;
double imag(),real();
printf("接触熱抵抗");
scanf("%lf",&R);
printf("加熱光半径(10^-6)×");
scanf("%lf",&Rk1);
Rk=Rk1*pow(10,-6);
printf("1層目熱伝導率");
scanf("%lf",&lambda1);
printf("1層目温度伝導率(10^-6)×");
scanf("%lf",&a11);
a1=a11*pow(10,-6);
printf("1層目厚み(10^-6)×");
scanf("%lf",&l11);
l1=l11*pow(10,-6);
printf("2層目熱伝導率");
scanf("%lf",&lambda2);
printf("2層目温度伝導率(10^-6)×");
scanf("%lf",&a21);
a2=a21*pow(10,-6);
printf("2層目厚み(10^-6)×");
scanf("%lf",&l21);
l2=l21*pow(10,-6);
printf("バッキング熱伝導率");
scanf("%lf",&lambdag);
printf("バッキング温度伝導率(10^-6)×");
scanf("%lf",&ag1);
ag=ag1*pow(10,-6);
printf("1層目半径境界(10^-6)×");
scanf("%lf",&p11);
p=p11*pow(10,-6);
printf("2層目半径境界(10^-6)×");
scanf("%lf",&p21);
p2=p21*pow(10,-6);
printf("バッキング半径境界");
scanf("%lf",&pg);
printf("am範囲");
scanf("%lf",&x1);
x=2;
freq=pow(10,x);
omega=2*pi*freq;
sum=0;
sumRIm=0;
sumRRe=0;
sumKm=0;
for (int i=1; i<=x1; i++) {
sum+=i;
am=(double)i;
Km=am/p;
Kn=am/p2;
Kg=am/pg;
sigma1=cpow(pow(Km,2)+complex(0,omega/a1),0.5);
sigma2=cpow(pow(Kn,2)+complex(0,omega/a2),0.5);
sigmag=cpow(pow(Kg,2)+complex(0,omega/ag),0.5);
r1=B1/sigma1;
g=(lambdag*sigmag)/(lambda1*sigma1);
S2=(lambda2*sigma2)/(lambda1*sigma1);
G = (1/(2*(S2+g)))*((S2-g)*(-1+R*lambda2*sigma2+S2)*cexp(-2*sigma2*l2)-(S2+g)*(1+R*lambda2*sigma2+S2));
P = (1/(2*(S2+g)))*((S2-g)*(1-R*lambda2*sigma2+S2)*cexp(-2*sigma2*l2)-(S2+g)*(-1-R*lambda2*sigma2+S2));
B = (1/(2*(S2+g)))*((S2-g)*((1-R*lambda2*sigma2)*r1+S2)*cexp(-2*sigma2*l2)-(S2+g)*(-1*(1+R*lambda2*sigma2)*r1+S2));
H = ((g+r1)*cexp(sigma1*l1)*G+(1-g)*cexp(-1*B1*l1)*B)/((1-g)*cexp(-1*sigma1*l1)*P+(1+g)*cexp(sigma1*l1)*G);
r=0;
r00=0;
r001=1;
r01=0.00005;
BE=1;
NI= exp(-1*(2*pow(r01,2)/pow(Rk,2)))*j0(Km*r)*r01;
NI2=2*pi*r001*j0(Km*r00);
NI3=cpow(j1(am),-2);
RR= (B1*I0/(2*lambda1*(cpow(sigma1,2)-pow(B1,2))))*2*pow(p,-2)*cpow(BE,-2)*NI*(1/(1-g))*(-2*H+r1+1)*NI2*cexp(sigmag*z);
sumKm+= Km;
sumRIm+= RR.imag();
sumRRe+= RR.real();
}
ANS=-atan((sumRIm/sumRRe)*(180/pi));
printf("%e\n",R*Rk);
printf("%e\n",Rk);
printf("%e\n",lambda1);
printf("%e\n",B1);
printf("%e\n",Km);
printf("%e\n",sigmag);
printf("%e\n",g);
printf("%e\n",r1);
printf("%e\n",j0(am));
printf("%e\n",G);
printf("%e\n",P);
printf("%e\n",B);
printf("%e\n",H);
printf("%e\n",NI3);
printf("%e",RR.real());
printf("+");
printf("%e",RR.imag());
printf("i""\n");
printf("%e\n",sumKm);
printf("%e\n",sumRRe);
printf("%e\n",sum);
printf("%e\n",ANS);
scanf("%d",&k);//
return 0;
}
補足
これの電子密度はいくらになるんでしょうか?