ci=4
cim1=3
fi=(50./ci)*(1-exp(-9*ci/5))-10;
while abs(fi)>1.0e-6
fi=(50./ci)*(1-exp(-9*ci/5))-10;
fim1=(50./cim1)*(1-exp(-9*cim1/5))-10;
cip1=ci-(ci-cim1)*fi/(fi-fim1)
cim1=ci;
ci=cip1;
end
ci=4
cim1=3
fi=(50./ci)*(1-exp(-9*ci/5))-10;
while abs(fi)>1.0e-6
fi=(50./ci)*(1-exp(-9*ci/5))-10;
fim1=(50./cim1)*(1-exp(-9*cim1/5))-10;
cip1=ci-(ci-cim1)*fi/(fi-fim1)
cim1=ci;
ci=cip1;
end