在R语言中使用多元非线性回归（nls函数）时，经常会遇到“Error in nls 循环次数超过了50这个最大值”问题。
主要原因在于nls中默认的最大迭代次数为50，此时，只需使用nls.control修改最大迭代次数即可。
比如将最大迭代次数修改为1000
用数组，分段存放，有点像逻辑电路里面加法器的思路。这是我们去年的课程设计题目，下面是代码#include<iostream>
#include<string>
using namespace std
const int Max=1000
class BigNum
{
public:
BigNum(int a)
{
int i,j=0
for(i=0i<Maxi++)
theNum[i]=0
while(a){
theNum[j]=a%10
a=a/10
j++
}
}
BigNum operator * (const BigNum &x){
BigNum result(0)
for(int i=0i<Maxi++)
{
BigNum temp(0)
if(!x.theNum[i]) continue
for(int j=0j<x.theNum[i]j++)
temp=temp+*this
result=result+(temp<<i)
}
return result
}
BigNum operator<<(int x){
for(int i=Max-1i>Max-1-xi--)
if(theNum[i]){
cerr<<"error!"<<endl
system("pause")
exit(1)
}
for(int j=Max-1j>=xj--)
theNum[j]=theNum[j-x]
for(int k=x-1k>=0k--)
theNum[k]=0
return *this
}
BigNum operator+(const BigNum &x)const{
BigNum temp(0)
int fore=0
for(int i=0i<Maxi++)
{
int j=theNum[i]+x.theNum[i]+fore
temp.theNum[i]=j%10
fore=j/10
}
return temp
}
friend ostream&operator<<(ostream &out,const BigNum x){
int i=Max-1
while(!x.theNum[i])i--
for(int j=ij>=0j--)
out<<(int)x.theNum[j]
return out
}
private:
char theNum[Max]
}
BigNum The_Result(int n)
{
if(n==0) return 1
else return BigNum(n)*The_Result(n-1)
}
int main()
{
int n
cin>>n
cout<<n<<"!="<<The_Result(n)<<endl
return 0
}
