unitmain.cpp.bak

来自「一个C++builder 编写的牛顿杰弗逊算法 用来计算非线性的一些东西」· BAK 代码 · 共 53 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "UnitMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{//
	Memo1->Lines[0].Clear();
	
	float last = StrToFloat(Edit1->Text);
	float curr;
	
	bool cont = true;
	int mosttimes = StrToInt(Edit2->Text);
	int times = 0;
	do
	{
		curr = (2.0*last*last + 4)/(4*last + 5);
		Memo1->Lines[0].Append(curr);
		if(fabs(curr - last) < 0.00005)
		{
			cont = false;
		}
		last = curr;
		times++;
	}while(cont && (times < mosttimes));  
	
	if(times < mosttimes)
	{
		Label3->Caption = "收敛";
	}
	else
	{
		Label3->Caption = "没收敛";
	}
	
	//Memo1->Lines[0].Append(0.001);  
}
//---------------------------------------------------------------------------