曲线拟合-B样条曲线（BCB实现）

源代码如下： 

static float x[n+1]={0,50,100,150,200,250,300,350,400};
static float y[n+1]={0,60,60,80,-100,0,80,-40,80};
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int gmode,errorcode;
        int x0,y0,x1,y1,k,j;
        float X,Y; float u;
        Form1->Canvas->Pen->Color = RGB(250,0,0);               //绘制折线
        Form1->Canvas->